58     register int result_exponent, right_exponent, diff_exponent;  in sgl_fsub()  local
73     if ((result_exponent = Sgl_exponent(left)) == SGL_INFINITY_EXPONENT)  in sgl_fsub()
173 	result_exponent = Sgl_exponent(left);  in sgl_fsub()
202 		if( (result_exponent == 0) && Is_underflowtrap_enabled() )  in sgl_fsub()
207 		    Sgl_normalize(left,result_exponent);  in sgl_fsub()
209                     Sgl_setwrapped_exponent(left,result_exponent,unfl);  in sgl_fsub()
221 	if(result_exponent == 0 )  in sgl_fsub()
257 		Sgl_normalize(result,result_exponent);  in sgl_fsub()
259                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fsub()
275     diff_exponent = result_exponent - right_exponent;  in sgl_fsub()
327 	    result_exponent--;  in sgl_fsub()
331 		if(result_exponent==0)  in sgl_fsub()
349 	       result_exponent==0) goto underflow;  in sgl_fsub()
363 		if((result_exponent -= 8) <= 0  && !underflowtrap)  in sgl_fsub()
371 		if((result_exponent -= 4) <= 0 && !underflowtrap)  in sgl_fsub()
379 		if(result_exponent <= 0) goto underflow;  in sgl_fsub()
381 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fsub()
391 		    result_exponent -= 3;  in sgl_fsub()
398 		    result_exponent -= 2;  in sgl_fsub()
407 		    result_exponent -= 1;  in sgl_fsub()
411 	    if(result_exponent > 0)   in sgl_fsub()
413 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fsub()
422                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fsub()
431 	    Sgl_right_align(result,/*by*/(1-result_exponent),extent);  in sgl_fsub()
448 	    result_exponent++;  in sgl_fsub()
493 	if(Sgl_isone_hiddenoverflow(result)) result_exponent++;  in sgl_fsub()
495     if(result_exponent == SGL_INFINITY_EXPONENT)  in sgl_fsub()
500 	    Sgl_setwrapped_exponent(result,result_exponent,ovfl);  in sgl_fsub()
515     else Sgl_set_exponent(result,result_exponent);  in sgl_fsub()