>compare-imm ( insn swap? -- insn' )

Vocabulary

compiler.cfg.gvn.comparisons

Inputs

insn	an object
swap?	an object

Outputs

insn'

an object

Definition

USING: compiler.cfg.gvn.rewrite compiler.cfg.instructions
compiler.cfg.registers kernel ;

IN: compiler.cfg.gvn.comparisons

: >compare-imm ( insn swap? -- insn' )
    (>compare-imm) [ vreg>literal ] dip
    next-vreg ##compare-imm new-insn ; inline