forked from KolibriOS/kolibrios
39 lines
885 B
C
39 lines
885 B
C
|
/*
|
||
|
|
* ====================================================
|
||
|
|
* x87 FP implementation contributed to Newlib by
|
||
|
|
* Dave Korn, November 2007. This file is placed in the
|
||
|
|
* public domain. Permission to use, copy, modify, and
|
||
|
|
* distribute this software is freely granted.
|
||
|
|
* ====================================================
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifdef __GNUC__
|
||
|
|
#if !defined(_SOFT_FLOAT)
|
||
|
|
|
||
|
|
#include <math.h>
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Fast math version of rintl(x)
|
||
|
|
* Return x rounded to integral value according to the prevailing
|
||
|
|
* rounding mode.
|
||
|
|
* Method:
|
||
|
|
* Using inline x87 asms.
|
||
|
|
* Exception:
|
||
|
|
* Governed by x87 FPCR.
|
||
|
|
*/
|
||
|
|
|
||
|
|
long double _f_rintl (long double x)
|
||
|
|
{
|
||
|
|
long double _result;
|
||
|
|
asm ("frndint" : "=t" (_result) : "0" (x));
|
||
|
|
return _result;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* For now, we only have the fast math version. */
|
||
|
|
long double rintl (long double x) {
|
||
|
|
return _f_rintl(x);
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif /* !_SOFT_FLOAT */
|
||
|
|
#endif /* __GNUC__ */
|