X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fwin32%2FIOManager.c;h=ce3ee99e72dfd25d56cbcac1e0571d24eef1e1b1;hb=9e6162f9d0102d1f5738bf78258b24ea5a647ea4;hp=85bfcb0d6af946a16b90fb785d32a35af702d144;hpb=557947d3f93e11285e36423ddb08d859af60ab47;p=ghc-hetmet.git

diff --git a/ghc/rts/win32/IOManager.c b/ghc/rts/win32/IOManager.c
index 85bfcb0..ce3ee99 100644
--- a/ghc/rts/win32/IOManager.c
+++ b/ghc/rts/win32/IOManager.c
@@ -126,12 +126,13 @@ static
 BOOL
 NewIOWorkerThread(IOManagerState* iom)
 {
+  unsigned threadId;
   return ( 0 != _beginthreadex(NULL,
 			       0,
 			       IOWorkerProc,
 			       (LPVOID)iom,
 			       0,
-			       NULL) );
+			       &threadId) );
 }
 
 BOOL