Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
4559ed11
Commit
4559ed11
authored
Sep 15, 2007
by
nr@eecs.harvard.edu
Browse files
(temporarily) check consistency of new postorder DFS no matter what DEBUG is
parent
f33b7c70
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/ZipCfg.hs
View file @
4559ed11
...
...
@@ -463,7 +463,8 @@ postorder_dfs g@(LGraph _ blockenv) =
dfs1
=
zip
eblock
:
postorder_dfs_from_except
blockenv
eblock
(
unitUniqSet
id
)
dfs2
=
postorder_dfs'
g
in
ASSERT
(
map
blockId
dfs1
==
map
blockId
dfs2
)
dfs2
-- in ASSERT (map blockId dfs1 == map blockId dfs2) dfs2
in
if
(
map
blockId
dfs1
==
map
blockId
dfs2
)
then
dfs2
else
panic
"inconsistent DFS"
postorder_dfs_from
::
(
HavingSuccessors
b
,
LastNode
l
)
=>
BlockEnv
(
Block
m
l
)
->
b
->
[
Block
m
l
]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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