newlib/libm/machine/spu/headers/atanhf.h


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#include "headers/atanhf4.h"
#include "headers/dom_chkf_negone_one.h"

static __inline float _atanhf(float x)
{
  float res;
  vector float vx;

  vx = spu_splats(x);
  res = spu_extract(_atanhf4(vx), 0);
#ifndef _IEEE_LIBM
  /*
   * Domain error if not in the interval [-1, +1]
   */
  dom_chkf_negone_one(vx);
#endif
  return res;
}