>avail-insn-uses ( insn -- )

Vocabulary

compiler.cfg.gvn.avail

Inputs

insn

an object

Outputs

None

Definition

IN: compiler.cfg.gvn.avail

GENERIC: >avail-insn-uses ( insn -- )

Methods

USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##abs-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##add-float >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##add-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##add-sub-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##add-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##add >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions generic kernel ;

M: ##alien-indirect >avail-insn-uses
    [ dup >avail-vreg or* ] change-src
    M\ ##alien-indirect >avail-insn-uses (call-next-method) ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##and-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##and-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##and >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##andn-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##avg-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##bit-count >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##bit-test >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##box-alien >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##box-displaced-alien >avail-insn-uses
    [ dup >avail-vreg or* ] change-displacement
    [ dup >avail-vreg or* ] change-base drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##box-long-long >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##box >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors arrays compiler.cfg.gvn.avail
compiler.cfg.instructions kernel sequences ;

M: ##callback-outputs >avail-insn-uses
    [ [ first3 [ dup >avail-vreg or* ] 2dip 3array ] map ]
    change-reg-inputs drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-branch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-float-ordered-branch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-float-ordered >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-float-unordered-branch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-float-unordered >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-imm-branch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-integer-branch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-integer-imm-branch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-integer-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-integer >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##compare >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##convert-integer >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##copy >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##dispatch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##div-float >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##div-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##dot-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##double>single-float >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##fixnum-add >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##fixnum-mul >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##fixnum-sub >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##float-pack-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##float>integer-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##float>integer >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##gather-int-vector-2 >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##gather-int-vector-4 >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2
    [ dup >avail-vreg or* ] change-src3
    [ dup >avail-vreg or* ] change-src4 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##gather-vector-2 >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##gather-vector-4 >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2
    [ dup >avail-vreg or* ] change-src3
    [ dup >avail-vreg or* ] change-src4 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##horizontal-add-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##horizontal-shl-vector-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##horizontal-shr-vector-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##horizontal-sub-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##integer>float-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##integer>float >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##integer>scalar >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##load-memory-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-base drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##load-memory >avail-insn-uses
    [ dup >avail-vreg or* ] change-base
    [ dup >avail-vreg or* ] change-displacement drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##log2 >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##max-float >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##max-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##max >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##merge-vector-head >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##merge-vector-tail >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##min-float >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##min-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##min >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##move-vector-mask >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##mul-float >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##mul-high-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##mul-horizontal-add-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##mul-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##mul-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##mul >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##neg >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##not-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##not >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##or-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##or-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##or >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors arrays compiler.cfg.gvn.avail
compiler.cfg.instructions kernel sequences ;

M: ##parallel-copy >avail-insn-uses
    [ [ first2 [ dup >avail-vreg or* ] call 2array ] map ]
    change-values drop ;


USING: accessors assocs compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##phi >avail-insn-uses
    [ [ dup >avail-vreg or* ] assoc-map ] change-inputs drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##replace >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##sad-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##sar-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##sar >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##saturated-add-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##saturated-mul-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##saturated-sub-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##scalar>integer >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##scalar>vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##select-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##set-slot-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src
    [ dup >avail-vreg or* ] change-obj drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##set-slot >avail-insn-uses
    [ dup >avail-vreg or* ] change-src
    [ dup >avail-vreg or* ] change-obj
    [ dup >avail-vreg or* ] change-slot drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##set-vm-field >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shl-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shl-vector-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shl-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shl >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shr-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shr-vector-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shr-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shr >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shuffle-vector-halves-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shuffle-vector-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##shuffle-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src
    [ dup >avail-vreg or* ] change-shuffle drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##signed-pack-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##single>double-float >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##slot-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-obj drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##slot >avail-insn-uses
    [ dup >avail-vreg or* ] change-obj
    [ dup >avail-vreg or* ] change-slot drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##spill >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##sqrt-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##sqrt >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##store-memory-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src
    [ dup >avail-vreg or* ] change-base drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##store-memory >avail-insn-uses
    [ dup >avail-vreg or* ] change-src
    [ dup >avail-vreg or* ] change-base
    [ dup >avail-vreg or* ] change-displacement drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##sub-float >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##sub-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##sub-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##sub >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##tagged>integer >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##tail>head-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##test-branch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##test-imm-branch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##test-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##test-vector-branch >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##test-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##test >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##unbox-alien >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##unbox-any-c-ptr >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##unbox-long-long >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##unbox >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##unpack-vector-head >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##unpack-vector-tail >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##unsigned-pack-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##vector>scalar >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##write-barrier-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##write-barrier >avail-insn-uses
    [ dup >avail-vreg or* ] change-src
    [ dup >avail-vreg or* ] change-slot drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##xor-imm >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##xor-vector >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors compiler.cfg.gvn.avail
compiler.cfg.instructions kernel ;

M: ##xor >avail-insn-uses
    [ dup >avail-vreg or* ] change-src1
    [ dup >avail-vreg or* ] change-src2 drop ;


USING: accessors arrays compiler.cfg.gvn.avail
compiler.cfg.instructions kernel sequences ;

M: alien-call-insn >avail-insn-uses
    [ [ first3 [ dup >avail-vreg or* ] 2dip 3array ] map ]
    change-reg-inputs
    [ [ first3 [ dup >avail-vreg or* ] 2dip 3array ] map ]
    change-stack-inputs drop ;


USING: compiler.cfg.gvn.avail compiler.cfg.instructions kernel ;

M: insn >avail-insn-uses drop ;