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 /utils/genapply | |
| 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 'utils/genapply')
| -rw-r--r-- | utils/genapply/GenApply.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/utils/genapply/GenApply.hs b/utils/genapply/GenApply.hs index 16d33940fb..d9e6041a61 100644 --- a/utils/genapply/GenApply.hs +++ b/utils/genapply/GenApply.hs @@ -467,10 +467,8 @@ genApply regstatus args = -- print " [THUNK_STATIC] &&thunk_lbl," -- print " [THUNK_SELECTOR] &&thunk_lbl," -- print " [IND] &&ind_lbl," --- print " [IND_OLDGEN] &&ind_lbl," -- print " [IND_STATIC] &&ind_lbl," -- print " [IND_PERM] &&ind_lbl," --- print " [IND_OLDGEN_PERM] &&ind_lbl" -- print " };" tickForArity (length args), @@ -590,10 +588,8 @@ genApply regstatus args = -- print " ind_lbl:" -- else: text "case IND,", - text " IND_OLDGEN,", text " IND_STATIC,", - text " IND_PERM,", - text " IND_OLDGEN_PERM: {", + text " IND_PERM: {", nest 4 (vcat [ text "R1 = StgInd_indirectee(R1);", -- An indirection node might contain a tagged pointer |