From 7b9767b81f4f0b25b0c0402593be1182b9546bab Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Wed, 27 Jan 2021 09:58:59 +0000 Subject: Use a newtype for CHeader and CStub in ForeignStubs --- compiler/GHC/StgToCmm/Prof.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'compiler/GHC/StgToCmm/Prof.hs') 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 -- cgit v1.2.1