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

14 Jul 2004

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv7967
Modified Files:
    integers.lisp 
Log Message:
Fixed a bug in integer-length on bignums.
Date: Wed Jul 14 06:48:12 2004
Author: ffjeld
Index: movitz/losp/muerte/integers.lisp
diff -u movitz/losp/muerte/integers.lisp:1.59 movitz/losp/muerte/integers.lisp:1.60

--- movitz/losp/muerte/integers.lisp:1.59	Wed Jul 14 05:36:50 2004
+++ movitz/losp/muerte/integers.lisp	Wed Jul 14 06:48:11 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: integers.lisp,v 1.59 2004/07/14 12:36:50 ffjeld Exp $
+;;;; $Id: integers.lisp,v 1.60 2004/07/14 13:48:11 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -1098,7 +1098,7 @@
    		:ecx)
           (:leal ((:ecx 1) ,(* -1 movitz:+movitz-fixnum-factor+))
    	      :eax)		; bigits-1
-	       (:bsrl (:ebx (:ecx 4) ,(+ -4 (bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0)))
+	       (:bsrl (:ebx (:ecx 1) ,(+ -4 (bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0)))
    	      :ecx)
           (:shll 5 :eax)		; bits = bigits*32 + (bit-index+1)
           (:leal ((:ecx ,movitz:+movitz-fixnum-factor+) :eax

    