1.0.27.11: swap ocfp and return-pc slots in x86oid call frames

[sbcl.git] / src / runtime / x86-64-assem.S

diff --git a/src/runtime/x86-64-assem.S b/src/runtime/x86-64-assem.S
index fb12a06..64f04ee 100644 (file)
--- a/src/runtime/x86-64-assem.S
+++ b/src/runtime/x86-64-assem.S
@@ -210,8 +210,9 @@ Ldone:
 
        /* Alloc new frame. */
        mov     %rsp,%rbx       # The current sp marks start of new frame.
+       push    %rbp            # dummy for return address
        push    %rbp            # fp in save location S0
-       sub     $16,%rsp        # Ensure 3 slots are allocated, one above.
+       sub     $8,%rsp         # Ensure 3 slots are allocated, two above.
        mov     %rbx,%rbp       # Switch to new frame.
 
 Lcall: