73 	register int result_exponent, diff_exponent;  in dbl_fmpyfadd()  local
316 				result_exponent = 0;  in dbl_fmpyfadd()
318                     		Dbl_normalize(opnd3p1,opnd3p2,result_exponent);  in dbl_fmpyfadd()
320                     		Dbl_setwrapped_exponent(opnd3p1,result_exponent,  in dbl_fmpyfadd()
358 				result_exponent = 0;  in dbl_fmpyfadd()
360                     		Dbl_normalize(opnd3p1,opnd3p2,result_exponent);  in dbl_fmpyfadd()
362                     		Dbl_setwrapped_exponent(opnd3p1,result_exponent,  in dbl_fmpyfadd()
451 			result_exponent = mpy_exponent;  in dbl_fmpyfadd()
498 		result_exponent = add_exponent;  in dbl_fmpyfadd()
502 		result_exponent = mpy_exponent;  in dbl_fmpyfadd()
559 			result_exponent--;  in dbl_fmpyfadd()
575 				result_exponent -= 8;  in dbl_fmpyfadd()
582 				result_exponent -= 4;  in dbl_fmpyfadd()
591 				result_exponent -= 3;  in dbl_fmpyfadd()
597 				result_exponent -= 2;  in dbl_fmpyfadd()
605 				result_exponent -= 1;  in dbl_fmpyfadd()
621 	    		result_exponent++;  in dbl_fmpyfadd()
631 	if (result_exponent <= 0 && !Is_underflowtrap_enabled()) {  in dbl_fmpyfadd()
633 			result_exponent,is_tiny);  in dbl_fmpyfadd()
669 		if (Dbl_isone_hiddenoverflow(resultp1)) result_exponent++;  in dbl_fmpyfadd()
671 	if (result_exponent >= DBL_INFINITY_EXPONENT) {  in dbl_fmpyfadd()
677                         Dbl_setwrapped_exponent(resultp1,result_exponent,ovfl);  in dbl_fmpyfadd()
691 	} else if (result_exponent <= 0) {	/* underflow case */  in dbl_fmpyfadd()
696                 	Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);  in dbl_fmpyfadd()
707 	else Dbl_set_exponent(resultp1,result_exponent);  in dbl_fmpyfadd()
732 	register int result_exponent, diff_exponent;  local
976 				result_exponent = 0;
978                     		Dbl_normalize(opnd3p1,opnd3p2,result_exponent);
980                     		Dbl_setwrapped_exponent(opnd3p1,result_exponent,
1018 				result_exponent = 0;
1020                     		Dbl_normalize(opnd3p1,opnd3p2,result_exponent);
1022                     		Dbl_setwrapped_exponent(opnd3p1,result_exponent,
1111 			result_exponent = mpy_exponent;
1158 		result_exponent = add_exponent;
1162 		result_exponent = mpy_exponent;
1219 			result_exponent--;
1235 				result_exponent -= 8;
1242 				result_exponent -= 4;
1251 				result_exponent -= 3;
1257 				result_exponent -= 2;
1265 				result_exponent -= 1;
1281 	    		result_exponent++;
1291 	if (result_exponent <= 0 && !Is_underflowtrap_enabled()) {
1293 			result_exponent,is_tiny);
1329 		if (Dbl_isone_hiddenoverflow(resultp1)) result_exponent++;
1331 	if (result_exponent >= DBL_INFINITY_EXPONENT) {
1337                         Dbl_setwrapped_exponent(resultp1,result_exponent,ovfl);
1349 	} else if (result_exponent <= 0) {	/* underflow case */
1354                 	Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);
1365 	else Dbl_set_exponent(resultp1,result_exponent);
1390 	register int result_exponent, diff_exponent;  local
1632 				result_exponent = 0;
1634                     		Sgl_normalize(opnd3,result_exponent);
1636                     		Sgl_setwrapped_exponent(opnd3,result_exponent,
1674 				result_exponent = 0;
1676                     		Sgl_normalize(opnd3,result_exponent);
1678                     		Sgl_setwrapped_exponent(opnd3,result_exponent,
1765 			result_exponent = mpy_exponent;
1810 		result_exponent = add_exponent;
1814 		result_exponent = mpy_exponent;
1868 			result_exponent--;
1884 				result_exponent -= 8;
1891 				result_exponent -= 4;
1899 				result_exponent -= 3;
1904 				result_exponent -= 2;
1911 				result_exponent -= 1;
1925 	    		result_exponent++;
1935 	if (result_exponent <= 0 && !Is_underflowtrap_enabled()) {
1936 		Sglext_denormalize(resultp1,resultp2,result_exponent,is_tiny);
1970 		if (Sgl_isone_hiddenoverflow(resultp1)) result_exponent++;
1972 	if (result_exponent >= SGL_INFINITY_EXPONENT) {
1978                         Sgl_setwrapped_exponent(resultp1,result_exponent,ovfl);
1990 	} else if (result_exponent <= 0) {	/* underflow case */
1995                 	Sgl_setwrapped_exponent(resultp1,result_exponent,unfl);
2006 	else Sgl_set_exponent(resultp1,result_exponent);
2031 	register int result_exponent, diff_exponent;  local
2274 				result_exponent = 0;
2276                     		Sgl_normalize(opnd3,result_exponent);
2278                     		Sgl_setwrapped_exponent(opnd3,result_exponent,
2316 				result_exponent = 0;
2318                     		Sgl_normalize(opnd3,result_exponent);
2320                     		Sgl_setwrapped_exponent(opnd3,result_exponent,
2407 			result_exponent = mpy_exponent;
2452 		result_exponent = add_exponent;
2456 		result_exponent = mpy_exponent;
2510 			result_exponent--;
2526 				result_exponent -= 8;
2533 				result_exponent -= 4;
2541 				result_exponent -= 3;
2546 				result_exponent -= 2;
2553 				result_exponent -= 1;
2567 	    		result_exponent++;
2577 	if (result_exponent <= 0 && !Is_underflowtrap_enabled()) {
2578 		Sglext_denormalize(resultp1,resultp2,result_exponent,is_tiny);
2612 		if (Sgl_isone_hiddenoverflow(resultp1)) result_exponent++;
2614 	if (result_exponent >= SGL_INFINITY_EXPONENT) {
2620                         Sgl_setwrapped_exponent(resultp1,result_exponent,ovfl);
2632 	} else if (result_exponent <= 0) {	/* underflow case */
2637                 	Sgl_setwrapped_exponent(resultp1,result_exponent,unfl);
2648 	else Sgl_set_exponent(resultp1,result_exponent);