Add exp10 macro to <tgmath.h> (bug 26108)
authorJoseph Myers <joseph@codesourcery.com>
Thu, 30 Sep 2021 20:40:34 +0000 (20:40 +0000)
committerJoseph Myers <joseph@codesourcery.com>
Thu, 30 Sep 2021 20:40:34 +0000 (20:40 +0000)
glibc has had exp10 functions since long before they were
standardized; now they are standardized in TS 18661-4 and C2X, they
are also specified there to have a corresponding type-generic macro.
Add one to <tgmath.h>, so fixing bug 26108.

glibc doesn't have other functions from TS 18661-4 yet, but when
added, it will be natural to add the type-generic macro for each
function family at the same time as the functions.

Tested for x86_64.

NEWS
math/Makefile
math/gen-tgmath-tests.py
math/test-tgmath.c
math/tgmath.h

diff --git a/NEWS b/NEWS
index 6bc9887..a923bd6 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -42,6 +42,9 @@ Major new features:
 * The __STDC_IEC_60559_BFP__ and __STDC_IEC_60559_COMPLEX__ macros are
   predefined as specified in TS 18661-1:2014.
 
+* The exp10 functions in <math.h> now have a corresponding type-generic
+  macro in <tgmath.h>.
+
 Deprecated and removed features, and other changes affecting compatibility:
 
 * The r_version update in the debugger interface makes the glibc binary
index af734d4..e19f4ec 100644 (file)
@@ -374,9 +374,9 @@ $(foreach t,$(libm-tests-base),\
 tgmath3-narrow-types = f d f16 f32 f64 f128 f32x f64x
 tgmath3-narrow-macros = $(foreach t,$(tgmath3-narrow-types), \
                                    $(foreach f,$(libm-narrow-fns),$(t)$(f)))
-tgmath3-macros = atan2 cbrt ceil copysign erf erfc exp2 expm1 fdim floor \
-                fma fmax fmin fmod frexp hypot ilogb ldexp lgamma llrint \
-                llround log10 log1p log2 logb lrint lround nearbyint \
+tgmath3-macros = atan2 cbrt ceil copysign erf erfc exp10 exp2 expm1 fdim \
+                floor fma fmax fmin fmod frexp hypot ilogb ldexp lgamma \
+                llrint llround log10 log1p log2 logb lrint lround nearbyint \
                 nextafter nexttoward remainder remquo rint round scalbn \
                 scalbln tgamma trunc acos asin atan acosh asinh atanh cos \
                 sin tan cosh sinh tanh exp log pow sqrt fabs carg cimag conj \
index d433b48..53d5a54 100755 (executable)
@@ -707,6 +707,8 @@ class Tests(object):
                                 ('_Float32x', 'f32x'),
                                 ('_Float64x', 'f64x')):
                 self.add_tests(prefix + fn, ret, ['r'] * args)
+        # TS 18661-4 functions.
+        self.add_tests('exp10', 'r', ['r'])
         # C2X functions.
         self.add_tests('fmaximum', 'r', ['r', 'r'])
         self.add_tests('fmaximum_mag', 'r', ['r', 'r'])
index f9b5fc6..678a174 100644 (file)
@@ -48,7 +48,7 @@ volatile int count_cdouble;
 volatile int count_cfloat;
 volatile int count_cldouble;
 
-#define NCALLS     156
+#define NCALLS     158
 #define NCALLS_INT 4
 #define NCCALLS    47
 
@@ -253,6 +253,7 @@ F(compile_test) (void)
   a = log1p (log1p (x));
   b = logb (logb (a));
   a = exp2 (exp2 (x));
+  a = exp10 (exp10 (x));
   b = log2 (log2 (a));
   a = pow (pow (x, a), pow (c, b));
   b = sqrt (sqrt (a));
@@ -365,6 +366,7 @@ F(compile_test) (void)
       a = log1p (y);
       a = logb (y);
       a = exp2 (y);
+      a = exp10 (y);
       a = log2 (y);
       a = pow (y, y);
       a = sqrt (y);
@@ -616,6 +618,14 @@ TYPE
 }
 
 TYPE
+(F(exp10)) (TYPE x)
+{
+  ++count;
+  P ();
+  return x;
+}
+
+TYPE
 (F(exp2)) (TYPE x)
 {
   ++count;
index e804283..13c7022 100644 (file)
 /* Compute base-2 logarithm of X.  */
 #define log2(Val) __TGMATH_UNARY_REAL_ONLY (Val, log2)
 
+#if __GLIBC_USE (IEC_60559_FUNCS_EXT_C2X)
+/* Compute exponent to base ten.  */
+#define exp10(Val) __TGMATH_UNARY_REAL_ONLY (Val, exp10)
+#endif
+
 
 /* Power functions.  */