diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-11-25 18:55:28 +0100 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-11-25 20:24:53 +0100 |
| commit | 4f8929a82f4bf363b60bad959833b58b7c616388 (patch) | |
| tree | a3671aa9a6d9ddd19fac434bf2c6efb17fdabba7 | |
| parent | 6815603f271484766425ff2e37043b78da2d073c (diff) | |
| download | haskell-wip/andreask/raPlatform_fix.tar.gz | |
RegAlloc: Add missing raPlatformfield to RegAllocStatsSpillwip/andreask/raPlatform_fix
Fixes #18994
Co-Author: Benjamin Maurer <maurer.benjamin@gmail.com>
| -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 |