picolisp

commit 92db19a4c928b4cecb80063633db3bec4d6dc246
parent 60cdeea743c249a5b737a683825a490c0ef0ee37
Author: Commit-Bot <unknown>
Date:   Mon, 30 Aug 2010 15:00:37 +0000

Automatic commit from picoLisp.tgz, From: Mon, 30 Aug 2010 15:00:37 GMT
Diffstat:
M
src/io.c
 | 
2
+-
M
src64/db.l
 | 
4
++--

2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/io.c b/src/io.c
@@ -2721,7 +2721,7 @@ static pid_t tryLock(off_t n, off_t len) {
       }
       if (errno != EINTR  &&  errno != EACCES  &&  errno != EAGAIN)
          lockErr();
-      // fl.l_type = F_WRLCK;
+      fl.l_type = F_WRLCK;
       fl.l_whence = SEEK_SET;
       fl.l_start = n;
       fl.l_len = len;
diff --git a/src64/db.l b/src64/db.l
@@ -327,8 +327,8 @@
             jne lockErr  # No
          end
       end
-      #? ld A F_WRLCK  # Write lock
-      #? st2 (Flock)  # 'l_type'
+      ld A F_WRLCK  # Write lock
+      st2 (Flock)  # 'l_type'
       ld (Flock L_START) C  # Start position ('l_whence' is SEEK_SET)
       ld (Flock L_LEN) E  # Length
       do