Fixed uninitialised FunBind fun_tick field
[ghc-hetmet.git] / rts / Printer.h
1 /* -----------------------------------------------------------------------------
2  *
3  * (c) The GHC Team, 1998-2005
4  *
5  * Prototypes for functions in Printer.c
6  *
7  * ---------------------------------------------------------------------------*/
8
9 #ifndef PRINTER_H
10 #define PRINTER_H
11
12 extern void        printPtr        ( StgPtr p );
13 extern void        printObj        ( StgClosure *obj );
14
15 #ifdef DEBUG
16 extern void        printClosure    ( StgClosure *obj );
17 extern StgStackPtr printStackObj   ( StgStackPtr sp );
18 extern void        printStackChunk ( StgStackPtr sp, StgStackPtr spLim );
19 extern void        printTSO        ( StgTSO *tso );
20
21 void               info_hdr_type   ( StgClosure *closure, char *res );
22 char  *            info_type       ( StgClosure *closure );
23 char  *            info_type_by_ip ( StgInfoTable *ip );
24
25 extern void DEBUG_LoadSymbols( char *name );
26
27 extern const char *lookupGHCName( void *addr );
28 #endif
29
30 #endif /* PRINTER_H */
31