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

compiler.cfg.ssa.interference.live-ranges: compute correct live ranges for ##phi instructions

db4
Slava Pestov 2010-05-17 05:41:52 -04:00
parent 0955f2c7eb
commit 6b7260a4a7
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/compiler/cfg/ssa/interference/live-ranges/live-ranges.factor
View File

@ -25,15 +25,23 @@ SYMBOLS: local-def-indices local-kill-indices ;
[ 1 + ] dip [ local-kill-indices get set-at ] with each [ 1 + ] dip [ local-kill-indices get set-at ] with each
] if ; ] if ;
: visit-insn ( insn n -- ) GENERIC: record-insn ( n insn -- )
2 * swap [ record-def ] [ record-uses ] 2bi ;
M: ##phi record-insn
record-def ;
M: vreg-insn record-insn
[ 2 * ] dip [ record-def ] [ record-uses ] 2bi ;
M: insn record-insn
2drop ;
SYMBOLS: def-indices kill-indices ; SYMBOLS: def-indices kill-indices ;
: compute-local-live-ranges ( bb -- ) : compute-local-live-ranges ( bb -- )
H{ } clone local-def-indices set H{ } clone local-def-indices set
H{ } clone local-kill-indices set H{ } clone local-kill-indices set
[ instructions>> [ visit-insn ] each-index ] [ instructions>> [ swap record-insn ] each-index ]
[ [ local-def-indices get ] dip def-indices get set-at ] [ [ local-def-indices get ] dip def-indices get set-at ]
[ [ local-kill-indices get ] dip kill-indices get set-at ] [ [ local-kill-indices get ] dip kill-indices get set-at ]
tri ; tri ;