[Openmcl-cvs-notifications] r9857 - /trunk/source/level-0/X86/x86-utils.lisp

[rme at clozure.com]

Author: rme
Date: Tue Jul  1 02:51:20 2008
New Revision: 9857

Log:
Account for return address on stack in functions TRUE and FALSE.

Modified:
    trunk/source/level-0/X86/x86-utils.lisp

Modified: trunk/source/level-0/X86/x86-utils.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/level-0/X86/x86-utils.lisp (original)
+++ trunk/source/level-0/X86/x86-utils.lisp Tue Jul  1 02:51:20 2008
@@ -500,17 +500,21 @@
   (single-value-return))
 =

 (defx86lapfunction true ()
+  (pop (% ra0))
   (subq ($ '3) (% nargs.q))
   (leaq (@ '2 (% rsp) (% nargs.q)) (% imm0))
   (cmovaq (% imm0) (% rsp))
   (movl ($ x8664::t-value) (%l arg_z))
+  (push (% ra0))
   (single-value-return))
 =

 (defx86lapfunction false ()
+  (pop (% ra0))
   (subq ($ '3) (% nargs.q))
   (leaq (@ '2 (% rsp) (% nargs.q)) (% imm0))
   (cmovaq (% imm0) (% rsp))
   (movl ($ x8664::nil) (%l arg_z))
+  (push (% ra0))
   (single-value-return))
 =

 =