45     register int result_exponent, right_exponent, diff_exponent;  in sgl_fsub()  local
60     if ((result_exponent = Sgl_exponent(left)) == SGL_INFINITY_EXPONENT)  in sgl_fsub()
160 	result_exponent = Sgl_exponent(left);  in sgl_fsub()
189 		if( (result_exponent == 0) && Is_underflowtrap_enabled() )  in sgl_fsub()
194 		    Sgl_normalize(left,result_exponent);  in sgl_fsub()
196                     Sgl_setwrapped_exponent(left,result_exponent,unfl);  in sgl_fsub()
208 	if(result_exponent == 0 )  in sgl_fsub()
244 		Sgl_normalize(result,result_exponent);  in sgl_fsub()
246                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fsub()
262     diff_exponent = result_exponent - right_exponent;  in sgl_fsub()
314 	    result_exponent--;  in sgl_fsub()
318 		if(result_exponent==0)  in sgl_fsub()
336 	       result_exponent==0) goto underflow;  in sgl_fsub()
350 		if((result_exponent -= 8) <= 0  && !underflowtrap)  in sgl_fsub()
358 		if((result_exponent -= 4) <= 0 && !underflowtrap)  in sgl_fsub()
366 		if(result_exponent <= 0) goto underflow;  in sgl_fsub()
368 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fsub()
378 		    result_exponent -= 3;  in sgl_fsub()
385 		    result_exponent -= 2;  in sgl_fsub()
394 		    result_exponent -= 1;  in sgl_fsub()
398 	    if(result_exponent > 0)   in sgl_fsub()
400 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fsub()
409                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fsub()
418 	    Sgl_right_align(result,/*by*/(1-result_exponent),extent);  in sgl_fsub()
435 	    result_exponent++;  in sgl_fsub()
480 	if(Sgl_isone_hiddenoverflow(result)) result_exponent++;  in sgl_fsub()
482     if(result_exponent == SGL_INFINITY_EXPONENT)  in sgl_fsub()
487 	    Sgl_setwrapped_exponent(result,result_exponent,ovfl);  in sgl_fsub()
502     else Sgl_set_exponent(result,result_exponent);  in sgl_fsub()