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 (file)
--- 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 
 
 data RA_State 
        = RA_State 
 

+       { 

        -- | the current mapping from basic blocks to 
        --      the register assignments at the beginning of that block.
        -- | 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
        
        -- | 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 (file)
--- 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.
 
        -> 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 _ []
 
 
 linearRA _          accInstr accFixup _ []

diff --git a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
index 56382aa..5656941 100644 (file)
--- a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
@@ -31,11 +31,10 @@ type StackSlot = Int
 
 data StackMap 
        = StackMap 
 
 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 }
 
 
        , stackMapAssignment    :: UniqFM StackSlot }