Subversion Repositories openrisc

#include "headers/sqrtf4.h"

#include "headers/dom_chkf_less_than.h"

static __inline float _sqrtf(float in)

{

  float res;

  vector float vx;

  vector float vc = { 0.0, 0.0, 0.0, 0.0 };

  vx = spu_promote(in, 0);

  res = spu_extract(_sqrtf4(vx), 0);

#ifndef _IEEE_LIBM

  dom_chkf_less_than(vx, vc);

#endif

  return res;

}