diff options
author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-11-25 18:55:28 +0100 |
---|---|---|
committer | Ben Gamari <ben@well-typed.com> | 2020-12-14 10:31:58 -0500 |
commit | f081501e98a0a9639487805dd99a1b3c94b55d7f (patch) | |
tree | d3e7d5a8b560ac17805aed05fa142fb040f21982 | |
parent | 3a1af9bf859eba969fb217c6b885d97923ce6412 (diff) | |
download | haskell-f081501e98a0a9639487805dd99a1b3c94b55d7f.tar.gz |
RegAlloc: Add missing raPlatformfield to RegAllocStatsSpill
Fixes #18994
Co-Author: Benjamin Maurer <maurer.benjamin@gmail.com>
(cherry picked from commit 3e3555cc9c2a9f5246895f151259fd2a81621f38)
-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 fad2750ef4..54bb0e775e 100644 --- a/compiler/GHC/CmmToAsm/Reg/Graph.hs +++ b/compiler/GHC/CmmToAsm/Reg/Graph.hs @@ -278,7 +278,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 a0b1519a93..d15501de2f 100644 --- a/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs +++ b/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs @@ -73,7 +73,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 |