X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProfiling.h;h=d968349a527cefe6500dd26e3341504f2ff139fb;hb=45252b35151fc55aa19fb6770df5ed8267639083;hp=7ed7bdc6a06cf0f34d4946d56bd391af87796d36;hpb=95ca6bff6fc9918203173b442192d9298ef9757a;p=ghc-hetmet.git diff --git a/ghc/rts/Profiling.h b/ghc/rts/Profiling.h index 7ed7bdc..d968349 100644 --- a/ghc/rts/Profiling.h +++ b/ghc/rts/Profiling.h @@ -1,11 +1,14 @@ /* ----------------------------------------------------------------------------- * - * (c) The GHC Team, 1998-2004 + * (c) The GHC Team, 1998-2005 * * Support for profiling * * ---------------------------------------------------------------------------*/ +#ifndef PROFILING_H +#define PROFILING_H + #include #if defined(PROFILING) || defined(DEBUG) @@ -24,12 +27,13 @@ void reportCCSProfiling ( void ); void PrintNewStackDecls ( void ); -extern lnat RTS_VAR(total_prof_ticks); - extern void fprintCCS( FILE *f, CostCentreStack *ccs ); +extern void fprintCCS_stderr( CostCentreStack *ccs ); #ifdef DEBUG extern void debugCCS( CostCentreStack *ccs ); #endif #endif + +#endif /* PROFILING_H */