X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocStats.hs;h=7e08c1cdf63537a62ad51a65980659411894d9c6;hb=663b391470a783e8f23414c07c18a020850d2fb8;hp=a762f832a7438b7393f727cfca529c2cc571ecc2;hpb=4839f119310cd82dec679239e0897e4a2a26ee92;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocStats.hs b/compiler/nativeGen/RegAllocStats.hs
index a762f83..7e08c1c 100644
--- a/compiler/nativeGen/RegAllocStats.hs
+++ b/compiler/nativeGen/RegAllocStats.hs
@@ -47,8 +47,9 @@ data RegAllocStats
 	-- a successful coloring
 	| RegAllocStatsColored
 	{ raGraph	:: Color.Graph Reg RegClass Reg -- ^ the colored graph
-	, raPatchedCmm	:: [LiveCmmTop] 		-- ^ code after register allocation 
-	, raFinalCmm	:: [NatCmmTop] }		-- ^ final code
+	, raPatched	:: [LiveCmmTop] 		-- ^ code with vregs replaced by hregs
+	, raSpillClean  :: [LiveCmmTop]			-- ^ code with unneeded spill/reloads cleaned out
+	, raFinal	:: [NatCmmTop] }		-- ^ final code
 
 instance Outputable RegAllocStats where
 
@@ -77,10 +78,13 @@ instance Outputable RegAllocStats where
 	$$ Color.dotGraph regDotColor trivColorable (raGraph s)
 	$$ text ""
 	$$ text "#  Native code after register allocation."
-	$$ ppr (raPatchedCmm s)
+	$$ ppr (raPatched s)
+	$$ text ""
+	$$ text "#  Clean out unneeded spill/reloads."
+	$$ ppr (raSpillClean s)
 	$$ text ""
 	$$ text "#  Final code, after rewriting spill/rewrite pseudo instrs."
-	$$ ppr (raFinalCmm s)
+	$$ ppr (raFinal s)
 	$$ text ""