[project @ 2000-03-16 17:27:12 by simonmar]

[ghc-hetmet.git] / ghc / rts / ProfRts.h

diff --git a/ghc/rts/ProfRts.h b/ghc/rts/ProfRts.h
index 2634f7a..1af4ca1 100644 (file)
--- a/ghc/rts/ProfRts.h
+++ b/ghc/rts/ProfRts.h
@@ -1,31 +1,30 @@
 /* -----------------------------------------------------------------------------
- * $Id: ProfRts.h,v 1.3 1999/02/05 16:02:47 simonm Exp $
+ * $Id: ProfRts.h,v 1.10 2000/03/08 17:48:24 simonmar Exp $
  *
- * (c) The GHC Team, 1998-1999
+ * (c) The GHC Team, 1998-2000
  *
  * Support for profiling
  *
  * ---------------------------------------------------------------------------*/
 
+#if defined(PROFILING) || defined(DEBUG)
+void initProfiling1 ( void );
+void initProfiling2 ( void );
+void endProfiling   ( void );
+
+extern FILE *prof_file;
+#endif
+
 #ifdef PROFILING
 
+void gen_XML_logfile     ( void );
 void report_ccs_profiling ( void );
 void heap_profile_finish (void);
 
-void initProfiling ( void );
-void endProfiling  ( void );
-
-void heapCensus ( bdescr *bd );
-
 void PrintNewStackDecls ( void );
 
 void print_ccs (FILE *, CostCentreStack *);
 
-void report_ccs_profiling( void );
-
-# define TICK_FREQUENCY   50                      /* ticks per second */
-# define TICK_MILLISECS   (1000/TICK_FREQUENCY)   /* ms per tick */
-
 # define DEFAULT_INTERVAL TICK_FREQUENCY
 
 extern rtsBool time_profiling;