/* -----------------------------------------------------------------------------
- * $Id: Proftimer.c,v 1.8 2001/11/22 14:25:12 simonmar Exp $
+ * $Id: Proftimer.c,v 1.10 2002/07/18 09:12:34 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
#include "PosixSource.h"
+#include <stdio.h>
+
#include "Rts.h"
#include "Profiling.h"
#include "Itimer.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
startHeapProfTimer();
}
-
+
void
handleProfTick(void)
{
if (do_prof_ticks) {
- CCS_TICK(CCCS);
+ CCCS->time_ticks++;
}
if (do_heap_prof_ticks) {