X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FStats.h;h=626eb0707d77929672315ba75ab7a36ba89237c5;hb=b996479a35d1876a1c11a350dc568da7b75fcaf2;hp=535bef3a087921dbd4904397914eefe2bfc9c382;hpb=db61851c5472bf565cd1da900b33d6e033fd743d;p=ghc-hetmet.git diff --git a/ghc/rts/Stats.h b/ghc/rts/Stats.h index 535bef3..626eb07 100644 --- a/ghc/rts/Stats.h +++ b/ghc/rts/Stats.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Stats.h,v 1.12 2001/11/22 14:25:12 simonmar Exp $ + * $Id: Stats.h,v 1.17 2002/02/06 01:21:41 sof Exp $ * * (c) The GHC Team, 1998-1999 * @@ -14,15 +14,19 @@ extern void stat_startGC(void); extern void stat_endGC(lnat alloc, lnat collect, lnat live, lnat copied, lnat gen); +#ifdef PROFILING extern void stat_startRP(void); extern void stat_endRP(nat, #ifdef DEBUG_RETAINER nat, int, #endif - double, nat, nat); + double); +#endif // PROFILING -extern void stat_startLDV(void); -extern void stat_endLDV(void); +#if defined(PROFILING) || defined(DEBUG) +extern void stat_startHeapCensus(void); +extern void stat_endHeapCensus(void); +#endif extern void stat_startExit(void); extern void stat_endExit(void); @@ -33,12 +37,16 @@ extern void stat_workerStop(void); extern void initStats(void); extern double mut_user_time_during_GC(void); +extern double mut_user_time(void); + #ifdef PROFILING -// @retainer profiling extern double mut_user_time_during_RP(void); -extern double mut_user_time_during_LDV(void); -#endif -extern double mut_user_time(void); +extern double mut_user_time_during_heap_census(void); +#endif // PROFILING extern void statDescribeGens( void ); extern HsInt getAllocations( void ); + +#if defined(SMP) +extern long int stat_getElapsedTime ( void ); +#endif