X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocColor.hs;h=5c8569145f6ddaf3d79d998b8bcfd225cc390c3f;hb=8480018a7f5f1cd961f3bd8ae758cc01910d5e6a;hp=60c35a3579f5989a78cd707d5d9ee788c880ba60;hpb=982c1f494de8a691294a95aee108e765c3f592a0;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs
index 60c35a3..5c85691 100644
--- a/compiler/nativeGen/RegAllocColor.hs
+++ b/compiler/nativeGen/RegAllocColor.hs
@@ -33,7 +33,7 @@ import Data.List
 import Data.Maybe
 import Control.Monad
 
--- | The maximum number of build/spill cycles we'll allow.
+-- | The maximum number of build\/spill cycles we'll allow.
 --	We should only need 3 or 4 cycles tops.
 --	If we run for any longer than this we're probably in an infinite loop,
 --	It's probably better just to bail out and report a bug at this stage.
@@ -48,9 +48,9 @@ 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.
-	-> UniqSM 
-		( [NatCmmTop]		-- ^ code with registers allocated.
-		, [RegAllocStats] )	-- ^ stats for each stage of allocation
+	-> UniqSM ( [NatCmmTop], [RegAllocStats] )
+           -- ^ code with registers allocated and stats for each stage of
+           -- allocation
 		
 regAlloc dflags regsFree slotsFree code
  = do
@@ -60,7 +60,7 @@ regAlloc dflags regsFree slotsFree code
 	return	( code_final
 		, reverse debug_codeGraphs )
 
-regAlloc_spin dflags (spinCount :: Int) triv regsFree slotsFree debug_codeGraphs code
+regAlloc_spin dflags spinCount triv regsFree slotsFree debug_codeGraphs code
  = do
  	-- if any of these dump flags are turned on we want to hang on to
 	--	intermediate structures in the allocator - otherwise tell the