7a2f0fb16e8d6c9de3bbef3a0449cedc1c004b7e
[ghc-hetmet.git] / ghc / rts / RetainerProfile.h
1 /* -----------------------------------------------------------------------------
2  * $Id: RetainerProfile.h,v 1.1 2001/11/22 14:25:12 simonmar Exp $
3  *
4  * (c) The GHC Team, 2001
5  * Author: Sungwoo Park
6  *
7  * Retainer profiling interface.
8  *
9  * ---------------------------------------------------------------------------*/
10
11 #ifndef RETAINERPROFILE_H
12 #define RETAINERPROFILE_H
13
14 #ifdef PROFILING
15
16 extern void  initRetainerProfiling ( void );
17 extern void  endRetainerProfiling  ( void );
18 extern void  printRetainer         ( FILE *, retainer );
19 extern void  retainerProfile       ( void );
20 extern void  resetStaticObjectForRetainerProfiling ( void );
21
22 // firstStack is exported because memInventory() in Schedule.c uses it.
23 #ifdef DEBUG
24 extern bdescr *firstStack;
25 #endif
26
27 #endif /* PROFILING */
28
29 #endif /* RETAINERPROFILE_H */