signbitl
if (signbitl(x))
sign = signbitl(x);
sx = signbitl(x);
return (signbitl(x))? -t: t;
return (signbitl(x))? -t: t;
return (signbitl(x))? t-one: one-t;
} else if (signbitl(s) != signbitl(c)) {
} else if (signbitl(s) != signbitl(c)) {
} else if (signbitl(s) != signbitl(c)) {
} else if (signbitl(s) != signbitl(c)) {
sgn = signbitl(x);
sgn = signbitl(x); /* old n */
extern int signbitl(long double);
signx = signbitl(x);
if (signbitl(x)) return (neg(x,signgamlp));
sign = signbitl(x);
signy = signbitl(y);
signx = signbitl(x);
sx = signbitl(x);
return (signbitl(x))? -t: t;
return (signbitl(x))? -t: t;
return (signbitl(x))? t-one: one-t;
} else if (signbitl(s) != signbitl(c)) {
} else if (signbitl(s) != signbitl(c)) {
} else if (signbitl(s) != signbitl(c)) {
} else if (signbitl(s) != signbitl(c)) {
sgn = signbitl(x);
sgn = signbitl(x); /* old n */
extern int signbitl(long double);
sx = signbitl(x);
signx = signbitl(x);
} else if (signbitl(y) == 0) {