picolisp

commit d5ac3e26484db87f992ef0249874cf3478f8dd49
parent b2a0e90f897de1b99de0fb7987b97b6961e716ce
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 30 Apr 2012 16:19:36 +0200

Minor comment
Diffstat:
M
src64/arch/x86-64.l
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src64/arch/x86-64.l b/src64/arch/x86-64.l
@@ -725,14 +725,14 @@
             # Don't use SSE registers in varargs for static calls
             (when (member Adr '("printf" "fprintf" "sprintf" "open" "fcntl"))
                (prinst "xor" "%al" "%al") ) )
-         (prinst "mov" "%rsp" "%rax")  # A on arguments
-         (prinst "push" "%rbp")
+         (prinst "mov" "%rsp" "%rax")     # A on arguments
+         (prinst "push" "%rbp")           # Link
          (prinst "mov" "%rsp" "%rbp")
          (prinst "mov" Arg "%rbx")
-         (prinst "sub" "%rax" "%rbx")  # Size of arguments
-         (prinst "sub" "%rbx" "%rsp")  # Allocate space
-         (prinst "andb" "$~15" "%spl")  # Align stack
-         (prinst "mov" "%rsp" "%rbx")  # E on stack space
+         (prinst "sub" "%rax" "%rbx")     # Size of arguments
+         (prinst "sub" "%rbx" "%rsp")     # Allocate space
+         (prinst "andb" "$~15" "%spl")    # Align stack
+         (prinst "mov" "%rsp" "%rbx")     # E on stack space
          (prinst "lea" "5f(%rip)" "%r11")
          (mapc
             '((R X)