Add a count of how many spill/reloads/reg-reg-moves remain to dump-asm-stats

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

diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs
index 5a3401f..d5ec7af 100644 (file)
--- a/compiler/nativeGen/RegAllocColor.hs
+++ b/compiler/nativeGen/RegAllocColor.hs
@@ -125,7 +125,8 @@ regAlloc_spin dump (spinCount :: Int) triv regsFree slotsFree debug_codeGraphs c
                        { raGraph       = graph_colored
                        , raPatched     = code_patched
                        , raSpillClean  = code_spillclean
-                       , raFinal       = code_final }
+                       , raFinal       = code_final
+                       , raSRMs        = foldl addSRM (0, 0, 0) $ map countSRMs code_spillclean }
 
                return  ( code_final
                        , if dump