parisc/math-emu/fmpyfadd.c

287 			 * Perform the add opnd3 with zero here.
329 			 * Perform the add opnd3 with zero here.
458 	 * Copy opnd3 to the double extended variable called right.
947 			 * Perform the add opnd3 with zero here.
989 			 * Perform the add opnd3 with zero here.
1118 	 * Copy opnd3 to the double extended variable called right.
1369 	unsigned int opnd1, opnd2, opnd3;
1382 	Sgl_copyfromptr(src3ptr,opnd3);
1401 			if (Sgl_isnotnan(opnd2) && Sgl_isnotnan(opnd3)) {
1418 				if (Sgl_isinfinity(opnd3) &&
1419 				    (Sgl_sign(resultp1) ^ Sgl_sign(opnd3))) {
1468 			else if (Sgl_is_signalingnan(opnd3)) {
1474 				Sgl_set_quiet(opnd3);
1475 				Sgl_copytoptr(opnd3,dstptr);
1491 			if (Sgl_isnotnan(opnd3)) {
1509 				if (Sgl_isinfinity(opnd3) &&
1510 				    (Sgl_sign(resultp1) ^ Sgl_sign(opnd3))) {
1546 			else if (Sgl_is_signalingnan(opnd3)) {
1552 			       	Sgl_set_quiet(opnd3);
1553 				Sgl_copytoptr(opnd3,dstptr);
1567 	if (Sgl_isinfinity_exponent(opnd3)) {
1568 		if (Sgl_iszero_mantissa(opnd3)) {
1570 			Sgl_copytoptr(opnd3,dstptr);
1576 			if (Sgl_isone_signaling(opnd3)) {
1582 				Sgl_set_quiet(opnd3);
1587 			Sgl_copytoptr(opnd3,dstptr);
1603 			 * Perform the add opnd3 with zero here.
1605 			if (Sgl_iszero_exponentmantissa(opnd3)) {
1607 					Sgl_or_signs(opnd3,resultp1);
1609 					Sgl_and_signs(opnd3,resultp1);
1615 			else if (Sgl_iszero_exponent(opnd3) &&
1618                     		sign_save = Sgl_signextendedsign(opnd3);
1620                     		Sgl_leftshiftby1(opnd3);
1621                     		Sgl_normalize(opnd3,result_exponent);
1622                     		Sgl_set_sign(opnd3,/*using*/sign_save);
1623                     		Sgl_setwrapped_exponent(opnd3,result_exponent,
1625                     		Sgl_copytoptr(opnd3,dstptr);
1629 			Sgl_copytoptr(opnd3,dstptr);
1645 			 * Perform the add opnd3 with zero here.
1647 			if (Sgl_iszero_exponentmantissa(opnd3)) {
1649 					Sgl_or_signs(opnd3,resultp1);
1651 					Sgl_and_signs(opnd3,resultp1);
1657 			else if (Sgl_iszero_exponent(opnd3) &&
1660                     		sign_save = Sgl_signextendedsign(opnd3);
1662                     		Sgl_leftshiftby1(opnd3);
1663                     		Sgl_normalize(opnd3,result_exponent);
1664                     		Sgl_set_sign(opnd3,/*using*/sign_save);
1665                     		Sgl_setwrapped_exponent(opnd3,result_exponent,
1667                     		Sgl_copytoptr(opnd3,dstptr);
1671 			Sgl_copytoptr(opnd3,dstptr);
1737 	add_exponent = Sgl_exponent(opnd3);
1744 		if (Sgl_iszero_mantissa(opnd3)) {
1762 		sign_save = Sgl_signextendedsign(opnd3);	/* save sign */
1763 		Sgl_clear_signexponent(opnd3);
1764 		Sgl_leftshiftby1(opnd3);
1765 		Sgl_normalize(opnd3,add_exponent);
1766 		Sgl_set_sign(opnd3,sign_save);		/* restore sign */
1768 		Sgl_clear_exponent_set_hidden(opnd3);
1771 	 * Copy opnd3 to the double extended variable called right.
1773 	Sgl_copyto_sglext(opnd3,rightp1,rightp2);
2010 	unsigned int opnd1, opnd2, opnd3;
2023 	Sgl_copyfromptr(src3ptr,opnd3);
2043 			if (Sgl_isnotnan(opnd2) && Sgl_isnotnan(opnd3)) {
2060 				if (Sgl_isinfinity(opnd3) &&
2061 				    (Sgl_sign(resultp1) ^ Sgl_sign(opnd3))) {
2110 			else if (Sgl_is_signalingnan(opnd3)) {
2116 				Sgl_set_quiet(opnd3);
2117 				Sgl_copytoptr(opnd3,dstptr);
2133 			if (Sgl_isnotnan(opnd3)) {
2151 				if (Sgl_isinfinity(opnd3) &&
2152 				    (Sgl_sign(resultp1) ^ Sgl_sign(opnd3))) {
2188 			else if (Sgl_is_signalingnan(opnd3)) {
2194 			       	Sgl_set_quiet(opnd3);
2195 				Sgl_copytoptr(opnd3,dstptr);
2209 	if (Sgl_isinfinity_exponent(opnd3)) {
2210 		if (Sgl_iszero_mantissa(opnd3)) {
2212 			Sgl_copytoptr(opnd3,dstptr);
2218 			if (Sgl_isone_signaling(opnd3)) {
2224 				Sgl_set_quiet(opnd3);
2229 			Sgl_copytoptr(opnd3,dstptr);
2245 			 * Perform the add opnd3 with zero here.
2247 			if (Sgl_iszero_exponentmantissa(opnd3)) {
2249 					Sgl_or_signs(opnd3,resultp1);
2251 					Sgl_and_signs(opnd3,resultp1);
2257 			else if (Sgl_iszero_exponent(opnd3) &&
2260                     		sign_save = Sgl_signextendedsign(opnd3);
2262                     		Sgl_leftshiftby1(opnd3);
2263                     		Sgl_normalize(opnd3,result_exponent);
2264                     		Sgl_set_sign(opnd3,/*using*/sign_save);
2265                     		Sgl_setwrapped_exponent(opnd3,result_exponent,
2267                     		Sgl_copytoptr(opnd3,dstptr);
2271 			Sgl_copytoptr(opnd3,dstptr);
2287 			 * Perform the add opnd3 with zero here.
2289 			if (Sgl_iszero_exponentmantissa(opnd3)) {
2291 					Sgl_or_signs(opnd3,resultp1);
2293 					Sgl_and_signs(opnd3,resultp1);
2299 			else if (Sgl_iszero_exponent(opnd3) &&
2302                     		sign_save = Sgl_signextendedsign(opnd3);
2304                     		Sgl_leftshiftby1(opnd3);
2305                     		Sgl_normalize(opnd3,result_exponent);
2306                     		Sgl_set_sign(opnd3,/*using*/sign_save);
2307                     		Sgl_setwrapped_exponent(opnd3,result_exponent,
2309                     		Sgl_copytoptr(opnd3,dstptr);
2313 			Sgl_copytoptr(opnd3,dstptr);
2379 	add_exponent = Sgl_exponent(opnd3);
2386 		if (Sgl_iszero_mantissa(opnd3)) {
2404 		sign_save = Sgl_signextendedsign(opnd3);	/* save sign */
2405 		Sgl_clear_signexponent(opnd3);
2406 		Sgl_leftshiftby1(opnd3);
2407 		Sgl_normalize(opnd3,add_exponent);
2408 		Sgl_set_sign(opnd3,sign_save);		/* restore sign */
2410 		Sgl_clear_exponent_set_hidden(opnd3);
2413 	 * Copy opnd3 to the double extended variable called right.
2415 	Sgl_copyto_sglext(opnd3,rightp1,rightp2);