[thirdparty/glibc.git] / sysdeps / ieee754 / ldbl-128ibm / w_expl_compat.c

#include <math.h>
#include <math_private.h>
#include <math-svid-compat.h>
#include <math_ldbl_opt.h>

long double __expl(long double x)	/* wrapper exp  */
{
  long double z;
  z = __ieee754_expl(x);
  if (_LIB_VERSION == _IEEE_)
    return z;
  if (isfinite(x))
    {
      if (!isfinite (z))
	return __kernel_standard_l(x,x,206); /* exp overflow  */
      else if (z == 0.0L)
	return __kernel_standard_l(x,x,207); /* exp underflow  */
    }
  return z;
}
hidden_def (__expl)
long_double_symbol (libm, __expl, expl);
Commit	Line	Data
e42a38dd AZ	1	#include <math.h>
e42a38dd AZ	2	#include <math_private.h>
813378e9	3	#include <math-svid-compat.h>
f964490f	4	#include <math_ldbl_opt.h>
e42a38dd	5
e42a38dd AZ	6	long double __expl(long double x) /* wrapper exp */
	7	{
	8	long double z;
	9	z = __ieee754_expl(x);
	10	if (_LIB_VERSION == _IEEE_)
	11	return z;
d81f90cc	12	if (isfinite(x))
e42a38dd	13	{
6c9678eb	14	if (!isfinite (z))
e42a38dd	15	return __kernel_standard_l(x,x,206); /* exp overflow */
6c9678eb	16	else if (z == 0.0L)
e42a38dd AZ	17	return __kernel_standard_l(x,x,207); /* exp underflow */
	18	}
	19	return z;
	20	}
	21	hidden_def (__expl)
f964490f	22	long_double_symbol (libm, __expl, expl);