Subversion Repositories openrisc

#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;
}