/* ----------------------------------------------------------------------------- * * (c) The GHC Team, 1998-2005 * * Support for profiling * * ---------------------------------------------------------------------------*/ #ifndef PROFILING_H #define PROFILING_H #include #include "BeginPrivate.h" #include "Rts.h" #ifdef PROFILING #define PROFILING_ONLY(s) s #else #define PROFILING_ONLY(s) doNothing() #endif void initProfiling1 (void); void initProfiling2 (void); void endProfiling (void); void freeProfiling (void); extern FILE *prof_file; extern FILE *hp_file; #ifdef PROFILING void reportCCSProfiling ( void ); void PrintNewStackDecls ( void ); void fprintCCS( FILE *f, CostCentreStack *ccs ); void fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso); #ifdef DEBUG void debugCCS( CostCentreStack *ccs ); #endif #endif #include "EndPrivate.h" #endif /* PROFILING_H */