diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2018-10-11 10:31:58 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-10-11 10:31:58 -0400 |
| commit | 52b514003c60492f21790a823c488c49ec5fc89d (patch) | |
| tree | a87141d383de4bb147dfdb7ae2a8fb751376d462 /compiler/nativeGen/RegAlloc/Linear/Main.hs | |
| parent | 2fc8ce5f0c8c81771c26266ac0b150ca9b75c5f3 (diff) | |
| parent | 7ce9ead4fddfbffb5cb63cce0f1b4533b7bcc0ad (diff) | |
| download | haskell-ghc-8.2.tar.gz | |
Merge commit '7ce9ead4fddfbffb5cb63cce0f1b4533b7bcc0ad' into ghc-8.2ghc-8.2
John Ericson from Obsidian Systems proposed that we merge these
backports, which Obsidian bases its cross-compiled builds on, to the
upstream stable branch. I don't see why not.
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Linear/Main.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Linear/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs index b7721880c3..c98a8e4773 100644 --- a/compiler/nativeGen/RegAlloc/Linear/Main.hs +++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs @@ -496,7 +496,7 @@ genRaInsn block_live new_instrs block_id instr r_dying w_dying = do -- debugging {- freeregs <- getFreeRegsR assig <- getAssigR - pprDebugAndThen (defaultDynFlags Settings{ sTargetPlatform=platform }) trace "genRaInsn" + pprDebugAndThen (defaultDynFlags Settings{ sTargetPlatform=platform } undefined) trace "genRaInsn" (ppr instr $$ text "r_dying = " <+> ppr r_dying $$ text "w_dying = " <+> ppr w_dying |