scale-insn? ( insn -- ? )

Vocabulary

compiler.cfg.gvn.alien

Inputs

insn

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit
compiler.cfg.instructions sequences ;

IN: compiler.cfg.gvn.alien

: scale-insn? ( insn -- ? )
    { [ ##shl-imm? ] [ src2>> { 1 2 3 } member? ] } 1&& ;