Temporarily disable common block elimination; fixes #8083 for now
authorIan Lynagh <ian@well-typed.com>
Tue, 23 Jul 2013 12:43:51 +0000 (13:43 +0100)
committerIan Lynagh <ian@well-typed.com>
Tue, 23 Jul 2013 12:43:51 +0000 (13:43 +0100)
compiler/cmm/CmmPipeline.hs

index 5e9bca3..8e75dd6 100644 (file)
@@ -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