/* -----------------------------------------------------------------------------
- * $Id: Proftimer.c,v 1.8 2001/11/22 14:25:12 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
#include "Rts.h"
#include "Profiling.h"
-#include "Itimer.h"
+#include "Timer.h"
#include "Proftimer.h"
#include "RtsFlags.h"
void
stopProfTimer( void )
{
- if (time_profiling) {
- do_prof_ticks = rtsFalse;
- }
+ do_prof_ticks = rtsFalse;
}
void
startProfTimer( void )
{
- if (time_profiling) {
- do_prof_ticks = rtsTrue;
- }
+ do_prof_ticks = rtsTrue;
}
void
void
startHeapProfTimer( void )
{
- if (RtsFlags.ProfFlags.doHeapProfile) {
+ if (RtsFlags.ProfFlags.doHeapProfile &&
+ RtsFlags.ProfFlags.profileIntervalTicks > 0) {
do_heap_prof_ticks = rtsTrue;
}
}
startHeapProfTimer();
}
-
+
void
handleProfTick(void)
{
if (do_prof_ticks) {
- CCS_TICK(CCCS);
+ CCCS->time_ticks++;
}
if (do_heap_prof_ticks) {