Commit e26161ff authored by Simon Marlow's avatar Simon Marlow

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) ...@@ -25,10 +25,10 @@ import Prelude hiding (succ, unzip, zip)
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
cmmCfgOpts :: CmmGraph -> CmmGraph cmmCfgOpts :: CmmGraph -> CmmGraph
cmmCfgOpts g = removeUnreachableBlocks $ fst (blockConcat g) cmmCfgOpts g = fst (blockConcat g)
cmmCfgOptsProc :: CmmDecl -> CmmDecl 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 where (g', env) = blockConcat g
info' = info{ info_tbls = new_info_tbls } info' = info{ info_tbls = new_info_tbls }
new_info_tbls = mapFromList (map upd_info (mapToList (info_tbls info))) new_info_tbls = mapFromList (map upd_info (mapToList (info_tbls info)))
......
Markdown is supported
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