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 /utils/genapply | |
| 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 'utils/genapply')
| -rw-r--r-- | utils/genapply/Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs index e58a496f6a..d01b025b49 100644 --- a/utils/genapply/Main.hs +++ b/utils/genapply/Main.hs @@ -632,7 +632,6 @@ genApply regstatus args = -- print " [THUNK_SELECTOR] &&thunk_lbl," -- print " [IND] &&ind_lbl," -- print " [IND_STATIC] &&ind_lbl," --- print " [IND_PERM] &&ind_lbl," -- print " };" tickForArity (length args), @@ -750,8 +749,7 @@ genApply regstatus args = -- print " ind_lbl:" -- else: text "case IND,", - text " IND_STATIC,", - text " IND_PERM: {", + text " IND_STATIC: {", nest 4 (vcat [ text "R1 = StgInd_indirectee(R1);", -- An indirection node might contain a tagged pointer |