X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fposix%2FFileLock.c;h=8d258202719dc50c75b1efcd7552688fe535ae33;hb=7453eaaf0b690420ef2359f022a1838ad697b441;hp=436d8c9da5276584f61189737d892134aac7e2e8;hpb=1d026619ef5f098a0349ba2fa1b29d5697718bad;p=ghc-hetmet.git

diff --git a/rts/posix/FileLock.c b/rts/posix/FileLock.c
index 436d8c9..8d25820 100644
--- a/rts/posix/FileLock.c
+++ b/rts/posix/FileLock.c
@@ -88,6 +88,7 @@ lockFile(int fd, dev_t dev, ino_t ino, int for_writing)
         if (for_writing || lock->readers < 0) {
             return -1;
         }
+        insertHashTable(fd_hash, fd, lock);
         lock->readers++;
         return 0;
     }