X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocColor.hs;fp=compiler%2FnativeGen%2FRegAllocColor.hs;h=fc62157b98bdee163036453f8070714b0d0d5cc5;hb=d5938fb228511bfdce45e148ea4906129692e67f;hp=48e64bf75443b18ee5654ddcae6b97c85ad93e18;hpb=220a12e946b80166d3fe20419091135cef01f668;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs
index 48e64bf..fc62157 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