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

Optimise eql zero comparisions in generic-eql-c/fixnum to use the TEST

instruction when the argument is a descriptor-reg.
parent 1fc8a308
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/compiler/x86/arith.lisp,v 1.10 1998/02/19 19:34:38 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/arith.lisp,v 1.11 1999/11/11 15:33:55 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -924,7 +924,7 @@ ...@@ -924,7 +924,7 @@
(:info target not-p y) (:info target not-p y)
(:translate eql) (:translate eql)
(:generator 2 (:generator 2
(cond ((and (sc-is x any-reg) (zerop y)) (cond ((and (sc-is x any-reg descriptor-reg) (zerop y))
(inst test x x)) ; Smaller instruction (inst test x x)) ; Smaller instruction
(t (t
(inst cmp x (fixnum y)))) (inst cmp x (fixnum y))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment