Fix the inaccuracy of j0f/j1f/y0f/y1f [BZ #14469, #14470, #14471, #14472]

[thirdparty/glibc.git] / math / test-double-vlen8.h

diff --git a/math/test-double-vlen8.h b/math/test-double-vlen8.h
index bdfccbb4ff0980957dd8545c6eac57c8bc66186d..b13ba4c3d0059623ccf32828da871c6e3c70fa12 100644 (file)
--- a/math/test-double-vlen8.h
+++ b/math/test-double-vlen8.h
@@ -1,5 +1,5 @@
 /* Definitions for double vector tests with vector length 8.
-   Copyright (C) 2014-2015 Free Software Foundation, Inc.
+   Copyright (C) 2014-2021 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
 
    The GNU C Library is free software; you can redistribute it and/or
@@ -14,77 +14,10 @@
 
    You should have received a copy of the GNU Lesser General Public
    License along with the GNU C Library; if not, see
-   <http://www.gnu.org/licenses/>.  */
+   <https://www.gnu.org/licenses/>.  */
 
-#define FLOAT double
-#define FUNC(function) function
-#define TEST_MSG "testing double vector math (without inline functions)\n"
-#define MATHCONST(x) x
-#define CHOOSE(Clongdouble,Cdouble,Cfloat,Cinlinelongdouble,Cinlinedouble,Cinlinefloat) Cdouble
-#define PRINTF_EXPR "e"
-#define PRINTF_XEXPR "a"
-#define PRINTF_NEXPR "f"
-#define TEST_DOUBLE 1
-#define TEST_MATHVEC 1
-
-#ifndef __NO_MATH_INLINES
-# define __NO_MATH_INLINES
-#endif
-
-#define EXCEPTION_TESTS_double 0
-#define ROUNDING_TESTS_double(MODE) ((MODE) == FE_TONEAREST)
-
-#define CNCT(x, y) x ## y
-#define CONCAT(a, b) CNCT (a, b)
+#include "test-double.h"
+#include "test-math-vector.h"
 
 #define VEC_SUFF _vlen8
-#define WRAPPER_NAME(function) CONCAT (function, VEC_SUFF)
-
-#define FUNC_TEST(function) function ## _VEC_SUFF
-
-#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 8.
-#define VECTOR_WRAPPER(scalar_func, vector_func) \
-extern VEC_TYPE vector_func (VEC_TYPE);                \
-FLOAT scalar_func (FLOAT x)                    \
-{                                              \
-  int i;                                       \
-  VEC_TYPE mx;                                 \
-  INIT_VEC_LOOP (mx, x, 8);                    \
-  VEC_TYPE mr = vector_func (mx);              \
-  TEST_VEC_LOOP (mr, 8);                       \
-  return ((FLOAT) mr[0]);                       \
-}
-
-// Wrapper from scalar 2 argument function to vector one.
-#define VECTOR_WRAPPER_ff(scalar_func, vector_func)    \
-extern VEC_TYPE vector_func (VEC_TYPE, VEC_TYPE);      \
-FLOAT scalar_func (FLOAT x, FLOAT y)           \
-{                                              \
-  int i;                                       \
-  VEC_TYPE mx, my;                             \
-  INIT_VEC_LOOP (mx, x, 8);                    \
-  INIT_VEC_LOOP (my, y, 8);                    \
-  VEC_TYPE mr = vector_func (mx, my);          \
-  TEST_VEC_LOOP (mr, 8);                       \
-  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, 8);                    \
-  vector_func (mx, &mr, &mr1);                 \
-  TEST_VEC_LOOP (mr, 8);                       \
-  TEST_VEC_LOOP (mr1, 8);                      \
-  *r = (FLOAT) mr[0];                          \
-  *r1 = (FLOAT) mr1[0];                                \
-  return;                                      \
-}
+#define VEC_LEN 8