parisc/math-emu/frnd.c

41 	register int src_exponent;
48         if ((src_exponent = Sgl_exponent(src)) == SGL_INFINITY_EXPONENT) {
68 	if ((src_exponent -= SGL_BIAS) >= SGL_P - 1) {
75 	if (src_exponent >= 0) {
78 		Sgl_rightshift(result,(SGL_P-1) - (src_exponent));
80 		if (Sgl_isinexact_to_fix(src,src_exponent)) {
91 			     if (Sgl_isone_roundbit(src,src_exponent))
92 			        if (Sgl_isone_stickybit(src,src_exponent)
97 		Sgl_leftshift(result,(SGL_P-1) - (src_exponent));
99 			Sgl_set_exponent(result,src_exponent + (SGL_BIAS+1));
100 		else Sgl_set_exponent(result,src_exponent + SGL_BIAS);
119 			     if (src_exponent == -1)
146 	register int src_exponent;
153         if ((src_exponent = Dbl_exponent(srcp1)) == DBL_INFINITY_EXPONENT) {
173 	if ((src_exponent -= DBL_BIAS) >= DBL_P - 1) {
180 	if (src_exponent >= 0) {
184 		Dbl_rightshift(resultp1,resultp2,(DBL_P-1) - (src_exponent));
186 		if (Dbl_isinexact_to_fix(srcp1,srcp2,src_exponent)) {
199 			     if (Dbl_isone_roundbit(srcp1,srcp2,src_exponent))
200 			      if (Dbl_isone_stickybit(srcp1,srcp2,src_exponent)
205 		Dbl_leftshift(resultp1,resultp2,(DBL_P-1) - (src_exponent));
207 			Dbl_set_exponent(resultp1,src_exponent + (DBL_BIAS+1));
208 		else Dbl_set_exponent(resultp1,src_exponent + DBL_BIAS);
227 			     if (src_exponent == -1)