X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FGraphColor.hs;fp=compiler%2Futils%2FGraphColor.hs;h=46bf384bd6d244706d21e9ae4244d537b7f4ec80;hp=10852d4d9b2f703b095c97b03ddf28dcd4572d75;hb=d5938fb228511bfdce45e148ea4906129692e67f;hpb=220a12e946b80166d3fe20419091135cef01f668

diff --git a/compiler/utils/GraphColor.hs b/compiler/utils/GraphColor.hs
index 10852d4..46bf384 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.