assign-insn-uses ( insn -- )

Vocabulary

compiler.cfg.linear-scan.assignment

Inputs

insn

an object

Outputs

None

Definition

IN: compiler.cfg.linear-scan.assignment

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

Methods

USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##abs-vector assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##add-float assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##add-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##add-sub-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##add-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##add assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment generic ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##and-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##and-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##and assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##andn-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##avg-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##bit-count assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##bit-test assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##box-alien assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##box-displaced-alien assign-insn-uses
    [ vreg>reg ] change-displacement [ vreg>reg ] change-base
    drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##box-long-long assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##box assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel sequences ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-branch assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-float-ordered-branch assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-float-ordered assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-float-unordered-branch assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-float-unordered assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-imm-branch assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-imm assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-integer-branch assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-integer-imm-branch assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-integer-imm assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-integer assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##compare assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##convert-integer assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##copy assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##dispatch assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##div-float assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##div-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##dot-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##double>single-float assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##fixnum-add assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##fixnum-mul assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##fixnum-sub assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##float-pack-vector assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##float>integer-vector assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##float>integer assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##gather-int-vector-2 assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##gather-vector-2 assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

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


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##horizontal-add-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##horizontal-shl-vector-imm assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##horizontal-shr-vector-imm assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##horizontal-sub-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##integer>float-vector assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##integer>float assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##integer>scalar assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##load-memory-imm assign-insn-uses
    [ vreg>reg ] change-base drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##load-memory assign-insn-uses
    [ vreg>reg ] change-base [ vreg>reg ] change-displacement
    drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##log2 assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##max-float assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##max-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##max assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##merge-vector-head assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##merge-vector-tail assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##min-float assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##min-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##min assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##move-vector-mask assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##mul-float assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##mul-high-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##mul-horizontal-add-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##mul-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##mul-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##mul assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##neg assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##not-vector assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##not assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##or-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##or-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##or assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel sequences ;

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


USING: accessors assocs compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##phi assign-insn-uses
    [ [ vreg>reg ] assoc-map ] change-inputs drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##replace assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##sad-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##sar-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##sar assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##saturated-add-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##saturated-mul-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##saturated-sub-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##scalar>integer assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##scalar>vector assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##select-vector assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##set-slot-imm assign-insn-uses
    [ vreg>reg ] change-src [ vreg>reg ] change-obj drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##set-slot assign-insn-uses
    [ vreg>reg ] change-src [ vreg>reg ] change-obj
    [ vreg>reg ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##set-vm-field assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shl-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shl-vector-imm assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shl-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shl assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shr-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shr-vector-imm assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shr-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shr assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shuffle-vector-halves-imm assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shuffle-vector-imm assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##shuffle-vector assign-insn-uses
    [ vreg>reg ] change-src [ vreg>reg ] change-shuffle drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##signed-pack-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##single>double-float assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##slot-imm assign-insn-uses [ vreg>reg ] change-obj drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##slot assign-insn-uses
    [ vreg>reg ] change-obj [ vreg>reg ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##spill assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##sqrt-vector assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##sqrt assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##store-memory-imm assign-insn-uses
    [ vreg>reg ] change-src [ vreg>reg ] change-base drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##store-memory assign-insn-uses
    [ vreg>reg ] change-src [ vreg>reg ] change-base
    [ vreg>reg ] change-displacement drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##sub-float assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##sub-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##sub-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##sub assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##tagged>integer assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##tail>head-vector assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##test-branch assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##test-imm-branch assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##test-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##test-vector-branch assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##test-vector assign-insn-uses
    [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##test assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##unbox-alien assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##unbox-any-c-ptr assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##unbox-long-long assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##unbox assign-insn-uses [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##unpack-vector-head assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##unpack-vector-tail assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##unsigned-pack-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##vector>scalar assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##write-barrier-imm assign-insn-uses
    [ vreg>reg ] change-src drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##write-barrier assign-insn-uses
    [ vreg>reg ] change-src [ vreg>reg ] change-slot drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##xor-imm assign-insn-uses [ vreg>reg ] change-src1 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##xor-vector assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: ##xor assign-insn-uses
    [ vreg>reg ] change-src1 [ vreg>reg ] change-src2 drop ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel sequences ;

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


USING: compiler.cfg.instructions
compiler.cfg.linear-scan.assignment kernel ;

M: insn assign-insn-uses drop ;