nativeGen: Use plusUFMList instead of foldr
authorBen Gamari <ben@smart-cactus.org>
Tue, 28 Nov 2017 01:02:25 +0000 (20:02 -0500)
committerBen Gamari <ben@smart-cactus.org>
Tue, 28 Nov 2017 20:49:54 +0000 (15:49 -0500)
compiler/nativeGen/AsmCodeGen.hs

index 373852a..d11eada 100644 (file)
@@ -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)