testsuite: Add testcase for #17206
[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 #pragma once
10
11 #include "BeginPrivate.h"
12
13 extern void printPtr ( StgPtr p );
14 extern void printObj ( StgClosure *obj );
15
16 extern const char * closure_type_names[];
17
18 void info_hdr_type ( const StgClosure *closure, char *res );
19 const char * info_type ( const StgClosure *closure );
20 const char * info_type_by_ip ( const StgInfoTable *ip );
21 const char * info_update_frame ( const StgClosure *closure );
22
23 #if defined(DEBUG)
24 extern void printClosure ( const StgClosure *obj );
25 extern void printStackChunk ( StgPtr sp, StgPtr spLim );
26 extern void printTSO ( StgTSO *tso );
27 extern void printMutableList( bdescr *bd );
28 extern void printStaticObjects ( StgClosure *obj );
29 extern void printWeakLists ( void );
30 extern void printLargeAndPinnedObjects ( void );
31
32 extern void DEBUG_LoadSymbols( const char *name );
33
34 extern const char *lookupGHCName( void *addr );
35
36 extern const char *what_next_strs[];
37 #endif
38
39 #include "EndPrivate.h"