distribute ( insn add-op mul-op -- new-insns/f )

Vocabulary

compiler.cfg.gvn.math

Inputs

insn	an object
add-op	an object
mul-op	an object

Outputs

new-insns/f

an object

Definition

USING: accessors compiler.cfg.gvn.folding compiler.cfg.gvn.graph
compiler.cfg.registers kernel ;

IN: compiler.cfg.gvn.math

: distribute ( insn add-op mul-op -- new-insns/f )
    [
        dup src1>> vreg>insn 2dup src2>> swap [ src2>> ] keep
        binary-constant-fold* next-vreg
    ] 2dip (distribute) ; inline