Changeset 13944 for branches


Ignore:
Timestamp:
Jul 9, 2010, 9:10:49 AM (9 years ago)
Author:
gb
Message:

Fixes in %SUBTRACT-WITH-BORROW, %SUBTRACT-WITH-BORROW-1. Can now print
PI on ARM. (Printing double-floats exercises some cases of TRUNCATE on
bignums.)

File:
1 edited

Legend:

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

    r13931 r13944  
    180180  (ldrne imm2 (:@ b imm2))
    181181  (ldr temp0 (:@ vsp (:$ borrow)))
     182 
    182183  (unbox-fixnum imm0 temp0)
    183   (subs imm0 imm0 (:$ -1))
     184  (subs imm0 imm0 (:$ 1))
    184185  (ldr temp0 (:@ vsp (:$ r)))
    185186  (ldr temp1 (:@ vsp (:$ k)))
    186187  (add vsp vsp (:$ 16)) 
    187   (sbcs imm0 imm2 imm1)
     188  (sbcs imm0 imm1 imm2)
    188189  (add imm1 temp1 (:$ arm::misc-data-offset))
    189190  (str imm0 (:@ temp0 imm1))
     191  (mov imm0 (:$ 0))
    190192  (adc imm0 imm0 (:$ 0))
    191193  (box-fixnum arg_z imm0)
     
    306308        (b imm1)
    307309        (temp imm0)
    308         (c imm2)
    309         (rzero temp2))
    310     (mov rzero (:$ 0))
     310        (c imm2))
    311311    (ldr temp0 (:@ vsp (:$ a-h)))
    312312    (ldr temp1 (:@ vsp (:$ a-l)))
    313313    (compose-digit b b-h b-l)
    314314    (unbox-fixnum c borrow-in)
    315     (mov temp (:$ -1))
    316     (adds temp c temp)
     315    (adds temp c (:$ -1))
    317316    (compose-digit a temp0 temp1)
    318     (rsbs a b a)
    319     (adc c rzero rzero)
     317    (sbcs a a b)
     318    (mov c (:$ 0))
     319    (adc c c c)
    320320    (box-fixnum c c)
    321321    (digit-h temp0 a)
     
    877877    (mov save-rcontext rcontext)
    878878    (ldr y1 (:@ vsp (:$ guess-h)))
    879     (ldr y2 (:@ vsp (:$ guess-l)))
    880     (compose-digit guess y1 y2)
     879    (ldr m (:@ vsp (:$ guess-l)))
     880    (compose-digit guess y1 m)
    881881    (mov tem (:lsl yidx (:$ arm::fixnumshift)))
    882882    (add tem tem (:$ (ash arm::misc-data-offset arm::fixnumshift)))
Note: See TracChangeset for help on using the changeset viewer.