diff options
| author | simonmar <unknown> | 2001-01-29 17:23:41 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-01-29 17:23:41 +0000 |
| commit | ee3e75b51e5a86dda79bb990a83bfaa49915a22a (patch) | |
| tree | 5080e94899a9e26ff6ee637e7af13ffd6474d302 /ghc/rts/Printer.c | |
| parent | 489aed0633fced729097280d760db9d497481846 (diff) | |
| download | haskell-ee3e75b51e5a86dda79bb990a83bfaa49915a22a.tar.gz | |
[project @ 2001-01-29 17:23:40 by simonmar]
Remove the old Hugs CAF code, install our own (minimal, somewhat
cryptic, but better commented) CAF reversion story. See
Storage.c:newCaf() for the details.
Diffstat (limited to 'ghc/rts/Printer.c')
| -rw-r--r-- | ghc/rts/Printer.c | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c index 389dd801e8..b163389b05 100644 --- a/ghc/rts/Printer.c +++ b/ghc/rts/Printer.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Printer.c,v 1.33 2001/01/15 16:55:25 sewardj Exp $ + * $Id: Printer.c,v 1.34 2001/01/29 17:23:41 simonmar Exp $ * * (c) The GHC Team, 1994-2000. * @@ -145,32 +145,6 @@ void printClosure( StgClosure *obj ) fprintf(stderr,")\n"); break; - case CAF_UNENTERED: - { - StgCAF* caf = stgCast(StgCAF*,obj); - fprintf(stderr,"CAF_UNENTERED("); - printPtr((StgPtr)caf->body); - fprintf(stderr,", "); - printPtr((StgPtr)caf->value); /* should be null */ - fprintf(stderr,", "); - printPtr((StgPtr)caf->link); - fprintf(stderr,")\n"); - break; - } - - case CAF_ENTERED: - { - StgCAF* caf = stgCast(StgCAF*,obj); - fprintf(stderr,"CAF_ENTERED("); - printPtr((StgPtr)caf->body); - fprintf(stderr,", "); - printPtr((StgPtr)caf->value); - fprintf(stderr,", "); - printPtr((StgPtr)caf->link); - fprintf(stderr,")\n"); - break; - } - case CAF_BLACKHOLE: fprintf(stderr,"CAF_BH("); printPtr((StgPtr)stgCast(StgBlockingQueue*,obj)->blocking_queue); @@ -563,8 +537,6 @@ static char *closure_type_names[] = { "IND_PERM", /* 31 */ "IND_OLDGEN_PERM", /* 32 */ "IND_STATIC", /* 33 */ - "CAF_UNENTERED", /* 34 */ - "CAF_ENTERED", /* 35 */ "CAF_BLACKHOLE", /* 36 */ "RET_BCO", /* 37 */ "RET_SMALL", /* 38 */ |