X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProftimer.c;h=dc36df9d71cb7569f21b9315379ae613c851580c;hb=ebeb534bad20646923b4f59085f9cf22ba93fb46;hp=402539553e8c4b672aa161b4f53abe5f03f6d461;hpb=c41b6b7824ce67f0d97a316ada3482035fd4fe3d;p=ghc-hetmet.git

diff --git a/ghc/rts/Proftimer.c b/ghc/rts/Proftimer.c
index 4025395..dc36df9 100644
--- a/ghc/rts/Proftimer.c
+++ b/ghc/rts/Proftimer.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Proftimer.c,v 1.10 2002/07/18 09:12:34 simonmar Exp $
+ * $Id: Proftimer.c,v 1.12 2003/02/22 04:51:52 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -15,7 +15,7 @@
 
 #include "Rts.h"
 #include "Profiling.h"
-#include "Itimer.h"
+#include "Timer.h"
 #include "Proftimer.h"
 #include "RtsFlags.h"
 
@@ -49,7 +49,8 @@ stopHeapProfTimer( void )
 void
 startHeapProfTimer( void )
 {
-    if (RtsFlags.ProfFlags.doHeapProfile) {
+    if (RtsFlags.ProfFlags.doHeapProfile && 
+	RtsFlags.ProfFlags.profileIntervalTicks > 0) {
 	do_heap_prof_ticks = rtsTrue;
     }
 }