diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2007-09-13 16:14:43 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2007-09-13 16:14:43 +0000 |
| commit | d5938fb228511bfdce45e148ea4906129692e67f (patch) | |
| tree | 9ec3899423389b265a97eb78befdc2bf3b50d1f7 /compiler | |
| parent | 220a12e946b80166d3fe20419091135cef01f668 (diff) | |
| download | haskell-d5938fb228511bfdce45e148ea4906129692e67f.tar.gz | |
warning police
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/nativeGen/RegAllocColor.hs | 1 | ||||
| -rw-r--r-- | compiler/utils/GraphColor.hs | 3 |
2 files changed, 1 insertions, 3 deletions
diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs index 48e64bf754..fc62157b98 100644 --- a/compiler/nativeGen/RegAllocColor.hs +++ b/compiler/nativeGen/RegAllocColor.hs @@ -126,7 +126,6 @@ regAlloc_spin dflags (spinCount :: Int) triv regsFree slotsFree debug_codeGraphs = {-# SCC "ColorGraph" #-} Color.colorGraph (dopt Opt_RegsIterative dflags) - spinCount regsFree triv spill graph -- rewrite regs in the code that have been coalesced diff --git a/compiler/utils/GraphColor.hs b/compiler/utils/GraphColor.hs index 10852d4d9b..46bf384bd6 100644 --- a/compiler/utils/GraphColor.hs +++ b/compiler/utils/GraphColor.hs @@ -39,7 +39,6 @@ colorGraph , Eq color, Eq cls, Ord k , Outputable k, Outputable cls, Outputable color) => Bool -- ^ whether to do iterative coalescing - -> Int -- ^ how many times coloring has been called so far -> UniqFM (UniqSet color) -- ^ map of (node class -> set of colors available for this class). -> Triv k cls color -- ^ fn to decide whether a node is trivially colorable. -> (Graph k cls color -> k) -- ^ fn to choose a node to potentially leave uncolored if nothing is trivially colorable. @@ -50,7 +49,7 @@ colorGraph , UniqFM k ) -- map of regs (r1 -> r2) that were coaleced -- r1 should be replaced by r2 in the source -colorGraph iterative spinCount colors triv spill graph0 +colorGraph iterative colors triv spill graph0 = let -- If we're not doing iterative coalescing then just do a conservative -- coalescing stage at the front. |