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=ad32ebac2fc9f7412e7f37003505d470b8e8485d;hp=9f62c25f0a8e6de3d98f660645fd3714b948b6e9;hb=f949be5748e7a99ec323b8d59144e322e9e86eb1;hpb=2d498de3fd7a8f60621c601e419fe7cb14788b1c

diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs
index 9f62c25..ad32eba 100644
--- a/compiler/nativeGen/X86/Regs.hs
+++ b/compiler/nativeGen/X86/Regs.hs
@@ -108,10 +108,10 @@ virtualRegSqueeze cls vr
 		VirtualRegD{}		-> _ILIT(1)
 		VirtualRegF{}		-> _ILIT(0)
 
+{-# INLINE realRegSqueeze #-}
 realRegSqueeze :: RegClass -> RealReg -> FastInt
 
 #if defined(i386_TARGET_ARCH)
-{-# INLINE realRegSqueeze #-}
 realRegSqueeze cls rr
  = case cls of
  	RcInteger