testsuite: attempt fixing fallout from 089b72f52
[ghc.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 #include "BeginPrivate.h"
13
14 extern void printPtr ( StgPtr p );
15 extern void printObj ( StgClosure *obj );
16
17 extern char * closure_type_names[];
18
19 void info_hdr_type ( StgClosure *closure, char *res );
20 char * info_type ( StgClosure *closure );
21 char * info_type_by_ip ( StgInfoTable *ip );
22 char * info_update_frame ( StgClosure *closure );
23
24 #ifdef DEBUG
25 extern void prettyPrintClosure (StgClosure *obj);
26 extern void printClosure ( StgClosure *obj );
27 extern StgPtr printStackObj ( StgPtr sp );
28 extern void printStackChunk ( StgPtr sp, StgPtr spLim );
29 extern void printTSO ( StgTSO *tso );
30
31 extern void DEBUG_LoadSymbols( char *name );
32
33 extern const char *lookupGHCName( void *addr );
34
35 extern char *what_next_strs[];
36 #endif
37
38 #include "EndPrivate.h"
39
40 #endif /* PRINTER_H */
41