-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
module StackColor where
import StackPlacements
import qualified GraphOps
import MachOp
import ZipCfg
-import ZipCfgCmm
-import ZipDataflow
+import ZipCfgCmmRep
+import ZipDataflow0
import Maybes
import Panic
foldConflicts :: (RegSet -> a -> a) -> a -> LGraph M Last -> a
foldConflicts f z g =
- let env = runDFA dualLiveLattice (run_b_anal dualLiveness g >> allFacts)
+ let env = runDFA dualLiveLattice (run_b_anal dualLiveness g >> getAllFacts)
lookup id = lookupBlockEnv env id `orElse` fact_bot dualLiveLattice
f' dual z = f (on_stack dual) z
in fold_edge_facts_b f' dualLiveness g lookup z