projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
merge GHC HEAD
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
SPARC
/
Ppr.hs
diff --git
a/compiler/nativeGen/SPARC/Ppr.hs
b/compiler/nativeGen/SPARC/Ppr.hs
index
a63661f
..
c5a3314
100644
(file)
--- a/
compiler/nativeGen/SPARC/Ppr.hs
+++ b/
compiler/nativeGen/SPARC/Ppr.hs
@@
-12,7
+12,6
@@
module SPARC.Ppr (
pprSectionHeader,
pprData,
pprInstr,
pprSectionHeader,
pprData,
pprInstr,
- pprUserReg,
pprSize,
pprImm,
pprDataItem
pprSize,
pprImm,
pprDataItem
@@
-141,12
+140,6
@@
instance Outputable Instr where
-- | Pretty print a register.
-- | Pretty print a register.
--- This is an alias of pprReg for legacy reasons, should remove it.
-pprUserReg :: Reg -> Doc
-pprUserReg = pprReg
-
-
--- | Pretty print a register.
pprReg :: Reg -> Doc
pprReg reg
= case reg of
pprReg :: Reg -> Doc
pprReg reg
= case reg of
@@
-543,7
+536,7
@@
pprInstr (BF cond b blockid)
]
pprInstr (JMP addr) = (<>) (ptext (sLit "\tjmp\t")) (pprAddr addr)
]
pprInstr (JMP addr) = (<>) (ptext (sLit "\tjmp\t")) (pprAddr addr)
-pprInstr (JMP_TBL op _) = pprInstr (JMP op)
+pprInstr (JMP_TBL op _ _) = pprInstr (JMP op)
pprInstr (CALL (Left imm) n _)
= hcat [ ptext (sLit "\tcall\t"), pprImm imm, comma, int n ]
pprInstr (CALL (Left imm) n _)
= hcat [ ptext (sLit "\tcall\t"), pprImm imm, comma, int n ]