diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-07-23 13:43:51 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-07-23 13:43:51 +0100 |
| commit | be89c675339982cb53a5e32d6d282410c9c50f7c (patch) | |
| tree | 585f982869c0b32c1e7db65d0d928596d9973cba /compiler/cmm/CmmPipeline.hs | |
| parent | 76d0cbcb72cf098cab684745ad3d8f364192e4b6 (diff) | |
| download | haskell-be89c675339982cb53a5e32d6d282410c9c50f7c.tar.gz | |
Temporarily disable common block elimination; fixes #8083 for now
Diffstat (limited to 'compiler/cmm/CmmPipeline.hs')
| -rw-r--r-- | compiler/cmm/CmmPipeline.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs index 5e9bca30e3..8e75dd66f1 100644 --- a/compiler/cmm/CmmPipeline.hs +++ b/compiler/cmm/CmmPipeline.hs @@ -68,9 +68,11 @@ cpsTop hsc_env proc = , do_layout = do_layout }} = h ----------- Eliminate common blocks ------------------------------------- - g <- {-# SCC "elimCommonBlocks" #-} - condPass Opt_CmmElimCommonBlocks elimCommonBlocks g - Opt_D_dump_cmm_cbe "Post common block elimination" + g <- if False -- temporarily disabled: See #8083 + then {-# SCC "elimCommonBlocks" #-} + condPass Opt_CmmElimCommonBlocks elimCommonBlocks g + Opt_D_dump_cmm_cbe "Post common block elimination" + else return g -- Any work storing block Labels must be performed _after_ -- elimCommonBlocks |