51 	register int src, dst_exponent;  in sgl_to_sgl_fcnvxf()  local
74 	dst_exponent = 16;    /* initialize for normalization */  in sgl_to_sgl_fcnvxf()
80 	Find_ms_one_bit(src,dst_exponent);  in sgl_to_sgl_fcnvxf()
82 	if (dst_exponent >= 0) src <<= dst_exponent;  in sgl_to_sgl_fcnvxf()
85 	Sgl_set_exponent(result, 30+SGL_BIAS - dst_exponent);  in sgl_to_sgl_fcnvxf()
122 	register int src, dst_exponent;  in sgl_to_dbl_fcnvxf()  local
145 	dst_exponent = 16;    /* initialize for normalization */  in sgl_to_dbl_fcnvxf()
151 	Find_ms_one_bit(src,dst_exponent);  in sgl_to_dbl_fcnvxf()
153 	if (dst_exponent >= 0) src <<= dst_exponent;  in sgl_to_dbl_fcnvxf()
157 	Dbl_set_exponent(resultp1, (30+DBL_BIAS) - dst_exponent);  in sgl_to_dbl_fcnvxf()
173 	int dst_exponent, srcp1;  in dbl_to_sgl_fcnvxf()  local
196 	dst_exponent = 16;    /* initialize for normalization */  in dbl_to_sgl_fcnvxf()
203 		Find_ms_one_bit(srcp2,dst_exponent);  in dbl_to_sgl_fcnvxf()
205 		if (dst_exponent >= 0) {  in dbl_to_sgl_fcnvxf()
206 			srcp1 = srcp2 << dst_exponent;      in dbl_to_sgl_fcnvxf()
217 		dst_exponent += 32;  in dbl_to_sgl_fcnvxf()
226 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_sgl_fcnvxf()
228 		if (dst_exponent > 0) {  in dbl_to_sgl_fcnvxf()
229 			Variable_shift_double(srcp1,srcp2,(32-dst_exponent),  in dbl_to_sgl_fcnvxf()
231 			srcp2 <<= dst_exponent;  in dbl_to_sgl_fcnvxf()
238 		else srcp1 >>= -(dst_exponent);  in dbl_to_sgl_fcnvxf()
241 	Sgl_set_exponent(result, (62+SGL_BIAS) - dst_exponent);  in dbl_to_sgl_fcnvxf()
278 	register int srcp1, dst_exponent;  in dbl_to_dbl_fcnvxf()  local
301 	dst_exponent = 16;    /* initialize for normalization */  in dbl_to_dbl_fcnvxf()
308 		Find_ms_one_bit(srcp2,dst_exponent);  in dbl_to_dbl_fcnvxf()
310 		if (dst_exponent >= 0) {  in dbl_to_dbl_fcnvxf()
311 			srcp1 = srcp2 << dst_exponent;      in dbl_to_dbl_fcnvxf()
322 		dst_exponent += 32;  in dbl_to_dbl_fcnvxf()
330 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_dbl_fcnvxf()
332 		if (dst_exponent > 0) {  in dbl_to_dbl_fcnvxf()
333 			Variable_shift_double(srcp1,srcp2,(32-dst_exponent),  in dbl_to_dbl_fcnvxf()
335 			srcp2 <<= dst_exponent;  in dbl_to_dbl_fcnvxf()
342 		else srcp1 >>= -(dst_exponent);  in dbl_to_dbl_fcnvxf()
346 	Dbl_set_exponent(resultp1, (62+DBL_BIAS) - dst_exponent);  in dbl_to_dbl_fcnvxf()