[Openmcl-cvs-notifications] r15134 - /trunk/source/compiler/ARM/arm-vinsns.lisp

[gb at clozure.com]

Author: gb
Date: Tue Dec 13 11:23:33 2011
New Revision: 15134

Log:
REQUIRE-S8 was shifting in the right direction (for once), but
by the wrong amount.

Modified:
    trunk/source/compiler/ARM/arm-vinsns.lisp

Modified: trunk/source/compiler/ARM/arm-vinsns.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/ARM/arm-vinsns.lisp (original)
+++ trunk/source/compiler/ARM/arm-vinsns.lisp Tue Dec 13 11:23:33 2011
@@ -1017,7 +1017,7 @@
                               ((object :lisp))
                               ((tag :u32)))
   (mov tag (:lsl object (:$ (- arm::nbits-in-word (+ 8 arm::fixnumshift)))=
))
-  (mov tag (:asr tag (:$ (- arm::nbits-in-word (+ 8 arm::fixnumshift)))))
+  (mov tag (:asr tag (:$ (- arm::nbits-in-word 8))))
   (cmp object (:lsl tag (:$ arm::fixnumshift)))
   (beq :ok)
   (uuo-cerror-reg-not-xtype object (:$ arm::xtype-s8))