math: fix tgamma to raise underflow for large negative values
[oweals/musl.git] / src / math / nearbyintl.c
1 #include <math.h>
2 #include <float.h>
3
4 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
5 long double nearbyintl(long double x)
6 {
7         return nearbyint(x);
8 }
9 #else
10 #include <fenv.h>
11 long double nearbyintl(long double x)
12 {
13 #ifdef FE_INEXACT
14         #pragma STDC FENV_ACCESS ON
15         int e;
16
17         e = fetestexcept(FE_INEXACT);
18 #endif
19         x = rintl(x);
20 #ifdef FE_INEXACT
21         if (!e)
22                 feclearexcept(FE_INEXACT);
23 #endif
24         return x;
25 }
26 #endif