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

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

diff --git a/ghc/rts/RetainerProfile.h b/ghc/rts/RetainerProfile.h
new file mode 100644 (file)
index 0000000..7a2f0fb
--- /dev/null
+++ b/ghc/rts/RetainerProfile.h
@@ -0,0 +1,29 @@
+/* -----------------------------------------------------------------------------
+ * $Id: RetainerProfile.h,v 1.1 2001/11/22 14:25:12 simonmar Exp $
+ *
+ * (c) The GHC Team, 2001
+ * Author: Sungwoo Park
+ *
+ * Retainer profiling interface.
+ *
+ * ---------------------------------------------------------------------------*/
+
+#ifndef RETAINERPROFILE_H
+#define RETAINERPROFILE_H
+
+#ifdef PROFILING
+
+extern void  initRetainerProfiling ( void );
+extern void  endRetainerProfiling  ( void );
+extern void  printRetainer         ( FILE *, retainer );
+extern void  retainerProfile       ( void );
+extern void  resetStaticObjectForRetainerProfiling ( void );
+
+// firstStack is exported because memInventory() in Schedule.c uses it.
+#ifdef DEBUG
+extern bdescr *firstStack;
+#endif
+
+#endif /* PROFILING */
+
+#endif /* RETAINERPROFILE_H */