Changeset 14060
- Timestamp:
- Jul 27, 2010, 10:51:07 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/arm/level-0/ARM/arm-array.lisp
r13921 r14060 143 143 (mov arg_x '#.$xnotelt) 144 144 (set-nargs 3) 145 ( call-symbol %err-disp)145 (bl .SPksignalerr) 146 146 @fixnum 147 147 (tst val (:$ arm::fixnum-mask)) 148 148 (unbox-fixnum imm0 val) 149 (b ne@word-set-loop)149 (beq @word-set-loop) 150 150 (b @bad) 151 151 @single-float-vector … … 157 157 @u16 158 158 (mov imm0 (:lsl val (:$ (- 16 arm::fixnumshift)))) 159 (mov imm0 (:lsr val(:$ 16)))159 (mov imm0 (:lsr imm0 (:$ 16))) 160 160 (cmp val (:lsl imm0 (:$ arm::fixnumshift))) 161 161 (bne @bad) … … 168 168 @s16 169 169 (mov imm0 (:lsl val (:$ (- 16 arm::fixnumshift)))) 170 (mov imm0 (:asr val(:$ 16)))170 (mov imm0 (:asr imm0 (:$ 16))) 171 171 (cmp val (:lsl imm0 (:$ arm::fixnumshift))) 172 172 (bne @bad) … … 174 174 @u8 175 175 (mov imm0 (:lsl val (:$ (- 24 arm::fixnumshift)))) 176 (mov imm0 (:lsr val(:$ 24)))176 (mov imm0 (:lsr imm0 (:$ 24))) 177 177 (cmp val (:lsl imm0 (:$ arm::fixnumshift))) 178 178 (bne @bad) … … 187 187 @s8 188 188 (mov imm0 (:lsl val (:$ (- 24 arm::fixnumshift)))) 189 (mov imm0 (:asr val(:$ 24)))189 (mov imm0 (:asr imm0 (:$ 24))) 190 190 (cmp val (:lsl imm0 (:$ arm::fixnumshift))) 191 191 (beq @set8)
Note: See TracChangeset
for help on using the changeset viewer.