57 	long double a, b, rx, ry, scale, t;  in csqrtl()  local
88 	/* Scale to avoid overflow. */  in csqrtl()
91 		 * Don't scale a or b if this might give (spurious)  in csqrtl()
99 		scale = 2;  in csqrtl()
101 		scale = 1;  in csqrtl()
104 	/* Scale to reduce inaccuracies when both components are denormal. */  in csqrtl()
108 		scale = 0x1p-32;  in csqrtl()
114 		rx = scale * t;  in csqrtl()
115 		ry = scale * b / (2 * t);  in csqrtl()
118 		rx = scale * fabsl(b) / (2 * t);  in csqrtl()
119 		ry = copysignl(scale * t, b);  in csqrtl()