rewrite-into-test? ( insn -- ? )

Vocabulary

compiler.cfg.gvn.comparisons

Inputs

insn

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit
compiler.cfg.comparisons cpu.architecture kernel sequences ;

IN: compiler.cfg.gvn.comparisons

: rewrite-into-test? ( insn -- ? )
    {
        [ drop test-instruction? ]
        [ cc>> { cc= cc/= } member-eq? ]
        [ src2>> 0 = ]
    } 1&& ;