diff options
-rw-r--r-- | compiler/GHC/CmmToAsm/Reg/Graph.hs | 3 | ||||
-rw-r--r-- | compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs | 6 |
2 files changed, 7 insertions, 2 deletions
diff --git a/compiler/GHC/CmmToAsm/Reg/Graph.hs b/compiler/GHC/CmmToAsm/Reg/Graph.hs index b8b1e48efb..9cbe12caee 100644 --- a/compiler/GHC/CmmToAsm/Reg/Graph.hs +++ b/compiler/GHC/CmmToAsm/Reg/Graph.hs @@ -283,7 +283,8 @@ regAlloc_spin config spinCount triv regsFree slotsFree slotsCount debug_codeGrap , raCoalesced = rmCoalesce , raSpillStats = spillStats , raSpillCosts = spillCosts - , raSpilled = code_spilled } + , raSpilled = code_spilled + , raPlatform = platform } -- Bundle up all the register allocator statistics. -- .. but make sure to drop them on the floor if they're not diff --git a/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs b/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs index 534c6f0bbb..6b883f53eb 100644 --- a/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs +++ b/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs @@ -79,7 +79,11 @@ data RegAllocStats statics instr , raSpillCosts :: SpillCostInfo -- | Code with spill instructions added. - , raSpilled :: [LiveCmmDecl statics instr] } + , raSpilled :: [LiveCmmDecl statics instr] + + -- | Target platform + , raPlatform :: !Platform + } -- a successful coloring |