Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
e26161ff
Commit
e26161ff
authored
Jul 19, 2012
by
Simon Marlow
Browse files
no need to removeUnreachableBlocks
We do this in lots of other places (blockConcat, CmmLayoutStack, etc.)
parent
a4b249c4
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmContFlowOpt.hs
View file @
e26161ff
...
...
@@ -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
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment