diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-07-19 11:54:41 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-07-30 11:56:20 +0100 |
| commit | e26161ff1c27a140fe64b34cb2e24b7da8939c3d (patch) | |
| tree | 7fb4b15cc910f4660e3f6ccae1b5c16a3c388366 | |
| parent | a4b249c479ebae6e832b350caef17da9efd8cb80 (diff) | |
| download | haskell-e26161ff1c27a140fe64b34cb2e24b7da8939c3d.tar.gz | |
no need to removeUnreachableBlocks
We do this in lots of other places (blockConcat, CmmLayoutStack, etc.)
| -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))) |