newlib/winsup/mingw/mingwex/math/roundl.c
Danny Smith 521a0aa9a8 * mingwex/math/round.c: Rewrite.
* mingwex/math/roundf.c: Rewrite.
	* mingwex/math/roundl.c: Rewrite.
2004-03-29 08:22:20 +00:00

9 lines
161 B
C

#include <math.h>
long double
roundl (long double x)
{
/* Add +/- 0.5 then then round towards zero. */
return truncl ( x + (x >= 0.0L ? 0.5L : -0.5L));
}