Commit 55e621c3 authored by Ben Gamari's avatar Ben Gamari 🐢

nativeGen: Use plusUFMList instead of foldr

parent 16dd532e
......@@ -929,7 +929,7 @@ generateJumpTables ncgImpl xs = concatMap f xs
shortcutBranches
:: DynFlags
-> NcgImpl statics instr jumpDest
-> NcgImpl statics instr jumpDest
-> [NatCmmDecl statics instr]
-> [NatCmmDecl statics instr]
......@@ -938,7 +938,7 @@ shortcutBranches dflags ncgImpl tops
| otherwise = map (apply_mapping ncgImpl mapping) tops'
where
(tops', mappings) = mapAndUnzip (build_mapping ncgImpl) tops
mapping = foldr plusUFM emptyUFM mappings
mapping = plusUFMList mappings
build_mapping :: NcgImpl statics instr jumpDest
-> GenCmmDecl d (LabelMap t) (ListGraph instr)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment