picolisp

commit 8615df6582adb8abdc9861022d449a5e7e12b148
parent 039e1308404613e0a74b7fdf4730e64d3cc24daf
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 16 Mar 2011 17:20:11 +0100

Bug in 'poll' (64-bit)
Diffstat:
M
CHANGES
 | 
1
+
M
src64/io.l
 | 
4
++--

2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * XXmar11 picoLisp-3.0.6
+   Bug in 'poll' (64-bit)
    Bug in 'accept' (64-bit)
    'err' function
    Removed 'rpc' function
diff --git a/src64/io.l b/src64/io.l
@@ -1,4 +1,4 @@
-# 09mar11abu
+# 16mar11abu
 # (c) Software Lab. Alexander Burger
 
 # Close file descriptor
@@ -3318,7 +3318,7 @@
          ld Y (C)  # fd + 1
          inc Y
          do
-            cc select(Y S 0 &(S FD_SET))  # Check
+            cc select(Y S 0 0 &(S FD_SET))  # Check
             nul4  # OK?
          while s  # No
             call errno_A