summaryrefslogtreecommitdiff
path: root/rts/Timer.c
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2007-06-27 09:29:41 +0000
committerSimon Marlow <simonmar@microsoft.com>2007-06-27 09:29:41 +0000
commite1ddf51abb3a89392cc9da9a36b74f0d69f9a36b (patch)
treed68b621327b0251460f0123a254c6a18f2864a32 /rts/Timer.c
parent65ff44face84ae30f1ddf7d009d51c1778f8c7d3 (diff)
downloadhaskell-e1ddf51abb3a89392cc9da9a36b74f0d69f9a36b.tar.gz
+RTS -V0 disables the interval timer completely (for repeatable debugging)
Diffstat (limited to 'rts/Timer.c')
-rw-r--r--rts/Timer.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/Timer.c b/rts/Timer.c
index 05d1fecdc7..0e0b5386b7 100644
--- a/rts/Timer.c
+++ b/rts/Timer.c
@@ -85,7 +85,9 @@ void
startTimer(void)
{
initProfTimer();
- startTicker(RtsFlags.MiscFlags.tickInterval, handle_tick);
+ if (RtsFlags.MiscFlags.tickInterval != 0) {
+ startTicker(RtsFlags.MiscFlags.tickInterval, handle_tick);
+ }
}
void