summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2010-01-27 13:30:40 +0000
committerSimon Marlow <marlowsd@gmail.com>2010-01-27 13:30:40 +0000
commite4173b1b96807a80d3432d1e35f1409f8a3c96f7 (patch)
treeddedbfdea7b3f8c69a22d2365f47b064e608e313
parent9e7567632bc6af06d3e874d1675479e7b1991f63 (diff)
downloadhaskell-e4173b1b96807a80d3432d1e35f1409f8a3c96f7.tar.gz
fix warnings
-rw-r--r--rts/ghc.mk1
-rw-r--r--rts/win32/Ticker.c2
2 files changed, 1 insertions, 2 deletions
diff --git a/rts/ghc.mk b/rts/ghc.mk
index e71473d4e2..7ae3f84cbd 100644
--- 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 c1e20fb67c..6be1b3a7c6 100644
--- 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;