diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-11-27 20:02:25 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-11-28 15:49:54 -0500 |
| commit | 55e621c38d51e1b1969f3477d07028cca87c71de (patch) | |
| tree | 9705f5f0203b5853cf8b91f2bfb675942f3b7508 /compiler/nativeGen/AsmCodeGen.hs | |
| parent | 16dd532e2a7b236f840cb2927d83184b265a381e (diff) | |
| download | haskell-55e621c38d51e1b1969f3477d07028cca87c71de.tar.gz | |
nativeGen: Use plusUFMList instead of foldr
Diffstat (limited to 'compiler/nativeGen/AsmCodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.hs b/compiler/nativeGen/AsmCodeGen.hs index 373852a4be..d11eada205 100644 --- a/compiler/nativeGen/AsmCodeGen.hs +++ b/compiler/nativeGen/AsmCodeGen.hs @@ -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) |