Commit 987530c1 authored by batterseapower's avatar batterseapower
Browse files

Follow Digraph changes in RegAllocLinear.hs

parent c2e459be
......@@ -797,7 +797,7 @@ joinToTargets block_live new_blocks instr (dest:dests) = do
delta <- getDeltaR
let graph = makeRegMovementGraph adjusted_assig dest_assig
let sccs = stronglyConnCompR graph
let sccs = stronglyConnCompFromEdgedVerticesR graph
fixUpInstrs <- mapM (handleComponent delta instr) sccs
block_id <- getUniqueR
......@@ -901,7 +901,7 @@ handleComponent delta instr (CyclicSCC ((vreg, (InReg sreg),dsts):rest))
= do
spill_id <- getUniqueR
(_, slot) <- spillR (RealReg sreg) spill_id
remainingFixUps <- mapM (handleComponent delta instr) (stronglyConnCompR rest)
remainingFixUps <- mapM (handleComponent delta instr) (stronglyConnCompFromEdgedVerticesR rest)
restoreAndFixInstr <- getRestoreMoves dsts slot
return ([instr] ++ concat remainingFixUps ++ restoreAndFixInstr)
......
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