X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FBase.hs;h=3f9146cc0235c2a58afb7fcb1b1c3c2db74957e6;hp=a986c0ff32ec047102265c1305cbd36a0e193653;hb=2984649a87ffad1753be0c950ed18cfc40f55fea;hpb=e8043f339e23328e3457696589edaa1ab7d60a64

diff --git a/compiler/nativeGen/RegAlloc/Linear/Base.hs b/compiler/nativeGen/RegAlloc/Linear/Base.hs
index a986c0f..3f9146c 100644
--- a/compiler/nativeGen/RegAlloc/Linear/Base.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/Base.hs
@@ -105,9 +105,10 @@ data RegAllocStats
 data RA_State 
 	= RA_State 
 
+	{ 
 	-- | the current mapping from basic blocks to 
 	-- 	the register assignments at the beginning of that block.
-	{ ra_blockassig	:: BlockAssignment
+	  ra_blockassig	:: BlockAssignment
 	
 	-- | free machine registers
 	, ra_freeregs   :: {-#UNPACK#-}!FreeRegs