X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FProfiling.h;h=764e467b41ff9af5cd1491461ab913c728cb4bcc;hb=661c97c65e5fa47177502e592bb763f752b487ac;hp=d968349a527cefe6500dd26e3341504f2ff139fb;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git diff --git a/rts/Profiling.h b/rts/Profiling.h index d968349..764e467 100644 --- a/rts/Profiling.h +++ b/rts/Profiling.h @@ -11,29 +11,32 @@ #include -#if defined(PROFILING) || defined(DEBUG) -void initProfiling1 ( void ); -void initProfiling2 ( void ); -void endProfiling ( void ); +BEGIN_RTS_PRIVATE + +void initProfiling1 (void); +void freeProfiling1 (void); +void initProfiling2 (void); +void endProfiling (void); extern FILE *prof_file; extern FILE *hp_file; -#endif #ifdef PROFILING -void gen_XML_logfile ( void ); +void gen_XML_logfile ( void ); void reportCCSProfiling ( void ); void PrintNewStackDecls ( void ); -extern void fprintCCS( FILE *f, CostCentreStack *ccs ); -extern void fprintCCS_stderr( CostCentreStack *ccs ); +void fprintCCS( FILE *f, CostCentreStack *ccs ); +void fprintCCS_stderr( CostCentreStack *ccs ); #ifdef DEBUG -extern void debugCCS( CostCentreStack *ccs ); +void debugCCS( CostCentreStack *ccs ); #endif #endif +END_RTS_PRIVATE + #endif /* PROFILING_H */