vreg-immediate-comparand? ( vreg -- ? )

Vocabulary

compiler.cfg.value-numbering.rewrite

Inputs

vreg

an object

Outputs

?

an object

Definition

USING: accessors combinators compiler.cfg.instructions
compiler.cfg.value-numbering.graph cpu.architecture kernel
layouts ;

IN: compiler.cfg.value-numbering.rewrite

: vreg-immediate-comparand? ( vreg -- ? )
    vreg>insn {
        {
            [ dup ##load-integer? ]
            [ val>> tag-fixnum immediate-comparand? ]
        }
        {
            [ dup ##load-reference? ]
            [ obj>> immediate-comparand? ]
        }
        [ drop f ]
    } cond ;