>tagged-shift ( insn -- )

Vocabulary

compiler.cfg.representations.peephole

Inputs

insn

an object

Outputs

None

Definition

USING: accessors layouts math namespaces ;

IN: compiler.cfg.representations.peephole

: >tagged-shift ( insn -- )
    [ tag-bits get + ] change-src2 finish ; inline