X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FTicker.c;h=c1e20fb67c8b96ef6f28f5e98895327fdbaa11e9;hb=b49f7dceb6c2d12c89c947fa0f7f7cb935912de3;hp=d425dd58aba433a1a8cff3b7b15d207c9bf092ae;hpb=8d71be7cbd079f5eab23484a53a43b59dd0399e5;p=ghc-hetmet.git

diff --git a/rts/win32/Ticker.c b/rts/win32/Ticker.c
index d425dd5..c1e20fb 100644
--- a/rts/win32/Ticker.c
+++ b/rts/win32/Ticker.c
@@ -3,12 +3,10 @@
  * 
  */
 #include "Rts.h"
-#include "Timer.h"
 #include "Ticker.h"
 #include <windows.h>
 #include <stdio.h>
 #include <process.h>
-#include "OSThreads.h"
 
 /*
  * Provide a timer service for the RTS, periodically
@@ -53,9 +51,7 @@ TimerProc(PVOID param)
           waitRes = WaitForSingleObject(hStopEvent, ms);
           break;
       case TickerPause:
-          debugBelch("tick: pause");
           waitRes = WaitForSingleObject(hStopEvent, INFINITE);
-          debugBelch("tick: wakeup");
           break;
       case TickerExit:
           /* event has become signalled */