Changeset 7915

Timestamp:

Dec 15, 2007, 9:07:13 AM (13 years ago)

Author:

rme

Message:

Typo; wrong index register name.

File:

• branches/ia32/level-0/X86/X8632/x8632-bignum.lisp (modified) (2 diffs)

branches/ia32/level-0/X86/X8632/x8632-bignum.lisp

@@ -158 +158 @@
 
 ;;; To normalize a bignum is to drop "trailing" digits which are
-;;; redundant sign information.  When return-fixum-p is t, make
+;;; redundant sign information.  When return-fixnum-p is t, make
 ;;; the resultant bignum into a fixnum if it fits.
 (defx8632lapfunction %normalize-bignum-2 ((return-fixnum-p arg_y) (bignum arg_z))
@@ -183 +183 @@
     (movl (% next) (% sign))
     ;; (bignum-ref bignum (- len 2)), i.e., next-to-last digit
-    (movl (@ (- x8632::misc-data-offset 8) (% bignum) (% imm0)) (% next))
+    (movl (@ (- x8632::misc-data-offset 8) (% bignum) (% len)) (% next))
     @test
     (movl (% next) (% imm0))