55     register unsigned int left, right, result, extent;  in sgl_fsub()  local
63     left = *leftptr;  in sgl_fsub()
68     Sgl_xortointp1(left,right,/*to*/save);  in sgl_fsub()
73     if ((result_exponent = Sgl_exponent(left)) == SGL_INFINITY_EXPONENT)  in sgl_fsub()
75 	if (Sgl_iszero_mantissa(left))   in sgl_fsub()
93 		*dstptr = left;  in sgl_fsub()
102             if (Sgl_isone_signaling(left))   in sgl_fsub()
108         	Sgl_set_quiet(left);  in sgl_fsub()
126  	    *dstptr = left;  in sgl_fsub()
163     Sgl_copytoint_exponentmantissa(left,signless_upper_left);  in sgl_fsub()
172 	Sgl_xorfromintp1(save,left,/*to*/left);  in sgl_fsub()
173 	result_exponent = Sgl_exponent(left);  in sgl_fsub()
174 	Sgl_invert_sign(left);  in sgl_fsub()
184 	    if(Sgl_iszero_exponentmantissa(left))  in sgl_fsub()
190 		    Sgl_or_signs(left,/*with*/right);  in sgl_fsub()
194 		    Sgl_and_signs(left,/*with*/right);  in sgl_fsub()
205 	    	    sign_save = Sgl_signextendedsign(left);  in sgl_fsub()
206 		    Sgl_leftshiftby1(left);  in sgl_fsub()
207 		    Sgl_normalize(left,result_exponent);  in sgl_fsub()
208 		    Sgl_set_sign(left,/*using*/sign_save);  in sgl_fsub()
209                     Sgl_setwrapped_exponent(left,result_exponent,unfl);  in sgl_fsub()
210 		    *dstptr = left;  in sgl_fsub()
215 	    *dstptr = left;  in sgl_fsub()
228 		Sgl_subtract(left,/*minus*/right,/*into*/result);  in sgl_fsub()
245 		Sgl_addition(left,right,/*into*/result);  in sgl_fsub()
274     Sgl_clear_exponent_set_hidden(left);  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()