[project @ 2003-06-27 18:28:31 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 f9d56c6..ce3ee99 100644 (file)
--- a/ghc/rts/win32/IOManager.c
+++ b/ghc/rts/win32/IOManager.c
@@ -126,13 +126,13 @@ static
 BOOL
 NewIOWorkerThread(IOManagerState* iom)
 {
+  unsigned threadId;
   return ( 0 != _beginthreadex(NULL,
                               0,
                               IOWorkerProc,
                               (LPVOID)iom,
                               0,
-                              NULL) );
-  //CreateThread( NULL, 0, IOWorkerProc, (LPVOID)iom, 0, NULL));
+                              &threadId) );
 }
 
 BOOL