picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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

Minor comment
Diffstat:
Msrc64/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)