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