diff options
author | Simon Marlow <marlowsd@gmail.com> | 2014-01-13 20:07:19 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2014-01-16 11:07:08 +0000 |
commit | f0a7261a39bd1a8c5217fecba56c593c353f198c (patch) | |
tree | a689ada973ddd3400d5f5030a406c40f193be2e4 /compiler/nativeGen | |
parent | 61395b59191284a2cc249e614bbba993c16ef8c5 (diff) | |
download | haskell-f0a7261a39bd1a8c5217fecba56c593c353f198c.tar.gz |
Disable -fregs-graph (#7679, #8657)
Diffstat (limited to 'compiler/nativeGen')
-rw-r--r-- | compiler/nativeGen/AsmCodeGen.lhs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index cd00a8295d..caae4b1409 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)) |