Commit be89c675 authored by ian@well-typed.com's avatar ian@well-typed.com

Temporarily disable common block elimination; fixes #8083 for now

parent 76d0cbcb
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment