projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Follow ForeignLabel changes in PPC NCG
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
PPC
/
Ppr.hs
diff --git
a/compiler/nativeGen/PPC/Ppr.hs
b/compiler/nativeGen/PPC/Ppr.hs
index
8378dd1
..
ec6d941
100644
(file)
--- a/
compiler/nativeGen/PPC/Ppr.hs
+++ b/
compiler/nativeGen/PPC/Ppr.hs
@@
-31,6
+31,7
@@
import Instruction
import Size
import Reg
import RegClass
import Size
import Reg
import RegClass
+import TargetReg
import BlockId
import Cmm
import BlockId
import Cmm
@@
-469,7
+470,7
@@
pprInstr (MR reg1 reg2)
| reg1 == reg2 = empty
| otherwise = hcat [
char '\t',
| reg1 == reg2 = empty
| otherwise = hcat [
char '\t',
- case regClass reg1 of
+ case targetClassOfReg reg1 of
RcInteger -> ptext (sLit "mr")
_ -> ptext (sLit "fmr"),
char '\t',
RcInteger -> ptext (sLit "mr")
_ -> ptext (sLit "fmr"),
char '\t',