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

nativeGen: Use plusUFMList instead of foldr

parent 16dd532e
...@@ -929,7 +929,7 @@ generateJumpTables ncgImpl xs = concatMap f xs ...@@ -929,7 +929,7 @@ generateJumpTables ncgImpl xs = concatMap f xs
shortcutBranches shortcutBranches
:: DynFlags :: DynFlags
-> NcgImpl statics instr jumpDest -> NcgImpl statics instr jumpDest
-> [NatCmmDecl statics instr] -> [NatCmmDecl statics instr]
-> [NatCmmDecl statics instr] -> [NatCmmDecl statics instr]
...@@ -938,7 +938,7 @@ shortcutBranches dflags ncgImpl tops ...@@ -938,7 +938,7 @@ shortcutBranches dflags ncgImpl tops
| otherwise = map (apply_mapping ncgImpl mapping) tops' | otherwise = map (apply_mapping ncgImpl mapping) tops'
where where
(tops', mappings) = mapAndUnzip (build_mapping ncgImpl) tops (tops', mappings) = mapAndUnzip (build_mapping ncgImpl) tops
mapping = foldr plusUFM emptyUFM mappings mapping = plusUFMList mappings
build_mapping :: NcgImpl statics instr jumpDest build_mapping :: NcgImpl statics instr jumpDest
-> GenCmmDecl d (LabelMap t) (ListGraph instr) -> 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