[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv32150

Modified Files:
	integers.lisp 
Log Message:
Fixed bug in ldb%byte that would erroneously return 0 for byte-positions
above #x4000. (same bug present at anoter spot.)

Date: Sat Sep 17 00:14:59 2005
Author: ffjeld

Index: movitz/losp/muerte/integers.lisp
diff -u movitz/losp/muerte/integers.lisp:1.111 movitz/losp/muerte/integers.lisp:1.112
--- movitz/losp/muerte/integers.lisp:1.111	Sat Sep 17 00:05:46 2005
+++ movitz/losp/muerte/integers.lisp	Sat Sep 17 00:14:59 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: integers.lisp,v 1.111 2005/09/16 22:05:46 ffjeld Exp $
+;;;; $Id: integers.lisp,v 1.112 2005/09/16 22:14:59 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1862,7 +1862,8 @@
 		     (:compile-form (:result-mode :ebx) integer)
 		     (:compile-form (:result-mode :ecx) position)
 		     (:shrl 5 :ecx) ; compute fixnum bigit-number in ecx
-		     (:cmpl #x4000 :ecx)
+		     (:cmpl ,(* #x4000 movitz:+movitz-fixnum-factor+)
+			    :ecx)
 		     (:jnc 'position-outside-integer)
 		     (:cmpw :cx (:ebx (:offset movitz-bignum length)))
 		     (:jbe '(:sub-program (position-outside-integer)