[Git][ghc/ghc][wip/fendor/hpc-bc-support] Expose startupHpc as an rts symbol
Hannes Siebenhandl pushed to branch wip/fendor/hpc-bc-support at Glasgow Haskell Compiler / GHC Commits: 0ea85353 by fendor at 2026-04-03T10:08:12+02:00 Expose startupHpc as an rts symbol - - - - - 2 changed files: - libraries/ghci/GHCi/Coverage.hs - rts/RtsSymbols.c Changes: ===================================== libraries/ghci/GHCi/Coverage.hs ===================================== @@ -41,8 +41,8 @@ hpcAddModule modlName ticks hash tickboxes = do -- calling 'hpc_startup' multiple times is safe, it will only be initialised once. hpc_startup -foreign import ccall "hs_hpc_module" +foreign import ccall unsafe "hs_hpc_module" hpc_register_module :: CString -> Word32 -> Word32 -> Ptr Word64 -> IO () -foreign import ccall "startupHpc" +foreign import ccall usnafe "startupHpc" hpc_startup :: IO () ===================================== rts/RtsSymbols.c ===================================== @@ -600,6 +600,7 @@ extern char **environ; SymI_HasProto(hs_free_fun_ptr) \ SymI_HasProto(hs_hpc_rootModule) \ SymI_HasProto(hs_hpc_module) \ + SymI_HasProto(startupHpc) \ SymI_HasProto(hs_thread_done) \ SymI_HasProto(hs_try_putmvar) \ SymI_HasProto(hs_try_putmvar_with_value) \ View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0ea85353f57b3613644a680e16073918... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0ea85353f57b3613644a680e16073918... You're receiving this email because of your account on gitlab.haskell.org.
participants (1)
-
Hannes Siebenhandl (@fendor)