diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:35 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:35 +0000 |
| commit | 3269b15da0e701820b765003eeb3b931560bf645 (patch) | |
| tree | af88e1f1426dae406cd18e2aee57f6857e851f42 /compiler/cmm/CmmZipUtil.hs | |
| parent | debbe39a1780f7dd02e54b0e846b79027ed2a20e (diff) | |
| download | haskell-3269b15da0e701820b765003eeb3b931560bf645.tar.gz | |
Document CmmZipUtil
Diffstat (limited to 'compiler/cmm/CmmZipUtil.hs')
| -rw-r--r-- | compiler/cmm/CmmZipUtil.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmZipUtil.hs b/compiler/cmm/CmmZipUtil.hs index c414d496eb..6a343f836f 100644 --- 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 _) = |