Commit e26161ff authored by Simon Marlow's avatar Simon Marlow
Browse files

no need to removeUnreachableBlocks

We do this in lots of other places (blockConcat, CmmLayoutStack, etc.)
parent a4b249c4
......@@ -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)))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment