diff options
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index ba58c199f0..7a1a66185f 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -466,7 +466,6 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child ) case THUNK_SELECTOR: *first_child = ((StgSelector *)c)->selectee; return; - case IND_PERM: case BLACKHOLE: *first_child = ((StgInd *)c)->indirectee; return; @@ -934,7 +933,6 @@ pop( StgClosure **c, StgClosure **cp, retainer *r ) case MUT_VAR_CLEAN: case MUT_VAR_DIRTY: case THUNK_SELECTOR: - case IND_PERM: case CONSTR_1_1: // cannot appear case PAP: @@ -1070,7 +1068,6 @@ isRetainer( StgClosure *c ) // partial applications case PAP: // indirection - case IND_PERM: // IND_STATIC used to be an error, but at the moment it can happen // as isAlive doesn't look through IND_STATIC as it ignores static // closures. See trac #3956 for a program that hit this error. |