RTS tidyup sweep, first phase

[ghc-hetmet.git] / rts / Printer.h

diff --git a/rts/Printer.h b/rts/Printer.h
index 54bf611..52c1c3e 100644 (file)
--- a/rts/Printer.h
+++ b/rts/Printer.h
@@ -13,9 +13,10 @@ extern void             printPtr        ( StgPtr p );
 extern void       printObj        ( StgClosure *obj );
 
 #ifdef DEBUG
+extern void        prettyPrintClosure (StgClosure *obj);
 extern void       printClosure    ( StgClosure *obj );
-extern StgStackPtr printStackObj   ( StgStackPtr sp );
-extern void        printStackChunk ( StgStackPtr sp, StgStackPtr spLim );
+extern StgPtr      printStackObj   ( StgPtr sp );
+extern void        printStackChunk ( StgPtr sp, StgPtr spLim );
 extern void        printTSO        ( StgTSO *tso );
 
 void                      info_hdr_type   ( StgClosure *closure, char *res );