[project @ 2005-01-13 14:15:38 by simonmar]

[ghc-hetmet.git] / ghc / rts / Proftimer.c

diff --git a/ghc/rts/Proftimer.c b/ghc/rts/Proftimer.c
index 4025395..3b49915 100644 (file)
--- a/ghc/rts/Proftimer.c
+++ b/ghc/rts/Proftimer.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: Proftimer.c,v 1.10 2002/07/18 09:12:34 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -11,11 +10,9 @@
 
 #include "PosixSource.h"
 
-#include <stdio.h>
-
 #include "Rts.h"
 #include "Profiling.h"
-#include "Itimer.h"
+#include "Timer.h"
 #include "Proftimer.h"
 #include "RtsFlags.h"
 
@@ -49,7 +46,8 @@ stopHeapProfTimer( void )
 void
 startHeapProfTimer( void )
 {
-    if (RtsFlags.ProfFlags.doHeapProfile) {
+    if (RtsFlags.ProfFlags.doHeapProfile && 
+       RtsFlags.ProfFlags.profileIntervalTicks > 0) {
        do_heap_prof_ticks = rtsTrue;
     }
 }