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

diff --git a/compiler/nativeGen/RegAllocStats.hs b/compiler/nativeGen/RegAllocStats.hs
index 798af02..a762f83 100644
--- a/compiler/nativeGen/RegAllocStats.hs
+++ b/compiler/nativeGen/RegAllocStats.hs
@@ -21,6 +21,7 @@ import qualified GraphColor as Color
 import RegLiveness
 import RegSpill
 import MachRegs
+import MachInstrs
 
 import Outputable
 import UniqFM
@@ -46,8 +47,8 @@ data RegAllocStats
 	-- a successful coloring
 	| RegAllocStatsColored
 	{ raGraph	:: Color.Graph Reg RegClass Reg -- ^ the colored graph
-	, raPatchedCmm	:: [LiveCmmTop] }		-- ^ code after register allocation
-
+	, raPatchedCmm	:: [LiveCmmTop] 		-- ^ code after register allocation 
+	, raFinalCmm	:: [NatCmmTop] }		-- ^ final code
 
 instance Outputable RegAllocStats where
 
@@ -77,6 +78,10 @@ instance Outputable RegAllocStats where
 	$$ text ""
 	$$ text "#  Native code after register allocation."
 	$$ ppr (raPatchedCmm s)
+	$$ text ""
+	$$ text "#  Final code, after rewriting spill/rewrite pseudo instrs."
+	$$ ppr (raFinalCmm s)
+	$$ text ""
 
 
 -- | Do all the different analysis on this list of RegAllocStats