Making alias analysis use sets
parent
da57436180
commit
1217dc9c6e
|
@ -298,14 +298,14 @@ SYMBOL: live-stores
|
||||||
histories get
|
histories get
|
||||||
values [
|
values [
|
||||||
values [ [ store? ] filter [ insn#>> ] map ] map concat
|
values [ [ store? ] filter [ insn#>> ] map ] map concat
|
||||||
] map concat unique
|
] map concat HS{ } set-like
|
||||||
live-stores set ;
|
live-stores set ;
|
||||||
|
|
||||||
GENERIC: eliminate-dead-stores* ( insn -- insn' )
|
GENERIC: eliminate-dead-stores* ( insn -- insn' )
|
||||||
|
|
||||||
: (eliminate-dead-stores) ( insn -- insn' )
|
: (eliminate-dead-stores) ( insn -- insn' )
|
||||||
dup insn-slot# [
|
dup insn-slot# [
|
||||||
insn# get live-stores get key? [
|
insn# get live-stores get in? [
|
||||||
drop f
|
drop f
|
||||||
] unless
|
] unless
|
||||||
] when ;
|
] when ;
|
||||||
|
|
Loading…
Reference in New Issue