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

compiler.cfg.gvn.avail: kludgey fix for odd problem with updating avail sets

db4
Alex Vondrak 2011-07-02 13:39:57 -07:00 committed by John Benediktsson
parent b90187a7b0
commit a9aebc2854
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/compiler/cfg/gvn/avail/avail.factor
View File

@ -27,7 +27,7 @@ M: avail-analysis transfer-set drop defined assoc-union ;
: available? ( vn -- ? ) : available? ( vn -- ? )
final-iteration? get [ final-iteration? get [
basic-block get avail-ins get at key? basic-block get avail-in key?
] [ drop t ] if ; ] [ drop t ] if ;
: available-uses? ( insn -- ? ) : available-uses? ( insn -- ? )
@ -38,4 +38,4 @@ M: avail-analysis transfer-set drop defined assoc-union ;
: make-available ( insn -- insn ) : make-available ( insn -- insn )
dup dst>> dup dst>>
basic-block get avail-ins get [ dupd ?set-at ] change-at ; basic-block get avail-ins get [ dupd clone ?set-at ] change-at ;