42     register unsigned int left, right, result, extent;  in sgl_fsub()  local
51     right = *rightptr;  in sgl_fsub()
55     Sgl_xortointp1(left,right,/*to*/save);  in sgl_fsub()
64 	    if (Sgl_isnotnan(right))   in sgl_fsub()
66 		if (Sgl_isinfinity(right) && save==0)   in sgl_fsub()
100 	    else if (Sgl_is_signalingnan(right))   in sgl_fsub()
106 		Sgl_set_quiet(right);  in sgl_fsub()
107 		*dstptr = right;  in sgl_fsub()
120     if (Sgl_isinfinity_exponent(right))   in sgl_fsub()
122 	if (Sgl_iszero_mantissa(right))   in sgl_fsub()
125 	    Sgl_invert_sign(right);  in sgl_fsub()
126 	    *dstptr = right;  in sgl_fsub()
132         if (Sgl_isone_signaling(right))   in sgl_fsub()
138 	    Sgl_set_quiet(right);  in sgl_fsub()
143 	*dstptr = right;  in sgl_fsub()
145     	} /* End right NaN or Infinity processing */  in sgl_fsub()
151     Sgl_copytoint_exponentmantissa(right,signless_upper_right);  in sgl_fsub()
158 	Sgl_xorfromintp1(save,right,/*to*/right);  in sgl_fsub()
163     /* Invariant:  left is not smaller than right. */   in sgl_fsub()
165     if((right_exponent = Sgl_exponent(right)) == 0)  in sgl_fsub()
168 	if(Sgl_iszero_mantissa(right))   in sgl_fsub()
170 	    /* right is zero */  in sgl_fsub()
174 		Sgl_invert_sign(right);  in sgl_fsub()
177 		    Sgl_or_signs(left,/*with*/right);  in sgl_fsub()
181 		    Sgl_and_signs(left,/*with*/right);  in sgl_fsub()
207 	Sgl_clear_sign(right);	/* Exponent is already cleared */  in sgl_fsub()
215 		Sgl_subtract(left,/*minus*/right,/*into*/result);  in sgl_fsub()
232 		Sgl_addition(left,right,/*into*/result);  in sgl_fsub()
259 	Sgl_clear_signexponent_set_hidden(right);  in sgl_fsub()
275     /* Align right operand by shifting to right */  in sgl_fsub()
276     Sgl_right_align(/*operand*/right,/*shifted by*/diff_exponent,  in sgl_fsub()
287 	Sgl_subtract_withextension(left,/*minus*/right,/*with*/extent,/*into*/result);  in sgl_fsub()
298 	     * shift is needed, then all bits to the right of the guard   in sgl_fsub()
344 	     * one position right and still not found a one so the remainder  in sgl_fsub()
429 	Sgl_addition(left,right,/*to*/result);  in sgl_fsub()