From f2720ca04e24179e9cd115e9d2d60c5e4e889988 Mon Sep 17 00:00:00 2001 From: "Ben.Lippmeier@anu.edu.au" Date: Wed, 22 Aug 2007 17:11:28 +0000 Subject: [PATCH] comment wibble --- compiler/nativeGen/RegAllocColor.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs index 5ce2a6c..9c21faa 100644 --- a/compiler/nativeGen/RegAllocColor.hs +++ b/compiler/nativeGen/RegAllocColor.hs @@ -50,12 +50,12 @@ maxSpinCount = 10 -- | The top level of the graph coloring register allocator. -- regAlloc - :: UniqFM (UniqSet Reg) -- ^ the registers we can use for allocation - -> UniqSet Int -- ^ the set of available spill slots. - -> [LiveCmmTop] -- ^ code annotated with liveness information. + :: UniqFM (UniqSet Reg) -- ^ the registers we can use for allocation + -> UniqSet Int -- ^ the set of available spill slots. + -> [LiveCmmTop] -- ^ code annotated with liveness information. -> UniqSM - ( [NatCmmTop] -- ^ code with registers allocated. - , [RegAllocStats] ) -- ^ stats for each stage of allocation + ( [NatCmmTop] -- ^ code with registers allocated. + , [RegAllocStats] ) -- ^ stats for each stage of allocation regAlloc regsFree slotsFree code = do @@ -79,8 +79,8 @@ regAlloc_spin (spinCount :: Int) triv regsFree slotsFree debug_codeGraphs code -- build a conflict graph from the code. graph <- buildGraph code - -- build a map of how many instructions each reg lives for - -- this lazy, it won't be computed unless we need to spill + -- build a map of how many instructions each reg lives for. + -- this is lazy, it won't be computed unless we need to spill let fmLife = plusUFMs_C (\(r1, l1) (r2, l2) -> (r1, l1 + l2)) $ map lifetimeCount code @@ -202,7 +202,7 @@ buildGraph code -- | Add some conflict edges to the graph. --- Conflicts between virtual and real regs are recorded as exlusions. +-- Conflicts between virtual and real regs are recorded as exclusions. -- graphAddConflictSet :: UniqSet Reg @@ -223,7 +223,7 @@ graphAddConflictSet set graph in graph2 --- | Add some coalesences edges to the graph +-- | Add some coalesence edges to the graph -- Coalesences between virtual and real regs are recorded as preferences. -- graphAddCoalesce -- 1.7.10.4