[Sbcl-commits] CVS: sbcl/src/compiler/x86-64 type-vops.lisp, 1.8, 1.9

[Juho S. <js...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/x86-64
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv4506/src/compiler/x86-64

Modified Files:
	type-vops.lisp 
Log Message:
1.0.0.7:
	Fix an off-by-one in the x86-64 FIXNUMP/UNSIGNED-BYTE-64 VOP (patch
        from Lutz Euler).


Index: type-vops.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86-64/type-vops.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- type-vops.lisp	9 Jan 2006 22:46:14 -0000	1.8
+++ type-vops.lisp	1 Dec 2006 16:32:13 -0000	1.9
@@ -190,7 +190,7 @@
   (:temporary (:sc unsigned-reg) tmp)
   (:generator 5
     (inst mov tmp value)
-    (inst shr tmp 61)
+    (inst shr tmp n-positive-fixnum-bits)
     (inst jmp (if not-p :nz :z) target)))
 
 ;;; A (SIGNED-BYTE 64) can be represented with either fixnum or a bignum with