projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
223bf3b
)
[project @ 2005-04-03 22:01:32 by simonmar]
author
simonmar
<unknown>
Sun, 3 Apr 2005 22:01:32 +0000
(22:01 +0000)
committer
simonmar
<unknown>
Sun, 3 Apr 2005 22:01:32 +0000
(22:01 +0000)
x86_64: fix reg printing
ghc/compiler/nativeGen/PprMach.hs
patch
|
blob
|
history
diff --git
a/ghc/compiler/nativeGen/PprMach.hs
b/ghc/compiler/nativeGen/PprMach.hs
index
197a82a
..
9fb2123
100644
(file)
--- a/
ghc/compiler/nativeGen/PprMach.hs
+++ b/
ghc/compiler/nativeGen/PprMach.hs
@@
-117,11
+117,11
@@
pprBasicBlock (BasicBlock (BlockId id) instrs) =
pprUserReg :: Reg -> Doc
pprUserReg = pprReg IF_ARCH_i386(I32,) IF_ARCH_x86_64(I64,)
pprUserReg :: Reg -> Doc
pprUserReg = pprReg IF_ARCH_i386(I32,) IF_ARCH_x86_64(I64,)
-pprReg :: IF_ARCH_i386(MachRep ->, IF_ARCH_x86_64(MachRep ->,)) Reg -> Doc
+pprReg :: IF_ARCH_i386(MachRep ->,) IF_ARCH_x86_64(MachRep ->,) Reg -> Doc
-pprReg IF_ARCH_i386(s, IF_ARCH_x86_64(s,)) r
+pprReg IF_ARCH_i386(s,) IF_ARCH_x86_64(s,) r
= case r of
= case r of
- RealReg i -> ppr_reg_no IF_ARCH_i386(s, IF_ARCH_x86_64(s,)) i
+ RealReg i -> ppr_reg_no IF_ARCH_i386(s,) IF_ARCH_x86_64(s,) i
VirtualRegI u -> text "%vI_" <> asmSDoc (pprUnique u)
VirtualRegHi u -> text "%vHi_" <> asmSDoc (pprUnique u)
VirtualRegF u -> text "%vF_" <> asmSDoc (pprUnique u)
VirtualRegI u -> text "%vI_" <> asmSDoc (pprUnique u)
VirtualRegHi u -> text "%vHi_" <> asmSDoc (pprUnique u)
VirtualRegF u -> text "%vF_" <> asmSDoc (pprUnique u)
@@
-263,8
+263,9
@@
pprReg IF_ARCH_i386(s, IF_ARCH_x86_64(s,)) r
22 -> SLIT("%xmm6"); 23 -> SLIT("%xmm7");
24 -> SLIT("%xmm8"); 25 -> SLIT("%xmm9");
26 -> SLIT("%xmm10"); 27 -> SLIT("%xmm11");
22 -> SLIT("%xmm6"); 23 -> SLIT("%xmm7");
24 -> SLIT("%xmm8"); 25 -> SLIT("%xmm9");
26 -> SLIT("%xmm10"); 27 -> SLIT("%xmm11");
- 28 -> SLIT("%xmm12"); 28 -> SLIT("%xmm13");
- 30 -> SLIT("%xmm13"); 31 -> SLIT("%xmm15")
+ 28 -> SLIT("%xmm12"); 29 -> SLIT("%xmm13");
+ 30 -> SLIT("%xmm14"); 31 -> SLIT("%xmm15");
+ _ -> SLIT("very naughty x86_64 register")
})
#endif
})
#endif