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

math.vectors.simd: don't run x86-specific tests on PPC

Slava Pestov 2009-09-11 21:38:40 -05:00
parent 3aa4294546
commit 18cb09a115
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,8 @@
IN: math.vectors.simd.tests IN: math.vectors.simd.tests
USING: math math.vectors.simd math.vectors.simd.private USING: math math.vectors.simd math.vectors.simd.private
math.vectors math.functions math.private kernel.private compiler math.vectors math.functions math.private kernel.private compiler
sequences tools.test compiler.tree.debugger accessors kernel ; sequences tools.test compiler.tree.debugger accessors kernel
system ;
[ float-4{ 0 0 0 0 } ] [ float-4 new ] unit-test [ float-4{ 0 0 0 0 } ] [ float-4 new ] unit-test
@ -349,13 +350,15 @@ sequences tools.test compiler.tree.debugger accessors kernel ;
[ { float-8 float } declare v/n ] compile-call [ { float-8 float } declare v/n ] compile-call
] unit-test ] unit-test
! Test puns ! Test puns; only on x86
[ double-2{ 4 1024 } ] [ cpu x86? [
float-4{ 0 1 0 2 } [ double-2{ 4 1024 } ] [
[ { float-4 } declare dup v+ underlying>> double-2 boa dup v+ ] compile-call float-4{ 0 1 0 2 }
] unit-test [ { float-4 } declare dup v+ underlying>> double-2 boa dup v+ ] compile-call
] unit-test
[ 33.0 ] [
double-2{ 1 2 } double-2{ 10 20 } [ 33.0 ] [
[ { double-2 double-2 } declare v+ underlying>> 3.0 float* ] compile-call double-2{ 1 2 } double-2{ 10 20 }
] unit-test [ { double-2 double-2 } declare v+ underlying>> 3.0 float* ] compile-call
] unit-test
] when