diff options
Diffstat (limited to 'compiler/cmm/CmmContFlowOpt.hs')
| -rw-r--r-- | compiler/cmm/CmmContFlowOpt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmContFlowOpt.hs b/compiler/cmm/CmmContFlowOpt.hs index ed953ac5a8..b825f86275 100644 --- a/compiler/cmm/CmmContFlowOpt.hs +++ b/compiler/cmm/CmmContFlowOpt.hs @@ -402,7 +402,7 @@ removeUnreachableBlocksProc proc@(CmmProc info lbl live g) -- Remove any info_tbls for unreachable keep_used :: BlockEnv CmmInfoTable -> BlockEnv CmmInfoTable - keep_used bs = mapFoldWithKey keep emptyBlockMap bs + keep_used bs = mapFoldWithKey keep mapEmpty bs keep :: Label -> CmmInfoTable -> BlockEnv CmmInfoTable -> BlockEnv CmmInfoTable keep l i env | l `setMember` used_lbls = mapInsert l i env |