//## Complex Complex.cacosl();
static KMETHOD Complex_cacosl(KonohaContext *kctx, KonohaStack *sfp)
{
kComplex *kc = (kComplex *) sfp[0].asObject;
long double _Complex zl = (long double _Complex)kc->z;
long double ret = cacosl(zl);
KReturnFloatValue(ret);
}
long double complex
cacoshl(long double complex z)
{
long double complex w;
w = I * cacosl(z);
return (w);
}
//## Complex Complex.cacosl();
static KMETHOD Complex_cacosl(KonohaContext *kctx, KonohaStack *sfp)
{
kComplex *kc = (kComplex *) sfp[0].asObject;
long double _Complex zl = (long double _Complex)kc->z;
#if !defined(__CYGWIN__)
long double ret = cacosl(zl);
#else
long double ret = cacos(zl);
#endif
KReturnFloatValue(ret);
}
long double complex
cacoshl(long double complex z)
{
long double complex w;
long double rx, ry;
w = cacosl(z);
rx = creall(w);
ry = cimagl(w);
if (isnan(rx) && isnan(ry))
return (CMPLXL(ry, rx));
if (isnan(rx))
return (CMPLXL(fabsl(ry), rx));
if (isnan(ry))
return (CMPLXL(ry, ry));
return (CMPLXL(fabsl(ry), copysignl(rx, cimagl(z))));
}
// RUN: %ppcecc -o %t %s -lm && %ppcrun %t
// FAIL: %ppc64ecc -o %t %s -lm && %ppc64run %t
// RUN: %x86_64ecc -o %t %s -lm && %x86_64run %t
#include "../ecc_test.h"
#include <complex.h>
// The type imaginary is not supported.
TEST_GROUP(Complex)
float complex f = I;
double complex d = I;
long double complex ld = I;
TEST_RESOLVED(MIPS, "http://ellcc.org/bugzilla/show_bug.cgi?id=59") {
TEST_TRACE(C99 7.3.5.1)
d = cacos(d);
f = cacosf(f);
ld = cacosl(ld);
TEST_TRACE(C99 7.3.5.2)
d = casin(d);
f = casinf(f);
ld = casinl(ld);
TEST_TRACE(C99 7.3.5.3)
d = catan(d);
f = catanf(f);
ld = catanl(ld);
TEST_TRACE(C99 7.3.5.4)
d = ccos(d);
f = ccosf(f);
ld = ccosl(ld);
TEST_TRACE(C99 7.3.5.5)
d = csin(d);
f = csinf(f);
long double complex cacoshl(long double complex z)
{
z = cacosl(z);
return cpackl(-cimagl(z), creall(z));
}
long double complex cacoshl(long double complex z) {
z = cacosl(z);
return CMPLXL(-cimagl(z), creall(z));
}
