[project @ 2005-03-10 14:03:28 by simonmar]

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

diff --git a/ghc/rts/Profiling.h b/ghc/rts/Profiling.h
index 7cc38df..7ed7bdc 100644 (file)
--- a/ghc/rts/Profiling.h
+++ b/ghc/rts/Profiling.h
@@ -1,12 +1,13 @@
 /* -----------------------------------------------------------------------------
- * $Id: Profiling.h,v 1.5 2002/07/18 09:12:03 simonmar Exp $
  *
- * (c) The GHC Team, 1998-2000
+ * (c) The GHC Team, 1998-2004
  *
  * Support for profiling
  *
  * ---------------------------------------------------------------------------*/
 
+#include <stdio.h>
+
 #if defined(PROFILING) || defined(DEBUG)
 void initProfiling1 ( void );
 void initProfiling2 ( void );
@@ -23,8 +24,12 @@ void reportCCSProfiling ( void );
 
 void PrintNewStackDecls ( void );
 
-extern lnat total_prof_ticks;
+extern lnat RTS_VAR(total_prof_ticks);
 
 extern void fprintCCS( FILE *f, CostCentreStack *ccs );
 
+#ifdef DEBUG
+extern void debugCCS( CostCentreStack *ccs );
+#endif
+
 #endif