Commit 27241cd4 authored by batterseapower's avatar batterseapower
Browse files

Follow Digraph changes in RegLiveness

parent 987530c1
...@@ -502,7 +502,7 @@ regLiveness (CmmProc info lbl params (ListGraph blocks@(first : _))) ...@@ -502,7 +502,7 @@ regLiveness (CmmProc info lbl params (ListGraph blocks@(first : _)))
sccBlocks :: [NatBasicBlock] -> [SCC NatBasicBlock] sccBlocks :: [NatBasicBlock] -> [SCC NatBasicBlock]
sccBlocks blocks = stronglyConnComp graph sccBlocks blocks = stronglyConnCompFromEdgedVertices graph
where where
getOutEdges :: [Instr] -> [BlockId] getOutEdges :: [Instr] -> [BlockId]
getOutEdges instrs = foldl' (\a x -> jumpDests x a) [] instrs getOutEdges instrs = foldl' (\a x -> jumpDests x a) [] instrs
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment