copysignl
long double copysignl(long double, long double) __pure2;
extern long double copysignl(long double, long double);
return (copysignl(log1pl(w + w / (t + sqrtl(one + t * t))), x));
return (copysignl(logl(w) + ln2, x));
#define COPYSIGN copysignl
return copysignl(one,x); /* return +-1.0 is x=Inf */
extern long double copysignl(long double, long double);
dummy = LDBL_MIN * copysignl(LDBL_MIN, x);
dummy = LDBL_MAX * copysignl(LDBL_MAX, x);
r = copysignl((t + t / (one + t)) * half, x);
r = copysignl(expl((r - lnovft) - lnovlo), x);
return (copysignl(one, x));
return (copysignl(log1pl(w + w / (t + sqrtl(one + t * t))), x));
return (copysignl(logl(w) + ln2, x));
return (copysignl(half, x) * log1pl(t + t));
return copysignl(one,x); /* return +-1.0 is x=Inf */
return (copysignl(t + qone, x));
return (copysignl(t - qone, x));
extern long double copysignl(long double, long double);
dummy = LDBL_MIN * copysignl(LDBL_MIN, x);
dummy = LDBL_MAX * copysignl(LDBL_MAX, x);
t = copysignl(two112, x);
return (copysignl(qzero, x)); /* x rounded to zero */
return ((int)copysignl(1.0e100L, x));
return ((int)copysignl(1.0e100L, x));
return (copysignl(t, x)); /* NaN or already aint(|x|) */
return (copysignl(t - qone, x)); /* |t-1|*sign(x) */
return (copysignl(t, x));
return (copysignl(t, x));
return (LDBL_MAX * copysignl(LDBL_MAX, x));
return (LDBL_MIN * copysignl(LDBL_MIN, x));
r = copysignl((t + t / (one + t)) * half, x);
r = copysignl(expl((r - MEP1 * ln2hi) - MEP1 * ln2lo), x);
return (copysignl(one, x));
*w = copysignl(pi_lo, y);
return (copysignl(pi, y));
dummy = LDBL_MIN * copysignl(LDBL_MIN, x);
dummy = LDBL_MAX * copysignl(LDBL_MAX, x);
return (LDBL_MAX * copysignl(LDBL_MAX, x));
return (LDBL_MIN * copysignl(LDBL_MIN, x));