54 	register int src_exponent;  in sgl_frnd()  local
61         if ((src_exponent = Sgl_exponent(src)) == SGL_INFINITY_EXPONENT) {  in sgl_frnd()
81 	if ((src_exponent -= SGL_BIAS) >= SGL_P - 1) {  in sgl_frnd()
88 	if (src_exponent >= 0) {  in sgl_frnd()
91 		Sgl_rightshift(result,(SGL_P-1) - (src_exponent));  in sgl_frnd()
93 		if (Sgl_isinexact_to_fix(src,src_exponent)) {  in sgl_frnd()
104 			     if (Sgl_isone_roundbit(src,src_exponent))  in sgl_frnd()
105 			        if (Sgl_isone_stickybit(src,src_exponent)   in sgl_frnd()
110 		Sgl_leftshift(result,(SGL_P-1) - (src_exponent));  in sgl_frnd()
112 			Sgl_set_exponent(result,src_exponent + (SGL_BIAS+1));  in sgl_frnd()
113 		else Sgl_set_exponent(result,src_exponent + SGL_BIAS);  in sgl_frnd()
132 			     if (src_exponent == -1)  in sgl_frnd()
159 	register int src_exponent;  in dbl_frnd()  local
166         if ((src_exponent = Dbl_exponent(srcp1)) == DBL_INFINITY_EXPONENT) {  in dbl_frnd()
186 	if ((src_exponent -= DBL_BIAS) >= DBL_P - 1) {  in dbl_frnd()
193 	if (src_exponent >= 0) {  in dbl_frnd()
197 		Dbl_rightshift(resultp1,resultp2,(DBL_P-1) - (src_exponent));  in dbl_frnd()
199 		if (Dbl_isinexact_to_fix(srcp1,srcp2,src_exponent)) {  in dbl_frnd()
212 			     if (Dbl_isone_roundbit(srcp1,srcp2,src_exponent))  in dbl_frnd()
213 			      if (Dbl_isone_stickybit(srcp1,srcp2,src_exponent)   in dbl_frnd()
218 		Dbl_leftshift(resultp1,resultp2,(DBL_P-1) - (src_exponent));  in dbl_frnd()
220 			Dbl_set_exponent(resultp1,src_exponent + (DBL_BIAS+1));  in dbl_frnd()
221 		else Dbl_set_exponent(resultp1,src_exponent + DBL_BIAS);  in dbl_frnd()
240 			     if (src_exponent == -1)  in dbl_frnd()