diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-04-01 09:35:19 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-04-01 09:35:19 +0000 |
| commit | 70a2431f90fa932733ce015714ef7848640ed48f (patch) | |
| tree | 7388d1e9736c4257e248b2a225d6e465948f03be /rts/Printer.c | |
| parent | f4692220c7cbdadaa633f50eb2b30b59edb30183 (diff) | |
| download | haskell-70a2431f90fa932733ce015714ef7848640ed48f.tar.gz | |
Remove the IND_OLDGEN and IND_OLDGEN_PERM closure types
These are no longer used: once upon a time they used to have different
layout from IND and IND_PERM respectively, but that is no longer the
case since we changed the remembered set to be an array of addresses
instead of a linked list of closures.
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 6eecfabbfb..6ab4b7e068 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -233,24 +233,12 @@ printClosure( StgClosure *obj ) debugBelch(")\n"); break; - case IND_OLDGEN: - debugBelch("IND_OLDGEN("); - printPtr((StgPtr)((StgInd*)obj)->indirectee); - debugBelch(")\n"); - break; - case IND_PERM: debugBelch("IND("); printPtr((StgPtr)((StgInd*)obj)->indirectee); debugBelch(")\n"); break; - case IND_OLDGEN_PERM: - debugBelch("IND_OLDGEN_PERM("); - printPtr((StgPtr)((StgInd*)obj)->indirectee); - debugBelch(")\n"); - break; - case IND_STATIC: debugBelch("IND_STATIC("); printPtr((StgPtr)((StgInd*)obj)->indirectee); @@ -994,9 +982,7 @@ void prettyPrintClosure_ (StgClosure *obj) while (type == IND || type == IND_STATIC || - type == IND_OLDGEN || - type == IND_PERM || - type == IND_OLDGEN_PERM) + type == IND_PERM) { obj = ((StgInd *)obj)->indirectee; type = get_itbl(obj)->type; @@ -1108,9 +1094,7 @@ char *closure_type_names[] = { [PAP] = "PAP", [AP_STACK] = "AP_STACK", [IND] = "IND", - [IND_OLDGEN] = "IND_OLDGEN", [IND_PERM] = "IND_PERM", - [IND_OLDGEN_PERM] = "IND_OLDGEN_PERM", [IND_STATIC] = "IND_STATIC", [RET_BCO] = "RET_BCO", [RET_SMALL] = "RET_SMALL", |