3 /*-
54 			w = M_PI_2L + 0.0L * (double complex) I;  in __weak_alias()
59 			w = asinl(x) + 0.0L * (double complex) I;  in __weak_alias()
70 z2.r = (x - y) * (x + y);  in __weak_alias()
71 z2.i = 2.0L * x * y;  in __weak_alias()
76 ca.i = y;  in __weak_alias()
78 sum.i = y;  in __weak_alias()
81 	ct.r = z2.r * ca.r  -  z2.i * ca.i;  in __weak_alias()
82 	ct.i = z2.r * ca.i  +  z2.i * ca.r;  in __weak_alias()
84 	ca.i = ct.i;  in __weak_alias()
93 	ct.i *= b;  in __weak_alias()
95 	sum.i += ct.i;  in __weak_alias()
96 	b = fabsl(ct.r) + fabsl(ct.i);  in __weak_alias()
99 w->r = sum.r;  in __weak_alias()
100 w->i = sum.i;  in __weak_alias()
106 	ca = x + y * (long double complex) I;  in __weak_alias()
107 	ct = ca * (long double complex) I;  in __weak_alias()
108 	/* sqrtl( 1 - z*z) */  in __weak_alias()
110 	/*x * x  -  y * y */  in __weak_alias()
111 	zz = (x - y) * (x + y) + (2.0L * x * y) * (long double complex) I;  in __weak_alias()
113 	zz = 1.0L - creall(zz) - cimagl(zz) * (long double complex) I;  in __weak_alias()
118 	/* multiply by 1/i = -i */  in __weak_alias()
119 	w = zz * (-1.0L * (long double complex) I);  in __weak_alias()