54 	register unsigned int opnd1p1, opnd1p2, opnd2p1, opnd2p2;  in dbl_frem()  local
59 	Dbl_copyfromptr(srcptr1,opnd1p1,opnd1p2);  in dbl_frem()
65 		if (Dbl_iszero_mantissa(opnd1p1,opnd1p2)) {  in dbl_frem()
104 			Dbl_copytoptr(opnd1p1,opnd1p2,dstptr);  in dbl_frem()
116 			Dbl_copytoptr(opnd1p1,opnd1p2,dstptr);  in dbl_frem()
157 		if (Dbl_iszero_mantissa(opnd1p1,opnd1p2)) {  in dbl_frem()
158 			Dbl_copytoptr(opnd1p1,opnd1p2,dstptr);  in dbl_frem()
163 		Dbl_normalize(opnd1p1,opnd1p2,opnd1_exponent);  in dbl_frem()
192 		    Dbl_isgreaterthan(opnd1p1,opnd1p2,opnd2p1,opnd2p2)) {  in dbl_frem()
197 			Dbl_subtract(opnd2p1,opnd2p2,opnd1p1,opnd1p2,  in dbl_frem()
213 		Dbl_set_exponentmantissa(resultp1,resultp2,opnd1p1,opnd1p2);  in dbl_frem()
223 	while (stepcount-- > 0 && (Dbl_allp1(opnd1p1) || Dbl_allp2(opnd1p2))) {  in dbl_frem()
224 		if (Dbl_isnotlessthan(opnd1p1,opnd1p2,opnd2p1,opnd2p2)) {  in dbl_frem()
225 			Dbl_subtract(opnd1p1,opnd1p2,opnd2p1,opnd2p2,opnd1p1,opnd1p2);  in dbl_frem()
227 		Dbl_leftshiftby1(opnd1p1,opnd1p2);  in dbl_frem()
233 	if (Dbl_isnotlessthan(opnd1p1,opnd1p2,opnd2p1,opnd2p2)) {  in dbl_frem()
234 		Dbl_subtract(opnd1p1,opnd1p2,opnd2p1,opnd2p2,opnd1p1,opnd1p2);  in dbl_frem()
237 	if (stepcount > 0 || Dbl_iszero(opnd1p1,opnd1p2)) {  in dbl_frem()
250 	Dbl_leftshiftby1(opnd1p1,opnd1p2);  in dbl_frem()
251 	if (Dbl_isgreaterthan(opnd1p1,opnd1p2,opnd2p1,opnd2p2)) {  in dbl_frem()
254 		Dbl_subtract(opnd2p1,opnd2p2,opnd1p1,opnd1p2,opnd1p1,opnd1p2);  in dbl_frem()
257 	else if (Dbl_isequal(opnd1p1,opnd1p2,opnd2p1,opnd2p2) && roundup) {   in dbl_frem()
264                 Dbl_leftshiftby1(opnd1p1,opnd1p2);  in dbl_frem()
266 	Dbl_set_exponentmantissa(resultp1,resultp2,opnd1p1,opnd1p2);  in dbl_frem()