picolisp

commit f8f993bd3826e2f78a59bf6885b71389df1905b3
parent f7f16fe47e9d86bf9e2dc81c04892eef9d4b7b7c
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  4 Nov 2012 15:45:26 +0100

Bug missing use of 'l_type' / L_TYPE
Diffstat:
M
src64/db.l
 | 
6
+++---
M
src64/io.l
 | 
6
+++---

2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/src64/db.l b/src64/db.l
@@ -1,4 +1,4 @@
-# 27mar12abu
+# 04nov12abu
 # (c) Software Lab. Alexander Burger
 
 # 6 bytes in little endian format
@@ -299,7 +299,7 @@
 (code 'tryLockCE_FA)
    do
       ld A F_WRLCK  # Write lock
-      st2 (Flock)  # 'l_type'
+      st2 (Flock L_TYPE)  # 'l_type'
       ld (Flock L_START) C  # Start position ('l_whence' is SEEK_SET)
       ld (Flock L_LEN) E  # Length
       cc fcntl(((DbFile)) F_SETLK Flock)  # Try to lock
@@ -335,7 +335,7 @@
          cmp A EINTR  # Interrupted?
          jne lockErr  # No
       loop
-      ld2 (Flock)  # Get 'l_type'
+      ld2 (Flock L_TYPE)  # Get 'l_type'
       cmp B F_UNLCK  # Locked by another process?
    until ne  # Yes
    ld4 (Flock L_PID)  # Return PID
diff --git a/src64/io.l b/src64/io.l
@@ -1,4 +1,4 @@
-# 24sep12abu
+# 04nov12abu
 # (c) Software Lab. Alexander Burger
 
 # Close file descriptor
@@ -13,7 +13,7 @@
 
 # Lock/unlock file
 (code 'unLockFileAC)
-   st2 (Flock)  # 'l_type'
+   st2 (Flock L_TYPE)  # 'l_type'
    ld (Flock L_START) 0  # Start position ('l_whence' is SEEK_SET)
    shr A 16  # Get length
    ld (Flock L_LEN) A  # Length
@@ -26,7 +26,7 @@
 (code 'rdLockFileC)
    ld A F_RDLCK  # Read lock, length 0
 (code 'lockFileAC)
-   st2 (Flock)  # 'l_type'
+   st2 (Flock L_TYPE)  # 'l_type'
    ld (Flock L_START) 0  # Start position ('l_whence' is SEEK_SET)
    shr A 16  # Get length
    ld (Flock L_LEN) A  # Length