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

[gb at clozure.com]

Author: gb
Date: Sun Oct 26 20:14:18 2008
New Revision: 11230

Log:
Do winapi return right.

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 Sun Oct 26 20:14:18 2008
@@ -4331,7 +4331,7 @@
         __ifdef([WIN_32])
 local_label(winapi_return):             =

          /* %ecx is non-zero and contains count of arg words to pop */
-          __(popl (%esp,%ecx,4))
+          __(popl -4(%esp,%ecx,4))
           __(leal -4(%esp,%ecx,4),%esp)
           __(ret)
         __endif