diff options
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index e2fa57c306..3b98ab4cd6 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -232,12 +232,6 @@ printClosure( StgClosure *obj ) debugBelch(")\n"); break; - case IND_PERM: - debugBelch("IND("); - printPtr((StgPtr)((StgInd*)obj)->indirectee); - debugBelch(")\n"); - break; - case IND_STATIC: debugBelch("IND_STATIC("); printPtr((StgPtr)((StgInd*)obj)->indirectee); @@ -814,8 +808,7 @@ void prettyPrintClosure_ (StgClosure *obj) type = get_itbl(obj)->type; while (type == IND || - type == IND_STATIC || - type == IND_PERM) + type == IND_STATIC) { obj = ((StgInd *)obj)->indirectee; type = get_itbl(obj)->type; @@ -926,7 +919,6 @@ char *closure_type_names[] = { [PAP] = "PAP", [AP_STACK] = "AP_STACK", [IND] = "IND", - [IND_PERM] = "IND_PERM", [IND_STATIC] = "IND_STATIC", [RET_BCO] = "RET_BCO", [RET_SMALL] = "RET_SMALL", |