-- 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
-- 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