88 expm1l(long double x)  in expm1l()  argument
93 if( isnan(x) )  in expm1l()
94   return(x + x);  in expm1l()
97 if (x > MAXLOGL) {  in expm1l()
98   if (isinf(x))  in expm1l()
99     return x;  in expm1l()
103 if (x == 0.0l)  in expm1l()
104   return x;  in expm1l()
107 if (x < minarg) {  in expm1l()
108   if (isinf(x))  in expm1l()
116 px = floorl (0.5l + x / xx);  in expm1l()
119 x -= px * C1;  in expm1l()
120 x -= px * C2;  in expm1l()
123 px = (((( P4 * x  in expm1l()
124 	 + P3) * x  in expm1l()
125 	+ P2) * x  in expm1l()
126        + P1) * x  in expm1l()
127       + P0) * x;  in expm1l()
129 qx = (((( x  in expm1l()
130 	 + Q4) * x  in expm1l()
131 	+ Q3) * x  in expm1l()
132        + Q2) * x  in expm1l()
133       + Q1) * x  in expm1l()
136 xx = x * x;  in expm1l()
137 qx = x + (0.5l * xx + xx * px / qx);  in expm1l()
146 x = px - 1.0L;  in expm1l()
147 if (!isinfl(x))  in expm1l()
148     x += px * qx;  in expm1l()
149 return x;  in expm1l()