diff options
| author | Dominik Peteler <haskell+gitlab@with-h.at> | 2022-06-29 18:21:39 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-06-29 19:26:31 -0400 |
| commit | 70e47489f1fa87a0ee5656950c00b54f69823fc6 (patch) | |
| tree | 217a0d86b0b08516b359230d9a240e881cfb9acb | |
| parent | bbe6f10eb46ea23607974abd1a96917699350b91 (diff) | |
| download | haskell-70e47489f1fa87a0ee5656950c00b54f69823fc6.tar.gz | |
Remove `CoreOccurAnal` constructor of the `CoreToDo` type
It was dead code since the last occurence in an expression context got
removed in 71916e1c018dded2e68d6769a2dbb8777da12664.
| -rw-r--r-- | compiler/GHC/Core/Lint.hs | 1 | ||||
| -rw-r--r-- | compiler/GHC/Core/Opt/Monad.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Core/Opt/Pipeline.hs | 1 |
3 files changed, 0 insertions, 4 deletions
diff --git a/compiler/GHC/Core/Lint.hs b/compiler/GHC/Core/Lint.hs index c126f6e981..d7c0c23b0f 100644 --- a/compiler/GHC/Core/Lint.hs +++ b/compiler/GHC/Core/Lint.hs @@ -357,7 +357,6 @@ coreDumpFlag CoreDesugar = Just Opt_D_dump_ds_preopt coreDumpFlag CoreDesugarOpt = Just Opt_D_dump_ds coreDumpFlag CoreTidy = Just Opt_D_dump_simpl coreDumpFlag CorePrep = Just Opt_D_dump_prep -coreDumpFlag CoreOccurAnal = Just Opt_D_dump_occur_anal coreDumpFlag CoreAddCallerCcs = Nothing coreDumpFlag CoreAddLateCcs = Nothing diff --git a/compiler/GHC/Core/Opt/Monad.hs b/compiler/GHC/Core/Opt/Monad.hs index 11b1d2c7c2..777c3d36cf 100644 --- a/compiler/GHC/Core/Opt/Monad.hs +++ b/compiler/GHC/Core/Opt/Monad.hs @@ -139,7 +139,6 @@ data CoreToDo -- These are diff core-to-core passes, | CorePrep | CoreAddCallerCcs | CoreAddLateCcs - | CoreOccurAnal instance Outputable CoreToDo where ppr (CoreDoSimplify _ _) = text "Simplifier" @@ -162,7 +161,6 @@ instance Outputable CoreToDo where ppr CoreAddCallerCcs = text "Add caller cost-centres" ppr CoreAddLateCcs = text "Add late core cost-centres" ppr CorePrep = text "CorePrep" - ppr CoreOccurAnal = text "Occurrence analysis" ppr CoreDoPrintCore = text "Print core" ppr (CoreDoRuleCheck {}) = text "Rule check" ppr CoreDoNothing = text "CoreDoNothing" diff --git a/compiler/GHC/Core/Opt/Pipeline.hs b/compiler/GHC/Core/Opt/Pipeline.hs index 40b9536583..910b24061b 100644 --- a/compiler/GHC/Core/Opt/Pipeline.hs +++ b/compiler/GHC/Core/Opt/Pipeline.hs @@ -552,7 +552,6 @@ doCorePass pass guts = do CoreDesugarOpt -> pprPanic "doCorePass" (ppr pass) CoreTidy -> pprPanic "doCorePass" (ppr pass) CorePrep -> pprPanic "doCorePass" (ppr pass) - CoreOccurAnal -> pprPanic "doCorePass" (ppr pass) {- ************************************************************************ |