double acos(double x) /* wrapper acos */
{
#ifdef CYGSEM_LIBM_COMPAT_IEEE_ONLY
return __ieee754_acos(x);
#else
double z;
z = __ieee754_acos(x);
if(cyg_libm_get_compat_mode() == CYGNUM_LIBM_COMPAT_IEEE || isnan(x)) return z;
if(fabs(x)>1.0) {
return __kernel_standard(x,x,1); /* acos(|x|>1) */
} else
return z;
#endif
}
double acos(double x) /* wrapper acos */
{
#ifdef _IEEE_LIBM
return __ieee754_acos(x);
#else
double z;
z = __ieee754_acos(x);
if(_LIB_VERSION == _IEEE_ || isnan(x)) return z;
if(fabs(x)>1.0) {
return __kernel_standard(x,x,1); /* acos(|x|>1) */
} else
return z;
#endif
}
double acos(double x)
{
double z = __ieee754_acos(x);
if (_LIB_VERSION == _IEEE_ || isnan(x))
return z;
if (fabs(x) > 1.0)
return __kernel_standard(x, x, 1); /* acos(|x|>1) */
return z;
}
void
Math_acos(void *fp)
{
F_Math_acos *f;
f = fp;
*f->ret = __ieee754_acos(f->x);
}
/* wrapper acos */
double
__acos (double x)
{
if (__builtin_expect (fabs (x) > 1.0, 0) && _LIB_VERSION != _IEEE_)
{
/* acos(|x|>1) */
feraiseexcept (FE_INVALID);
return __kernel_standard (x, x, 1);
}
return __ieee754_acos (x);
}
EXPORT(sqInt) primitiveArcCos(void) {
double rcvr;
double result;
rcvr = interpreterProxy->stackFloatValue(0);
if (interpreterProxy->failed()) {
return null;
}
result = __ieee754_acos(rcvr);
if (isnan(result)) {
return interpreterProxy->primitiveFail();
}
interpreterProxy->pop((interpreterProxy->methodArgumentCount()) + 1);
interpreterProxy->pushFloat(result);
}
primitiveArcCos(void)
{
// FloatMathPlugin>>#primitiveArcCos
double rcvr;
double result;
rcvr = stackFloatValue(0);
if (failed()) {
return null;
}
result = __ieee754_acos(rcvr);
if (isnan(result)) {
return primitiveFail();
}
pop((methodArgumentCount()) + 1);
pushFloat(result);
}
// Jump target/GCC encapsulation stub routines
Err mathlib_acos(UInt16 refnum, double x, double *result) {
#pragma unused(refnum)
*result = __ieee754_acos(x);
return mlErrNone;
}
