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/StgMiscClosures.cmm | |
| 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/StgMiscClosures.cmm')
| -rw-r--r-- | rts/StgMiscClosures.cmm | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index e3be2cb697..757730e5fa 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -258,45 +258,6 @@ INFO_TABLE(stg_IND_STATIC,1,0,IND_STATIC,"IND_STATIC","IND_STATIC") jump %GET_ENTRY(R1) [R1]; } -INFO_TABLE(stg_IND_PERM,1,0,IND_PERM,"IND_PERM","IND_PERM") - /* explicit stack */ -{ - /* Don't add INDs to granularity cost */ - - /* Don't: TICK_ENT_STATIC_IND(Node); for ticky-ticky; this ind is - here only to help profiling */ - -#if defined(TICKY_TICKY) && !defined(PROFILING) - /* TICKY_TICKY && !PROFILING means PERM_IND *replaces* an IND, rather than - being extra */ - TICK_ENT_PERM_IND(); -#endif - - LDV_ENTER(R1); - - /* For ticky-ticky, change the perm_ind to a normal ind on first - * entry, so the number of ent_perm_inds is the number of *thunks* - * entered again, not the number of subsequent entries. - * - * Since this screws up cost centres, we die if profiling and - * ticky_ticky are on at the same time. KSW 1999-01. - */ -#ifdef TICKY_TICKY -# ifdef PROFILING -# error Profiling and ticky-ticky do not mix at present! -# endif /* PROFILING */ - StgHeader_info(R1) = stg_IND_info; -#endif /* TICKY_TICKY */ - - R1 = UNTAG(StgInd_indirectee(R1)); - -#if defined(TICKY_TICKY) && !defined(PROFILING) - TICK_ENT_VIA_NODE(); -#endif - - jump %GET_ENTRY(R1) [R1]; -} - /* ---------------------------------------------------------------------------- Black holes. |