Changeset 14910

Timestamp:

Jul 28, 2011, 12:49:24 AM (13 years ago)

Author:

Gary Byers

Message:

In %CODE-VECTOR-PC, need to shift the unboxed code-vector size left.

File:

• trunk/source/level-0/ARM/arm-def.lisp (modified) (1 diff)

trunk/source/level-0/ARM/arm-def.lisp

@@ -293 +293 @@
   (getvheader imm1 code-vector)
   (header-size imm1 imm1)
-  (mov imm1 (:lsr imm1 (:$ 2)))
-  (cmp imm0 imm1)
+  (cmp imm0 (:lsl imm1 (:$ 2)))
   (movhs arg_z 'nil)
   (movlo arg_z (:lsl imm0 (:$ arm::fixnumshift)))