X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FTimer.c;h=147b4d18553f6a9700cda8e2cb5c6c038c16b762;hb=cbc7228335a0489362d8f5deadaecacc8731a4ce;hp=1f9db85aad13104c7c2fc78c2507da140ecdabb8;hpb=557947d3f93e11285e36423ddb08d859af60ab47;p=ghc-hetmet.git

diff --git a/ghc/rts/Timer.c b/ghc/rts/Timer.c
index 1f9db85..147b4d1 100644
--- a/ghc/rts/Timer.c
+++ b/ghc/rts/Timer.c
@@ -20,7 +20,7 @@
 #include "Schedule.h"
 #include "Timer.h"
 
-#ifndef mingw32_TARGET_OS
+#if !defined(mingw32_HOST_OS)
 #include "Itimer.h"
 #else
 #include "win32/Ticker.h"
@@ -35,6 +35,7 @@ static int ticks_to_ctxt_switch = 0;
  * At each occurrence of a tick, the OS timer will invoke
  * handle_tick().
  */
+static
 void
 handle_tick(int unused STG_UNUSED)
 {
@@ -57,7 +58,7 @@ startTimer(nat ms)
   initProfTimer();
 #endif
 
-  return startTicker(ms);
+  return startTicker(ms, handle_tick);
 }
 
 int