X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FX86%2FRegs.hs;fp=compiler%2FnativeGen%2FX86%2FRegs.hs;h=9f62c25f0a8e6de3d98f660645fd3714b948b6e9;hp=840736fe4dd133398e1f74410fb467ee7e63cd98;hb=2d498de3fd7a8f60621c601e419fe7cb14788b1c;hpb=9d9eef1f78e25c716e2c0c7559005b730f425231

diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs
index 840736f..9f62c25 100644
--- 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)
 
-
+realRegSqueeze :: RegClass -> RealReg -> FastInt
 
 #if defined(i386_TARGET_ARCH)
 {-# INLINE realRegSqueeze #-}
-realRegSqueeze :: RegClass -> RealReg -> FastInt
-
 realRegSqueeze cls rr
  = case cls of
  	RcInteger
@@ -172,7 +170,7 @@ realRegSqueeze cls rr
 		RealRegPair{}		-> _ILIT(0)
 
 #else
-realRegSqueeze	= _ILIT(0)
+realRegSqueeze _ _	= _ILIT(0)
 #endif