diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-07-09 16:08:21 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-07-09 16:23:45 +0100 |
| commit | c6a61235aa0baf6f9e8a41c5a771ccc7e32c23a5 (patch) | |
| tree | a288174c5f6ab513319bd4d1dae6ef79044f5ae9 /compiler/cmm/PprCmm.hs | |
| parent | c9cb46bec47ada686d18437578fbc95281c9c6d4 (diff) | |
| download | haskell-c6a61235aa0baf6f9e8a41c5a771ccc7e32c23a5.tar.gz | |
Track liveness of GlobalRegs in the new code generator
This gives the register allocator access to R1.., F1.., D1.. etc. for
the new code generator, and is a cheap way to eliminate all the extra
"x = R1" assignments that we get from copyIn.
Diffstat (limited to 'compiler/cmm/PprCmm.hs')
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index dee6ee881e..9717eea179 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -227,9 +227,9 @@ pprNode node = pp_node <+> pp_debug , ptext (sLit ": goto") , ppr (head [ id | Just id <- ids]) <> semi ] - CmmCall tgt k out res updfr_off -> + CmmCall tgt k regs out res updfr_off -> hcat [ ptext (sLit "call"), space - , pprFun tgt, ptext (sLit "(...)"), space + , pprFun tgt, parens (interpp'SP regs), space , ptext (sLit "returns to") <+> ppr k <+> parens (ppr out) <+> parens (ppr res) , ptext (sLit " with update frame") <+> ppr updfr_off |