Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
987530c1
Commit
987530c1
authored
Jul 31, 2008
by
batterseapower
Browse files
Follow Digraph changes in RegAllocLinear.hs
parent
c2e459be
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/nativeGen/RegAllocLinear.hs
View file @
987530c1
...
...
@@ -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
=
stronglyConnComp
FromEdgedVertices
R
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
)
(
stronglyConnComp
FromEdgedVertices
R
rest
)
restoreAndFixInstr
<-
getRestoreMoves
dsts
slot
return
([
instr
]
++
concat
remainingFixUps
++
restoreAndFixInstr
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment