X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FStackMap.hs;h=62bf6adb2a92af1292a5abe13b71f13fd943bb86;hb=6cec61d14a324285dbb8ce73d4c7215f1f8d6766;hp=56382aa804db023e398d022f11cb762a8ffb0afc;hpb=cbc96da034482b769889c109f6cc822f42b12027;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
index 56382aa..62bf6ad 100644
--- a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
@@ -19,7 +19,7 @@ module RegAlloc.Linear.StackMap (
 
 where
 
-import RegAllocInfo	(maxSpillSlots)
+import RegAlloc.Linear.FreeRegs
 
 import Outputable
 import UniqFM
@@ -31,11 +31,10 @@ type StackSlot = Int
 
 data StackMap 
 	= StackMap 
+	{ -- | The slots that are still available to be allocated.
+	  stackMapFreeSlots	:: [StackSlot]
 
-	-- | The slots that are still available to be allocated.
-	{ stackMapFreeSlots	:: [StackSlot]
-
-	-- | Assignment of vregs to stack slots.
+	  -- | Assignment of vregs to stack slots.
 	, stackMapAssignment	:: UniqFM StackSlot }