X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FMain.hs;h=093c21159f84441fd19daf314ed065003a7d5efe;hb=e17cf7ff32778f4e6b3622855f25426251e843d6;hp=35ec879eb233a0fd6277a0b273e00c142d781de5;hpb=335b9f366ac440259318777c4c07e4fa42fbbec6;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Graph/Main.hs b/compiler/nativeGen/RegAlloc/Graph/Main.hs
index 35ec879..093c211 100644
--- a/compiler/nativeGen/RegAlloc/Graph/Main.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Main.hs
@@ -178,6 +178,7 @@ regAlloc_spin
 			{ raGraph		= graph
 			, raGraphColored	= graph_colored_lint
 			, raCoalesced		= rmCoalesce
+			, raCodeCoalesced	= code_coalesced
 			, raPatched		= code_patched
 			, raSpillClean		= code_spillclean
 			, raFinal		= code_final
@@ -210,8 +211,8 @@ regAlloc_spin
 			<- regSpill code_coalesced slotsFree rsSpill
 
 		-- recalculate liveness
-		let code_nat	= map stripLive code_spilled
-		code_relive	<- mapM regLiveness code_nat
+--		let code_nat	= map stripLive code_spilled
+		code_relive	<- mapM regLiveness code_spilled
 
 		-- record what happened in this stage for debugging
 		let stat	=