diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-01-07 22:38:26 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-17 19:07:47 -0400 |
| commit | 4fbc855849967402474763cb8afba92716c48e41 (patch) | |
| tree | b1e9874fe1eac65c52b853bb044b1759f1d9eab9 | |
| parent | 665b757f48e8dab2bab6d68afc3748a8d8896d2f (diff) | |
| download | haskell-4fbc855849967402474763cb8afba92716c48e41.tar.gz | |
Eliminate selector thunk allocations
| -rw-r--r-- | compiler/GHC/CmmToAsm/Reg/Linear.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |