X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProfiling.h;h=d968349a527cefe6500dd26e3341504f2ff139fb;hb=3034a6c8cfb50e2b5af4ef57c419986039b53a94;hp=735fa6699b4689a180cfca9a5d757754e8237705;hpb=423d477bfecd490de1449c59325c8776f91d7aac;p=ghc-hetmet.git diff --git a/ghc/rts/Profiling.h b/ghc/rts/Profiling.h index 735fa66..d968349 100644 --- a/ghc/rts/Profiling.h +++ b/ghc/rts/Profiling.h @@ -1,12 +1,16 @@ /* ----------------------------------------------------------------------------- - * $Id: Profiling.h,v 1.6 2004/08/13 13:10:28 simonmar Exp $ * - * (c) The GHC Team, 1998-2000 + * (c) The GHC Team, 1998-2005 * * Support for profiling * * ---------------------------------------------------------------------------*/ +#ifndef PROFILING_H +#define PROFILING_H + +#include + #if defined(PROFILING) || defined(DEBUG) void initProfiling1 ( void ); void initProfiling2 ( void ); @@ -23,8 +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 */