X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FX86%2FFreeRegs.hs;h=0a15e5682c5d97674afc3cb5d0dea10306762c73;hp=4ba637f9b735fd548fef2a3ea6987b545a3e32be;hb=3fd25ca4ae2b41c283210112c6e710e8a44804ba;hpb=635f8049a713dcef23723f6e5575bb5b34894b5c

diff --git a/compiler/nativeGen/RegAlloc/Linear/X86/FreeRegs.hs b/compiler/nativeGen/RegAlloc/Linear/X86/FreeRegs.hs
index 4ba637f..0a15e56 100644
--- a/compiler/nativeGen/RegAlloc/Linear/X86/FreeRegs.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/X86/FreeRegs.hs
@@ -12,7 +12,11 @@ import Data.Word
 import Data.Bits
 
 type FreeRegs 
+#ifdef i386_TARGET_ARCH
 	= Word32
+#else
+	= Word64
+#endif
 
 noFreeRegs :: FreeRegs
 noFreeRegs = 0