inert-bitwise-tag-untag-insn

Vocabulary

compiler.cfg.representations.selection

Definition

USING: compiler.cfg.instructions ;

IN: compiler.cfg.representations.selection

UNION: inert-bitwise-tag-untag-insn ##and-imm ##or-imm
    ##xor-imm ;

Methods

USING: combinators combinators.short-circuit
compiler.cfg.representations.peephole
compiler.cfg.representations.selection generic kernel ;

M: inert-bitwise-tag-untag-insn optimize-insn
    {
        {
            [
                dup {
                    [ dst-tagged? ]
                    [ src1-tagged? ]
                    [ src2-tagged-bitwise? ]
                } 1&&
            ]
            [ >tagged-imm ]
        }
        [
            M\ inert-bitwise-tag-untag-insn optimize-insn
            (call-next-method)
        ]
    } cond ;