(temporarily) check consistency of new postorder DFS no matter what DEBUG is

4559ed11 · nr@eecs.harvard.edu · f33b7c70 · 4559ed11
Commit 4559ed11 authored Sep 15, 2007 by nr@eecs.harvard.edu
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

compiler/cmm/ZipCfg.hs compiler/cmm/ZipCfg.hs +2 -1

No files found.
--- a/compiler/cmm/ZipCfg.hs
+++ b/compiler/cmm/ZipCfg.hs
@@ -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]