include/math.h

   1 #ifndef _MATH_H
   2
   3 #ifdef _ISOMAC
   4 # undef NO_LONG_DOUBLE
   5 #endif
   6
   7 #include <math/math.h>
   8
   9 #ifndef _ISOMAC
  10 /* Now define the internal interfaces.  */
  11 extern int __signgam;
  12
  13 # if IS_IN (libc) || IS_IN (libm)
  14 hidden_proto (__finite)
  15 hidden_proto (__isinf)
  16 hidden_proto (__isnan)
  17 hidden_proto (__finitef)
  18 hidden_proto (__isinff)
  19 hidden_proto (__isnanf)
  20
  21 #  ifndef __NO_LONG_DOUBLE_MATH
  22 hidden_proto (__finitel)
  23 hidden_proto (__isinfl)
  24 hidden_proto (__isnanl)
  25 #  endif
  26
  27 #  if __HAVE_DISTINCT_FLOAT128
  28 hidden_proto (__finitef128)
  29 hidden_proto (__isinff128)
  30 hidden_proto (__isnanf128)
  31 hidden_proto (__signbitf128)
  32 #  endif
  33 # endif
  34
  35 libm_hidden_proto (__fpclassify)
  36 libm_hidden_proto (__fpclassifyf)
  37 libm_hidden_proto (__issignaling)
  38 libm_hidden_proto (__issignalingf)
  39 libm_hidden_proto (__exp)
  40 libm_hidden_proto (__expf)
  41 libm_hidden_proto (__roundeven)
  42
  43 # ifndef __NO_LONG_DOUBLE_MATH
  44 libm_hidden_proto (__fpclassifyl)
  45 libm_hidden_proto (__issignalingl)
  46 libm_hidden_proto (__expl)
  47 libm_hidden_proto (__expm1l)
  48 # endif
  49
  50 # if __HAVE_DISTINCT_FLOAT128
  51 libm_hidden_proto (__fpclassifyf128)
  52 libm_hidden_proto (__issignalingf128)
  53 libm_hidden_proto (__expf128)
  54 libm_hidden_proto (__expm1f128)
  55 # endif
  56
  57 # if __HAVE_DISTINCT_FLOAT128
  58
  59 /* __builtin_isinf_sign is broken in GCC < 7 for float128.  */
  60 #  if ! __GNUC_PREREQ (7, 0)
  61 #   include <ieee754_float128.h>
  62 extern inline int
  63 __isinff128 (_Float128 x)
  64 {
  65   int64_t hx, lx;
  66   GET_FLOAT128_WORDS64 (hx, lx, x);
  67   lx |= (hx & 0x7fffffffffffffffLL) ^ 0x7fff000000000000LL;
  68   lx |= -lx;
  69   return ~(lx >> 63) & (hx >> 62);
  70 }
  71 #  endif
  72
  73 extern inline _Float128
  74 fabsf128 (_Float128 x)
  75 {
  76   return __builtin_fabsf128 (x);
  77 }
  78 # endif
  79
  80 # if !(defined __FINITE_MATH_ONLY__ && __FINITE_MATH_ONLY__ > 0)
  81 #  ifndef NO_MATH_REDIRECT
  82 /* Declare some functions for use within GLIBC.  Compilers typically
  83    inline those functions as a single instruction.  Use an asm to
  84    avoid use of PLTs if it doesn't.  */
  85 #   define MATH_REDIRECT(FUNC, PREFIX, ARGS)                    \
  86   float (FUNC ## f) (ARGS (float)) asm (PREFIX #FUNC "f");      \
  87   double (FUNC) (ARGS (double)) asm (PREFIX #FUNC );            \
  88   MATH_REDIRECT_LDBL (FUNC, PREFIX, ARGS)                       \
  89   MATH_REDIRECT_F128 (FUNC, PREFIX, ARGS)
  90 #   ifdef __NO_LONG_DOUBLE_MATH
  91 #    define MATH_REDIRECT_LDBL(FUNC, PREFIX, ARGS)
  92 #   else
  93 #    define MATH_REDIRECT_LDBL(FUNC, PREFIX, ARGS)                      \
  94   long double (FUNC ## l) (ARGS (long double)) asm (PREFIX #FUNC "l");
  95 #   endif
  96 #   if __HAVE_DISTINCT_FLOAT128
  97 #    define MATH_REDIRECT_F128(FUNC, PREFIX, ARGS)                      \
  98   _Float128 (FUNC ## f128) (ARGS (_Float128)) asm (PREFIX #FUNC "f128");
  99 #   else
 100 #    define MATH_REDIRECT_F128(FUNC, PREFIX, ARGS)
 101 #   endif
 102 #   define MATH_REDIRECT_UNARY_ARGS(TYPE) TYPE
 103 #   define MATH_REDIRECT_BINARY_ARGS(TYPE) TYPE, TYPE
 104 MATH_REDIRECT (sqrt, "__ieee754_", MATH_REDIRECT_UNARY_ARGS)
 105 MATH_REDIRECT (ceil, "__", MATH_REDIRECT_UNARY_ARGS)
 106 MATH_REDIRECT (floor, "__", MATH_REDIRECT_UNARY_ARGS)
 107 MATH_REDIRECT (rint, "__", MATH_REDIRECT_UNARY_ARGS)
 108 MATH_REDIRECT (trunc, "__", MATH_REDIRECT_UNARY_ARGS)
 109 MATH_REDIRECT (round, "__", MATH_REDIRECT_UNARY_ARGS)
 110 MATH_REDIRECT (copysign, "__", MATH_REDIRECT_BINARY_ARGS)
 111 #  endif
 112 # endif
 113
 114 #endif
 115 #endif