Subversion Repositories openrisc_me

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

}