convert-insn-uses ( insn -- )

Vocabulary

compiler.cfg.representations.rewrite

Inputs

insn

an object

Outputs

None

Definition

IN: compiler.cfg.representations.rewrite

GENERIC: convert-insn-uses ( insn -- )

Methods

USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##abs-vector convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##add-float convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##add-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##add-sub-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##add-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##add convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite generic ;

M: ##alien-indirect convert-insn-uses
    [ converted-value ] change-src
    M\ ##alien-indirect convert-insn-uses (call-next-method) ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##and-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##and-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##and convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##andn-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##avg-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##bit-count convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##bit-test convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##box-alien convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##box-displaced-alien convert-insn-uses
    [ converted-value ] change-displacement
    [ converted-value ] change-base drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##box-long-long convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##box convert-insn-uses [ converted-value ] change-src drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel sequences ;

M: ##callback-outputs convert-insn-uses
    [ [ first3 [ converted-value ] 2dip 3array ] map ]
    change-reg-inputs drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-branch convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-float-ordered-branch convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-float-ordered convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-float-unordered-branch convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-float-unordered convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-imm-branch convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-integer-branch convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-integer-imm-branch convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-integer-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-integer convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##compare convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##convert-integer convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##copy convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##dispatch convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##div-float convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##div-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##dot-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##double>single-float convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##fixnum-add convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##fixnum-mul convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##fixnum-sub convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##float-pack-vector convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##float>integer-vector convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##float>integer convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##gather-int-vector-2 convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##gather-int-vector-4 convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2
    [ converted-value ] change-src3
    [ converted-value ] change-src4 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##gather-vector-2 convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##gather-vector-4 convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2
    [ converted-value ] change-src3
    [ converted-value ] change-src4 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##horizontal-add-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##horizontal-shl-vector-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##horizontal-shr-vector-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##horizontal-sub-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##integer>float-vector convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##integer>float convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##integer>scalar convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##load-memory-imm convert-insn-uses
    [ converted-value ] change-base drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##load-memory convert-insn-uses
    [ converted-value ] change-base
    [ converted-value ] change-displacement drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##log2 convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##max-float convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##max-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##max convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##merge-vector-head convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##merge-vector-tail convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##min-float convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##min-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##min convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##move-vector-mask convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##mul-float convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##mul-high-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##mul-horizontal-add-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##mul-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##mul-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##mul convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##neg convert-insn-uses [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##not-vector convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##not convert-insn-uses [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##or-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##or-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##or convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel sequences ;

M: ##parallel-copy convert-insn-uses
    [ [ first2 [ converted-value ] call 2array ] map ]
    change-values drop ;


USING: accessors assocs compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##phi convert-insn-uses
    [ [ converted-value ] assoc-map ] change-inputs drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##replace convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##sad-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##sar-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##sar convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##saturated-add-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##saturated-mul-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##saturated-sub-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##scalar>integer convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##scalar>vector convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##select-vector convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##set-slot-imm convert-insn-uses
    [ converted-value ] change-src
    [ converted-value ] change-obj drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##set-slot convert-insn-uses
    [ converted-value ] change-src
    [ converted-value ] change-obj
    [ converted-value ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##set-vm-field convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shl-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shl-vector-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shl-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shl convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shr-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shr-vector-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shr-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shr convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shuffle-vector-halves-imm convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shuffle-vector-imm convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##shuffle-vector convert-insn-uses
    [ converted-value ] change-src
    [ converted-value ] change-shuffle drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##signed-pack-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##single>double-float convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##slot-imm convert-insn-uses
    [ converted-value ] change-obj drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##slot convert-insn-uses
    [ converted-value ] change-obj
    [ converted-value ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##spill convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##sqrt-vector convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##sqrt convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##store-memory-imm convert-insn-uses
    [ converted-value ] change-src
    [ converted-value ] change-base drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##store-memory convert-insn-uses
    [ converted-value ] change-src
    [ converted-value ] change-base
    [ converted-value ] change-displacement drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##sub-float convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##sub-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##sub-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##sub convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##tagged>integer convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##tail>head-vector convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##test-branch convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##test-imm-branch convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##test-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##test-vector-branch convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##test-vector convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##test convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##unbox-alien convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##unbox-any-c-ptr convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##unbox-long-long convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##unbox convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##unpack-vector-head convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##unpack-vector-tail convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##unsigned-pack-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##vector>scalar convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##write-barrier-imm convert-insn-uses
    [ converted-value ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##write-barrier convert-insn-uses
    [ converted-value ] change-src
    [ converted-value ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##xor-imm convert-insn-uses
    [ converted-value ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##xor-vector convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: ##xor convert-insn-uses
    [ converted-value ] change-src1
    [ converted-value ] change-src2 drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel sequences ;

M: alien-call-insn convert-insn-uses
    [ [ first3 [ converted-value ] 2dip 3array ] map ]
    change-reg-inputs
    [ [ first3 [ converted-value ] 2dip 3array ] map ]
    change-stack-inputs drop ;


USING: compiler.cfg.instructions
compiler.cfg.representations.rewrite kernel ;

M: insn convert-insn-uses drop ;