Skip to content
Snippets Groups Projects
Commit e4e3c3b0 authored by dtc's avatar dtc
Browse files

Fix and enable generic-eql.

Few small cleanups.
parent 9ad69e85
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/arith.lisp,v 1.1 1997/01/21 00:30:28 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/arith.lisp,v 1.2 1997/02/10 08:01:00 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -188,15 +188,12 @@ ...@@ -188,15 +188,12 @@
(:translate ,translate) (:translate ,translate)
(:save-p t)) (:save-p t))
((:arg x (descriptor-reg any-reg) edx-offset) ((:arg x (descriptor-reg any-reg) edx-offset)
(:arg y (descriptor-reg any-reg) (:arg y (descriptor-reg any-reg) edi-offset)
#+nil esi-offset
edi-offset)
(:res res descriptor-reg edx-offset) (:res res descriptor-reg edx-offset)
(:temp eax dword-reg eax-offset) (:temp eax dword-reg eax-offset)
(:temp ecx dword-reg ecx-offset) (:temp ecx dword-reg ecx-offset))
)
(inst test x 3) (inst test x 3)
(inst jmp :nz DO-STATIC-FN) (inst jmp :nz DO-STATIC-FN)
(inst test y 3) (inst test y 3)
...@@ -230,7 +227,6 @@ ...@@ -230,7 +227,6 @@
(define-cond-assem-rtn generic-< < two-arg-< :l) (define-cond-assem-rtn generic-< < two-arg-< :l)
(define-cond-assem-rtn generic-> > two-arg-> :g) (define-cond-assem-rtn generic-> > two-arg-> :g)
#+pfw-obsolete????
(define-assembly-routine (generic-eql (define-assembly-routine (generic-eql
(:cost 10) (:cost 10)
(:return-style :full-call) (:return-style :full-call)
...@@ -238,13 +234,12 @@ ...@@ -238,13 +234,12 @@
(:translate eql) (:translate eql)
(:save-p t)) (:save-p t))
((:arg x (descriptor-reg any-reg) edx-offset) ((:arg x (descriptor-reg any-reg) edx-offset)
(:arg y (descriptor-reg any-reg) esi-offset) (:arg y (descriptor-reg any-reg) edi-offset)
(:res res descriptor-reg edx-offset) (:res res descriptor-reg edx-offset)
(:temp eax dword-reg eax-offset) ; zzz added by jrd (:temp eax dword-reg eax-offset)
(:temp ecx dword-reg ecx-offset) ; zzz added by jrd (:temp ecx dword-reg ecx-offset))
)
(inst cmp x y) (inst cmp x y)
(inst jmp :e RETURN-T) (inst jmp :e RETURN-T)
(inst test x 3) (inst test x 3)
...@@ -265,9 +260,9 @@ ...@@ -265,9 +260,9 @@
(inst sub esp-tn (fixnum 3)) ; pw -- was 2 (inst sub esp-tn (fixnum 3)) ; pw -- was 2
(inst push eax) (inst push eax)
(inst mov ecx (fixnum 2)) (inst mov ecx (fixnum 2))
(inst mov eax (make-ea :dword (inst mov eax (make-ea :dword
:disp (+ nil-value :disp (+ nil-value (static-function-offset 'eql))))
(static-function-offset 'two-arg-eql))))
(inst jmp eax) (inst jmp eax)
RETURN-T RETURN-T
...@@ -280,9 +275,7 @@ ...@@ -280,9 +275,7 @@
(:translate =) (:translate =)
(:save-p t)) (:save-p t))
((:arg x (descriptor-reg any-reg) edx-offset) ((:arg x (descriptor-reg any-reg) edx-offset)
(:arg y (descriptor-reg any-reg) (:arg y (descriptor-reg any-reg) edi-offset)
#+nil esi-offset
edi-offset)
(:res res descriptor-reg edx-offset) (:res res descriptor-reg edx-offset)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment