evaluate-compare-imm ( insn -- ? )

Vocabulary

compiler.cfg.gvn.comparisons

Inputs

insn

an object

Outputs

?

an object

Definition

USING: accessors combinators compiler.cfg.comparisons
compiler.cfg.gvn.rewrite kernel ;

IN: compiler.cfg.gvn.comparisons

: evaluate-compare-imm ( insn -- ? )
    [ src1>> vreg>literal ] [ src2>> ] [ cc>> ] tri
    { { cc= [ eq? ] } { cc/= [ eq? not ] } } case ;