diff options
Diffstat (limited to 'math/test-double-vlen4.h')
| -rw-r--r-- | math/test-double-vlen4.h | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/math/test-double-vlen4.h b/math/test-double-vlen4.h index 4fca9d8..ffaba69 100644 --- a/math/test-double-vlen4.h +++ b/math/test-double-vlen4.h @@ -44,6 +44,7 @@ #define WRAPPER_DECL(function) extern FLOAT function (FLOAT); #define WRAPPER_DECL_ff(function) extern FLOAT function (FLOAT, FLOAT); +#define WRAPPER_DECL_fFF(function) extern void function (FLOAT, FLOAT *, FLOAT *); // Wrapper from scalar to vector function with vector length 4. #define VECTOR_WRAPPER(scalar_func, vector_func) \ @@ -54,7 +55,8 @@ FLOAT scalar_func (FLOAT x) \ VEC_TYPE mx; \ INIT_VEC_LOOP (mx, x, 4); \ VEC_TYPE mr = vector_func (mx); \ - TEST_VEC_LOOP (4); \ + TEST_VEC_LOOP (mr, 4); \ + return ((FLOAT) mr[0]); \ } // Wrapper from scalar 2 argument function to vector one. @@ -67,5 +69,22 @@ FLOAT scalar_func (FLOAT x, FLOAT y) \ INIT_VEC_LOOP (mx, x, 4); \ INIT_VEC_LOOP (my, y, 4); \ VEC_TYPE mr = vector_func (mx, my); \ - TEST_VEC_LOOP (4); \ + TEST_VEC_LOOP (mr, 4); \ + return ((FLOAT) mr[0]); \ +} + +// Wrapper from scalar 3 argument function to vector one. +#define VECTOR_WRAPPER_fFF(scalar_func, vector_func) \ +extern void vector_func (VEC_TYPE, VEC_TYPE *, VEC_TYPE *); \ +void scalar_func (FLOAT x, FLOAT * r, FLOAT * r1) \ +{ \ + int i; \ + VEC_TYPE mx, mr, mr1; \ + INIT_VEC_LOOP (mx, x, 4); \ + vector_func (mx, &mr, &mr1); \ + TEST_VEC_LOOP (mr, 4); \ + TEST_VEC_LOOP (mr1, 4); \ + *r = (FLOAT) mr[0]; \ + *r1 = (FLOAT) mr1[0]; \ + return; \ } |