[project @ 2005-11-03 14:28:43 by simonmar]

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

diff --git a/ghc/rts/win32/OSThreads.c b/ghc/rts/win32/OSThreads.c
index 5559765..f48540e 100644 (file)
--- a/ghc/rts/win32/OSThreads.c
+++ b/ghc/rts/win32/OSThreads.c
@@ -98,7 +98,7 @@ createOSThread (OSThreadId* pId, OSThreadProc *startProc, void *param)
   
   return (_beginthreadex ( NULL,  /* default security attributes */
                           0,
-                          startProc,
+                          (unsigned (__stdcall *)(void *)) startProc,
                           param,
                           0,
                           (unsigned*)pId) == 0);