X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FMain.hs;fp=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FMain.hs;h=6b01298ac68e1c2423d9d07a03d149f17d1c0336;hb=1c0deb50a7d84e14e0a425a0e1b4293c19718bb3;hp=093c21159f84441fd19daf314ed065003a7d5efe;hpb=c66391a745efa86bab4e9659e4d04ba514359164;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Graph/Main.hs b/compiler/nativeGen/RegAlloc/Graph/Main.hs
index 093c211..6b01298 100644
--- a/compiler/nativeGen/RegAlloc/Graph/Main.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Main.hs
@@ -175,7 +175,8 @@ regAlloc_spin
 		-- record what happened in this stage for debugging
 		let stat		=
 			RegAllocStatsColored
-			{ raGraph		= graph
+			{ raCode		= code
+			, raGraph		= graph
 			, raGraphColored	= graph_colored_lint
 			, raCoalesced		= rmCoalesce
 			, raCodeCoalesced	= code_coalesced
@@ -217,7 +218,8 @@ regAlloc_spin
 		-- record what happened in this stage for debugging
 		let stat	=
 			RegAllocStatsSpill
-			{ raGraph	= graph_colored_lint
+			{ raCode	= code
+			, raGraph	= graph_colored_lint
 			, raCoalesced	= rmCoalesce
 			, raSpillStats	= spillStats
 			, raSpillCosts	= spillCosts