projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Eliminate IF_ARCH_sparc
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
SPARC
/
Ppr.hs
diff --git
a/compiler/nativeGen/SPARC/Ppr.hs
b/compiler/nativeGen/SPARC/Ppr.hs
index
a63661f
..
d78d1a7
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
@@
-102,9
+101,7
@@
pprData (CmmStaticLit lit) = pprDataItem lit
pprGloblDecl :: CLabel -> Doc
pprGloblDecl lbl
| not (externallyVisibleCLabel lbl) = empty
pprGloblDecl :: CLabel -> Doc
pprGloblDecl lbl
| not (externallyVisibleCLabel lbl) = empty
- | otherwise = ptext IF_ARCH_sparc((sLit ".global "),
- (sLit ".globl ")) <>
- pprCLabel_asm lbl
+ | otherwise = ptext (sLit ".global ") <> pprCLabel_asm lbl
pprTypeAndSizeDecl :: CLabel -> Doc
#if linux_TARGET_OS
pprTypeAndSizeDecl :: CLabel -> Doc
#if linux_TARGET_OS
@@
-141,12
+138,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
+534,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 ]