diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-27 09:58:59 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-03-03 19:11:08 +0000 |
| commit | 7b9767b81f4f0b25b0c0402593be1182b9546bab (patch) | |
| tree | e446784907016969d94c30cd1beabed6af45d462 /compiler/GHC/StgToCmm | |
| parent | f121ffe4be7dd156701d856fbc9afeaf50e7038e (diff) | |
| download | haskell-7b9767b81f4f0b25b0c0402593be1182b9546bab.tar.gz | |
Use a newtype for CHeader and CStub in ForeignStubs
Diffstat (limited to 'compiler/GHC/StgToCmm')
| -rw-r--r-- | compiler/GHC/StgToCmm/Prof.hs | 3 | ||||
| -rw-r--r-- | compiler/GHC/StgToCmm/Types.hs | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/compiler/GHC/StgToCmm/Prof.hs b/compiler/GHC/StgToCmm/Prof.hs index 0176c3dbdc..f0b9b2ae8c 100644 --- a/compiler/GHC/StgToCmm/Prof.hs +++ b/compiler/GHC/StgToCmm/Prof.hs @@ -45,6 +45,7 @@ import GHC.Cmm.CLabel import GHC.Types.CostCentre import GHC.Types.IPE +import GHC.Types.ForeignStubs import GHC.Data.FastString import GHC.Unit.Module as Module import GHC.Utils.Outputable @@ -276,7 +277,7 @@ sizeof_ccs_words platform (ws,ms) = pc_SIZEOF_CostCentreStack (platformConstants platform) `divMod` platformWordSizeInBytes platform -initInfoTableProv :: [CmmInfoTable] -> InfoTableProvMap -> Module -> FCode SDoc +initInfoTableProv :: [CmmInfoTable] -> InfoTableProvMap -> Module -> FCode CStub -- Emit the declarations initInfoTableProv infos itmap this_mod = do diff --git a/compiler/GHC/StgToCmm/Types.hs b/compiler/GHC/StgToCmm/Types.hs index 944ff4b072..2788a4a7cc 100644 --- a/compiler/GHC/StgToCmm/Types.hs +++ b/compiler/GHC/StgToCmm/Types.hs @@ -15,6 +15,7 @@ module GHC.StgToCmm.Types import GHC.Prelude import GHC.Types.Basic +import GHC.Types.ForeignStubs import GHC.Core.DataCon import GHC.Types.Name.Env import GHC.Types.Name.Set @@ -87,7 +88,7 @@ data CgInfos = CgInfos -- either not exported of CAFFY. , cgLFInfos :: !ModuleLFInfos -- ^ LambdaFormInfos of exported closures in the current module. - , cgIPEStub :: !SDoc + , cgIPEStub :: !CStub -- ^ The C stub which is used for IPE information } |