insn>imm-insn ( insn op swap? -- new-insn )


Vocabulary
compiler.cfg.gvn.math

Inputs
insnan object
opan object
swap?an object


Outputs
new-insnan object


Definition
USING: accessors compiler.cfg.gvn.rewrite
compiler.cfg.instructions kernel ;

IN: compiler.cfg.gvn.math

: insn>imm-insn ( insn op swap? -- new-insn )
swap [
[ [ dst>> ] [ src1>> ] [ src2>> ] tri ] dip
[ swap ] when vreg>integer
] dip new-insn ; inline