186 	int dst_exponent, srcp1;  in dbl_to_sgl_fcnvxf()  local
189 	Dint_copyfromptr(srcptr,srcp1,srcp2);  in dbl_to_sgl_fcnvxf()
193 	if (srcp1 < 0) {  in dbl_to_sgl_fcnvxf()
195 		Dint_negate(srcp1,srcp2);  in dbl_to_sgl_fcnvxf()
200         	if (srcp1 == 0 && srcp2 == 0) {  in dbl_to_sgl_fcnvxf()
210 	if (srcp1 == 0) {  in dbl_to_sgl_fcnvxf()
219 			srcp1 = srcp2 << dst_exponent;      in dbl_to_sgl_fcnvxf()
223 			srcp1 = srcp2 >> 1;  in dbl_to_sgl_fcnvxf()
239 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_sgl_fcnvxf()
242 			Variable_shift_double(srcp1,srcp2,(32-dst_exponent),  in dbl_to_sgl_fcnvxf()
243 			 srcp1);   in dbl_to_sgl_fcnvxf()
251 		else srcp1 >>= -(dst_exponent);  in dbl_to_sgl_fcnvxf()
253 	Sgl_set_mantissa(result, srcp1 >> SGL_EXP_LENGTH - 1);  in dbl_to_sgl_fcnvxf()
257 	if (Dint_isinexact_to_sgl(srcp1,srcp2)) {  in dbl_to_sgl_fcnvxf()
268 				Sgl_roundnearest_from_dint(srcp1,srcp2,result);  in dbl_to_sgl_fcnvxf()
291 	register int srcp1, dst_exponent;  in dbl_to_dbl_fcnvxf()  local
294 	Dint_copyfromptr(srcptr,srcp1,srcp2);  in dbl_to_dbl_fcnvxf()
298 	if (srcp1 < 0) {  in dbl_to_dbl_fcnvxf()
300 		Dint_negate(srcp1,srcp2);  in dbl_to_dbl_fcnvxf()
305         	if (srcp1 == 0 && srcp2 ==0) {  in dbl_to_dbl_fcnvxf()
315 	if (srcp1 == 0) {  in dbl_to_dbl_fcnvxf()
324 			srcp1 = srcp2 << dst_exponent;      in dbl_to_dbl_fcnvxf()
328 			srcp1 = srcp2 >> 1;  in dbl_to_dbl_fcnvxf()
343 		Find_ms_one_bit(srcp1,dst_exponent);  in dbl_to_dbl_fcnvxf()
346 			Variable_shift_double(srcp1,srcp2,(32-dst_exponent),  in dbl_to_dbl_fcnvxf()
347 			 srcp1);   in dbl_to_dbl_fcnvxf()
355 		else srcp1 >>= -(dst_exponent);  in dbl_to_dbl_fcnvxf()
357 	Dbl_set_mantissap1(resultp1, srcp1 >> (DBL_EXP_LENGTH-1));  in dbl_to_dbl_fcnvxf()
358 	Shiftdouble(srcp1,srcp2,DBL_EXP_LENGTH-1,resultp2);  in dbl_to_dbl_fcnvxf()