diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-10-20 00:06:02 +0200 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-10-20 00:06:02 +0200 |
| commit | 2b3ae8840f7fe5072b5d7432969a1c4832ad3a6b (patch) | |
| tree | f778bf58f3bed07f933ef61c3ee3e21502322ef8 | |
| parent | ecf979c76468e34bf1618e604b7523e75ded1704 (diff) | |
| download | haskell-2b3ae8840f7fe5072b5d7432969a1c4832ad3a6b.tar.gz | |
More boot file cleanup
| -rw-r--r-- | compiler/GHC/Stg/InferTags.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/StgToCmm/Bind.hs | 5 | ||||
| -rw-r--r-- | compiler/GHC/StgToCmm/Bind.hs-boot | 17 |
3 files changed, 3 insertions, 21 deletions
diff --git a/compiler/GHC/Stg/InferTags.hs b/compiler/GHC/Stg/InferTags.hs index 81c9d52351..aea27317a3 100644 --- a/compiler/GHC/Stg/InferTags.hs +++ b/compiler/GHC/Stg/InferTags.hs @@ -15,7 +15,7 @@ import GHC.Types.Id import GHC.Types.Id.Info (tagSigInfo) import GHC.Types.Name import GHC.Stg.Syntax -import GHC.Types.Basic ( CbvMark (..), TopLevelFlag(..), isTopLevel ) +import GHC.Types.Basic import GHC.Types.Unique.Supply (mkSplitUniqSupply) import GHC.Types.RepType (dataConRuntimeRepStrictness, isVirtualDataCon) import GHC.Core (AltCon(..)) diff --git a/compiler/GHC/StgToCmm/Bind.hs b/compiler/GHC/StgToCmm/Bind.hs index 8cce0f22c9..7f346a7839 100644 --- a/compiler/GHC/StgToCmm/Bind.hs +++ b/compiler/GHC/StgToCmm/Bind.hs @@ -105,11 +105,6 @@ cgTopRhsClosure platform rec id ccs upd_flag args body = gen_code _ closure_label | StgApp f [] <- body, null args, isNonRec rec = emitIndCon f ccs closure_label - -- -- special case for virtual con "indirections" - -- | StgConApp con _ [StgVarArg x] _ <- body - -- , null args - -- , isVirtualDataCon con - -- = emitIndCon x ccs closure_label gen_code lf_info _closure_label = do { profile <- getProfile diff --git a/compiler/GHC/StgToCmm/Bind.hs-boot b/compiler/GHC/StgToCmm/Bind.hs-boot index d7e18381c8..e19fdc1e43 100644 --- a/compiler/GHC/StgToCmm/Bind.hs-boot +++ b/compiler/GHC/StgToCmm/Bind.hs-boot @@ -1,20 +1,7 @@ module GHC.StgToCmm.Bind where -import GHC.StgToCmm.Monad( FCode, CgIdInfo ) -import GHC.Stg.Syntax -- ( CgStgBinding ) -import GHC.Types.Basic -import GHC.Platform -import GHC.Types.Id -import GHC.Types.CostCentre +import GHC.StgToCmm.Monad( FCode ) +import GHC.Stg.Syntax( CgStgBinding ) import qualified GHC.Utils.Misc as S (HasDebugCallStack) cgBind :: S.HasDebugCallStack => CgStgBinding -> FCode () - -cgTopRhsClosure :: Platform - -> RecFlag -- member of a recursive group? - -> Id - -> CostCentreStack -- Optional cost centre annotation - -> UpdateFlag - -> [Id] -- Args - -> CgStgExpr - -> (CgIdInfo, FCode ()) |