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

diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs
index 840736f..ad32eba 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)
 
-
-
-#if defined(i386_TARGET_ARCH)
 {-# INLINE realRegSqueeze #-}
 realRegSqueeze :: RegClass -> RealReg -> FastInt
 
+#if defined(i386_TARGET_ARCH)
 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