Ignore:
Timestamp:
Dec 30, 2012, 5:44:48 AM (7 years ago)
Author:
gb
Message:

commit correct file to fix ticket:1041

File:
1 edited

Legend:

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

    r15425 r15555  
    510510    (mov carry (:$ 0))
    511511    @loop
     512    (adds carry carry carry)
    512513    (ldr x (:@ aptr aidx))
    513514    (add idx count (:$ arm::misc-data-offset))
    514515    (ldr y (:@ bptr idx))
    515     (add x x y)
    516     (adds x x (:asr carry (:$ arm::fixnumshift)))
    517     (movcc carry (:$ 0))
    518     (movcs carry (:$ arm::fixnumone))
     516    (adcs x x y)
     517    (movcc carry '0)
     518    (movcs carry (:$ #x80000000))
    519519    (str x (:@ aptr aidx))
    520520    (add count count '1)
     
    522522    (add aidx aidx '1)
    523523    (blt @loop)
     524    (adds carry carry carry)
    524525    (ldr x (:@ aptr aidx))  ; add carry into next one
    525     (add x x (:asr carry (:$ arm::fixnumshift)))
     526    (adc x x (:$ 0))
    526527    (str x (:@ aptr aidx))
    527528    (add vsp vsp (:$ 4))
Note: See TracChangeset for help on using the changeset viewer.