projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Follow vreg/hreg patch in PPC NCG
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
X86
/
Regs.hs
diff --git
a/compiler/nativeGen/X86/Regs.hs
b/compiler/nativeGen/X86/Regs.hs
index
840736f
..
9f62c25
100644
(file)
--- a/
compiler/nativeGen/X86/Regs.hs
+++ b/
compiler/nativeGen/X86/Regs.hs
@@
-108,12
+108,10
@@
virtualRegSqueeze cls vr
VirtualRegD{} -> _ILIT(1)
VirtualRegF{} -> _ILIT(0)
VirtualRegD{} -> _ILIT(1)
VirtualRegF{} -> _ILIT(0)
-
+realRegSqueeze :: RegClass -> RealReg -> FastInt
#if defined(i386_TARGET_ARCH)
{-# INLINE realRegSqueeze #-}
#if defined(i386_TARGET_ARCH)
{-# INLINE realRegSqueeze #-}
-realRegSqueeze :: RegClass -> RealReg -> FastInt
-
realRegSqueeze cls rr
= case cls of
RcInteger
realRegSqueeze cls rr
= case cls of
RcInteger
@@
-172,7
+170,7
@@
realRegSqueeze cls rr
RealRegPair{} -> _ILIT(0)
#else
RealRegPair{} -> _ILIT(0)
#else
-realRegSqueeze = _ILIT(0)
+realRegSqueeze _ _ = _ILIT(0)
#endif
#endif