From f42db1574935b088cfc13cca7c935990002651dc Mon Sep 17 00:00:00 2001 From: Joachim Breitner Date: Sat, 23 Jan 2016 13:12:10 +0100 Subject: 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 --- rts/Printer.c | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'rts/Printer.c') 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", -- cgit v1.2.1