projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove some hardcoded makefile settings
[ghc-hetmet.git]
/
rts
/
Printer.h
diff --git
a/rts/Printer.h
b/rts/Printer.h
index
52c1c3e
..
7b51ce5
100644
(file)
--- a/
rts/Printer.h
+++ b/
rts/Printer.h
@@
-9,9
+9,17
@@
#ifndef PRINTER_H
#define PRINTER_H
#ifndef PRINTER_H
#define PRINTER_H
+#include "BeginPrivate.h"
+
extern void printPtr ( StgPtr p );
extern void printObj ( StgClosure *obj );
extern void printPtr ( StgPtr p );
extern void printObj ( StgClosure *obj );
+extern char * closure_type_names[];
+
+void info_hdr_type ( StgClosure *closure, char *res );
+char * info_type ( StgClosure *closure );
+char * info_type_by_ip ( StgInfoTable *ip );
+
#ifdef DEBUG
extern void prettyPrintClosure (StgClosure *obj);
extern void printClosure ( StgClosure *obj );
#ifdef DEBUG
extern void prettyPrintClosure (StgClosure *obj);
extern void printClosure ( StgClosure *obj );
@@
-19,14
+27,14
@@
extern StgPtr printStackObj ( StgPtr sp );
extern void printStackChunk ( StgPtr sp, StgPtr spLim );
extern void printTSO ( StgTSO *tso );
extern void printStackChunk ( StgPtr sp, StgPtr spLim );
extern void printTSO ( StgTSO *tso );
-void info_hdr_type ( StgClosure *closure, char *res );
-char * info_type ( StgClosure *closure );
-char * info_type_by_ip ( StgInfoTable *ip );
-
extern void DEBUG_LoadSymbols( char *name );
extern const char *lookupGHCName( void *addr );
extern void DEBUG_LoadSymbols( char *name );
extern const char *lookupGHCName( void *addr );
+
+extern char *what_next_strs[];
#endif
#endif
+#include "EndPrivate.h"
+
#endif /* PRINTER_H */
#endif /* PRINTER_H */