diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-17 11:26:23 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-17 11:26:23 +0000 |
| commit | 46b03136fd39d033b6e0ee5e56c6df0bc4248feb (patch) | |
| tree | 771e5a15b9f4f3cff16e11ec6418675f05eb4f78 /compiler/cmm/CmmLive.hs | |
| parent | 919a298f8c55a343621d5f97d69fca7d74e0888b (diff) | |
| download | haskell-46b03136fd39d033b6e0ee5e56c6df0bc4248feb.tar.gz | |
Snapshot
Diffstat (limited to 'compiler/cmm/CmmLive.hs')
| -rw-r--r-- | compiler/cmm/CmmLive.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CmmLive.hs b/compiler/cmm/CmmLive.hs index 9a5bb2d5ae..50b2bf6ec2 100644 --- a/compiler/cmm/CmmLive.hs +++ b/compiler/cmm/CmmLive.hs @@ -18,7 +18,7 @@ import Control.Monad import OptimizationFuel import PprCmmExpr () -import Compiler.Hoopl +import Hoopl import Maybes import Outputable import UniqSet @@ -45,7 +45,7 @@ type BlockEntryLiveness = BlockEnv CmmLive cmmLiveness :: CmmGraph -> FuelUniqSM BlockEntryLiveness cmmLiveness graph = - liftM check $ liftM snd $ dataflowPassBwd graph [] $ analBwd liveLattice xferLive + liftM check $ dataflowAnalBwd graph [] $ analBwd liveLattice xferLive where entry = g_entry graph check facts = noLiveOnEntry entry (expectJust "check" $ mapLookup entry facts) facts |