parisc/math-emu/dfrem.c

41 	register unsigned int opnd1p1, opnd1p2, opnd2p1, opnd2p2;
46 	Dbl_copyfromptr(srcptr1,opnd1p1,opnd1p2);
51 	if ((opnd1_exponent = Dbl_exponent(opnd1p1)) == DBL_INFINITY_EXPONENT) {
52 		if (Dbl_iszero_mantissa(opnd1p1,opnd1p2)) {
67                 	if (Dbl_isone_signaling(opnd1p1)) {
73                         	Dbl_set_quiet(opnd1p1);
91 			Dbl_copytoptr(opnd1p1,opnd1p2,dstptr);
103 			Dbl_copytoptr(opnd1p1,opnd1p2,dstptr);
137 	resultp1 = opnd1p1;
144 		if (Dbl_iszero_mantissa(opnd1p1,opnd1p2)) {
145 			Dbl_copytoptr(opnd1p1,opnd1p2,dstptr);
150 		Dbl_normalize(opnd1p1,opnd1p2,opnd1_exponent);
153 		Dbl_clear_signexponent_set_hidden(opnd1p1);
179 		    Dbl_isgreaterthan(opnd1p1,opnd1p2,opnd2p1,opnd2p2)) {
184 			Dbl_subtract(opnd2p1,opnd2p2,opnd1p1,opnd1p2,
200 		Dbl_set_exponentmantissa(resultp1,resultp2,opnd1p1,opnd1p2);
210 	while (stepcount-- > 0 && (Dbl_allp1(opnd1p1) || Dbl_allp2(opnd1p2))) {
211 		if (Dbl_isnotlessthan(opnd1p1,opnd1p2,opnd2p1,opnd2p2)) {
212 			Dbl_subtract(opnd1p1,opnd1p2,opnd2p1,opnd2p2,opnd1p1,opnd1p2);
214 		Dbl_leftshiftby1(opnd1p1,opnd1p2);
220 	if (Dbl_isnotlessthan(opnd1p1,opnd1p2,opnd2p1,opnd2p2)) {
221 		Dbl_subtract(opnd1p1,opnd1p2,opnd2p1,opnd2p2,opnd1p1,opnd1p2);
224 	if (stepcount > 0 || Dbl_iszero(opnd1p1,opnd1p2)) {
237 	Dbl_leftshiftby1(opnd1p1,opnd1p2);
238 	if (Dbl_isgreaterthan(opnd1p1,opnd1p2,opnd2p1,opnd2p2)) {
241 		Dbl_subtract(opnd2p1,opnd2p2,opnd1p1,opnd1p2,opnd1p1,opnd1p2);
244 	else if (Dbl_isequal(opnd1p1,opnd1p2,opnd2p1,opnd2p2) && roundup) {
249         while (Dbl_iszero_hidden(opnd1p1)) {
251                 Dbl_leftshiftby1(opnd1p1,opnd1p2);
253 	Dbl_set_exponentmantissa(resultp1,resultp2,opnd1p1,opnd1p2);