[Openmcl-cvs-notifications] r14956 - /trunk/source/compiler/X86/x86-lapmacros.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug 29 07:09:15 2011
New Revision: 14956

Log:
In SAVE-STACKARGS-FRAME: want to use X8664::NODE-SIZE if targeting
X8664 ...

Modified:
    trunk/source/compiler/X86/x86-lapmacros.lisp

Modified: trunk/source/compiler/X86/x86-lapmacros.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/X86/x86-lapmacros.lisp (original)
+++ trunk/source/compiler/X86/x86-lapmacros.lisp Mon Aug 29 07:09:15 2011
@@ -409,7 +409,7 @@
     `(progn
       (movq (% rbp) (@ ,(* (1+ nstackargs) x8664::node-size) (% rsp)))
       (leaq (@ ,(* (1+ nstackargs) x8664::node-size) (% rsp)) (% rbp))
-      (popq (@ x8632::node-size (% rbp)))))))
+      (popq (@ x8664::node-size (% rbp)))))))
 =

 (defx86lapmacro save-frame-variable-arg-count ()
   (let* ((push (gensym))