?eliminate ( insn vn -- insn' )

Vocabulary

compiler.cfg.gvn

Inputs

insn	an object
vn	an object

Outputs

insn'

an object

Definition

USING: accessors compiler.cfg.gvn.avail compiler.cfg.utilities
kernel ;

IN: compiler.cfg.gvn

: ?eliminate ( insn vn -- insn' )
    dup available?
    [ [ dst>> dup make-available ] dip <copy> ]
    [ drop defs-available ] if ;