[commit: ghc] master: Temporarily disable common block elimination; fixes #8083 for now (be89c67)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/be89c675339982cb53a5e32d6d282410c9c50f7c

>---------------------------------------------------------------

commit be89c675339982cb53a5e32d6d282410c9c50f7c
Author: Ian Lynagh <ian at well-typed.com>
Date:   Tue Jul 23 13:43:51 2013 +0100

    Temporarily disable common block elimination; fixes #8083 for now

>---------------------------------------------------------------

 compiler/cmm/CmmPipeline.hs |    8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs
index 5e9bca3..8e75dd6 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