diff options
Diffstat (limited to 'compiler')
| -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 |