X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocColor.hs;fp=compiler%2FnativeGen%2FRegAllocColor.hs;h=271c1a5ebcdbb976369383557d9b491293002bd3;hb=a12bf21a5e9c2b7888cd0ed0c60b9ec1e7295df1;hp=c2cefc3da40012be5d02a5bbefcedb3bc3e7f8d5;hpb=d438785e9c5e47e6e1ed3bfafcd504a2f1c8c774;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs
index c2cefc3..271c1a5 100644
--- a/compiler/nativeGen/RegAllocColor.hs
+++ b/compiler/nativeGen/RegAllocColor.hs
@@ -135,7 +135,7 @@ regAlloc_spin dflags (spinCount :: Int) triv regsFree slotsFree debug_codeGraphs
 		let code_spillclean	= map cleanSpills code_patched
 
 		-- strip off liveness information
-		let code_nat		= map stripLive code_patched
+		let code_nat		= map stripLive code_spillclean
 
 		-- rewrite SPILL/RELOAD pseudos into real instructions
 		let spillNatTop		= mapGenBlockTop spillNatBlock