Ignore:
Timestamp:
Aug 1, 2010, 3:58:51 PM (10 years ago)
Author:
gb
Message:

Don't use "ba" pseudo-instruction.

File:
1 edited

Legend:

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

    r14088 r14104  
    6262  (digit-h temp0 imm0)
    6363  (digit-l temp1 imm0)
     64  (load-subprim imm0 .SPvalues)
    6465  (vpush1 temp0)
    6566  (vpush1 temp1)
    6667  (add temp0 vsp '2)
    6768  (set-nargs 2)
    68   (ba .SPvalues))
     69  (bx imm0))
    6970
    7071
     
    139140        (remainder arg_z))
    140141    (build-lisp-frame)
     142    (load-subprim temp0 .SPsdiv32)
     143    (load-subprim temp1 .SPnvalret)
    141144    (mov fn nfn)
    142145    (cmp divisor '-1)   
     
    144147    (unbox-fixnum unboxed-divisor divisor)
    145148    (beq @neg)
    146     (bl .SPsdiv32)
     149    (blx temp0)
    147150    (box-fixnum quotient unboxed-quotient)
    148151    (box-fixnum remainder unboxed-remainder)
    149152    (stmdb (:! vsp) (quotient remainder))
    150153    (set-nargs 2)
    151     (ba .SPnvalret)
     154    (bx temp1)
    152155    @neg
    153156    (ldr arg_z (:@ fn '*least-positive-bignum*))
     
    159162    (vpush1 temp0)
    160163    (set-nargs 2)
    161     (ba .SPnvalret)))
     164    (bx temp1)))
    162165
    163166
Note: See TracChangeset for help on using the changeset viewer.