From 7f001ee31213a80007a30f006be2342d36fa2590 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sat, 17 Oct 2009 00:34:35 -0500 Subject: [PATCH] make hlshift/hrshift simd tests endian agnostic --- basis/math/vectors/simd/simd-tests.factor | 24 +++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/basis/math/vectors/simd/simd-tests.factor b/basis/math/vectors/simd/simd-tests.factor index e48826d00b..71ad09e002 100644 --- a/basis/math/vectors/simd/simd-tests.factor +++ b/basis/math/vectors/simd/simd-tests.factor @@ -289,23 +289,23 @@ simd-classes&reps [ "== Checking shifts and permutations" print -[ int-4{ 256 512 1024 2048 } ] -[ int-4{ 1 2 4 8 } 1 hlshift ] unit-test +[ char-16{ 0 1 2 4 8 1 2 4 8 1 2 4 8 1 2 4 } ] +[ char-16{ 1 2 4 8 1 2 4 8 1 2 4 8 1 2 4 8 } 1 hlshift ] unit-test -[ int-4{ 256 512 1024 2048 } ] -[ int-4{ 1 2 4 8 } [ { int-4 } declare 1 hlshift ] compile-call ] unit-test +[ char-16{ 0 1 2 4 8 1 2 4 8 1 2 4 8 1 2 4 } ] +[ char-16{ 1 2 4 8 1 2 4 8 1 2 4 8 1 2 4 8 } [ { char-16 } declare 1 hlshift ] compile-call ] unit-test -[ int-4{ 256 512 1024 2048 } ] -[ int-4{ 1 2 4 8 } 1 [ { int-4 fixnum } declare hlshift ] compile-call ] unit-test +[ char-16{ 0 1 2 4 8 1 2 4 8 1 2 4 8 1 2 4 } ] +[ char-16{ 1 2 4 8 1 2 4 8 1 2 4 8 1 2 4 8 } 1 [ { char-16 fixnum } declare hlshift ] compile-call ] unit-test -[ int-4{ 1 2 4 8 } ] -[ int-4{ 256 512 1024 2048 } 1 hrshift ] unit-test +[ char-16{ 2 4 8 1 2 4 8 1 2 4 8 1 2 4 8 0 } ] +[ char-16{ 1 2 4 8 1 2 4 8 1 2 4 8 1 2 4 8 } 1 hrshift ] unit-test -[ int-4{ 1 2 4 8 } ] -[ int-4{ 256 512 1024 2048 } [ { int-4 } declare 1 hrshift ] compile-call ] unit-test +[ char-16{ 2 4 8 1 2 4 8 1 2 4 8 1 2 4 8 0 } ] +[ char-16{ 1 2 4 8 1 2 4 8 1 2 4 8 1 2 4 8 } [ { char-16 } declare 1 hrshift ] compile-call ] unit-test -[ int-4{ 1 2 4 8 } ] -[ int-4{ 256 512 1024 2048 } 1 [ { int-4 fixnum } declare hrshift ] compile-call ] unit-test +[ char-16{ 2 4 8 1 2 4 8 1 2 4 8 1 2 4 8 0 } ] +[ char-16{ 1 2 4 8 1 2 4 8 1 2 4 8 1 2 4 8 } 1 [ { char-16 fixnum } declare hrshift ] compile-call ] unit-test ! Invalid inputs should not cause the compiler to throw errors [ ] [