tiny
static const double zero = 0.0, tiny = 1.0e-307, tiny2 = 1.001e-307,
t = tiny * tiny;
t = tiny2 - tiny; /* exact */
t = tiny / zero;
t = huge + tiny;
return (one - tiny);
return (tiny - one);
return (two - tiny); /* x < -6 */
return (tiny * tiny);
return (two - tiny);
t = (ix < 0)? tiny : huge;
t = (ix < 0)? tiny : huge;
if (x + tiny < 0.0) /* raise inexact */
return (tiny - one); /* return -1 */
if (x <= tiny)
if (x <= tiny) {
tiny = 1.0e-18,
if (x <= tiny)
if (x <= tiny) {
tiny = 1.0e-20,
return (tiny * ((ix < 0)? -tiny : tiny));
tiny = 1.0e-300,
if (z <= tiny)
tiny = 1.0e-40L;
tiny = 1.0e-20L;
if (w < tiny) {
tiny = 1e-40L,
if (y<=tiny) return x+P[0]*x;
if (y<=9.0L) t = erfcl(y); else t = tiny;
if (x <= tiny)
if (x <= tiny) {
tiny = 1.0e-38L,
if (x <= tiny) d = 0.5L*x;
if (x <= tiny) {
tiny = 1.0e-38L,
tiny = 1.0e-100;
*s = *c = sqrth + tiny;
y = sqrth + tiny;
tiny = 1.0e-100;
if (z<=tiny)
tiny = 1.0e-40L;
tiny = 1.0e-20L;
if (w < tiny) {
return (-PI - tiny); /* atan(-0,-anything) */
return (signy != 0 ? -PIo2 - tiny : PIo2 + tiny);
return (PIo4 + tiny); /* atan(+INF,+INF) */
return (-PIo4 - tiny); /* atan(-INF,+INF) */
return (PI3o4 + tiny); /* atan(+INF,-INF) */
return (-PI3o4 - tiny); /* atan(-INF,-INF) */
return (PI + tiny); /* atan(+...,-INF) */
return (-PI - tiny); /* atan(-...,-INF) */
return (signy != 0 ? -PIo2 - tiny : PIo2 + tiny);
tiny = 1.0e-40L,
return (PI + tiny); /* atan(+0,-anything) */
tiny = 1e-40L,
if (y<=tiny) return x+P[0]*x;
if (y<=9.0L) t = erfcl(y); else t = tiny;
tiny = TINY * TINY,
if (fabsl(x) < tiny)
tiny = TINY * TINY,
if (t < tiny)
tiny = +1.0e-4000L,
return (tiny - x / x);
if (x<=tiny) return one-x;
if (x<=tiny) {
tiny = 1.0e-38L,
if (x<=tiny) d = 0.5L*x;
if (x<=tiny) {
tiny = 1.0e-38L,
*s = *c = sqrth + tiny;
tiny = 1.0e-100;
y = sqrth + tiny;
tiny = 1.0e-100;
tiny = 1.0e-300,
t += tiny;
return (tiny * tiny); /* underflow */
volatile float t = tiny;
static const float zero = 0.0F, one = 1.0F, huge = 1.0e25f, tiny = 1.0e-25f;
fz = (i > 0)? huge : tiny;
r = (hx < 0)? tiny * tiny : huge * huge;
tiny = 1e-300,
r = (hx < 0)? tiny * tiny : huge * huge;
tiny = 1.0e-4000L,
dummy = tiny;
dummy *= tiny;
dummy += tiny;
dummy = tiny;
dummy *= tiny;
dummy += tiny;
dummy = tiny;
dummy *= tiny;
dummy += tiny;
dummy = tiny;
dummy *= tiny;
dummy = tiny;
dummy *= tiny;
dummy = tiny;
dummy *= tiny;
dummy = tiny;
dummy *= tiny;
z = x / tiny;
z = tiny / x;
return (z * tiny);
z = -tiny * tiny;
z = tiny * tiny;
return (float)(x / tiny);
z = -tiny;
z = tiny;
z = tiny / x;
return (z * tiny);
y##N *= tiny; \
y[index] = tiny * tiny; \
y0 *= tiny;
y1 *= tiny;
y2 *= tiny;
y3 *= tiny;
y4 *= tiny;
y5 *= tiny;
GCC_ATTR(tiny)