math/w_exp10_compat.c

   1 /* Copyright (C) 2011-2024 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3
   4    The GNU C Library is free software; you can redistribute it and/or
   5    modify it under the terms of the GNU Lesser General Public
   6    License as published by the Free Software Foundation; either
   7    version 2.1 of the License, or (at your option) any later version.
   8
   9    The GNU C Library is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    Lesser General Public License for more details.
  13
  14    You should have received a copy of the GNU Lesser General Public
  15    License along with the GNU C Library; if not, see
  16    <https://www.gnu.org/licenses/>.  */
  17
  18
  19 /*
  20  * wrapper exp10(x)
  21  */
  22
  23 #include <math.h>
  24 #include <math_private.h>
  25 #include <math-svid-compat.h>
  26 #include <libm-alias-double.h>
  27
  28 #ifndef NO_COMPAT_NEEDED
  29 # define NO_COMPAT_NEEDED 0
  30 #endif
  31
  32 #if LIBM_SVID_COMPAT && (SHLIB_COMPAT (libm, GLIBC_2_1, GLIBC_2_39) \
  33                          || defined NO_LONG_DOUBLE \
  34                          || defined LONG_DOUBLE_COMPAT)
  35 double
  36 __exp10_compat (double x)
  37 {
  38   double z = __ieee754_exp10 (x);
  39   if (__builtin_expect (!isfinite (z) || z == 0, 0)
  40       && isfinite (x) && _LIB_VERSION != _IEEE_)
  41     /* exp10 overflow (46) if x > 0, underflow (47) if x < 0.  */
  42     return __kernel_standard (x, x, 46 + !!signbit (x));
  43
  44   return z;
  45 }
  46 # if NO_COMPAT_NEEDED
  47 #  ifdef SHARED
  48 libm_alias_double (__exp10_compat, exp10)
  49 #  endif
  50 #else
  51 #  if SHLIB_COMPAT (libm, GLIBC_2_1, GLIBC_2_39)
  52 compat_symbol (libm, __exp10_compat, exp10, GLIBC_2_1);
  53 #  endif
  54 #  ifdef NO_LONG_DOUBLE
  55 weak_alias (__exp10_compat, exp10l)
  56 #  endif
  57 #  ifdef LONG_DOUBLE_COMPAT
  58 LONG_DOUBLE_COMPAT_CHOOSE_libm_exp10l (
  59   compat_symbol (libm, __exp10_compat, exp10l, FIRST_VERSION_libm_exp10l), );
  60 #  endif
  61 # endif
  62
  63 # if SHLIB_COMPAT (libm, GLIBC_2_1, GLIBC_2_27)
  64 strong_alias (__exp10_compat, __pow10)
  65 compat_symbol (libm, __pow10, pow10, GLIBC_2_1);
  66 # endif
  67 # ifdef NO_LONG_DOUBLE
  68 #  if SHLIB_COMPAT (libm, GLIBC_2_1, GLIBC_2_27)
  69 strong_alias (exp10l, __pow10l)
  70 compat_symbol (libm, __pow10l, pow10l, GLIBC_2_1);
  71 #  endif
  72 # endif
  73 #endif