forked from KolibriOS/kolibrios
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;
|
||
|
}
|
||
|
}
|
||
|
|