projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9259deb
)
overlooked ZipCfgExtras for a name change
author
Norman Ramsey
<nr@eecs.harvard.edu>
Wed, 12 Sep 2007 09:39:20 +0000
(09:39 +0000)
committer
Norman Ramsey
<nr@eecs.harvard.edu>
Wed, 12 Sep 2007 09:39:20 +0000
(09:39 +0000)
compiler/cmm/ZipCfgExtras.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/ZipCfgExtras.hs
b/compiler/cmm/ZipCfgExtras.hs
index
1cd2fa9
..
e4bd1ae
100644
(file)
--- a/
compiler/cmm/ZipCfgExtras.hs
+++ b/
compiler/cmm/ZipCfgExtras.hs
@@
-51,11
+51,11
@@
exit g@(LGraph eid _) = FGraph eid (ZBlock h (ZLast l)) others
splice_focus_entry (FGraph eid (ZBlock head tail) blocks) g =
let (tail', g') = splice_tail g tail in
splice_focus_entry (FGraph eid (ZBlock head tail) blocks) g =
let (tail', g') = splice_tail g tail in
- FGraph eid (ZBlock head tail') (plusUFM (gr_blocks g') blocks)
+ FGraph eid (ZBlock head tail') (plusUFM (lg_blocks g') blocks)
splice_focus_exit (FGraph eid (ZBlock head tail) blocks) g =
let (g', head') = splice_head head g in
splice_focus_exit (FGraph eid (ZBlock head tail) blocks) g =
let (g', head') = splice_head head g in
- FGraph eid (ZBlock head' tail) (plusUFM (gr_blocks g') blocks)
+ FGraph eid (ZBlock head' tail) (plusUFM (lg_blocks g') blocks)
-- | Fold from first to last
fold_fwd_block ::
-- | Fold from first to last
fold_fwd_block ::