53 	register int dst_exponent;  in sgl_to_sgl_fcnvuf()  local
66 	dst_exponent = 16;    /* initialize for normalization */  in sgl_to_sgl_fcnvuf()
72 	Find_ms_one_bit(src,dst_exponent);  in sgl_to_sgl_fcnvuf()
74 	src <<= dst_exponent+1;  in sgl_to_sgl_fcnvuf()
76 	Sgl_set_exponent(result, 30+SGL_BIAS - dst_exponent);  in sgl_to_sgl_fcnvuf()
111 	register int dst_exponent;  in sgl_to_dbl_fcnvuf()  local
125 	dst_exponent = 16;    /* initialize for normalization */  in sgl_to_dbl_fcnvuf()
131 	Find_ms_one_bit(src,dst_exponent);  in sgl_to_dbl_fcnvuf()
133 	src <<= dst_exponent+1;  in sgl_to_dbl_fcnvuf()
136 	Dbl_set_exponent(resultp1, (30+DBL_BIAS) - dst_exponent);  in sgl_to_dbl_fcnvuf()
152 	int dst_exponent;  in dbl_to_sgl_fcnvuf()  local
166 	dst_exponent = 16;    /* initialize for normalization */  in dbl_to_sgl_fcnvuf()
173 		Find_ms_one_bit(srcp2,dst_exponent);  in dbl_to_sgl_fcnvuf()
175 		srcp1 = srcp2 << dst_exponent+1;      in dbl_to_sgl_fcnvuf()
181 		dst_exponent += 32;  in dbl_to_sgl_fcnvuf()
190 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_sgl_fcnvuf()
192 		if (dst_exponent >= 0) {  in dbl_to_sgl_fcnvuf()
193 			Variable_shift_double(srcp1,srcp2,(31-dst_exponent),  in dbl_to_sgl_fcnvuf()
195 			srcp2 <<= dst_exponent+1;  in dbl_to_sgl_fcnvuf()
199 	Sgl_set_exponent(result, (62+SGL_BIAS) - dst_exponent);  in dbl_to_sgl_fcnvuf()
234 	register int dst_exponent;  in dbl_to_dbl_fcnvuf()  local
248 	dst_exponent = 16;    /* initialize for normalization */  in dbl_to_dbl_fcnvuf()
255 		Find_ms_one_bit(srcp2,dst_exponent);  in dbl_to_dbl_fcnvuf()
257 		srcp1 = srcp2 << dst_exponent+1;  in dbl_to_dbl_fcnvuf()
263 		dst_exponent += 32;  in dbl_to_dbl_fcnvuf()
271 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_dbl_fcnvuf()
273 		if (dst_exponent >= 0) {  in dbl_to_dbl_fcnvuf()
274 			Variable_shift_double(srcp1,srcp2,(31-dst_exponent),  in dbl_to_dbl_fcnvuf()
276 			srcp2 <<= dst_exponent+1;  in dbl_to_dbl_fcnvuf()
281 	Dbl_set_exponent(resultp1, (62+DBL_BIAS) - dst_exponent);  in dbl_to_dbl_fcnvuf()