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 5f974eeb19aefca6a4886f48dc11a515950d7701
parent cfdbcfbafd28d0ddeb14d5768c906bd3608701f7
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 20 Oct 2012 08:35:11 +0200

snprintf
Diffstat:
Msrc64/arch/x86-64.l | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src64/arch/x86-64.l b/src64/arch/x86-64.l @@ -1,4 +1,4 @@ -# 19oct12abu +# 20oct12abu # (c) Software Lab. Alexander Burger # Byte order @@ -735,7 +735,7 @@ (nth Arg 7) (nth M 7) ) ) # Don't use SSE registers in varargs for static calls - (when (member Adr '("printf" "fprintf" "sprintf" "open" "fcntl")) + (when (member Adr '("printf" "fprintf" "snprintf" "open" "fcntl")) (prinst "xor" "%al" "%al") ) ) (prinst "mov" "%rsp" "%rax") # A on arguments (prinst "push" "%rbp") # Link