54 	register unsigned int opnd1, opnd2, result;  in sgl_frem()  local
58 	opnd1 = *srcptr1;  in sgl_frem()
63 	if ((opnd1_exponent = Sgl_exponent(opnd1)) == SGL_INFINITY_EXPONENT) {  in sgl_frem()
64 		if (Sgl_iszero_mantissa(opnd1)) {  in sgl_frem()
79                 	if (Sgl_isone_signaling(opnd1)) {  in sgl_frem()
85                         	Sgl_set_quiet(opnd1);  in sgl_frem()
103                 	*dstptr = opnd1;  in sgl_frem()
115                 	*dstptr = opnd1;  in sgl_frem()
149 	result = opnd1;    in sgl_frem()
156 		if (Sgl_iszero_mantissa(opnd1)) {  in sgl_frem()
157 			*dstptr = opnd1;  in sgl_frem()
162 		Sgl_normalize(opnd1,opnd1_exponent);  in sgl_frem()
165 		Sgl_clear_signexponent_set_hidden(opnd1);  in sgl_frem()
190 		if (stepcount == -1 && Sgl_isgreaterthan(opnd1,opnd2)) {  in sgl_frem()
194 			Sgl_subtract(opnd2,opnd1,opnd2);  in sgl_frem()
209 		Sgl_set_exponentmantissa(result,opnd1);  in sgl_frem()
219 	while (stepcount-- > 0 && Sgl_all(opnd1)) {  in sgl_frem()
220 		if (Sgl_isnotlessthan(opnd1,opnd2))  in sgl_frem()
221 			Sgl_subtract(opnd1,opnd2,opnd1);  in sgl_frem()
222 		Sgl_leftshiftby1(opnd1);  in sgl_frem()
228 	if (Sgl_isnotlessthan(opnd1,opnd2)) {  in sgl_frem()
229 		Sgl_subtract(opnd1,opnd2,opnd1);  in sgl_frem()
232 	if (stepcount > 0 || Sgl_iszero(opnd1)) {  in sgl_frem()
245 	Sgl_leftshiftby1(opnd1);  in sgl_frem()
246 	if (Sgl_isgreaterthan(opnd1,opnd2)) {  in sgl_frem()
248 		Sgl_subtract((opnd2<<1),opnd1,opnd1);  in sgl_frem()
251 	else if (Sgl_isequal(opnd1,opnd2) && roundup) {   in sgl_frem()
256         while (Sgl_iszero_hidden(opnd1)) {  in sgl_frem()
258                 Sgl_leftshiftby1(opnd1);  in sgl_frem()
260 	Sgl_set_exponentmantissa(result,opnd1);  in sgl_frem()