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/StgMiscClosures.cmm | |
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/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 1dec6e68b7..1bc6dc6a2b 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -235,45 +235,6 @@ INFO_TABLE(stg_IND_PERM,1,0,IND_PERM,"IND_PERM","IND_PERM") jump %GET_ENTRY(R1); } - -INFO_TABLE(stg_IND_OLDGEN,1,0,IND_OLDGEN,"IND_OLDGEN","IND_OLDGEN") -{ - TICK_ENT_STATIC_IND(); /* tick */ - R1 = UNTAG(StgInd_indirectee(R1)); - TICK_ENT_VIA_NODE(); - jump %GET_ENTRY(R1); -} - -INFO_TABLE(stg_IND_OLDGEN_PERM,1,0,IND_OLDGEN_PERM,"IND_OLDGEN_PERM","IND_OLDGEN_PERM") -{ - /* 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(); /* tick */ -#endif - - LDV_ENTER(R1); - - /* Enter PAP cost centre -- lexical scoping only */ - ENTER_CCS_PAP_CL(R1); - - /* see comment in IND_PERM */ -#ifdef TICKY_TICKY -# ifdef PROFILING -# error Profiling and ticky-ticky do not mix at present! -# endif /* PROFILING */ - StgHeader_info(R1) = stg_IND_OLDGEN_info; -#endif /* TICKY_TICKY */ - - R1 = UNTAG(StgInd_indirectee(R1)); - - TICK_ENT_VIA_NODE(); - jump %GET_ENTRY(R1); -} - /* ---------------------------------------------------------------------------- Black holes. |