Changeset 13837

Timestamp:

Jun 15, 2010, 6:50:48 PM (14 years ago)

Author:

Gary Byers

Message:

Fix fixnum-return case in %NORMALIZE-BIGNUM-2.

File:

• branches/arm/level-0/ARM/arm-bignum.lisp (modified) (1 diff)

branches/arm/level-0/ARM/arm-bignum.lisp

@@ -1023 +1023 @@
     ;(dbg t)
     (ldr val (:@ res (:$ arm::misc-data-offset)))
-    (box-fixnum arg_z val)
-    (cmp val (:asr arg_z (:$ arm::fixnumshift)))
+    (box-fixnum temp1 val)
+    (cmp val (:asr temp1 (:$ arm::fixnumshift)))
+    (moveq arg_z temp1)
     (bxeq lr)
     @big