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 306d2d10ab081dd6e150e35b0d8f608ac84bc37c
parent 0a23bed826398acb1bdc5d4d24f3c6312cd34b77
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 21 Feb 2011 14:00:57 +0100

fcntl() is also a varargs function!
Diffstat:
Mersatz/picolisp.jar | 0
Msrc64/arch/x86-64.l | 4++--
Msrc64/version.l | 4++--
3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar Binary files differ. diff --git a/src64/arch/x86-64.l b/src64/arch/x86-64.l @@ -1,4 +1,4 @@ -# 17jan11abu +# 21feb11abu # (c) Software Lab. Alexander Burger # Byte order @@ -656,7 +656,7 @@ Arg M ) # Don't use SSE registers in varargs for static calls - (when (member Adr '("printf" "fprintf" "sprintf")) + (when (member Adr '("printf" "fprintf" "sprintf" "fcntl")) (prinst "xor" "%al" "%al") ) ) (prinst "lea" "5f(%rip)" "%r11") (mapc diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ -# 16feb11abu +# 21feb11abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 5 14) +(de *Version 3 0 5 15) # vi:et:ts=3:sw=3