52 	Dbl_allp1(resultp1) = Sgl_all(src);  /* set sign of result */  in sgl_to_dbl_fcnvff()
134         register unsigned int srcp1, srcp2, result;  in dbl_to_sgl_fcnvff()  local
142 	Sgl_all(result) = Dbl_allp1(srcp1);  /* set sign of result */  in dbl_to_sgl_fcnvff()
154                         Sgl_setinfinity_exponentmantissa(result);  in dbl_to_sgl_fcnvff()
155                         *dstptr = result;  in dbl_to_sgl_fcnvff()
173                 Sgl_setinfinity_exponent(result);  in dbl_to_sgl_fcnvff()
174 		Sgl_set_mantissa(result,Dallp1(srcp1)<<3 | Dallp2(srcp2)>>29);  in dbl_to_sgl_fcnvff()
175 		if (Sgl_iszero_mantissa(result)) Sgl_set_quiet(result);  in dbl_to_sgl_fcnvff()
176                 *dstptr = result;  in dbl_to_sgl_fcnvff()
180          * Generate result  in dbl_to_sgl_fcnvff()
189 			Sgl_setzero_exponentmantissa(result);  in dbl_to_sgl_fcnvff()
190 			*dstptr = result;  in dbl_to_sgl_fcnvff()
198 			/* compute result, determine inexact info,  in dbl_to_sgl_fcnvff()
207          * Now round result if not exact  in dbl_to_sgl_fcnvff()
212                                 if (Sgl_iszero_sign(result)) dest_mantissa++;  in dbl_to_sgl_fcnvff()
215                                 if (Sgl_isone_sign(result)) dest_mantissa++;  in dbl_to_sgl_fcnvff()
223         Sgl_set_exponentmantissa(result,dest_mantissa);  in dbl_to_sgl_fcnvff()
229 	    Sgl_isone_hidden(result)) dest_exponent++;  in dbl_to_sgl_fcnvff()
244                          * Adjust bias of result  in dbl_to_sgl_fcnvff()
246 			Sgl_setwrapped_exponent(result,dest_exponent,ovfl);  in dbl_to_sgl_fcnvff()
247 			*dstptr = result;  in dbl_to_sgl_fcnvff()
256 		/* set result to infinity or largest number */  in dbl_to_sgl_fcnvff()
257 		Sgl_setoverflow(result);  in dbl_to_sgl_fcnvff()
271                          * Adjust bias of result  in dbl_to_sgl_fcnvff()
273 			Sgl_setwrapped_exponent(result,dest_exponent,unfl);  in dbl_to_sgl_fcnvff()
274 			*dstptr = result;  in dbl_to_sgl_fcnvff()
282                   * result is denormalized or signed zero  in dbl_to_sgl_fcnvff()
287 	else Sgl_set_exponent(result,dest_exponent);  in dbl_to_sgl_fcnvff()
288 	*dstptr = result;  in dbl_to_sgl_fcnvff()