From 49e822ae4849031df975a9cd4d7c4f5eeecd558b Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 11 Nov 1999 15:33:55 +0000 Subject: [PATCH] Optimise eql zero comparisions in generic-eql-c/fixnum to use the TEST instruction when the argument is a descriptor-reg. --- compiler/x86/arith.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/x86/arith.lisp b/compiler/x86/arith.lisp index 774a98800..6921e4a7a 100644 --- a/compiler/x86/arith.lisp +++ b/compiler/x86/arith.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ (:info target not-p y) (:translate eql) (: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 (t (inst cmp x (fixnum y)))) -- GitLab