54 	register unsigned int opnd1p1, opnd1p2, opnd2p1, opnd2p2;  in dbl_frem()  local
59 	Dbl_copyfromptr(srcptr1,opnd1p1,opnd1p2);  in dbl_frem()
64 	if ((opnd1_exponent = Dbl_exponent(opnd1p1)) == DBL_INFINITY_EXPONENT) {  in dbl_frem()
65 		if (Dbl_iszero_mantissa(opnd1p1,opnd1p2)) {  in dbl_frem()
80                 	if (Dbl_isone_signaling(opnd1p1)) {  in dbl_frem()
86                         	Dbl_set_quiet(opnd1p1);  in dbl_frem()
104 			Dbl_copytoptr(opnd1p1,opnd1p2,dstptr);  in dbl_frem()
116 			Dbl_copytoptr(opnd1p1,opnd1p2,dstptr);  in dbl_frem()
150 	resultp1 = opnd1p1;    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()
166 		Dbl_clear_signexponent_set_hidden(opnd1p1);  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()
262         while (Dbl_iszero_hidden(opnd1p1)) {  in dbl_frem()
264                 Dbl_leftshiftby1(opnd1p1,opnd1p2);  in dbl_frem()
266 	Dbl_set_exponentmantissa(resultp1,resultp2,opnd1p1,opnd1p2);  in dbl_frem()