44 lines
1.4 KiB
Factor
44 lines
1.4 KiB
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors byte-arrays combinators
|
|
compiler.tree.propagation.info cpu.architecture kernel words math
|
|
math.intervals math.vectors.simd math.vectors.simd.private
|
|
math.vectors.simd.alien ;
|
|
IN: compiler.tree.propagation.simd
|
|
|
|
\ (simd-v+) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ (simd-v-) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ (simd-v*) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ (simd-v/) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ (simd-vmin) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ (simd-vmax) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ (simd-vsqrt) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ (simd-sum) [
|
|
nip dup literal?>> [
|
|
literal>> scalar-rep-of {
|
|
{ single-float-rep [ float ] }
|
|
{ double-float-rep [ float ] }
|
|
} case
|
|
] [ drop real ] if
|
|
<class-info>
|
|
] "outputs" set-word-prop
|
|
|
|
\ (simd-broadcast) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ (simd-gather-2) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ (simd-gather-4) { byte-array } "default-output-classes" set-word-prop
|
|
|
|
\ assert-positive [
|
|
real [0,inf] <class/interval-info> value-info-intersect
|
|
] "outputs" set-word-prop
|
|
|
|
\ alien-vector { byte-array } "default-output-classes" set-word-prop
|