useful-instruction ( insn expr -- )

Vocabulary

compiler.cfg.gvn

Inputs

insn	an object
expr	an object

Outputs

None

Definition

USING: accessors assocs compiler.cfg.gvn.graph namespaces ;

IN: compiler.cfg.gvn

:: useful-instruction ( insn expr -- )
    insn dst>> :> vn vn vn set-vn vn expr exprs>vns get set-at
    insn vn vns>insns get set-at ;