X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStats.h;h=535bef3a087921dbd4904397914eefe2bfc9c382;hb=9469779a0b2d08d2c4cbf11d90fe31d600a5f683;hp=297cc52ce9d861f07b033af31fba704d22da0a99;hpb=f5a4ddffad3528a8be6ba063a4cd0cb685e3f5fd;p=ghc-hetmet.git

diff --git a/ghc/rts/Stats.h b/ghc/rts/Stats.h
index 297cc52..535bef3 100644
--- a/ghc/rts/Stats.h
+++ b/ghc/rts/Stats.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Stats.h,v 1.10 2000/12/19 14:30:39 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);
 
@@ -22,8 +32,13 @@ extern void      stat_workerStop(void);
 
 extern void      initStats(void);
 
-extern void      stat_describe_gens(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 );
 extern HsInt     getAllocations( void );