diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/genapply/Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs index e58a496f6a..d01b025b49 100644 --- a/utils/genapply/Main.hs +++ b/utils/genapply/Main.hs @@ -632,7 +632,6 @@ genApply regstatus args = -- print " [THUNK_SELECTOR] &&thunk_lbl," -- print " [IND] &&ind_lbl," -- print " [IND_STATIC] &&ind_lbl," --- print " [IND_PERM] &&ind_lbl," -- print " };" tickForArity (length args), @@ -750,8 +749,7 @@ genApply regstatus args = -- print " ind_lbl:" -- else: text "case IND,", - text " IND_STATIC,", - text " IND_PERM: {", + text " IND_STATIC: {", nest 4 (vcat [ text "R1 = StgInd_indirectee(R1);", -- An indirection node might contain a tagged pointer |