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

compiler.cfg.linear-scan.mapping: simplify

db4
Slava Pestov 2009-07-23 18:03:04 -05:00
parent 747a2d72c8
commit b1afd4c491
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/compiler/cfg/linear-scan/mapping/mapping.factor
View File

@ -44,17 +44,11 @@ M: register->register >insn
SYMBOL: froms SYMBOL: froms
SYMBOL: tos SYMBOL: tos
SINGLETONS: memory register ;
: from-loc ( operation -- obj ) from>> spill-slot? memory register ? ;
: to-loc ( operation -- obj ) to>> spill-slot? memory register ? ;
: from-reg ( operation -- seq ) : from-reg ( operation -- seq )
[ from-loc ] [ from>> ] [ reg-class>> ] tri 3array ; [ from>> ] [ reg-class>> ] bi 2array ;
: to-reg ( operation -- seq ) : to-reg ( operation -- seq )
[ to-loc ] [ to>> ] [ reg-class>> ] tri 3array ; [ to>> ] [ reg-class>> ] bi 2array ;
: start? ( operations -- pair ) : start? ( operations -- pair )
from-reg tos get key? not ; from-reg tos get key? not ;