X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FIOManager.c;h=81dedda569874775114bce599334ac720b3662e0;hb=e1cf7f788fe0e6ff984627641cfde2c17999de5d;hp=6e7cd25b7ad3542bd751e407e97de7e5685678da;hpb=eb5791fe867f6441d270344298678f45ed4a75e4;p=ghc-hetmet.git

diff --git a/rts/win32/IOManager.c b/rts/win32/IOManager.c
index 6e7cd25..81dedda 100644
--- a/rts/win32/IOManager.c
+++ b/rts/win32/IOManager.c
@@ -461,6 +461,8 @@ void ShutdownIOManager ( rtsBool wait_threads )
         }
         FreeWorkQueue(ioMan->workQueue);
         CloseHandle(ioMan->hExitEvent);
+        DeleteCriticalSection(&ioMan->active_work_lock);
+        DeleteCriticalSection(&ioMan->manLock);
         free(ioMan);
         ioMan = NULL;
     }