diff options
| author | Gergo ERDI <gergo@erdi.hu> | 2021-11-16 11:16:20 +0800 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-11-25 05:01:59 -0500 |
| commit | be0a9470ad76f7dc63e05a84215a2a4d0fd833fd (patch) | |
| tree | 58a98d21fa1963260e1b9ededf4ab249680cd49c /compiler/GHC/Cmm | |
| parent | c9cead1ff7c5d3304543d52522ef4da96b802652 (diff) | |
| download | haskell-be0a9470ad76f7dc63e05a84215a2a4d0fd833fd.tar.gz | |
Add specific optimization flag for Cmm control flow analysis (#20500)
Diffstat (limited to 'compiler/GHC/Cmm')
| -rw-r--r-- | compiler/GHC/Cmm/Pipeline.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Pipeline.hs b/compiler/GHC/Cmm/Pipeline.hs index 481f2bb545..7de0ce0cb8 100644 --- a/compiler/GHC/Cmm/Pipeline.hs +++ b/compiler/GHC/Cmm/Pipeline.hs @@ -142,7 +142,7 @@ cpsTop logger platform dflags proc = ----------- Control-flow optimisations ----------------------------- g <- {-# SCC "cmmCfgOpts(2)" #-} - return $ if optLevel dflags >= 1 + return $ if gopt Opt_CmmControlFlow dflags then map (cmmCfgOptsProc splitting_proc_points) g else g g <- return (map removeUnreachableBlocksProc g) |