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