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

change the simd-struct tests to cover integer vector slots

db4
Joe Groff 2009-10-10 12:23:25 -05:00
parent a5898dffde
commit 1407804393
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -529,38 +529,38 @@ SYMBOL: !!inconsistent!!
STRUCT: simd-struct STRUCT: simd-struct
{ x float-4 } { x float-4 }
{ y double-2 } { y longlong-2 }
{ z double-4 } { z double-4 }
{ w float-8 } ; { w int-8 } ;
[ t ] [ [ simd-struct <struct> ] compile-call >c-ptr [ 0 = ] all? ] unit-test [ t ] [ [ simd-struct <struct> ] compile-call >c-ptr [ 0 = ] all? ] unit-test
[ [
float-4{ 1 2 3 4 } float-4{ 1 2 3 4 }
double-2{ 2 1 } longlong-2{ 2 1 }
double-4{ 4 3 2 1 } double-4{ 4 3 2 1 }
float-8{ 1 2 3 4 5 6 7 8 } int-8{ 1 2 3 4 5 6 7 8 }
] [ ] [
simd-struct <struct> simd-struct <struct>
float-4{ 1 2 3 4 } >>x float-4{ 1 2 3 4 } >>x
double-2{ 2 1 } >>y longlong-2{ 2 1 } >>y
double-4{ 4 3 2 1 } >>z double-4{ 4 3 2 1 } >>z
float-8{ 1 2 3 4 5 6 7 8 } >>w int-8{ 1 2 3 4 5 6 7 8 } >>w
{ [ x>> ] [ y>> ] [ z>> ] [ w>> ] } cleave { [ x>> ] [ y>> ] [ z>> ] [ w>> ] } cleave
] unit-test ] unit-test
[ [
float-4{ 1 2 3 4 } float-4{ 1 2 3 4 }
double-2{ 2 1 } longlong-2{ 2 1 }
double-4{ 4 3 2 1 } double-4{ 4 3 2 1 }
float-8{ 1 2 3 4 5 6 7 8 } int-8{ 1 2 3 4 5 6 7 8 }
] [ ] [
[ [
simd-struct <struct> simd-struct <struct>
float-4{ 1 2 3 4 } >>x float-4{ 1 2 3 4 } >>x
double-2{ 2 1 } >>y longlong-2{ 2 1 } >>y
double-4{ 4 3 2 1 } >>z double-4{ 4 3 2 1 } >>z
float-8{ 1 2 3 4 5 6 7 8 } >>w int-8{ 1 2 3 4 5 6 7 8 } >>w
{ [ x>> ] [ y>> ] [ z>> ] [ w>> ] } cleave { [ x>> ] [ y>> ] [ z>> ] [ w>> ] } cleave
] compile-call ] compile-call
] unit-test ] unit-test