diff options
author | Ben Gamari <ben@smart-cactus.org> | 2020-12-22 15:04:34 -0500 |
---|---|---|
committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-03-24 12:35:23 +0100 |
commit | 55fd158dfaebe96ef02d623b512b7559283a6f0a (patch) | |
tree | e1ab46c2cc87a7edd32dea0938467404f5b40c7a | |
parent | 25306ddc00c2236564bcfebd55a3f61ffa6d182e (diff) | |
download | haskell-55fd158dfaebe96ef02d623b512b7559283a6f0a.tar.gz |
CmmToAsm.Reg.Linear: Use concat rather than repeated (++)
-rw-r--r-- | compiler/GHC/CmmToAsm/Reg/Linear.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/CmmToAsm/Reg/Linear.hs b/compiler/GHC/CmmToAsm/Reg/Linear.hs index 19da3721e0..31bcbd1d68 100644 --- a/compiler/GHC/CmmToAsm/Reg/Linear.hs +++ b/compiler/GHC/CmmToAsm/Reg/Linear.hs @@ -595,8 +595,7 @@ genRaInsn block_live new_instrs block_id instr r_dying w_dying = do | src == dst -> [] _ -> [patched_instr] - let code = squashed_instr ++ w_spills ++ reverse r_spills - ++ clobber_saves ++ new_instrs + let code = concat [ squashed_instr, w_spills, reverse r_spills, clobber_saves, new_instrs ] -- pprTrace "patched-code" ((vcat $ map (docToSDoc . pprInstr) code)) $ do -- pprTrace "pached-fixup" ((ppr fixup_blocks)) $ do |