diff options
| author | simonmar <unknown> | 2001-02-09 13:09:17 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-02-09 13:09:17 +0000 |
| commit | e778a17045aac8aded0e0438f5e0178643ff678d (patch) | |
| tree | 612cdd93ac4f246089955609d0285eabbb9bf295 /ghc/rts/Printer.c | |
| parent | 8db3e8067b4559cd87930791cdbeffaa2673658f (diff) | |
| download | haskell-e778a17045aac8aded0e0438f5e0178643ff678d.tar.gz | |
[project @ 2001-02-09 13:09:16 by simonmar]
Remove all vestiges of INTERPRETER and __HUGS__.
Diffstat (limited to 'ghc/rts/Printer.c')
| -rw-r--r-- | ghc/rts/Printer.c | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c index b163389b05..fee32eae02 100644 --- a/ghc/rts/Printer.c +++ b/ghc/rts/Printer.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Printer.c,v 1.34 2001/01/29 17:23:41 simonmar Exp $ + * $Id: Printer.c,v 1.35 2001/02/09 13:09:16 simonmar Exp $ * * (c) The GHC Team, 1994-2000. * @@ -45,24 +45,11 @@ static void printZcoded ( const char *raw ); * Printer * ------------------------------------------------------------------------*/ -#ifdef INTERPRETER -char* lookupHugsItblName ( void* itbl ); -#endif - void printPtr( StgPtr p ) { -#ifdef INTERPRETER - char* str; -#endif const char *raw; if (lookupGHCName( p, &raw )) { printZcoded(raw); -#ifdef INTERPRETER - } else if ((raw = lookupHugsName(p)) != 0) { - fprintf(stderr, "%s", raw); - } else if ((str = lookupHugsItblName(p)) != 0) { - fprintf(stderr, "%p=%s", p, str); -#endif } else { fprintf(stderr, "%p", p); } |