X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProftimer.c;h=3b499152d66b768e682ec7b8947e07b5d6438720;hb=845db8182942e006a9164e41e9839adb39f24268;hp=402539553e8c4b672aa161b4f53abe5f03f6d461;hpb=c41b6b7824ce67f0d97a316ada3482035fd4fe3d;p=ghc-hetmet.git diff --git a/ghc/rts/Proftimer.c b/ghc/rts/Proftimer.c index 4025395..3b49915 100644 --- 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 - #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; } }