From 70a2431f90fa932733ce015714ef7848640ed48f Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 1 Apr 2010 09:35:19 +0000 Subject: 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. --- utils/genapply/GenApply.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'utils') 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 -- cgit v1.2.1