diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-01-23 13:12:10 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-01-23 13:12:10 +0100 |
| commit | f42db1574935b088cfc13cca7c935990002651dc (patch) | |
| tree | 67b2465848dad3a0b76485b42fe8af2b92c04bce /rts/sm/Evac.c | |
| parent | 4e04043d1bb458439d3c3db3ffa9851bff780083 (diff) | |
| download | haskell-f42db1574935b088cfc13cca7c935990002651dc.tar.gz | |
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
Diffstat (limited to 'rts/sm/Evac.c')
| -rw-r--r-- | rts/sm/Evac.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index 579e788535..a9f112702f 100644 --- a/rts/sm/Evac.c +++ b/rts/sm/Evac.c @@ -601,7 +601,6 @@ loop: return; case FUN: - case IND_PERM: case CONSTR: copy_tag_nolock(p,info,q,sizeW_fromITBL(INFO_PTR_TO_STRUCT(info)),gen_no,tag); return; @@ -965,7 +964,6 @@ selector_loop: info = INFO_PTR_TO_STRUCT((StgInfoTable *)info_ptr); switch (info->type) { case IND: - case IND_PERM: case IND_STATIC: val = ((StgInd *)val)->indirectee; goto val_loop; @@ -998,7 +996,6 @@ selector_loop: } case IND: - case IND_PERM: case IND_STATIC: // Again, we might need to untag a constructor. selectee = UNTAG_CLOSURE( ((StgInd *)selectee)->indirectee ); |