ssa-rename-insn-uses ( insn -- )

Vocabulary

compiler.cfg.ssa.construction.private

Inputs

insn

an object

Outputs

None

Definition

IN: compiler.cfg.ssa.construction.private

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

Methods

USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##abs-vector ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##add-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##add ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private generic ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##and-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##and ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##bit-count ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##box-alien ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##box ssa-rename-insn-uses [ top-name ] change-src drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel sequences ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##compare-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##compare ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##convert-integer ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##copy ssa-rename-insn-uses [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##dispatch ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##log2 ssa-rename-insn-uses [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##max ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##min ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##mul-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##mul ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##neg ssa-rename-insn-uses [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##not-vector ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##not ssa-rename-insn-uses [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##or-imm ssa-rename-insn-uses [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##or ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel sequences ;

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


USING: accessors assocs compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##replace ssa-rename-insn-uses [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##sar-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##sar ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##select-vector ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##shl-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##shl ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##shr-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##shr ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##shuffle-vector ssa-rename-insn-uses
    [ top-name ] change-src [ top-name ] change-shuffle drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##slot-imm ssa-rename-insn-uses
    [ top-name ] change-obj drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##slot ssa-rename-insn-uses
    [ top-name ] change-obj [ top-name ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##spill ssa-rename-insn-uses [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##sqrt-vector ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##sqrt ssa-rename-insn-uses [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##sub-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##sub ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##test-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##test-vector ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##test ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##unbox-alien ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##unbox-long-long ssa-rename-insn-uses
    [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##unbox ssa-rename-insn-uses [ top-name ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##xor-imm ssa-rename-insn-uses
    [ top-name ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: ##xor ssa-rename-insn-uses
    [ top-name ] change-src1 [ top-name ] change-src2 drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel sequences ;

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


USING: compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel ;

M: insn ssa-rename-insn-uses drop ;