JehanneOS/newlib
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* mingwex/math/lround.c: Rewrite.

Browse Source 
* mingwex/math/lroundf.c: Rewrite.
	* mingwex/math/lroundl.c: Rewrite.
	* mingwex/math/llround.c: Rewrite.
	* mingwex/math/llroundf.c: Rewrite.
	* mingwex/math/llroundl.c: Rewrite.
This commit is contained in:
Danny Smith
2004-04-22 04:38:24 +00:00
parent b7ede86cfe
commit 1a4b7623f4
7 changed files with 101 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
winsup/mingw/mingwex/math/lroundl.c
View File

@@ -1,22 +1,19 @@
#include <fenv.h>
#include <math.h>
#include <limits.h>
#include <errno.h>
long
lroundl (long double x) {
long retval;
unsigned short saved_cw, _cw;
__asm__ (
"fnstcw %0;" : "=m" (saved_cw)
); /* save control word */
_cw = ~(FE_TONEAREST | FE_DOWNWARD | FE_UPWARD | FE_TOWARDZERO)
| (x > 0.0 ? FE_UPWARD : FE_DOWNWARD); /* round away from zero */
__asm__ (
"fldcw %0;" : : "m" (_cw)
); /* load the rounding control */
__asm__ __volatile__ (
"fistpl %0" : "=m" (retval) : "t" (x) : "st");
__asm__ (
"fldcw %0;" : : "m" (saved_cw)
); /* restore control word */
return retval;
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;
}