diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-01-23 13:12:10 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-01-23 13:12:10 +0100 |
| commit | f42db1574935b088cfc13cca7c935990002651dc (patch) | |
| tree | 67b2465848dad3a0b76485b42fe8af2b92c04bce /rts/Printer.c | |
| parent | 4e04043d1bb458439d3c3db3ffa9851bff780083 (diff) | |
| download | haskell-f42db1574935b088cfc13cca7c935990002651dc.tar.gz | |
Remove unused IND_PERM
it seems that this closure type has not been in use since 5d52d9, so all
this is dead and untested code. This removes it. Some of the code might
be useful for a counting indirection as described in #10613, so when
implementing that, have a look at what this commit removes.
Test Plan: validate on harbormaster
Reviewers: austin, bgamari, simonmar
Reviewed By: simonmar
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1821
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", |