X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProfiling.h;h=7ed7bdc6a06cf0f34d4946d56bd391af87796d36;hb=40a36f09946a5cd7222d9b4e860fa0173e7565da;hp=b503fa64fa3b3dbe4fd0dcc3e46564dbaecfa967;hpb=5bcba9677f6d097ecad2034b7bd039d125eaabdc;p=ghc-hetmet.git diff --git a/ghc/rts/Profiling.h b/ghc/rts/Profiling.h index b503fa6..7ed7bdc 100644 --- a/ghc/rts/Profiling.h +++ b/ghc/rts/Profiling.h @@ -6,6 +6,8 @@ * * ---------------------------------------------------------------------------*/ +#include + #if defined(PROFILING) || defined(DEBUG) void initProfiling1 ( void ); void initProfiling2 ( void ); @@ -26,4 +28,8 @@ extern lnat RTS_VAR(total_prof_ticks); extern void fprintCCS( FILE *f, CostCentreStack *ccs ); +#ifdef DEBUG +extern void debugCCS( CostCentreStack *ccs ); +#endif + #endif