[Openmcl-cvs-notifications] r14715 - /trunk/source/lisp-kernel/arm-spentry.s

[gb at clozure.com]

Author: gb
Date: Fri Apr 15 16:51:55 2011
New Revision: 14715

Log:
Gak.  Bad typo (subtag_double_float vs subtag_double_float_vector<<fixnumsh=
ift)
in _SPstack_misc_alloc.

Modified:
    trunk/source/lisp-kernel/arm-spentry.s

Modified: trunk/source/lisp-kernel/arm-spentry.s
=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/lisp-kernel/arm-spentry.s (original)
+++ trunk/source/lisp-kernel/arm-spentry.s Fri Apr 15 16:51:55 2011
@@ -1082,7 +1082,7 @@
         __(cmp arg_z,#max_16_bit_ivector_subtag<<fixnumshift)
         __(movle imm1,arg_y,lsr #1)
         __(ble 8f)
-        __(cmp arg_z,#subtag_double_float)
+        __(cmp arg_z,#subtag_double_float_vector<<fixnumshift)
         __(moveq imm1,arg_y,lsl #1)
         __(addeq imm1,imm1,#node_size)
         __(addne imm1,arg_y,#7<<fixnumshift)