X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FAsyncIO.c;h=54fc5cb526c5ebe1d5e93a70caf101fee79319d5;hb=c004ec62b41aa2137b5b5e298ca562609b0de92e;hp=20de8bb4abd73804d18d4b58dd257be31732c649;hpb=eb5791fe867f6441d270344298678f45ed4a75e4;p=ghc-hetmet.git

diff --git a/rts/win32/AsyncIO.c b/rts/win32/AsyncIO.c
index 20de8bb..54fc5cb 100644
--- a/rts/win32/AsyncIO.c
+++ b/rts/win32/AsyncIO.c
@@ -189,6 +189,7 @@ shutdownAsyncIO(rtsBool wait_threads)
         CloseHandle(completed_table_sema);
 	completed_table_sema = NULL;
     }
+    DeleteCriticalSection(&queue_lock);
 }
 
 /*