Changeset 14061 for branches/arm/level-0/l0-bignum32.lisp

Timestamp:

Jul 27, 2010, 10:52:06 PM (10 years ago)

Author:

gb

Message:

BIGNUM-REM: missed refs to *TRUNCATE-X*.

File:

• branches/arm/level-0/l0-bignum32.lisp (modified) (1 diff)

branches/arm/level-0/l0-bignum32.lisp

@@ -1527 +1527 @@
                        (let* ((res-len-1 (1- len-y)))
                          (declare (fixnum res-len-1))
-                         (bignum-shift-right-loop-1 y-shift *truncate-x* *truncate-x* res-len-1 0)))
-                     (let ((the-res (%normalize-bignum-macro *truncate-x*)))
+                         (bignum-shift-right-loop-1 y-shift truncate-x truncate-x res-len-1 0)))
+                     (let ((the-res (%normalize-bignum-macro truncate-x)))
                        (if (not (fixnump the-res))
                          (if x-plusp (copy-bignum the-res) (negate-bignum the-res))