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/Stable.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/Stable.c')
| -rw-r--r-- | rts/Stable.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/Stable.c b/rts/Stable.c index b427c94965..c46f8b2b9e 100644 --- a/rts/Stable.c +++ b/rts/Stable.c @@ -188,9 +188,7 @@ removeIndirections(StgClosure* p) while (get_itbl(q)->type == IND || get_itbl(q)->type == IND_STATIC || - get_itbl(q)->type == IND_OLDGEN || - get_itbl(q)->type == IND_PERM || - get_itbl(q)->type == IND_OLDGEN_PERM ) { + get_itbl(q)->type == IND_PERM) { q = ((StgInd *)q)->indirectee; tag = GET_CLOSURE_TAG(q); q = UNTAG_CLOSURE(q); |