Changeset 13837


Ignore:
Timestamp:
Jun 16, 2010, 1:50:48 AM (9 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/ARM/arm-bignum.lisp

    r13819 r13837  
    10231023    ;(dbg t)
    10241024    (ldr val (:@ res (:$ arm::misc-data-offset)))
    1025     (box-fixnum arg_z val)
    1026     (cmp val (:asr arg_z (:$ arm::fixnumshift)))
     1025    (box-fixnum temp1 val)
     1026    (cmp val (:asr temp1 (:$ arm::fixnumshift)))
     1027    (moveq arg_z temp1)
    10271028    (bxeq lr)
    10281029    @big
Note: See TracChangeset for help on using the changeset viewer.