steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.cfg.linear-scan.assignment: refactoring vreg>reg and 

assign-registers-in-block so locals aren't needed
db4
Björn Lindqvist 2015-04-22 15:06:32 +02:00 committed by John Benediktsson
parent 135d7f5ff3
commit 2077ae9180
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/compiler/cfg/linear-scan/assignment/assignment.factor
View File

@ -5,7 +5,7 @@ compiler.cfg.linearization compiler.cfg.liveness compiler.cfg.registers
compiler.cfg.instructions compiler.cfg.linear-scan.allocation.state
compiler.cfg.linear-scan.live-intervals compiler.cfg.renaming.functor
compiler.cfg.ssa.destruction.leaders cpu.architecture
fry heaps kernel locals make math namespaces sequences sets ;
fry heaps kernel make math namespaces sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.linear-scan.assignment
@ -22,11 +22,9 @@ SYMBOL: pending-interval-assoc
: remove-pending ( live-interval -- )
vreg>> pending-interval-assoc get delete-at ;
:: vreg>reg ( vreg -- reg/spill-slot )
vreg leader :> leader
leader pending-interval-assoc get at* [
drop leader vreg rep-of lookup-spill-slot
] unless ;
: vreg>reg ( vreg -- reg/spill-slot )
dup leader dup pending-interval-assoc get at
[ 2nip ] [ swap rep-of lookup-spill-slot ] if* ;
ERROR: not-spilled-error vreg ;
@ -124,9 +122,9 @@ M: insn assign-registers-in-insn drop ;
[ compute-live-in ]
} cleave ;
:: assign-registers-in-block ( bb -- )
bb begin-block
bb [
: assign-registers-in-block ( bb -- )
dup begin-block
[
[
[
{
@ -137,9 +135,7 @@ M: insn assign-registers-in-insn drop ;
} cleave
] each
] V{ } make
] change-instructions drop
bb compute-live-out ;
] change-instructions compute-live-out ;
: init-assignment ( live-intervals -- )
[ [ start>> ] map ] keep zip >min-heap unhandled-intervals set