fix warnings

diff --git a/rts/ghc.mk b/rts/ghc.mk
index e71473d..7ae3f84 100644 (file)
--- a/rts/ghc.mk
+++ b/rts/ghc.mk
@@ -315,7 +315,6 @@ rts/RetainerSet_CC_OPTS += -Wno-format
 # On Windows:
 rts/win32/ConsoleHandler_CC_OPTS += -w
 rts/win32/ThrIOManager_CC_OPTS += -w
-rts/win32/Ticker_CC_OPTS += -w
 # The above warning supression flags are a temporary kludge.
 # While working on this module you are encouraged to remove it and fix
 # any warnings in the module. See

diff --git a/rts/win32/Ticker.c b/rts/win32/Ticker.c
index c1e20fb..6be1b3a 100644 (file)
--- a/rts/win32/Ticker.c
+++ b/rts/win32/Ticker.c
@@ -40,7 +40,7 @@ WINAPI
 TimerProc(PVOID param)
 {
   int ms = (int)param;
-  DWORD waitRes;
+  DWORD waitRes = 0;
   
   /* interpret a < 0 timeout period as 'instantaneous' */ 
   if (ms < 0) ms = 0;