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/Prof.hs | |
| parent | f121ffe4be7dd156701d856fbc9afeaf50e7038e (diff) | |
| download | haskell-7b9767b81f4f0b25b0c0402593be1182b9546bab.tar.gz | |
Use a newtype for CHeader and CStub in ForeignStubs
Diffstat (limited to 'compiler/GHC/StgToCmm/Prof.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Prof.hs | 3 |
1 files changed, 2 insertions, 1 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 |