##gather-vector-4

Vocabulary

compiler.cfg.instructions

Definition

IN: compiler.cfg.instructions

TUPLE: ##gather-vector-4 < foldable-insn
    dst src1 src2 src3 src4 rep insn# ;

Methods

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

M: ##gather-vector-4 >avail-insn-defs [ ] change-dst drop ;


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

M: ##gather-vector-4 >avail-insn-uses
    [ dup >avail-vreg swap or ] change-src1
    [ dup >avail-vreg swap or ] change-src2
    [ dup >avail-vreg swap or ] change-src3
    [ dup >avail-vreg swap or ] change-src4 drop ;


USING: accessors arrays compiler.cfg.gvn.expressions
compiler.cfg.gvn.graph compiler.cfg.instructions kernel
sequences.private ;

M: ##gather-vector-4 >expr
    \ ##gather-vector-4 swap [ src1>> vreg>vn ] keep
    [ src2>> vreg>vn ] keep [ src3>> vreg>vn ] keep
    [ src4>> vreg>vn ] keep [ rep>> ] keep drop 6 f <array>
    5 swap [ set-array-nth ] keep 4 swap [ set-array-nth ] keep
    3 swap [ set-array-nth ] keep 2 swap [ set-array-nth ] keep
    1 swap [ set-array-nth ] keep 0 swap [ set-array-nth ] keep
    ;


USING: accessors arrays compiler.cfg.instructions
compiler.cfg.value-numbering.expressions
compiler.cfg.value-numbering.graph kernel sequences.private ;

M: ##gather-vector-4 >expr
    \ ##gather-vector-4 swap [ src1>> vreg>vn ] keep
    [ src2>> vreg>vn ] keep [ src3>> vreg>vn ] keep
    [ src4>> vreg>vn ] keep [ rep>> ] keep drop 6 f <array>
    5 swap [ set-array-nth ] keep 4 swap [ set-array-nth ] keep
    3 swap [ set-array-nth ] keep 2 swap [ set-array-nth ] keep
    1 swap [ set-array-nth ] keep 0 swap [ set-array-nth ] keep
    ;


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

M: ##gather-vector-4 assign-insn-defs
    [ vreg>reg ] change-dst 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.representations.rewrite kernel ;

M: ##gather-vector-4 convert-insn-defs
    [ converted-value ] change-dst 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 arrays compiler.cfg.instructions
compiler.cfg.representations.preferred ;

M: ##gather-vector-4 defs-vreg-reps rep>> 1array ;


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

M: ##gather-vector-4 defs-vregs dst>> 1array ;


USING: accessors compiler.cfg.instructions compiler.codegen
cpu.architecture kernel ;

M: ##gather-vector-4 generate-insn
    [ dst>> ] keep [ src1>> ] keep [ src2>> ] keep
    [ src3>> ] keep [ src4>> ] keep [ rep>> ] keep drop
    %gather-vector-4 ;


USING: accessors compiler.cfg.instructions
compiler.cfg.intrinsics.simd.backend cpu.architecture sequences
;

M: ##gather-vector-4 insn-available?
    rep>> %gather-vector-4-reps member? ;


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

M: ##gather-vector-4 rename-insn-defs
    [ rename-value ] change-dst 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: compiler.cfg.gvn.rewrite compiler.cfg.gvn.simd
compiler.cfg.instructions ;

M: ##gather-vector-4 rewrite rewrite-gather-vector-4 ;


USING: compiler.cfg.instructions
compiler.cfg.value-numbering.rewrite
compiler.cfg.value-numbering.simd ;

M: ##gather-vector-4 rewrite rewrite-gather-vector-4 ;


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

M: ##gather-vector-4 ssa-rename-insn-defs
    [ gen-name ] change-dst 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 combinators compiler.cfg.instructions
compiler.cfg.representations.preferred cpu.architecture
sequences.generalizations ;

M: ##gather-vector-4 uses-vreg-reps
    {
        [ rep>> scalar-rep-of ]
        [ rep>> scalar-rep-of ]
        [ rep>> scalar-rep-of ]
        [ rep>> scalar-rep-of ]
    } cleave 4 narray ;


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

M: ##gather-vector-4 uses-vregs
    { [ src1>> ] [ src2>> ] [ src3>> ] [ src4>> ] } cleave
    4 narray ;