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

compiler.cfg.ssa.construction: more use of hash-sets.

db4
John Benediktsson 2013-03-10 10:03:11 -07:00
parent 4f0c404d87
commit c7c951f207
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/ssa/construction/construction.factor
View File

@ -44,7 +44,7 @@ M: insn compute-insn-defs 2drop ;
M: vreg-insn compute-insn-defs
defs-vregs [
defs get [ conjoin-at ] [ drop ] [ at assoc-size 1 > ] 2tri
defs get [ adjoin-at ] [ drop ] [ at cardinality 1 > ] 2tri
[ defs-multi get adjoin ] [ drop ] if
] with each ;
@ -64,7 +64,7 @@ SYMBOL: inserting-phis
inserting-phis get push-at ;
: compute-phis-for ( vreg bbs -- )
keys merge-set [ insert-phi-later ] with each ;
members merge-set [ insert-phi-later ] with each ;
: compute-phis ( -- )
H{ } clone inserting-phis set