diff options
| -rw-r--r-- | compiler/cmm/CmmContFlowOpt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CmmContFlowOpt.hs b/compiler/cmm/CmmContFlowOpt.hs index f504f46575..1988169155 100644 --- a/compiler/cmm/CmmContFlowOpt.hs +++ b/compiler/cmm/CmmContFlowOpt.hs @@ -25,10 +25,10 @@ import Prelude hiding (succ, unzip, zip) ----------------------------------------------------------------------------- cmmCfgOpts :: CmmGraph -> CmmGraph -cmmCfgOpts g = removeUnreachableBlocks $ fst (blockConcat g) +cmmCfgOpts g = fst (blockConcat g) cmmCfgOptsProc :: CmmDecl -> CmmDecl -cmmCfgOptsProc (CmmProc info lbl g) = CmmProc info' lbl (removeUnreachableBlocks g') +cmmCfgOptsProc (CmmProc info lbl g) = CmmProc info' lbl g' where (g', env) = blockConcat g info' = info{ info_tbls = new_info_tbls } new_info_tbls = mapFromList (map upd_info (mapToList (info_tbls info))) |