Add vreg-population-lifetimes to drop-asm-stats

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

diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs
index 933c8ab..40e3bc3 100644 (file)
--- a/compiler/nativeGen/RegAllocColor.hs
+++ b/compiler/nativeGen/RegAllocColor.hs
@@ -103,7 +103,8 @@ regAlloc_spin (spinCount :: Int) triv regsFree slotsFree debug_codeGraphs code
                        RegAllocStatsColored
                        { raLiveCmm     = code
                        , raGraph       = graph_colored
-                       , raPatchedCmm  = code_patched }
+                       , raPatchedCmm  = code_patched
+                       , raLifetimes   = fmLife }
 
                return  ( code_nat
                        , debug_codeGraphs ++ [stat]
@@ -123,7 +124,8 @@ regAlloc_spin (spinCount :: Int) triv regsFree slotsFree debug_codeGraphs code
                        RegAllocStatsSpill
                        { raLiveCmm     = code_spilled
                        , raGraph       = graph_colored
-                       , raSpillStats  = spillStats }
+                       , raSpillStats  = spillStats
+                       , raLifetimes   = fmLife }
                                
                -- try again
                regAlloc_spin (spinCount + 1) triv regsFree slotsFree'