Retro68/gcc/newlib/libm/machine/spu/headers/atanh.h

19 lines
338 B
C
Raw Normal View History

#include "headers/atanhd2.h"
#include "headers/dom_chkd_negone_one.h"
static __inline double _atanh(double x)
{
double res;
vector double vx;
vx = spu_splats(x);
res = spu_extract(_atanhd2(vx), 0);
#ifndef _IEEE_LIBM
/*
* Domain error if not in the interval [-1, +1]
*/
dom_chkd_negone_one(vx);
#endif
return res;
}