X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProfiling.h;h=b503fa64fa3b3dbe4fd0dcc3e46564dbaecfa967;hb=5bcba9677f6d097ecad2034b7bd039d125eaabdc;hp=d75d6613bb2972ca7952c51e4e08312d9cf4d259;hpb=066dbe7804d1e0ca710d996f43628e88e0321be6;p=ghc-hetmet.git

diff --git a/ghc/rts/Profiling.h b/ghc/rts/Profiling.h
index d75d661..b503fa6 100644
--- a/ghc/rts/Profiling.h
+++ b/ghc/rts/Profiling.h
@@ -1,7 +1,6 @@
 /* -----------------------------------------------------------------------------
- * $Id: Profiling.h,v 1.2 2000/04/19 12:42:48 simonmar Exp $
  *
- * (c) The GHC Team, 1998-2000
+ * (c) The GHC Team, 1998-2004
  *
  * Support for profiling
  *
@@ -19,15 +18,12 @@ extern FILE *hp_file;
 #ifdef PROFILING
 
 void gen_XML_logfile     ( void );
-void report_ccs_profiling ( void );
-void heap_profile_finish (void);
+void reportCCSProfiling ( void );
 
 void PrintNewStackDecls ( void );
 
-void print_ccs (FILE *, CostCentreStack *);
+extern lnat RTS_VAR(total_prof_ticks);
 
-# define DEFAULT_INTERVAL TICK_FREQUENCY
-
-extern rtsBool time_profiling;
+extern void fprintCCS( FILE *f, CostCentreStack *ccs );
 
 #endif