X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FFreeRegs.hs;h=b357160c9628c54d13bf89078b998217edeffc76;hp=bee8c98c617bd24535e593aa26895759c8415ac8;hb=b04a210e26ca57242fd052f2aa91011a80b76299;hpb=77ed23d51b968505b3ad8541c075657ae94f0ea3

diff --git a/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs b/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs
index bee8c98..b357160 100644
--- a/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs
@@ -5,7 +5,8 @@ module RegAlloc.Linear.FreeRegs (
 	releaseReg,
 	initFreeRegs,
 	getFreeRegs,
-	allocateReg
+	allocateReg,
+	maxSpillSlots
 )
 
 #include "HsVersions.h"
@@ -27,12 +28,15 @@ where
 
 #if   defined(powerpc_TARGET_ARCH) 
 import RegAlloc.Linear.PPC.FreeRegs
+import PPC.Instr	(maxSpillSlots)
 
 #elif defined(sparc_TARGET_ARCH)
 import RegAlloc.Linear.SPARC.FreeRegs
+import SPARC.Instr	(maxSpillSlots)
 
 #elif defined(i386_TARGET_ARCH) || defined(x86_64_TARGET_ARCH)
 import RegAlloc.Linear.X86.FreeRegs
+import X86.Instr	(maxSpillSlots)
 
 #else
 #error "RegAlloc.Linear.FreeRegs not defined for this architecture."