rename symbol

shayne-fletcher · Oct 22, 2024 · e11776d · e11776d
1 parent 4298fd3
commit e11776d
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/ghc-lib-gen/src/Ghclibgen.hs b/ghc-lib-gen/src/Ghclibgen.hs
@@ -920,6 +920,15 @@ mangleCSymbols ghcFlavor = do
   let initGenSym = "initGenSym"
   let enableTimingStats = "enableTimingStats"
   let setHeapSize = "setHeapSize"
+  let keepCAFsForGHCi = "keepCAFsForGHCi"
+  let file = "compiler/cbits/keepCAFsForGHCi.c"
+   in writeFile file
+        . prefixSymbol keepCAFsForGHCi
+        =<< readFile' file
+  let file = "compiler/GHC.hs"
+   in writeFile file
+        . prefixForeignImport keepCAFsForGHCi
+        =<< readFile' file
   let file = "compiler/cbits/genSym.c"
    in writeFile file
         . prefixSymbol genSym