41 	register unsigned int opnd1, opnd2, result;  in sgl_frem()  local
45 	opnd1 = *srcptr1;  in sgl_frem()
50 	if ((opnd1_exponent = Sgl_exponent(opnd1)) == SGL_INFINITY_EXPONENT) {  in sgl_frem()
51 		if (Sgl_iszero_mantissa(opnd1)) {  in sgl_frem()
66                 	if (Sgl_isone_signaling(opnd1)) {  in sgl_frem()
72                         	Sgl_set_quiet(opnd1);  in sgl_frem()
90                 	*dstptr = opnd1;  in sgl_frem()
102                 	*dstptr = opnd1;  in sgl_frem()
136 	result = opnd1;    in sgl_frem()
143 		if (Sgl_iszero_mantissa(opnd1)) {  in sgl_frem()
144 			*dstptr = opnd1;  in sgl_frem()
149 		Sgl_normalize(opnd1,opnd1_exponent);  in sgl_frem()
152 		Sgl_clear_signexponent_set_hidden(opnd1);  in sgl_frem()
177 		if (stepcount == -1 && Sgl_isgreaterthan(opnd1,opnd2)) {  in sgl_frem()
181 			Sgl_subtract(opnd2,opnd1,opnd2);  in sgl_frem()
196 		Sgl_set_exponentmantissa(result,opnd1);  in sgl_frem()
206 	while (stepcount-- > 0 && Sgl_all(opnd1)) {  in sgl_frem()
207 		if (Sgl_isnotlessthan(opnd1,opnd2))  in sgl_frem()
208 			Sgl_subtract(opnd1,opnd2,opnd1);  in sgl_frem()
209 		Sgl_leftshiftby1(opnd1);  in sgl_frem()
215 	if (Sgl_isnotlessthan(opnd1,opnd2)) {  in sgl_frem()
216 		Sgl_subtract(opnd1,opnd2,opnd1);  in sgl_frem()
219 	if (stepcount > 0 || Sgl_iszero(opnd1)) {  in sgl_frem()
232 	Sgl_leftshiftby1(opnd1);  in sgl_frem()
233 	if (Sgl_isgreaterthan(opnd1,opnd2)) {  in sgl_frem()
235 		Sgl_subtract((opnd2<<1),opnd1,opnd1);  in sgl_frem()
238 	else if (Sgl_isequal(opnd1,opnd2) && roundup) {   in sgl_frem()
243         while (Sgl_iszero_hidden(opnd1)) {  in sgl_frem()
245                 Sgl_leftshiftby1(opnd1);  in sgl_frem()
247 	Sgl_set_exponentmantissa(result,opnd1);  in sgl_frem()