From: Ben.Lippmeier@anu.edu.au <unknown>
Date: Wed, 4 Feb 2009 04:38:02 +0000 (+0000)
Subject: SPARC NCG: Fix some haddock problems.
X-Git-Tag: 2009-03-13~126
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2984649a87ffad1753be0c950ed18cfc40f55fea

SPARC NCG: Fix some haddock problems.
---

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
diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs
index 46954ce..3b1d5ca 100644
--- a/compiler/nativeGen/RegAlloc/Linear/Main.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs
@@ -247,8 +247,8 @@ linearRA
 	-> BlockId			-- ^ id of the current block, for debugging.
 	-> [LiveInstr]			-- ^ liveness annotated instructions in this block.
 
-	-> RegM ( [Instr]		-- ^ instructions after register allocation
-		, [NatBasicBlock])	-- ^ fresh blocks of fixup code.
+	-> RegM ( [Instr]		--   instructions after register allocation
+		, [NatBasicBlock])	--   fresh blocks of fixup code.
 
 
 linearRA _          accInstr accFixup _ []
diff --git a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
index 56382aa..5656941 100644
--- a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
@@ -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 }