alien-call-insn
Basic block instructions

Prev:	##unbox-long-long
Next:	##allot

Vocabulary
compiler.cfg.instructions

Class description
Union class of all alien call instructions.

Definition

IN: compiler.cfg.instructions

UNION: alien-call-insn ##alien-assembly ##alien-indirect
    ##alien-invoke ;

Methods

USING: accessors arrays compiler.cfg.gvn.avail
compiler.cfg.instructions kernel sequences ;

M: alien-call-insn >avail-insn-defs
    [ [ first3 [ ] 2dip 3array ] map ] change-reg-outputs drop ;


USING: accessors arrays compiler.cfg.gvn.avail
compiler.cfg.instructions kernel sequences ;

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


USING: compiler.cfg.alias-analysis compiler.cfg.instructions ;

M: alien-call-insn analyze-aliases
    def-acs clear-recent-stores clear-live-slots ;


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

M: alien-call-insn assign-insn-defs
    [ [ first3 [ vreg>reg ] 2dip 3array ] map ]
    change-reg-outputs 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.ssa.destruction.coalescing kernel ;

M: alien-call-insn coalesce-later drop ;


USING: accessors compiler.cfg.build-stack-frame
compiler.cfg.instructions math.order namespaces ;

M: alien-call-insn compute-stack-frame*
    stack-size>> param-area-size [ max ] change t ;


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

M: alien-call-insn convert-insn-defs
    [ [ first3 [ converted-value ] 2dip 3array ] map ]
    change-reg-outputs 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: accessors compiler.cfg.instructions
compiler.cfg.representations.preferred sequences ;

M: alien-call-insn defs-vreg-reps reg-outputs>> [ second ] map ;


USING: accessors compiler.cfg.def-use compiler.cfg.instructions
sequences ;

M: alien-call-insn defs-vregs reg-outputs>> [ first ] map ;


USING: compiler.cfg.gvn compiler.cfg.instructions ;

M: alien-call-insn gcse defs-available ;


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

M: alien-call-insn live-insn?
    dup reg-outputs>> filter-alien-outputs
    [ >>reg-outputs ] [ >>dead-outputs ] bi* drop t ;


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

M: alien-call-insn rename-insn-defs
    [ [ first3 [ rename-value ] 2dip 3array ] map ]
    change-reg-outputs 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: accessors arrays compiler.cfg.instructions
compiler.cfg.ssa.construction.private kernel sequences ;

M: alien-call-insn ssa-rename-insn-defs
    [ [ first3 [ gen-name ] 2dip 3array ] map ]
    change-reg-outputs 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: accessors compiler.cfg.instructions
compiler.cfg.representations.preferred kernel sequences ;

M: alien-call-insn uses-vreg-reps
    [ reg-inputs>> ] [ stack-inputs>> ] bi append [ second ] map
    ;


USING: accessors compiler.cfg.def-use compiler.cfg.instructions
kernel sequences ;

M: alien-call-insn uses-vregs
    [ reg-inputs>> ] [ stack-inputs>> ] bi append [ first ] map
    ;


USING: compiler.cfg.gvn compiler.cfg.instructions ;

M: alien-call-insn value-number record-defs ;