rename-insn-uses ( insn -- )

Vocabulary

compiler.cfg.renaming

Inputs

insn

an object

Outputs

None

Definition

IN: compiler.cfg.renaming

GENERIC: rename-insn-uses ( insn -- )

Methods

USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
generic ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.renaming kernel sequences ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.renaming kernel sequences ;

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


USING: accessors assocs compiler.cfg.instructions
compiler.cfg.renaming kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors compiler.cfg.instructions compiler.cfg.renaming
kernel ;

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


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.renaming kernel sequences ;

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


USING: compiler.cfg.instructions compiler.cfg.renaming kernel ;

M: insn rename-insn-uses drop ;