diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2020-03-30 15:45:32 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-04-02 01:48:05 -0400 |
| commit | 5beac042b995b055a66bc16be536d9e920f6864d (patch) | |
| tree | 7be93688a0c0ed3932b911d719755f3882e19cab | |
| parent | 0a88dd11594b8d8fd20500d026e657a5f99dfdd2 (diff) | |
| download | haskell-5beac042b995b055a66bc16be536d9e920f6864d.tar.gz | |
Remove unused closure stg_IND_direct
| -rw-r--r-- | includes/stg/MiscClosures.h | 1 | ||||
| -rw-r--r-- | rts/StgMiscClosures.cmm | 9 |
2 files changed, 0 insertions, 10 deletions
diff --git a/includes/stg/MiscClosures.h b/includes/stg/MiscClosures.h index e69e28ecaf..7918cf4e01 100644 --- a/includes/stg/MiscClosures.h +++ b/includes/stg/MiscClosures.h @@ -90,7 +90,6 @@ RTS_RET(stg_ctoi_V); RTS_RET(stg_apply_interp); RTS_ENTRY(stg_IND); -RTS_ENTRY(stg_IND_direct); RTS_ENTRY(stg_IND_STATIC); RTS_ENTRY(stg_BLACKHOLE); RTS_ENTRY(stg_CAF_BLACKHOLE); diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index 42c7d98d58..40bc3e72bc 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -256,15 +256,6 @@ INFO_TABLE(stg_IND,1,0,IND,"IND","IND") } #endif -INFO_TABLE(stg_IND_direct,1,0,IND,"IND","IND") - (P_ node) -{ - TICK_ENT_DYN_IND(); /* tick */ - node = StgInd_indirectee(node); - TICK_ENT_VIA_NODE(); - jump %ENTRY_CODE(Sp(0)) (node); -} - INFO_TABLE(stg_IND_STATIC,1,0,IND_STATIC,"IND_STATIC","IND_STATIC") /* explicit stack */ { |