picolisp

commit 4bc112d43d88f049795bd782378ca881c08a8c49
parent bed96ea44b84f9220b7367708f65deac4e2153fe
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 16 Mar 2011 12:33:49 +0100

Bug in 'accept' (64-bit)
Diffstat:
M
ersatz/picolisp.jar
 | 
0

M
src/vers.h
 | 
2
+-
M
src64/net.l
 | 
4
++--
M
src64/version.l
 | 
4
++--

4 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,0,5,23};
+static byte Version[4] = {3,0,5,24};
diff --git a/src64/net.l b/src64/net.l
@@ -1,4 +1,4 @@
-# 19may10abu
+# 16mar11abu
 # (c) Software Lab. Alexander Burger
 
 # (port ['T] 'cnt|(cnt . cnt) ['var]) -> cnt
@@ -111,7 +111,7 @@
    do
       cc accept(E Addr Buf)  # Accept connection
       nul4  # OK?
-      if nz  # Yes
+      if ns  # Yes
          xchg A (S)  # Save new socket, retrieve flags
          cc fcntl(E F_SETFL A)  # Restore socket status flags
          ld4 (Addr SIN_ADDR.S_ADDR)  # Get address
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 12mar11abu
+# 16mar11abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 5 23)
+(de *Version 3 0 5 24)
 
 # vi:et:ts=3:sw=3