summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorCheng Shao <astrohavoc@gmail.com>2022-10-27 13:44:50 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-11-11 00:26:55 -0500
commit8104f6f5524d324e56fe903d07aab4cad16ceaf5 (patch)
tree83af880dcd8457886e6a9122d84c21e6d58dce46 /utils
parent2e6ab4537ff5a2d496de44a0475efb274867317a (diff)
downloadhaskell-8104f6f5524d324e56fe903d07aab4cad16ceaf5.tar.gz
Fix Cmm symbol kind
Diffstat (limited to 'utils')
-rw-r--r--utils/genapply/Main.hs26
1 files changed, 26 insertions, 0 deletions
diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs
index 34d793236f..f3b4c174dd 100644
--- a/utils/genapply/Main.hs
+++ b/utils/genapply/Main.hs
@@ -958,6 +958,32 @@ main = do
text "",
text "#include \"Cmm.h\"",
text "#include \"AutoApply.h\"",
+ text "#if !defined(UnregisterisedCompiler)",
+ text "import CLOSURE ALLOC_RTS_ctr;",
+ text "import CLOSURE ALLOC_RTS_tot;",
+ text "import CLOSURE HEAP_CHK_ctr;",
+ text "import CLOSURE RtsFlags;",
+ text "import CLOSURE stg_PAP_info;",
+ text "import CLOSURE stg_ap_d_info;",
+ text "import CLOSURE stg_ap_f_info;",
+ text "import CLOSURE stg_ap_l_info;",
+ text "import CLOSURE stg_ap_n_info;",
+ text "import CLOSURE stg_ap_p_info;",
+ text "import CLOSURE stg_ap_pp_info;",
+ text "import CLOSURE stg_ap_ppp_info;",
+ text "import CLOSURE stg_ap_pppp_info;",
+ text "import CLOSURE stg_ap_ppppp_info;",
+ text "import CLOSURE stg_ap_pppppp_info;",
+ text "import CLOSURE stg_ap_pppv_info;",
+ text "import CLOSURE stg_ap_ppv_info;",
+ text "import CLOSURE stg_ap_pv_info;",
+ text "import CLOSURE stg_ap_v16_info;",
+ text "import CLOSURE stg_ap_v32_info;",
+ text "import CLOSURE stg_ap_v64_info;",
+ text "import CLOSURE stg_ap_v_info;",
+ text "import CLOSURE stg_gc_fun_info;",
+ text "import CLOSURE stg_restore_cccs_info;",
+ text "#endif",
text "",
vcat (intersperse (text "") $