X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrinter.h;h=f874fbe5d03dc65297a78bfb25b6fe0f9049757f;hb=fe41b2dc5f874fd30681d7bfa78eb5b93e4f33f9;hp=0e3977a993de18b21127b72ded9dc6d6f4c7b777;hpb=7c1923545f7ea643a03ff37084dcb9a92695133e;p=ghc-hetmet.git diff --git a/ghc/rts/Printer.h b/ghc/rts/Printer.h index 0e3977a..f874fbe 100644 --- a/ghc/rts/Printer.h +++ b/ghc/rts/Printer.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Printer.h,v 1.5 2000/01/14 14:56:40 simonmar Exp $ + * $Id: Printer.h,v 1.7 2002/12/11 15:36:45 simonmar Exp $ * * (c) The GHC Team, 1998-2000 * @@ -14,8 +14,6 @@ extern void printObj ( StgClosure *obj ); extern void printClosure ( StgClosure *obj ); extern StgStackPtr printStackObj ( StgStackPtr sp ); extern void printStackChunk ( StgStackPtr sp, StgStackPtr spLim ); -extern void printStack ( StgStackPtr sp, StgStackPtr spLim, - StgUpdateFrame* su ); extern void printTSO ( StgTSO *tso ); void info_hdr_type ( StgClosure *closure, char *res ); @@ -24,5 +22,5 @@ char * info_type_by_ip ( StgInfoTable *ip ); extern void DEBUG_LoadSymbols( char *name ); -extern rtsBool lookupGHCName( StgPtr addr, const char **result ); +extern const char *lookupGHCName( void *addr ); #endif