bits/math-finite.h

   1 /* Entry points to finite-math-only compiler runs.
   2    Copyright (C) 2011-2019 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, see
  17    <https://www.gnu.org/licenses/>.  */
  18
  19 #ifndef _MATH_H
  20 # error "Never use <bits/math-finite.h> directly; include <math.h> instead."
  21 #endif
  22
  23 #define __REDIRFROM(...) __REDIRFROM_X(__VA_ARGS__)
  24
  25 #define __REDIRTO(...) __REDIRTO_X(__VA_ARGS__)
  26
  27 #define __MATH_REDIRCALL_X(from, args, to) \
  28   extern _Mdouble_ __REDIRECT_NTH (from, args, to)
  29 #define __MATH_REDIRCALL(function, reentrant, args) \
  30   __MATH_REDIRCALL_X \
  31    (__REDIRFROM (function, reentrant), args, \
  32     __REDIRTO (function, reentrant))
  33 #define __MATH_REDIRCALL_2(from, reentrant, args, to) \
  34   __MATH_REDIRCALL_X \
  35    (__REDIRFROM (from, reentrant), args, \
  36     __REDIRTO (to, reentrant))
  37
  38 #define __MATH_REDIRCALL_INTERNAL(function, reentrant, args) \
  39   __MATH_REDIRCALL_X \
  40    (__REDIRFROM (__CONCAT (__, function), \
  41                  __CONCAT (reentrant, _finite)), \
  42     args, __REDIRTO (function, _r))
  43
  44
  45 /* acos.  */
  46 __MATH_REDIRCALL (acos, , (_Mdouble_));
  47
  48 #if defined __USE_XOPEN_EXTENDED || defined __USE_ISOC99
  49 /* acosh.  */
  50 __MATH_REDIRCALL (acosh, , (_Mdouble_));
  51 #endif
  52
  53 /* asin.  */
  54 __MATH_REDIRCALL (asin, , (_Mdouble_));
  55
  56 /* atan2.  */
  57 __MATH_REDIRCALL (atan2, , (_Mdouble_, _Mdouble_));
  58
  59 #if defined __USE_XOPEN_EXTENDED || defined __USE_ISOC99
  60 /* atanh.  */
  61 __MATH_REDIRCALL (atanh, , (_Mdouble_));
  62 #endif
  63
  64 /* cosh.  */
  65 __MATH_REDIRCALL (cosh, , (_Mdouble_));
  66
  67 /* exp.  */
  68 __MATH_REDIRCALL (exp, , (_Mdouble_));
  69
  70 #if __GLIBC_USE (IEC_60559_FUNCS_EXT_C2X)
  71 /* exp10.  */
  72 __MATH_REDIRCALL (exp10, , (_Mdouble_));
  73 #endif
  74
  75 #ifdef __USE_ISOC99
  76 /* exp2.  */
  77 __MATH_REDIRCALL (exp2, , (_Mdouble_));
  78 #endif
  79
  80 /* fmod.  */
  81 __MATH_REDIRCALL (fmod, , (_Mdouble_, _Mdouble_));
  82
  83 #if defined __USE_XOPEN || defined __USE_ISOC99
  84 /* hypot.  */
  85 __MATH_REDIRCALL (hypot, , (_Mdouble_, _Mdouble_));
  86 #endif
  87
  88 #if (__MATH_DECLARING_DOUBLE && (defined __USE_MISC || defined __USE_XOPEN)) \
  89     || (!__MATH_DECLARING_DOUBLE && defined __USE_MISC)
  90 /* j0.  */
  91 __MATH_REDIRCALL (j0, , (_Mdouble_));
  92
  93 /* y0.  */
  94 __MATH_REDIRCALL (y0, , (_Mdouble_));
  95
  96 /* j1.  */
  97 __MATH_REDIRCALL (j1, , (_Mdouble_));
  98
  99 /* y1.  */
 100 __MATH_REDIRCALL (y1, , (_Mdouble_));
 101
 102 /* jn.  */
 103 __MATH_REDIRCALL (jn, , (int, _Mdouble_));
 104
 105 /* yn.  */
 106 __MATH_REDIRCALL (yn, , (int, _Mdouble_));
 107 #endif
 108
 109 #ifdef __USE_MISC
 110 /* lgamma_r.  */
 111 __MATH_REDIRCALL (lgamma, _r, (_Mdouble_, int *));
 112 #endif
 113
 114 /* Redirect __lgammal_r_finite to __lgamma_r_finite when __NO_LONG_DOUBLE_MATH
 115    is set and to itself otherwise.  It also redirects __lgamma_r_finite and
 116    __lgammaf_r_finite to themselves.  */
 117 __MATH_REDIRCALL_INTERNAL (lgamma, _r, (_Mdouble_, int *));
 118
 119 #if ((defined __USE_XOPEN || defined __USE_ISOC99) \
 120      && defined __extern_always_inline)
 121 /* lgamma.  */
 122 __extern_always_inline _Mdouble_
 123 __NTH (__REDIRFROM (lgamma, ) (_Mdouble_ __d))
 124 {
 125 # if defined __USE_MISC || defined __USE_XOPEN
 126   return __REDIRTO (lgamma, _r) (__d, &signgam);
 127 # else
 128   int __local_signgam = 0;
 129   return __REDIRTO (lgamma, _r) (__d, &__local_signgam);
 130 # endif
 131 }
 132 #endif
 133
 134 #if ((defined __USE_MISC || (defined __USE_XOPEN && !defined __USE_XOPEN2K)) \
 135      && defined __extern_always_inline) && !__MATH_DECLARING_FLOATN
 136 /* gamma.  */
 137 __extern_always_inline _Mdouble_
 138 __NTH (__REDIRFROM (gamma, ) (_Mdouble_ __d))
 139 {
 140   return __REDIRTO (lgamma, _r) (__d, &signgam);
 141 }
 142 #endif
 143
 144 /* log.  */
 145 __MATH_REDIRCALL (log, , (_Mdouble_));
 146
 147 /* log10.  */
 148 __MATH_REDIRCALL (log10, , (_Mdouble_));
 149
 150 #ifdef __USE_ISOC99
 151 /* log2.  */
 152 __MATH_REDIRCALL (log2, , (_Mdouble_));
 153 #endif
 154
 155 /* pow.  */
 156 __MATH_REDIRCALL (pow, , (_Mdouble_, _Mdouble_));
 157
 158 #if defined __USE_XOPEN_EXTENDED || defined __USE_ISOC99
 159 /* remainder.  */
 160 __MATH_REDIRCALL (remainder, , (_Mdouble_, _Mdouble_));
 161 #endif
 162
 163 #if ((__MATH_DECLARING_DOUBLE \
 164       && (defined __USE_MISC \
 165           || (defined __USE_XOPEN_EXTENDED && !defined __USE_XOPEN2K8))) \
 166      || (!defined __MATH_DECLARE_LDOUBLE && defined __USE_MISC)) \
 167     && !__MATH_DECLARING_FLOATN
 168 /* scalb.  */
 169 __MATH_REDIRCALL (scalb, , (_Mdouble_, _Mdouble_));
 170 #endif
 171
 172 /* sinh.  */
 173 __MATH_REDIRCALL (sinh, , (_Mdouble_));
 174
 175 /* sqrt.  */
 176 __MATH_REDIRCALL (sqrt, , (_Mdouble_));
 177
 178 #if defined __USE_ISOC99 && defined __extern_always_inline
 179 /* tgamma.  */
 180 extern _Mdouble_
 181 __REDIRFROM (__gamma, _r_finite) (_Mdouble_, int *);
 182
 183 __extern_always_inline _Mdouble_
 184 __NTH (__REDIRFROM (tgamma, ) (_Mdouble_ __d))
 185 {
 186   int __local_signgam = 0;
 187   _Mdouble_ __res = __REDIRTO (gamma, _r) (__d, &__local_signgam);
 188   return __local_signgam < 0 ? -__res : __res;
 189 }
 190 #endif
 191
 192 #undef __REDIRFROM
 193 #undef __REDIRTO
 194 #undef __MATH_REDIRCALL
 195 #undef __MATH_REDIRCALL_2
 196 #undef __MATH_REDIRCALL_INTERNAL
 197 #undef __MATH_REDIRCALL_X