From 0679fb5ec7fb6adf791c9ffd2a519c08da52afd2 Mon Sep 17 00:00:00 2001 From: Alex Vondrak Date: Sat, 2 Jul 2011 13:39:57 -0700 Subject: [PATCH] compiler.cfg.gvn.avail: kludgey fix for odd problem with updating avail sets --- extra/compiler/cfg/gvn/avail/avail.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/compiler/cfg/gvn/avail/avail.factor b/extra/compiler/cfg/gvn/avail/avail.factor index 0bae5cd268..e7d0db8cd3 100644 --- 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 ;