Better handling of live range joins via spill slots in spill cleaner

[ghc-hetmet.git] / compiler / nativeGen / RegAllocColor.hs

diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs
index c2cefc3..271c1a5 100644 (file)
--- 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