phase-assign-insn-uses ( insn -- )

Vocabulary

compiler.cfg.register-allocation.ssa.phases

Inputs

insn

an object

Outputs

None

Definition

IN: compiler.cfg.register-allocation.ssa.phases

GENERIC: phase-assign-insn-uses ( insn -- )

Methods

USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##abs-vector phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##add-float phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##add-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##add-sub-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##add-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##add phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases generic ;

M: ##alien-indirect phase-assign-insn-uses
    [ phase-input>register ] change-src
    M\ ##alien-indirect phase-assign-insn-uses
    (call-next-method) ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##and-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##and-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##and phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##andn-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##avg-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##binary-vector-function phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##bit-count phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##bit-test phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##blend-vector phase-assign-insn-uses
    [ phase-input>register ] change-mask
    [ phase-input>register ] change-yes
    [ phase-input>register ] change-no drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##box-alien phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##box-displaced-alien phase-assign-insn-uses
    [ phase-input>register ] change-displacement
    [ phase-input>register ] change-base drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##box-long-long phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##box phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel sequences ;

M: ##callback-outputs phase-assign-insn-uses
    [ [ first3 [ phase-input>register ] 2dip 3array ] map ]
    change-reg-inputs drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-branch phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-float-ordered-branch phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-float-ordered phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-float-unordered-branch phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-float-unordered phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-imm-branch phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-integer-branch phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-integer-imm-branch phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-integer-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-integer phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##compare phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##convert-integer phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##copy phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##dispatch phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##div-float phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##div-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##dot-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##double>single-float phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##fixnum-add phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##fixnum-mul phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##fixnum-sub phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##float-pack-vector phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##float>integer-vector phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##float>integer phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##fma-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2
    [ phase-input>register ] change-src3 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##gather-int-vector-2 phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##gather-int-vector-4 phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2
    [ phase-input>register ] change-src3
    [ phase-input>register ] change-src4 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##gather-vector-2 phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##gather-vector-4 phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2
    [ phase-input>register ] change-src3
    [ phase-input>register ] change-src4 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##horizontal-add-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##horizontal-shl-vector-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##horizontal-shr-vector-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##horizontal-sub-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##integer>float-vector phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##integer>float phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##integer>scalar phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##load-memory-imm phase-assign-insn-uses
    [ phase-input>register ] change-base drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##load-memory phase-assign-insn-uses
    [ phase-input>register ] change-base
    [ phase-input>register ] change-displacement drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##log2 phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##max-float phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##max-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##max phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##merge-vector-head phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##merge-vector-tail phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##min-float phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##min-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##min phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##mneg phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##move-vector-mask phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##mul-float phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##mul-high-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##mul-horizontal-add-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##mul-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##mul-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##mul-wide-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##mul phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##neg phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##not-vector phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##not phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##or-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##or-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##or phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel sequences ;

M: ##parallel-copy phase-assign-insn-uses
    [ [ first2 [ phase-input>register ] call 2array ] map ]
    change-values drop ;


USING: accessors assocs compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##phi phase-assign-insn-uses
    [ [ phase-input>register ] assoc-map ] change-inputs drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##replace phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##sad-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##sar-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##sar phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##saturated-add-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##saturated-mul-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##saturated-sub-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##scalar>integer phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##scalar>vector phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##select-vector phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##set-slot-imm phase-assign-insn-uses
    [ phase-input>register ] change-src
    [ phase-input>register ] change-obj drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##set-slot phase-assign-insn-uses
    [ phase-input>register ] change-src
    [ phase-input>register ] change-obj
    [ phase-input>register ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##set-vm-field phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shl-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shl-vector-count phase-assign-insn-uses
    [ phase-input>register ] change-src
    [ phase-input>register ] change-count drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shl-vector-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shl-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shl phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shr-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shr-vector-count phase-assign-insn-uses
    [ phase-input>register ] change-src
    [ phase-input>register ] change-count drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shr-vector-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shr-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shr phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shuffle-vector-halves-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shuffle-vector-imm phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shuffle-vector phase-assign-insn-uses
    [ phase-input>register ] change-src
    [ phase-input>register ] change-shuffle drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##shuffle2-vector-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##signed-pack-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##single>double-float phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##slot-imm phase-assign-insn-uses
    [ phase-input>register ] change-obj drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##slot phase-assign-insn-uses
    [ phase-input>register ] change-obj
    [ phase-input>register ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##spill phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##sqrt-vector phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##sqrt phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##store-memory-imm phase-assign-insn-uses
    [ phase-input>register ] change-src
    [ phase-input>register ] change-base drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##store-memory phase-assign-insn-uses
    [ phase-input>register ] change-src
    [ phase-input>register ] change-base
    [ phase-input>register ] change-displacement drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##sub-float phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##sub-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##sub-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##sub phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##tagged>integer phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##tail>head-vector phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##test-branch phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##test-imm-branch phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##test-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##test-vector-branch phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##test-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##test phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##unary-vector-function phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##unbox-alien phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##unbox-any-c-ptr phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##unbox-long-long phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##unbox phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##unpack-vector-head phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##unpack-vector-tail phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##unsigned-pack-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##vector>scalar phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##write-barrier-imm phase-assign-insn-uses
    [ phase-input>register ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##write-barrier phase-assign-insn-uses
    [ phase-input>register ] change-src
    [ phase-input>register ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##xor-imm phase-assign-insn-uses
    [ phase-input>register ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##xor-vector phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: ##xor phase-assign-insn-uses
    [ phase-input>register ] change-src1
    [ phase-input>register ] change-src2 drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel sequences ;

M: alien-call-insn phase-assign-insn-uses
    [ [ first3 [ phase-input>register ] 2dip 3array ] map ]
    change-reg-inputs
    [ [ first4 [ phase-input>register ] 3dip 4array ] map ]
    change-stack-inputs drop ;


USING: compiler.cfg.instructions
compiler.cfg.register-allocation.ssa.phases kernel ;

M: insn phase-assign-insn-uses drop ;