Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/cb07cb7df2cac23d1b4a132f98cf427a755e5f5d >--------------------------------------------------------------- commit cb07cb7df2cac23d1b4a132f98cf427a755e5f5d Author: Ian Lynagh <[email protected]> Date: Fri Aug 10 22:26:51 2012 +0100 Always define startProfTimer and stopProfTimer This allows us to provide access to them in the base library. >--------------------------------------------------------------- rts/Proftimer.c | 8 ++++---- rts/Proftimer.h | 2 -- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/rts/Proftimer.c b/rts/Proftimer.c index 569f087..7ee32f8 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 07dffff..2b7646f 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 ); _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
