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/RetainerProfile.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/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index b5db15a7b6..d14ba06bf6 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -466,8 +466,6 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child ) *first_child = ((StgSelector *)c)->selectee; return; case IND_PERM: - case IND_OLDGEN_PERM: - case IND_OLDGEN: case BLACKHOLE: *first_child = ((StgInd *)c)->indirectee; return; @@ -921,8 +919,6 @@ pop( StgClosure **c, StgClosure **cp, retainer *r ) case MUT_VAR_DIRTY: case THUNK_SELECTOR: case IND_PERM: - case IND_OLDGEN_PERM: - case IND_OLDGEN: case CONSTR_1_1: // cannot appear case PAP: @@ -1058,8 +1054,6 @@ isRetainer( StgClosure *c ) case PAP: // indirection case IND_PERM: - case IND_OLDGEN_PERM: - case IND_OLDGEN: case BLACKHOLE: // static objects case CONSTR_STATIC: |