Changeset 14060 for branches


Ignore:
Timestamp:
Jul 27, 2010, 10:51:07 PM (9 years ago)
Author:
gb
Message:

Typechecking, other fixes in %INIT-MISC.

File:
1 edited

Legend:

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

    r13921 r14060  
    143143  (mov arg_x  '#.$xnotelt)
    144144  (set-nargs 3)
    145   (call-symbol %err-disp)
     145  (bl .SPksignalerr)
    146146  @fixnum
    147147  (tst val (:$ arm::fixnum-mask))
    148148  (unbox-fixnum imm0 val)
    149   (bne @word-set-loop)
     149  (beq @word-set-loop)
    150150  (b @bad)
    151151  @single-float-vector
     
    157157  @u16
    158158  (mov imm0 (:lsl val (:$ (- 16 arm::fixnumshift))))
    159   (mov imm0 (:lsr val (:$ 16)))
     159  (mov imm0 (:lsr imm0 (:$ 16)))
    160160  (cmp val (:lsl imm0 (:$ arm::fixnumshift)))
    161161  (bne @bad)
     
    168168  @s16
    169169  (mov imm0 (:lsl val (:$ (- 16 arm::fixnumshift))))
    170   (mov imm0 (:asr val (:$ 16)))
     170  (mov imm0 (:asr imm0 (:$ 16)))
    171171  (cmp val (:lsl imm0 (:$ arm::fixnumshift)))
    172172  (bne @bad)
     
    174174  @u8
    175175  (mov imm0 (:lsl val (:$ (- 24 arm::fixnumshift))))
    176   (mov imm0 (:lsr val (:$ 24)))
     176  (mov imm0 (:lsr imm0 (:$ 24)))
    177177  (cmp val (:lsl imm0 (:$ arm::fixnumshift))) 
    178178  (bne @bad)
     
    187187  @s8
    188188  (mov imm0 (:lsl val (:$ (- 24 arm::fixnumshift))))
    189   (mov imm0 (:asr val (:$ 24)))
     189  (mov imm0 (:asr imm0 (:$ 24)))
    190190  (cmp val (:lsl imm0 (:$ arm::fixnumshift))) 
    191191  (beq @set8)
Note: See TracChangeset for help on using the changeset viewer.