Changeset 14060

Timestamp:

Jul 27, 2010, 10:51:07 PM (9 years ago)

Author:

gb

Message:

Typechecking, other fixes in %INIT-MISC.

File:

• branches/arm/level-0/ARM/arm-array.lisp (modified) (5 diffs)

branches/arm/level-0/ARM/arm-array.lisp

@@ -143 +143 @@
   (mov arg_x  '#.$xnotelt)
   (set-nargs 3)
-  (call-symbol %err-disp)
+  (bl .SPksignalerr)
   @fixnum
   (tst val (:$ arm::fixnum-mask))
   (unbox-fixnum imm0 val)
-  (bne @word-set-loop)
+  (beq @word-set-loop)
   (b @bad)
   @single-float-vector
@@ -157 +157 @@
   @u16
   (mov imm0 (:lsl val (:$ (- 16 arm::fixnumshift))))
-  (mov imm0 (:lsr val (:$ 16)))
+  (mov imm0 (:lsr imm0 (:$ 16)))
   (cmp val (:lsl imm0 (:$ arm::fixnumshift)))
   (bne @bad)
@@ -168 +168 @@
   @s16
   (mov imm0 (:lsl val (:$ (- 16 arm::fixnumshift))))
-  (mov imm0 (:asr val (:$ 16)))
+  (mov imm0 (:asr imm0 (:$ 16)))
   (cmp val (:lsl imm0 (:$ arm::fixnumshift)))
   (bne @bad)
@@ -174 +174 @@
   @u8
   (mov imm0 (:lsl val (:$ (- 24 arm::fixnumshift))))
-  (mov imm0 (:lsr val (:$ 24)))
+  (mov imm0 (:lsr imm0 (:$ 24)))
   (cmp val (:lsl imm0 (:$ arm::fixnumshift)))  
   (bne @bad)
@@ -187 +187 @@
   @s8
   (mov imm0 (:lsl val (:$ (- 24 arm::fixnumshift))))
-  (mov imm0 (:asr val (:$ 24)))
+  (mov imm0 (:asr imm0 (:$ 24)))
   (cmp val (:lsl imm0 (:$ arm::fixnumshift)))  
   (beq @set8)