Initialise and deinitialise the file_lock_mutex

[ghc-hetmet.git] / rts / posix / FileLock.c

diff --git a/rts/posix/FileLock.c b/rts/posix/FileLock.c
index e871be5..26e9de4 100644 (file)
--- a/rts/posix/FileLock.c
+++ b/rts/posix/FileLock.c
@@ -52,6 +52,9 @@ initFileLocking(void)
 {
     obj_hash = allocHashTable_(hashLock, cmpLocks);
     fd_hash  = allocHashTable(); /* ordinary word-based table */
+#ifdef THREADED_RTS
+    initMutex(&file_lock_mutex);
+#endif
 }
 
 static void
@@ -65,6 +68,9 @@ freeFileLocking(void)
 {
     freeHashTable(obj_hash, freeLock);
     freeHashTable(fd_hash,  NULL);
+#ifdef THREADED_RTS
+    closeMutex(&file_lock_mutex);
+#endif
 }
 
 int