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 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:
Msrc64/db.l | 6+++---
Msrc64/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