X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProftimer.c;h=41863c48d2617cdb68c1f685cdf4ca9c4f9edf3d;hb=b0c44859840c251bac0d199fad94645031579096;hp=a34752e001f5659bbe666811cb9202272f5ad261;hpb=55c8be525c07ee7b4a3d34c23d580580fd825fce;p=ghc-hetmet.git

diff --git a/ghc/rts/Proftimer.c b/ghc/rts/Proftimer.c
index a34752e..41863c4 100644
--- a/ghc/rts/Proftimer.c
+++ b/ghc/rts/Proftimer.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Proftimer.c,v 1.9 2001/12/12 14:31:43 simonmar Exp $
+ * $Id: Proftimer.c,v 1.11 2002/12/11 15:36:47 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -11,6 +11,8 @@
 
 #include "PosixSource.h"
 
+#include <stdio.h>
+
 #include "Rts.h"
 #include "Profiling.h"
 #include "Itimer.h"
@@ -47,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;
     }
 }