steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.vectors.simd: fix typo in simd vdot intrinsic.

master
John Benediktsson 2020-02-26 12:56:52 -08:00
parent 07a5912afa
commit da5d010c5b
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/intrinsics/simd/simd.factor
View File

@ -667,7 +667,7 @@ PREDICATE: fixnum-vector-rep < int-vector-rep
{ (simd-vmin) [ emit-simd-vmin ] } { (simd-vmin) [ emit-simd-vmin ] }
{ (simd-vmax) [ emit-simd-vmax ] } { (simd-vmax) [ emit-simd-vmax ] }
{ (simd-vavg) [ emit-simd-vavg ] } { (simd-vavg) [ emit-simd-vavg ] }
{ (simd-vdot [ emit-simd-vdot ] } { (simd-vdot) [ emit-simd-vdot ] }
{ (simd-vsad) [ emit-simd-vsad ] } { (simd-vsad) [ emit-simd-vsad ] }
{ (simd-vsqrt) [ emit-simd-vsqrt ] } { (simd-vsqrt) [ emit-simd-vsqrt ] }
{ (simd-sum) [ emit-simd-sum ] } { (simd-sum) [ emit-simd-sum ] }

4
basis/compiler/tree/propagation/simd/simd.factor
View File

@ -64,7 +64,7 @@ CONSTANT: vector>vector-intrinsics
CONSTANT: vector-other-intrinsics CONSTANT: vector-other-intrinsics
{ {
(simd-v.) (simd-vdot)
(simd-vsad) (simd-vsad)
(simd-sum) (simd-sum)
(simd-vany?) (simd-vany?)
@ -96,7 +96,7 @@ vector>vector-intrinsics [ { byte-array } "default-output-classes" set-word-prop
\ (simd-sum) [ nip scalar-output-class ] "outputs" set-word-prop \ (simd-sum) [ nip scalar-output-class ] "outputs" set-word-prop
\ (simd-v.) [ 2nip scalar-output-class ] "outputs" set-word-prop \ (simd-vdot) [ 2nip scalar-output-class ] "outputs" set-word-prop
{ {
(simd-vany?) (simd-vany?)

2
basis/math/vectors/simd/intrinsics/intrinsics.factor
View File

@ -185,7 +185,7 @@ PRIVATE>
: (simd-vmin) ( a b rep -- c ) [ min ] components-2map ; : (simd-vmin) ( a b rep -- c ) [ min ] components-2map ;
: (simd-vmax) ( a b rep -- c ) [ max ] components-2map ; : (simd-vmax) ( a b rep -- c ) [ max ] components-2map ;
! XXX ! XXX
: (simd-v.) ( a b rep -- n ) : (simd-vdot) ( a b rep -- n )
[ 2byte>rep-array [ [ first ] bi@ * ] 2keep ] keep [ 2byte>rep-array [ [ first ] bi@ * ] 2keep ] keep
1 swap rep-length [a,b) [ '[ _ swap nth-unsafe ] bi@ * + ] 2with each ; 1 swap rep-length [a,b) [ '[ _ swap nth-unsafe ] bi@ * + ] 2with each ;
: (simd-vsqrt) ( a rep -- c ) [ fsqrt ] components-map ; : (simd-vsqrt) ( a rep -- c ) [ fsqrt ] components-map ;