diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2017-09-21 18:02:36 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-09-21 18:02:37 -0400 |
| commit | 9aa73892e10e90a1799b9277da593e816a827364 (patch) | |
| tree | c64d7a5ce4c625192fcfb2f01080d76910ab7406 /compiler/cmm/CmmPipeline.hs | |
| parent | ddb38b51b8211247c2e31ddfcb96fe86479b9a9b (diff) | |
| download | haskell-9aa73892e10e90a1799b9277da593e816a827364.tar.gz | |
cmm/CBE: Use foldLocalRegsDefd
Simonpj suggested this as a follow-on to #14226 to avoid code
duplication. This also gives us the ability to CBE cases involving
foreign calls for free.
Test Plan: Validate
Reviewers: austin, simonmar, simonpj
Reviewed By: simonpj
Subscribers: michalt, simonpj, rwbarton, thomie
GHC Trac Issues: #14226
Differential Revision: https://phabricator.haskell.org/D3999
Diffstat (limited to 'compiler/cmm/CmmPipeline.hs')
| -rw-r--r-- | compiler/cmm/CmmPipeline.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs index 4d109a4086..b90b92a92f 100644 --- a/compiler/cmm/CmmPipeline.hs +++ b/compiler/cmm/CmmPipeline.hs @@ -68,7 +68,7 @@ cpsTop hsc_env proc = ----------- Eliminate common blocks ------------------------------------- g <- {-# SCC "elimCommonBlocks" #-} - condPass Opt_CmmElimCommonBlocks elimCommonBlocks g + condPass Opt_CmmElimCommonBlocks (elimCommonBlocks dflags) g Opt_D_dump_cmm_cbe "Post common block elimination" -- Any work storing block Labels must be performed _after_ |