Lines Matching refs:w
88 long double t, w;
90 w = fabsl(x);
91 if (!finitel(w))
92 return (w + w); /* x is INF or NaN */
93 if (w < thr1) {
94 t = w < tinyl ? w : expm1l(w);
95 w = one + t;
96 if (w != one)
97 w = one + (t * t) / (w + w);
98 return (w);
99 } else if (w < thr2) {
100 t = expl(w);
102 } else if (w <= lnovftL)
103 return (half * expl(w));
105 return (scalbnl(expl((w - MEP1 * ln2hi) - MEP1 * ln2lo), ME));