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/sm/Evac.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/sm/Evac.c')
| -rw-r--r-- | rts/sm/Evac.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index 9577b2d183..61cf10bcbe 100644 --- a/rts/sm/Evac.c +++ b/rts/sm/Evac.c @@ -620,7 +620,6 @@ loop: case FUN: case IND_PERM: - case IND_OLDGEN_PERM: case CONSTR: copy_tag_nolock(p,info,q,sizeW_fromITBL(INFO_PTR_TO_STRUCT(info)),gen,tag); return; @@ -666,7 +665,6 @@ loop: return; case IND: - case IND_OLDGEN: // follow chains of indirections, don't evacuate them q = ((StgInd*)q)->indirectee; *p = q; @@ -971,8 +969,6 @@ selector_loop: switch (info->type) { case IND: case IND_PERM: - case IND_OLDGEN: - case IND_OLDGEN_PERM: case IND_STATIC: val = ((StgInd *)val)->indirectee; goto val_loop; @@ -1006,8 +1002,6 @@ selector_loop: case IND: case IND_PERM: - case IND_OLDGEN: - case IND_OLDGEN_PERM: case IND_STATIC: // Again, we might need to untag a constructor. selectee = UNTAG_CLOSURE( ((StgInd *)selectee)->indirectee ); |