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

View File

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