summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2012-08-10 22:26:51 +0100
committerIan Lynagh <ian@well-typed.com>2012-08-10 22:26:51 +0100
commitcb07cb7df2cac23d1b4a132f98cf427a755e5f5d (patch)
tree626cbaf9016d03575446d0f69364d8f1f6ba97c9
parent415598b232f6664fb4da8321f5f578405af245de (diff)
downloadhaskell-cb07cb7df2cac23d1b4a132f98cf427a755e5f5d.tar.gz
Always define startProfTimer and stopProfTimer
This allows us to provide access to them in the base library.
-rw-r--r--rts/Proftimer.c8
-rw-r--r--rts/Proftimer.h2
2 files changed, 4 insertions, 6 deletions
diff --git a/rts/Proftimer.c b/rts/Proftimer.c
index 569f087bb4..7ee32f835c 100644
--- a/rts/Proftimer.c
+++ b/rts/Proftimer.c
@@ -25,21 +25,21 @@ static int ticks_to_heap_profile;
// Time for a heap profile on the next context switch
rtsBool performHeapProfile;
-#ifdef PROFILING
-
void
stopProfTimer( void )
{
+#ifdef PROFILING
do_prof_ticks = rtsFalse;
+#endif
}
void
startProfTimer( void )
{
+#ifdef PROFILING
do_prof_ticks = rtsTrue;
-}
-
#endif
+}
void
stopHeapProfTimer( void )
diff --git a/rts/Proftimer.h b/rts/Proftimer.h
index 07dffff6b9..2b7646f2b7 100644
--- a/rts/Proftimer.h
+++ b/rts/Proftimer.h
@@ -14,10 +14,8 @@
void initProfTimer ( void );
void handleProfTick ( void );
-#ifdef PROFILING
void stopProfTimer ( void );
void startProfTimer ( void );
-#endif
void stopHeapProfTimer ( void );
void startHeapProfTimer ( void );