55     register unsigned int left, right, result, extent;  in sgl_fsub()  local
86                     Sgl_makequietnan(result);  in sgl_fsub()
87 		    *dstptr = result;  in sgl_fsub()
228 		Sgl_subtract(left,/*minus*/right,/*into*/result);  in sgl_fsub()
229 		if(Sgl_iszero_mantissa(result))  in sgl_fsub()
233 			Sgl_setone_sign(result);  in sgl_fsub()
237 			Sgl_setzero_sign(result);  in sgl_fsub()
239 		    *dstptr = result;  in sgl_fsub()
245 		Sgl_addition(left,right,/*into*/result);  in sgl_fsub()
246 		if(Sgl_isone_hidden(result))  in sgl_fsub()
248 		    *dstptr = result;  in sgl_fsub()
255 	    	sign_save = Sgl_signextendedsign(result);  in sgl_fsub()
256 		Sgl_leftshiftby1(result);  in sgl_fsub()
257 		Sgl_normalize(result,result_exponent);  in sgl_fsub()
258 		Sgl_set_sign(result,/*using*/sign_save);  in sgl_fsub()
259                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fsub()
260 		*dstptr = result;  in sgl_fsub()
264 	    *dstptr = result;  in sgl_fsub()
300 	Sgl_subtract_withextension(left,/*minus*/right,/*with*/extent,/*into*/result);  in sgl_fsub()
301 	if(Sgl_iszero_hidden(result))  in sgl_fsub()
313 	    sign_save = Sgl_signextendedsign(result);  in sgl_fsub()
314             Sgl_leftshiftby1_withextent(result,extent,result);  in sgl_fsub()
320     	    if(Sgl_iszero(result))  in sgl_fsub()
323 		if(Is_rounding_mode(ROUNDMINUS)) Sgl_setone_sign(result);  in sgl_fsub()
324 		*dstptr = result;  in sgl_fsub()
329 	    if(Sgl_isone_hidden(result))  in sgl_fsub()
340 		    Sgl_set_sign(result,/*using*/sign_save);  in sgl_fsub()
360 	    while(Sgl_iszero_hiddenhigh7mantissa(result))  in sgl_fsub()
362 		Sgl_leftshiftby8(result);  in sgl_fsub()
367 	    if(Sgl_iszero_hiddenhigh3mantissa(result))  in sgl_fsub()
370 		Sgl_leftshiftby4(result);  in sgl_fsub()
376 	    if((jumpsize = Sgl_hiddenhigh3mantissa(result)) > 7)  in sgl_fsub()
380 		Sgl_set_sign(result,/*using*/sign_save);  in sgl_fsub()
381 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fsub()
382 		*dstptr = result;  in sgl_fsub()
385 	    Sgl_sethigh4bits(result,/*using*/sign_save);  in sgl_fsub()
390 		    Sgl_leftshiftby3(result);  in sgl_fsub()
397 		    Sgl_leftshiftby2(result);  in sgl_fsub()
406 		    Sgl_leftshiftby1(result);  in sgl_fsub()
413 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fsub()
414 		*dstptr = result;	/* Sign bit is already set */  in sgl_fsub()
421 		Sgl_set_sign(result,sign_save);  in sgl_fsub()
422                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fsub()
423 		*dstptr = result;  in sgl_fsub()
431 	    Sgl_right_align(result,/*by*/(1-result_exponent),extent);  in sgl_fsub()
432 	    Sgl_clear_signexponent(result);  in sgl_fsub()
433 	    Sgl_set_sign(result,sign_save);  in sgl_fsub()
434 	    *dstptr = result;  in sgl_fsub()
442 	Sgl_addition(left,right,/*to*/result);  in sgl_fsub()
443 	if(Sgl_isone_hiddenoverflow(result))  in sgl_fsub()
446 	    Sgl_rightshiftby1_withextent(result,extent,extent);  in sgl_fsub()
447 	    Sgl_arithrightshiftby1(result);  in sgl_fsub()
467 		  Sgl_isone_lowmantissa(result))  in sgl_fsub()
470 		    Sgl_increment(result);  in sgl_fsub()
476 	    if(Sgl_iszero_sign(result))  in sgl_fsub()
479 		Sgl_increment(result);  in sgl_fsub()
484 	    if(Sgl_isone_sign(result))  in sgl_fsub()
487 		Sgl_increment(result);  in sgl_fsub()
493 	if(Sgl_isone_hiddenoverflow(result)) result_exponent++;  in sgl_fsub()
500 	    Sgl_setwrapped_exponent(result,result_exponent,ovfl);  in sgl_fsub()
501 	    *dstptr = result;  in sgl_fsub()
512 	    Sgl_setoverflow(result);  in sgl_fsub()
515     else Sgl_set_exponent(result,result_exponent);  in sgl_fsub()
516     *dstptr = result;  in sgl_fsub()