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

add v*high, v*hs+, vsad, and vavg to simd fuzz tests

db4
Joe Groff 2009-12-05 15:42:41 -08:00
parent af39e5d52c
commit d412845b41
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/math/vectors/simd/simd-tests.factor
View File

@ -69,6 +69,8 @@ CONSTANT: vector-words
{ v* { +vector+ +vector+ -> +vector+ } } { v* { +vector+ +vector+ -> +vector+ } }
{ vs* { +vector+ +vector+ -> +vector+ } } { vs* { +vector+ +vector+ -> +vector+ } }
{ v*n { +vector+ +scalar+ -> +vector+ } } { v*n { +vector+ +scalar+ -> +vector+ } }
{ v*high { +vector+ +vector+ -> +vector+ } }
{ v*hs+ { +vector+ +vector+ -> +vector+ } }
{ v+ { +vector+ +vector+ -> +vector+ } } { v+ { +vector+ +vector+ -> +vector+ } }
{ vs+ { +vector+ +vector+ -> +vector+ } } { vs+ { +vector+ +vector+ -> +vector+ } }
{ v+- { +vector+ +vector+ -> +vector+ } } { v+- { +vector+ +vector+ -> +vector+ } }
@ -78,12 +80,14 @@ CONSTANT: vector-words
{ vs- { +vector+ +vector+ -> +vector+ } } { vs- { +vector+ +vector+ -> +vector+ } }
{ v-n { +vector+ +scalar+ -> +vector+ } } { v-n { +vector+ +scalar+ -> +vector+ } }
{ v. { +vector+ +vector+ -> +scalar+ } } { v. { +vector+ +vector+ -> +scalar+ } }
{ vsad { +vector+ +vector+ -> +scalar+ } }
{ v/ { +vector+ +vector+ -> +vector+ } } { v/ { +vector+ +vector+ -> +vector+ } }
{ v/n { +vector+ +scalar+ -> +vector+ } } { v/n { +vector+ +scalar+ -> +vector+ } }
{ vceiling { +vector+ -> +vector+ } } { vceiling { +vector+ -> +vector+ } }
{ vfloor { +vector+ -> +vector+ } } { vfloor { +vector+ -> +vector+ } }
{ vmax { +vector+ +vector+ -> +vector+ } } { vmax { +vector+ +vector+ -> +vector+ } }
{ vmin { +vector+ +vector+ -> +vector+ } } { vmin { +vector+ +vector+ -> +vector+ } }
{ vavg { +vector+ +vector+ -> +vector+ } }
{ vneg { +vector+ -> +vector+ } } { vneg { +vector+ -> +vector+ } }
{ vtruncate { +vector+ -> +vector+ } } { vtruncate { +vector+ -> +vector+ } }
{ sum { +vector+ -> +scalar+ } } { sum { +vector+ -> +scalar+ } }
@ -197,7 +201,7 @@ CONSTANT: vector-words
{ vsqrt n/v v/n v/ normalize } unique assoc-diff ; { vsqrt n/v v/n v/ normalize } unique assoc-diff ;
: remove-integer-words ( alist -- alist' ) : remove-integer-words ( alist -- alist' )
{ vlshift vrshift } unique assoc-diff ; { vlshift vrshift v*high } unique assoc-diff ;
: boolean-ops ( -- words ) : boolean-ops ( -- words )
{ vand vandn vor vxor vnot } ; { vand vandn vor vxor vnot } ;