[movitz-cvs] CVS update: movitz/losp/muerte/typep.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

17 Apr 2004

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv3360
Modified Files:
    typep.lisp 
Log Message:
Minor fix.
Date: Fri Apr 16 20:24:00 2004
Author: ffjeld
Index: movitz/losp/muerte/typep.lisp
diff -u movitz/losp/muerte/typep.lisp:1.8 movitz/losp/muerte/typep.lisp:1.9

--- movitz/losp/muerte/typep.lisp:1.8	Fri Apr 16 20:02:53 2004
+++ movitz/losp/muerte/typep.lisp	Fri Apr 16 20:24:00 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  8 11:07:53 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: typep.lisp,v 1.8 2004/04/17 00:02:53 ffjeld Exp $
+;;;; $Id: typep.lisp,v 1.9 2004/04/17 00:24:00 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -266,9 +266,8 @@
    			      :eax)))
    		  ((= 1 (logcount (1+ (- upper-limit lower-limit))))
    		   `(with-inline-assembly (:returns :boolean-zf=1)
-			      (:compile-form (:result-mode :eax) ,object)
-			      (:leal (:eax ,(* movitz:+movitz-fixnum-factor+
-					       (- lower-limit)))
+			      (:compile-form (:result-mode :ecx) ,object)
+			      (:subl ,(* movitz:+movitz-fixnum-factor+ lower-limit)
    			     :ecx)
    		      (:testl ,(logxor #xffffffff
    				       (* movitz:+movitz-fixnum-factor+

    