Viewing file:  vec-mul.c (2.1 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
/* { dg-do run } */
/* { dg-require-effective-target powerpc_vsx_ok } */
/* { dg-options "-mvsx -O3" } */
/* Test that the vec_mul builtin works as expected. */
#include "altivec.h"
#define N 4096
void abort ();
#define define_test_functions(STYPE, NAMESUFFIX) \
\
STYPE result_##NAMESUFFIX[N]; \
STYPE operand1_##NAMESUFFIX[N]; \
STYPE operand2_##NAMESUFFIX[N]; \
STYPE expected_##NAMESUFFIX[N]; \
\
__attribute__((noinline)) void vector_tests_##NAMESUFFIX () \
{ \
int i; \
vector STYPE v1, v2, tmp; \
for (i = 0; i < N; i+=16/sizeof (STYPE)) \
{ \
/* result=operand1*operand2. */ \
v1 = vec_vsx_ld (0, &operand1_##NAMESUFFIX[i]); \
v2 = vec_vsx_ld (0, &operand2_##NAMESUFFIX[i]); \
\
tmp = vec_mul (v1, v2); \
vec_vsx_st (tmp, 0, &result_##NAMESUFFIX[i]); \
} \
} \
\
__attribute__((noinline)) void init_##NAMESUFFIX () \
{ \
int i; \
for (i = 0; i < N; ++i) \
{ \
result_##NAMESUFFIX[i] = 0; \
operand1_##NAMESUFFIX[i] = (i+1) % 31; \
operand2_##NAMESUFFIX[i] = (i*2) % 15; \
expected_##NAMESUFFIX[i] = operand1_##NAMESUFFIX[i] * \
operand2_##NAMESUFFIX[i]; \
} \
} \
\
__attribute__((noinline)) void verify_results_##NAMESUFFIX () \
{ \
int i; \
for (i = 0; i < N; ++i) \
{ \
if (result_##NAMESUFFIX[i] != expected_##NAMESUFFIX[i]) \
abort (); \
} \
}
#define execute_test_functions(STYPE, NAMESUFFIX) \
{ \
init_##NAMESUFFIX (); \
vector_tests_##NAMESUFFIX (); \
verify_results_##NAMESUFFIX (); \
}
define_test_functions (signed int, si);
define_test_functions (unsigned int, ui);
define_test_functions (signed short, ss);
define_test_functions (unsigned short, us);
define_test_functions (signed char, sc);
define_test_functions (unsigned char, uc);
define_test_functions (float, f);
int main ()
{
execute_test_functions (signed int, si);
execute_test_functions (unsigned int, ui);
execute_test_functions (signed short, ss);
execute_test_functions (unsigned short, us);
execute_test_functions (signed char, sc);
execute_test_functions (unsigned char, uc);
execute_test_functions (float, f);
return 0;
}
|
