3 /*-
22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
44 	long double complex ca, ct, zz, z2;  in __weak_alias()  local
69 z2.r = (x - y) * (x + y);  in __weak_alias()
80 	ct.r = z2.r * ca.r  -  z2.i * ca.i;  in __weak_alias()
81 	ct.i = z2.r * ca.i  +  z2.i * ca.r;  in __weak_alias()
82 	ca.r = ct.r;  in __weak_alias()
83 	ca.i = ct.i;  in __weak_alias()
91 	ct.r *= b;  in __weak_alias()
92 	ct.i *= b;  in __weak_alias()
93 	sum.r += ct.r;  in __weak_alias()
94 	sum.i += ct.i;  in __weak_alias()
95 	b = fabsl(ct.r) + fabsl(ct.i);  in __weak_alias()
98 w->r = sum.r;  in __weak_alias()
99 w->i = sum.i;  in __weak_alias()
106 	ct = ca * I;  in __weak_alias()
107 	/* sqrtl( 1 - z*z) */  in __weak_alias()
109 	/*x * x  -  y * y */  in __weak_alias()
110 	zz = (x - y) * (x + y) + (2.0L * x * y) * I;  in __weak_alias()
112 	zz = 1.0L - creall(zz) - cimagl(zz) * I;  in __weak_alias()
115 	zz = ct + z2;  in __weak_alias()
117 	/* multiply by 1/i = -i */  in __weak_alias()
118 	w = zz * (-1.0L * I);  in __weak_alias()