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

Vocabulary

compiler.cfg.gvn.rewrite

Inputs

vreg

an object

Outputs

?

an object

Definition

USING: accessors combinators compiler.cfg.gvn.graph
compiler.cfg.instructions cpu.architecture kernel layouts ;

IN: compiler.cfg.gvn.rewrite

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