[project @ 2003-03-04 01:29:25 by sof]

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

diff --git a/ghc/rts/win32/IOManager.c b/ghc/rts/win32/IOManager.c
index 85bfcb0..ce3ee99 100644 (file)
--- 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