[commit: ghc] master: Disable -fregs-graph (#7679, #8657) (f0a7261)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f0a7261a39bd1a8c5217fecba56c593c353f198c/ghc

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

commit f0a7261a39bd1a8c5217fecba56c593c353f198c
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Mon Jan 13 20:07:19 2014 +0000

    Disable -fregs-graph (#7679, #8657)


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

f0a7261a39bd1a8c5217fecba56c593c353f198c
 compiler/nativeGen/AsmCodeGen.lhs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index cd00a82..caae4b1 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -457,8 +457,10 @@ cmmNativeGen dflags this_mod ncgImpl us cmm count
 
         -- allocate registers
         (alloced, usAlloc, ppr_raStatsColor, ppr_raStatsLinear) <-
-         if ( gopt Opt_RegsGraph dflags
-           || gopt Opt_RegsIterative dflags)
+         if False
+           -- Disabled, see #7679, #8657
+           --  ( gopt Opt_RegsGraph dflags
+           --  || gopt Opt_RegsIterative dflags)
           then do
                 -- the regs usable for allocation
                 let (alloc_regs :: UniqFM (UniqSet RealReg))