173 	int dst_exponent, srcp1;  in dbl_to_sgl_fcnvxf()  local
176 	Dint_copyfromptr(srcptr,srcp1,srcp2);  in dbl_to_sgl_fcnvxf()
180 	if (srcp1 < 0) {  in dbl_to_sgl_fcnvxf()
182 		Dint_negate(srcp1,srcp2);  in dbl_to_sgl_fcnvxf()
187         	if (srcp1 == 0 && srcp2 == 0) {  in dbl_to_sgl_fcnvxf()
197 	if (srcp1 == 0) {  in dbl_to_sgl_fcnvxf()
206 			srcp1 = srcp2 << dst_exponent;      in dbl_to_sgl_fcnvxf()
210 			srcp1 = srcp2 >> 1;  in dbl_to_sgl_fcnvxf()
226 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_sgl_fcnvxf()
229 			Variable_shift_double(srcp1,srcp2,(32-dst_exponent),  in dbl_to_sgl_fcnvxf()
230 			 srcp1);   in dbl_to_sgl_fcnvxf()
238 		else srcp1 >>= -(dst_exponent);  in dbl_to_sgl_fcnvxf()
240 	Sgl_set_mantissa(result, srcp1 >> SGL_EXP_LENGTH - 1);  in dbl_to_sgl_fcnvxf()
244 	if (Dint_isinexact_to_sgl(srcp1,srcp2)) {  in dbl_to_sgl_fcnvxf()
255 				Sgl_roundnearest_from_dint(srcp1,srcp2,result);  in dbl_to_sgl_fcnvxf()
278 	register int srcp1, dst_exponent;  in dbl_to_dbl_fcnvxf()  local
281 	Dint_copyfromptr(srcptr,srcp1,srcp2);  in dbl_to_dbl_fcnvxf()
285 	if (srcp1 < 0) {  in dbl_to_dbl_fcnvxf()
287 		Dint_negate(srcp1,srcp2);  in dbl_to_dbl_fcnvxf()
292         	if (srcp1 == 0 && srcp2 ==0) {  in dbl_to_dbl_fcnvxf()
302 	if (srcp1 == 0) {  in dbl_to_dbl_fcnvxf()
311 			srcp1 = srcp2 << dst_exponent;      in dbl_to_dbl_fcnvxf()
315 			srcp1 = srcp2 >> 1;  in dbl_to_dbl_fcnvxf()
330 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_dbl_fcnvxf()
333 			Variable_shift_double(srcp1,srcp2,(32-dst_exponent),  in dbl_to_dbl_fcnvxf()
334 			 srcp1);   in dbl_to_dbl_fcnvxf()
342 		else srcp1 >>= -(dst_exponent);  in dbl_to_dbl_fcnvxf()
344 	Dbl_set_mantissap1(resultp1, srcp1 >> (DBL_EXP_LENGTH-1));  in dbl_to_dbl_fcnvxf()
345 	Shiftdouble(srcp1,srcp2,DBL_EXP_LENGTH-1,resultp2);  in dbl_to_dbl_fcnvxf()