X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FWorkQueue.c;h=b676072c967a50f26d2539968152bf958a7b3507;hb=83d563cb9ede0ba792836e529b1e2929db926355;hp=a0b06f36386772eb931c4402294ee0995c7a7bc3;hpb=610de7d17e09318272b7516bd9b97e8b2cbd170c;p=ghc-hetmet.git

diff --git a/rts/win32/WorkQueue.c b/rts/win32/WorkQueue.c
index a0b06f3..b676072 100644
--- 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;
 }