projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
debbe39
)
Document CmmZipUtil
author
Max Bolingbroke
<batterseapower@hotmail.com>
Thu, 31 Jul 2008 01:23:35 +0000
(
01:23
+0000)
committer
Max Bolingbroke
<batterseapower@hotmail.com>
Thu, 31 Jul 2008 01:23:35 +0000
(
01:23
+0000)
compiler/cmm/CmmZipUtil.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/CmmZipUtil.hs
b/compiler/cmm/CmmZipUtil.hs
index
c414d49
..
6a343f8
100644
(file)
--- a/
compiler/cmm/CmmZipUtil.hs
+++ b/
compiler/cmm/CmmZipUtil.hs
@@
-11,7
+11,7
@@
import ZipCfg
import Maybes
import UniqSet
--- | Compute the predecessors of each *reachable* block
+-- | Compute the predecessors of each /reachable/ block
zipPreds :: LastNode l => LGraph m l -> BlockEnv BlockSet
zipPreds g = foldl add emptyBlockEnv (postorder_dfs g)
where add env block@(Block id _) =