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

diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs
index 840736f..64d835b 100644
--- a/compiler/nativeGen/X86/Regs.hs
+++ b/compiler/nativeGen/X86/Regs.hs
@@ -54,7 +54,7 @@ where
 -- HACK: go for the max
 #endif
 
-#include "../includes/MachRegs.h"
+#include "../includes/stg/MachRegs.h"
 
 import Reg
 import RegClass
@@ -65,7 +65,6 @@ import Cmm
 import CLabel           ( CLabel )
 import Pretty
 import Outputable	( panic )
-import qualified Outputable
 import FastTypes
 import FastBool
 
@@ -108,12 +107,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 +169,7 @@ realRegSqueeze cls rr
 		RealRegPair{}		-> _ILIT(0)
 
 #else
-realRegSqueeze	= _ILIT(0)
+realRegSqueeze _ _	= _ILIT(0)
 #endif