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

diff --git a/extra/compiler/cfg/gvn/avail/avail.factor b/extra/compiler/cfg/gvn/avail/avail.factor
index 0bae5cd26803f5df06af739cdb28895f90746082..e7d0db8cd39f3847658cf72c5a79f1f093b3d83e 100644 (file)
--- a/extra/compiler/cfg/gvn/avail/avail.factor
+++ b/extra/compiler/cfg/gvn/avail/avail.factor
@@ -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 ;