3 /*-
55 			w = M_PI_2 + 0.0f * I;  in __weak_alias()
60 			w = asinf(x) + 0.0f * I;  in __weak_alias()
71 z2.r = (x - y) * (x + y);  in __weak_alias()
72 z2.i = 2.0 * x * y;  in __weak_alias()
77 ca.i = y;  in __weak_alias()
79 sum.i = y;  in __weak_alias()
82 	ct.r = z2.r * ca.r  -  z2.i * ca.i;  in __weak_alias()
83 	ct.i = z2.r * ca.i  +  z2.i * ca.r;  in __weak_alias()
85 	ca.i = ct.i;  in __weak_alias()
94 	ct.i *= b;  in __weak_alias()
96 	sum.i += ct.i;  in __weak_alias()
97 	b = fabsf(ct.r) + fabsf(ct.i);  in __weak_alias()
100 w->r = sum.r;  in __weak_alias()
101 w->i = sum.i;  in __weak_alias()
107 	ca = x + y * I;  in __weak_alias()
108 	ct = ca * I;  in __weak_alias()
109 	/* sqrt( 1 - z*z) */  in __weak_alias()
111 	/*x * x  -  y * y */  in __weak_alias()
112 	zz = (x - y) * (x + y) + (2.0f * x * y) * I;  in __weak_alias()
114 	zz = 1.0f - crealf(zz) - cimagf(zz) * I;  in __weak_alias()
119 	/* multiply by 1/i = -i */  in __weak_alias()
120 	w = zz * (-1.0f * I);  in __weak_alias()