X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProfiling.h;fp=ghc%2Frts%2FProfiling.h;h=52db2da05ef609c31eb56dbbc48152a30c3a6ef7;hb=db61851c5472bf565cd1da900b33d6e033fd743d;hp=d75d6613bb2972ca7952c51e4e08312d9cf4d259;hpb=a88cde3915095d33b283cbbf7fd83cd08558d609;p=ghc-hetmet.git diff --git a/ghc/rts/Profiling.h b/ghc/rts/Profiling.h index d75d661..52db2da 100644 --- a/ghc/rts/Profiling.h +++ b/ghc/rts/Profiling.h @@ -1,5 +1,6 @@ /* ----------------------------------------------------------------------------- - * $Id: Profiling.h,v 1.2 2000/04/19 12:42:48 simonmar Exp $ + + * $Id: Profiling.h,v 1.3 2001/11/22 14:25:12 simonmar Exp $ * * (c) The GHC Team, 1998-2000 * @@ -30,4 +31,9 @@ void print_ccs (FILE *, CostCentreStack *); extern rtsBool time_profiling; +extern lnat total_prof_ticks; + +extern void fprintCCS( FILE *f, CostCentreStack *ccs ); + + #endif