forked from KolibriOS/kolibrios
newlib: update
git-svn-id: svn://kolibrios.org@1906 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
@@ -0,0 +1,19 @@
|
||||
#include <math.h>
|
||||
#include <errno.h>
|
||||
|
||||
long double ldexpl(long double x, int expn)
|
||||
{
|
||||
long double res;
|
||||
if (!isfinite (x) || x == 0.0L)
|
||||
return x;
|
||||
|
||||
__asm__ ("fscale"
|
||||
: "=t" (res)
|
||||
: "0" (x), "u" ((long double) expn));
|
||||
|
||||
if (!isfinite (res) || res == 0.0L)
|
||||
errno = ERANGE;
|
||||
|
||||
return res;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user