[Openmcl-cvs-notifications] r10826 - /trunk/source/lib/ffi-win64.lisp

[gb at clozure.com]

Author: gb
Date: Mon Sep 22 11:15:26 2008
New Revision: 10826

Log:
In a Win64 callback, stack arguments are (+ 16 32) bytes from %rbp
(because of the ABI's insistence on having the caller reserve room
for the caller to save its register arguments to.)

Modified:
    trunk/source/lib/ffi-win64.lisp

Modified: trunk/source/lib/ffi-win64.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/lib/ffi-win64.lisp (original)
+++ trunk/source/lib/ffi-win64.lisp Mon Sep 22 11:15:26 2008
@@ -109,7 +109,7 @@
             (arg-num 0)
             (gpr-arg-offset -8)
             (fpr-arg-offset -40)
-            (memory-arg-offset 16)
+            (memory-arg-offset 48)
             (fp nil nil))
            ((null argvars)
             (values (rlets) (lets) nil (inits) rtype nil 8))