From 4fbc855849967402474763cb8afba92716c48e41 Mon Sep 17 00:00:00 2001 From: Ben Gamari Date: Thu, 7 Jan 2021 22:38:26 -0500 Subject: Eliminate selector thunk allocations --- compiler/GHC/CmmToAsm/Reg/Linear.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/GHC/CmmToAsm/Reg/Linear.hs b/compiler/GHC/CmmToAsm/Reg/Linear.hs index b8159c0907..586c1fbaf3 100644 --- a/compiler/GHC/CmmToAsm/Reg/Linear.hs +++ b/compiler/GHC/CmmToAsm/Reg/Linear.hs @@ -253,7 +253,7 @@ linearRegAlloc' linearRegAlloc' config initFreeRegs entry_ids block_live sccs = do us <- getUniqueSupplyM - let (_, stack, stats, blocks) = + let !(_, !stack, !stats, !blocks) = runR config mapEmpty initFreeRegs emptyRegMap emptyStackMap us $ linearRA_SCCs entry_ids block_live [] sccs return (blocks, stats, getStackUse stack) -- cgit v1.2.1