[project @ 2001-11-22 14:25:11 by simonmar]

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

diff --git a/ghc/rts/Stats.h b/ghc/rts/Stats.h
index b5c9826..535bef3 100644 (file)
--- a/ghc/rts/Stats.h
+++ b/ghc/rts/Stats.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Stats.h,v 1.11 2001/07/23 17:23:20 simonmar Exp $
+ * $Id: Stats.h,v 1.12 2001/11/22 14:25:12 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -14,6 +14,16 @@ extern void      stat_startGC(void);
 extern void      stat_endGC(lnat alloc, lnat collect, lnat live, 
                            lnat copied, lnat gen);
 
+extern void      stat_startRP(void);
+extern void      stat_endRP(nat, 
+#ifdef DEBUG_RETAINER
+                            nat, int, 
+#endif
+                            double, nat, nat);
+
+extern void      stat_startLDV(void);
+extern void      stat_endLDV(void);
+
 extern void      stat_startExit(void);
 extern void      stat_endExit(void);
 
@@ -23,6 +33,11 @@ extern void      stat_workerStop(void);
 extern void      initStats(void);
 
 extern double    mut_user_time_during_GC(void);
+#ifdef PROFILING
+// @retainer profiling
+extern double    mut_user_time_during_RP(void);
+extern double    mut_user_time_during_LDV(void);
+#endif
 extern double    mut_user_time(void);
 
 extern void      statDescribeGens( void );