On Windows, Delete the CriticalSection's we Initialize

[ghc-hetmet.git] / rts / win32 / WorkQueue.c

diff --git a/rts/win32/WorkQueue.c b/rts/win32/WorkQueue.c
index a0b06f3..b676072 100644 (file)
--- a/rts/win32/WorkQueue.c
+++ b/rts/win32/WorkQueue.c
@@ -82,6 +82,7 @@ FreeWorkQueue ( WorkQueue* pq )
   if ( pq->roomAvailable ) {
     CloseHandle(pq->roomAvailable);
   }
+  DeleteCriticalSection(&pq->queueLock);
   free(pq);
   return;
 }