Move file locking into the RTS, fixing #629, #1109
authorSimon Marlow <simonmar@microsoft.com>
Tue, 20 Nov 2007 14:08:59 +0000 (14:08 +0000)
committerSimon Marlow <simonmar@microsoft.com>
Tue, 20 Nov 2007 14:08:59 +0000 (14:08 +0000)
commit1d026619ef5f098a0349ba2fa1b29d5697718bad
treee0151d4684e8647dbfd3203043ebc41a46f46631
parentf22f248b88346df835b25f03f8d3372c7bb87950
Move file locking into the RTS, fixing #629, #1109
File locking (of the Haskell 98 variety) was previously done using a
static table with linear search, which had two problems: the array had
a fixed size and was sometimes too small (#1109), and performance of
lockFile/unlockFile was suboptimal due to the linear search.
Also the algorithm failed to count readers as required by Haskell 98
(#629).

Now it's done using a hash table (provided by the RTS).  Furthermore I
avoided the extra fstat() for every open file by passing the dev_t and
ino_t into lockFile.  This and the improvements to the locking
algorithm result in a healthy 20% or so performance increase for
opening/closing files (see openFile008 test).
includes/FileLock.h [new file with mode: 0644]
rts/Hash.c
rts/Hash.h
rts/Linker.c
rts/RtsStartup.c
rts/posix/FileLock.c [new file with mode: 0644]