X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FMain.hs;fp=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FMain.hs;h=40c3c00e5f6ccb4f39ee49aa41cd896666bd8a7f;hb=d8e54e50fd073c8f599da960ebc40f34905968b2;hp=35ec879eb233a0fd6277a0b273e00c142d781de5;hpb=888b4e89a4a4e3f39a3ba567c796b3a79b63bf61;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Graph/Main.hs b/compiler/nativeGen/RegAlloc/Graph/Main.hs
index 35ec879..40c3c00 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