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

compiler.cfg.linear-scan: fix resolve pass

db4
Slava Pestov 2009-07-28 08:47:35 -05:00
parent 3edf4a2b75
commit e6f5eab598
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/linear-scan/resolve/resolve.factor
View File

@ -23,7 +23,7 @@ SYMBOL: spill-temps
:: resolve-value-data-flow ( bb to vreg -- )
vreg bb vreg-at-end
vreg to vreg-at-start
2dup eq? [ 2drop ] [ vreg reg-class>> add-mapping ] if ;
2dup = [ 2drop ] [ vreg reg-class>> add-mapping ] if ;
: compute-mappings ( bb to -- mappings )
[
@ -58,7 +58,7 @@ SYMBOL: temp
} cond ;
: mapping-instructions ( alist -- insns )
>hashtable
[ swap ] H{ } assoc-map-as
[ temp [ swap >insn ] parallel-mapping ] { } make ;
: perform-mappings ( bb to mappings -- )

2
basis/compiler/cfg/parallel-copy/parallel-copy.factor
View File

@ -23,7 +23,7 @@ SYMBOLS: temp locs preds to-do ready ;
temp set
<dlist> to-do set
<dlist> ready set
[ [ eq? not ] assoc-filter preds set ]
[ preds set ]
[ [ nip dup ] H{ } assoc-map-as locs set ]
[ keys [ init-to-do ] [ init-ready ] bi ] tri ;