From: simonmar <unknown>
Date: Thu, 3 Nov 2005 14:28:43 +0000 (+0000)
Subject: [project @ 2005-11-03 14:28:43 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~79
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ecda90f5d0a0ca882c366bc2f8146fa95fe41395;p=ghc-hetmet.git

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

diff --git a/ghc/rts/win32/OSThreads.c b/ghc/rts/win32/OSThreads.c
index 5559765..f48540e 100644
--- 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);