blob: 7a6348124686c41aca58903a85ffec5a7a275abb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#include <math.h>
#include <limits.h>
#include <errno.h>
long
lroundl (long double x)
{
/* Add +/- 0.5, then round towards zero. */
long double tmp = truncl (x + (x >= 0.0L ? 0.5L : -0.5L));
if (!isfinite (tmp)
|| tmp > (long double)LONG_MAX
|| tmp < (long double)LONG_MIN)
{
errno = ERANGE;
/* Undefined behaviour, so we could return anything. */
/* return tmp > 0.0L ? LONG_MAX : LONG_MIN; */
}
return (long)tmp;
}
|