X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTimer.c;h=0e0b5386b759530934ca135c98d6148a3e51cb56;hb=d31dfb32ea936c22628b508c28a36c12e631430a;hp=493fe3d35f9c697dab5a107b06446eaadd70f57c;hpb=e30aca19def5c629a8429bd57e56535b7f8f85c8;p=ghc-hetmet.git diff --git a/rts/Timer.c b/rts/Timer.c index 493fe3d..0e0b538 100644 --- a/rts/Timer.c +++ b/rts/Timer.c @@ -42,9 +42,7 @@ static void handle_tick(int unused STG_UNUSED) { -#ifdef PROFILING handleProfTick(); -#endif if (RtsFlags.ConcFlags.ctxtSwitchTicks > 0) { ticks_to_ctxt_switch--; if (ticks_to_ctxt_switch <= 0) { @@ -86,11 +84,10 @@ handle_tick(int unused STG_UNUSED) void startTimer(void) { -#ifdef PROFILING initProfTimer(); -#endif - - startTicker(RtsFlags.MiscFlags.tickInterval, handle_tick); + if (RtsFlags.MiscFlags.tickInterval != 0) { + startTicker(RtsFlags.MiscFlags.tickInterval, handle_tick); + } } void