projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
SPARC NCG: Use .skip instead of .space in assembler
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
MachRegs.lhs
diff --git
a/compiler/nativeGen/MachRegs.lhs
b/compiler/nativeGen/MachRegs.lhs
index
9c80423
..
f1f48f5
100644
(file)
--- a/
compiler/nativeGen/MachRegs.lhs
+++ b/
compiler/nativeGen/MachRegs.lhs
@@
-75,7
+75,7
@@
module MachRegs (
#endif
#if sparc_TARGET_ARCH
fits13Bits,
#endif
#if sparc_TARGET_ARCH
fits13Bits,
- fpRel, gReg, iReg, lReg, oReg, largeOffsetError,
+ fpRel, gReg, iReg, lReg, oReg, fReg, largeOffsetError,
fp, sp, g0, g1, g2, o0, o1, f0, f6, f8, f26, f27,
#endif
#if powerpc_TARGET_ARCH
fp, sp, g0, g1, g2, o0, o1, f0, f6, f8, f26, f27,
#endif
#if powerpc_TARGET_ARCH
@@
-887,9
+887,10
@@
fReg x = (32 + x)
nCG_FirstFloatReg :: RegNo
nCG_FirstFloatReg = unRealReg NCG_FirstFloatReg
nCG_FirstFloatReg :: RegNo
nCG_FirstFloatReg = unRealReg NCG_FirstFloatReg
-regClass (VirtualRegI u) = RcInteger
-regClass (VirtualRegF u) = RcFloat
-regClass (VirtualRegD u) = RcDouble
+regClass (VirtualRegI u) = RcInteger
+regClass (VirtualRegHi u) = RcInteger
+regClass (VirtualRegF u) = RcFloat
+regClass (VirtualRegD u) = RcDouble
regClass (RealReg i) | i < 32 = RcInteger
| i < nCG_FirstFloatReg = RcDouble
| otherwise = RcFloat
regClass (RealReg i) | i < 32 = RcInteger
| i < nCG_FirstFloatReg = RcDouble
| otherwise = RcFloat