picolisp

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:
M
ersatz/picolisp.jar
 | 
0

M
src64/arch/x86-64.l
 | 
4
++--
M
src64/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