Making alias analysis use sets

2010-02-28 22:42:10 -05:00 · 2010-02-28 22:42:10 -05:00 · 1217dc9c6e
parent da57436180
commit 1217dc9c6e
1 changed files with 2 additions and 2 deletions
--- a/basis/compiler/cfg/alias-analysis/alias-analysis.factor
+++ b/basis/compiler/cfg/alias-analysis/alias-analysis.factor
@ -298,14 +298,14 @@ SYMBOL: live-stores
    histories get
    values [
        values [ [ store? ] filter [ insn#>> ] map ] map concat
-    ] map concat unique
+    ] map concat HS{ } set-like
    live-stores set ;

 GENERIC: eliminate-dead-stores* ( insn -- insn' )

 : (eliminate-dead-stores) ( insn -- insn' )
    dup insn-slot# [
-        insn# get live-stores get key? [
+        insn# get live-stores get in? [
            drop f
        ] unless
    ] when ;