diff options
| author | benl@ouroborus.net <unknown> | 2010-06-24 08:26:25 +0000 |
|---|---|---|
| committer | benl@ouroborus.net <unknown> | 2010-06-24 08:26:25 +0000 |
| commit | 1c0deb50a7d84e14e0a425a0e1b4293c19718bb3 (patch) | |
| tree | 60c4da812b382741f62b2be38d6e0d7efda6acff /compiler/nativeGen/RegAlloc/Graph/Main.hs | |
| parent | c66391a745efa86bab4e9659e4d04ba514359164 (diff) | |
| download | haskell-1c0deb50a7d84e14e0a425a0e1b4293c19718bb3.tar.gz | |
NCG: Fix dumping of graphs in regalloc stats for graph allocator
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/Main.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/Main.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/Main.hs b/compiler/nativeGen/RegAlloc/Graph/Main.hs index 093c21159f..6b01298ac6 100644 --- a/compiler/nativeGen/RegAlloc/Graph/Main.hs +++ b/compiler/nativeGen/RegAlloc/Graph/Main.hs @@ -175,7 +175,8 @@ regAlloc_spin -- record what happened in this stage for debugging let stat = RegAllocStatsColored - { raGraph = graph + { raCode = code + , raGraph = graph , raGraphColored = graph_colored_lint , raCoalesced = rmCoalesce , raCodeCoalesced = code_coalesced @@ -217,7 +218,8 @@ regAlloc_spin -- record what happened in this stage for debugging let stat = RegAllocStatsSpill - { raGraph = graph_colored_lint + { raCode = code + , raGraph = graph_colored_lint , raCoalesced = rmCoalesce , raSpillStats = spillStats , raSpillCosts = spillCosts |