combine-shl-imm-input ( insn -- )

Vocabulary

compiler.cfg.representations.peephole

Inputs

insn

an object

Outputs

None

Definition

USING: accessors combinators compiler.cfg.instructions
cpu.architecture kernel layouts math namespaces ;

IN: compiler.cfg.representations.peephole

: combine-shl-imm-input ( insn -- )
    [ dst>> ] [ src1>> ] [ src2>> ] tri tag-bits get {
        { [ 2dup < ] [ swap - ##sar-imm, here ] }
        { [ 2dup > ] [ - ##shl-imm, here ] }
        [ 2drop int-rep ##copy, here ]
    } cond ;