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:
a178895
)
Document ZipCfg
author
Max Bolingbroke
<batterseapower@hotmail.com>
Thu, 31 Jul 2008 01:23:36 +0000
(
01:23
+0000)
committer
Max Bolingbroke
<batterseapower@hotmail.com>
Thu, 31 Jul 2008 01:23:36 +0000
(
01:23
+0000)
compiler/cmm/ZipCfg.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/ZipCfg.hs
b/compiler/cmm/ZipCfg.hs
index
5681694
..
78eeaed
100644
(file)
--- a/
compiler/cmm/ZipCfg.hs
+++ b/
compiler/cmm/ZipCfg.hs
@@
-405,7
+405,7
@@
splitp_blocks p blocks = lift $ foldUFM scan (Nothing, emptyBlockEnv) blocks
lift (Nothing, _) = Nothing
lift (Just b, bs) = Just (b, bs)
--- | 'insertBlock' should not be used to *replace* an existing block
+-- | 'insertBlock' should not be used to /replace/ an existing block
-- but only to insert a new one
insertBlock :: Block m l -> BlockEnv (Block m l) -> BlockEnv (Block m l)
insertBlock b bs =