projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
minor changes to Cmm left over from September 2007
[ghc-hetmet.git]
/
compiler
/
cmm
/
CmmProcPointZ.hs
diff --git
a/compiler/cmm/CmmProcPointZ.hs
b/compiler/cmm/CmmProcPointZ.hs
index
059b5f2
..
fc6b726
100644
(file)
--- a/
compiler/cmm/CmmProcPointZ.hs
+++ b/
compiler/cmm/CmmProcPointZ.hs
@@
-132,7
+132,7
@@
extendPPSet g blocks procPoints =
Nothing -> procPoints'
where env = runDFA lattice $
do refine_f_anal forward g set_init_points
- allFacts
+ getAllFacts
set_init_points = mapM_ (\id -> setFact id ProcPoint)
(uniqSetToList procPoints)
procPoints' = fold_blocks add emptyBlockSet g