diff options
Diffstat (limited to 'utils/genapply/Main.hs')
| -rw-r--r-- | utils/genapply/Main.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs index 7166968ddd..34d793236f 100644 --- a/utils/genapply/Main.hs +++ b/utils/genapply/Main.hs @@ -726,7 +726,8 @@ genApply regstatus args = text " FUN_2_0,", text " FUN_1_1,", text " FUN_0_2,", - text " FUN_STATIC: {", + text " FUN_STATIC,", + text " CONTINUATION: {", nest 4 (vcat [ text "arity = TO_W_(StgFunInfoExtra_arity(%FUN_INFO(info)));", text "ASSERT(arity > 0);", @@ -851,7 +852,8 @@ genApplyFast regstatus args = text " FUN_2_0,", text " FUN_1_1,", text " FUN_0_2,", - text " FUN_STATIC: {", + text " FUN_STATIC,", + text " CONTINUATION: {", nest 4 (vcat [ text "arity = TO_W_(StgFunInfoExtra_arity(%GET_FUN_INFO(R1)));", text "ASSERT(arity > 0);", |