64 	register int src, dst_exponent;  in sgl_to_sgl_fcnvxf()  local
87 	dst_exponent = 16;    /* initialize for normalization */  in sgl_to_sgl_fcnvxf()
93 	Find_ms_one_bit(src,dst_exponent);  in sgl_to_sgl_fcnvxf()
95 	if (dst_exponent >= 0) src <<= dst_exponent;  in sgl_to_sgl_fcnvxf()
98 	Sgl_set_exponent(result, 30+SGL_BIAS - dst_exponent);  in sgl_to_sgl_fcnvxf()
135 	register int src, dst_exponent;  in sgl_to_dbl_fcnvxf()  local
158 	dst_exponent = 16;    /* initialize for normalization */  in sgl_to_dbl_fcnvxf()
164 	Find_ms_one_bit(src,dst_exponent);  in sgl_to_dbl_fcnvxf()
166 	if (dst_exponent >= 0) src <<= dst_exponent;  in sgl_to_dbl_fcnvxf()
170 	Dbl_set_exponent(resultp1, (30+DBL_BIAS) - dst_exponent);  in sgl_to_dbl_fcnvxf()
186 	int dst_exponent, srcp1;  in dbl_to_sgl_fcnvxf()  local
209 	dst_exponent = 16;    /* initialize for normalization */  in dbl_to_sgl_fcnvxf()
216 		Find_ms_one_bit(srcp2,dst_exponent);  in dbl_to_sgl_fcnvxf()
218 		if (dst_exponent >= 0) {  in dbl_to_sgl_fcnvxf()
219 			srcp1 = srcp2 << dst_exponent;      in dbl_to_sgl_fcnvxf()
230 		dst_exponent += 32;  in dbl_to_sgl_fcnvxf()
239 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_sgl_fcnvxf()
241 		if (dst_exponent > 0) {  in dbl_to_sgl_fcnvxf()
242 			Variable_shift_double(srcp1,srcp2,(32-dst_exponent),  in dbl_to_sgl_fcnvxf()
244 			srcp2 <<= dst_exponent;  in dbl_to_sgl_fcnvxf()
251 		else srcp1 >>= -(dst_exponent);  in dbl_to_sgl_fcnvxf()
254 	Sgl_set_exponent(result, (62+SGL_BIAS) - dst_exponent);  in dbl_to_sgl_fcnvxf()
291 	register int srcp1, dst_exponent;  in dbl_to_dbl_fcnvxf()  local
314 	dst_exponent = 16;    /* initialize for normalization */  in dbl_to_dbl_fcnvxf()
321 		Find_ms_one_bit(srcp2,dst_exponent);  in dbl_to_dbl_fcnvxf()
323 		if (dst_exponent >= 0) {  in dbl_to_dbl_fcnvxf()
324 			srcp1 = srcp2 << dst_exponent;      in dbl_to_dbl_fcnvxf()
335 		dst_exponent += 32;  in dbl_to_dbl_fcnvxf()
343 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_dbl_fcnvxf()
345 		if (dst_exponent > 0) {  in dbl_to_dbl_fcnvxf()
346 			Variable_shift_double(srcp1,srcp2,(32-dst_exponent),  in dbl_to_dbl_fcnvxf()
348 			srcp2 <<= dst_exponent;  in dbl_to_dbl_fcnvxf()
355 		else srcp1 >>= -(dst_exponent);  in dbl_to_dbl_fcnvxf()
359 	Dbl_set_exponent(resultp1, (62+DBL_BIAS) - dst_exponent);  in dbl_to_dbl_fcnvxf()