#include #include #include static const long double o_thres = 709.78271289338399678773454114191496482L; static const long double u_thres = -744.44007192138126231410729844608163411L; long double __expl(long double x) /* wrapper exp */ { long double z; z = __ieee754_expl(x); if (_LIB_VERSION == _IEEE_) return z; if (__finitel(x)) { if (x >= o_thres) return __kernel_standard_l(x,x,206); /* exp overflow */ else if (x <= u_thres) return __kernel_standard_l(x,x,207); /* exp underflow */ } return z; } hidden_def (__expl) long_double_symbol (libm, __expl, expl);