mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-12 11:29:30 +00:00
19 lines
338 B
C
19 lines
338 B
C
|
#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;
|
||
|
|
}
|