forked from KolibriOS/kolibrios
2336060a0c
git-svn-id: svn://kolibrios.org@1906 a494cfbc-eb01-0410-851d-a64ba20cac60
38 lines
493 B
C
38 lines
493 B
C
#include <math.h>
|
|
#include <errno.h>
|
|
|
|
extern float __QNANF;
|
|
|
|
float
|
|
sqrtf (float x)
|
|
{
|
|
if (x < 0.0F )
|
|
{
|
|
errno = EDOM;
|
|
return __QNANF;
|
|
}
|
|
else
|
|
{
|
|
float res;
|
|
asm ("fsqrt" : "=t" (res) : "0" (x));
|
|
return res;
|
|
}
|
|
}
|
|
|
|
double
|
|
sqrt (double x)
|
|
{
|
|
if (x < 0.0F )
|
|
{
|
|
errno = EDOM;
|
|
return __QNANF;
|
|
}
|
|
else
|
|
{
|
|
double res;
|
|
asm ("fsqrt" : "=t" (res) : "0" (x));
|
|
return res;
|
|
}
|
|
}
|
|
|