From e26161ff1c27a140fe64b34cb2e24b7da8939c3d Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 19 Jul 2012 11:54:41 +0100 Subject: [PATCH] no need to removeUnreachableBlocks We do this in lots of other places (blockConcat, CmmLayoutStack, etc.) --- compiler/cmm/CmmContFlowOpt.hs | 4 ++-- 1 file 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))) -- GitLab