55     register unsigned int left, right, result, extent;  in sgl_fsub()  local
64     right = *rightptr;  in sgl_fsub()
68     Sgl_xortointp1(left,right,/*to*/save);  in sgl_fsub()
77 	    if (Sgl_isnotnan(right))   in sgl_fsub()
79 		if (Sgl_isinfinity(right) && save==0)   in sgl_fsub()
113 	    else if (Sgl_is_signalingnan(right))   in sgl_fsub()
119 		Sgl_set_quiet(right);  in sgl_fsub()
120 		*dstptr = right;  in sgl_fsub()
133     if (Sgl_isinfinity_exponent(right))   in sgl_fsub()
135 	if (Sgl_iszero_mantissa(right))   in sgl_fsub()
138 	    Sgl_invert_sign(right);  in sgl_fsub()
139 	    *dstptr = right;  in sgl_fsub()
145         if (Sgl_isone_signaling(right))   in sgl_fsub()
151 	    Sgl_set_quiet(right);  in sgl_fsub()
156 	*dstptr = right;  in sgl_fsub()
164     Sgl_copytoint_exponentmantissa(right,signless_upper_right);  in sgl_fsub()
171 	Sgl_xorfromintp1(save,right,/*to*/right);  in sgl_fsub()
178     if((right_exponent = Sgl_exponent(right)) == 0)  in sgl_fsub()
181 	if(Sgl_iszero_mantissa(right))   in sgl_fsub()
187 		Sgl_invert_sign(right);  in sgl_fsub()
190 		    Sgl_or_signs(left,/*with*/right);  in sgl_fsub()
194 		    Sgl_and_signs(left,/*with*/right);  in sgl_fsub()
220 	Sgl_clear_sign(right);	/* Exponent is already cleared */  in sgl_fsub()
228 		Sgl_subtract(left,/*minus*/right,/*into*/result);  in sgl_fsub()
245 		Sgl_addition(left,right,/*into*/result);  in sgl_fsub()
272 	Sgl_clear_signexponent_set_hidden(right);  in sgl_fsub()
289     Sgl_right_align(/*operand*/right,/*shifted by*/diff_exponent,  in sgl_fsub()
300 	Sgl_subtract_withextension(left,/*minus*/right,/*with*/extent,/*into*/result);  in sgl_fsub()
442 	Sgl_addition(left,right,/*to*/result);  in sgl_fsub()