From c7c951f20789b2a555740e96cd3ebdf2e3412b14 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 10 Mar 2013 10:03:11 -0700 Subject: [PATCH] compiler.cfg.ssa.construction: more use of hash-sets. --- basis/compiler/cfg/ssa/construction/construction.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/cfg/ssa/construction/construction.factor b/basis/compiler/cfg/ssa/construction/construction.factor index 8a734a4ee4..e395f52e22 100644 --- a/basis/compiler/cfg/ssa/construction/construction.factor +++ b/basis/compiler/cfg/ssa/construction/construction.factor @@ -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