63 	register int src_exponent;  in sgl_frnd()  local
70 	if ((src_exponent = Sgl_exponent(src)) == SGL_INFINITY_EXPONENT) {  in sgl_frnd()
90 	if ((src_exponent -= SGL_BIAS) >= SGL_P - 1) {  in sgl_frnd()
97 	if (src_exponent >= 0) {  in sgl_frnd()
100 		Sgl_rightshift(result,(SGL_P-1) - (src_exponent));  in sgl_frnd()
102 		if (Sgl_isinexact_to_fix(src,src_exponent)) {  in sgl_frnd()
113 			     if (Sgl_isone_roundbit(src,src_exponent))  in sgl_frnd()
114 				if (Sgl_isone_stickybit(src,src_exponent)  in sgl_frnd()
119 		Sgl_leftshift(result,(SGL_P-1) - (src_exponent));  in sgl_frnd()
121 			Sgl_set_exponent(result,src_exponent + (SGL_BIAS+1));  in sgl_frnd()
122 		else Sgl_set_exponent(result,src_exponent + SGL_BIAS);  in sgl_frnd()
141 			     if (src_exponent == -1)  in sgl_frnd()
165 	register int src_exponent;  in dbl_frnd()  local
172 	if ((src_exponent = Dbl_exponent(srcp1)) == DBL_INFINITY_EXPONENT) {  in dbl_frnd()
192 	if ((src_exponent -= DBL_BIAS) >= DBL_P - 1) {  in dbl_frnd()
199 	if (src_exponent >= 0) {  in dbl_frnd()
203 		Dbl_rightshift(resultp1,resultp2,(DBL_P-1) - (src_exponent));  in dbl_frnd()
205 		if (Dbl_isinexact_to_fix(srcp1,srcp2,src_exponent)) {  in dbl_frnd()
218 			     if (Dbl_isone_roundbit(srcp1,srcp2,src_exponent))  in dbl_frnd()
219 			      if (Dbl_isone_stickybit(srcp1,srcp2,src_exponent)  in dbl_frnd()
224 		Dbl_leftshift(resultp1,resultp2,(DBL_P-1) - (src_exponent));  in dbl_frnd()
226 			Dbl_set_exponent(resultp1,src_exponent + (DBL_BIAS+1));  in dbl_frnd()
227 		else Dbl_set_exponent(resultp1,src_exponent + DBL_BIAS);  in dbl_frnd()
246 			     if (src_exponent == -1)  in dbl_frnd()