[Openmcl-cvs-notifications] r11193 - /trunk/source/lisp-kernel/x86-spentry32.s

[gb at clozure.com]

Author: gb
Date: Tue Oct 21 20:06:44 2008
New Revision: 11193

Log:
This isn't the hard part ...

Modified:
    trunk/source/lisp-kernel/x86-spentry32.s

Modified: trunk/source/lisp-kernel/x86-spentry32.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/x86-spentry32.s (original)
+++ trunk/source/lisp-kernel/x86-spentry32.s Tue Oct 21 20:06:44 2008
@@ -4220,8 +4220,8 @@
         __(subl $24,%esp)
         __(movl $0,-16(%ebp)) /* No FP result */
         __(movl %eax,%ecx)    /* extract args-discard count */
-        __(shrl $32,%ecx)
-        __(andl $0xff000000,%eax)
+        __(shrl $24,%ecx)
+        __(andl $0x00ffffff,%eax)
         __(movl %ecx,-12(%ebp))
         /* If the C stack is 16-byte aligned by convention,
            it should still be, and this'll be a NOP. */