59     register int result_exponent, right_exponent, diff_exponent;  in dbl_fsub()  local
74     if ((result_exponent = Dbl_exponent(leftp1)) == DBL_INFINITY_EXPONENT)  in dbl_fsub()
175 	result_exponent = Dbl_exponent(leftp1);  in dbl_fsub()
204 		if( (result_exponent == 0) && Is_underflowtrap_enabled() )  in dbl_fsub()
209 		    Dbl_normalize(leftp1,leftp2,result_exponent);  in dbl_fsub()
211                     Dbl_setwrapped_exponent(leftp1,result_exponent,unfl);  in dbl_fsub()
223 	if(result_exponent == 0 )  in dbl_fsub()
261 		Dbl_normalize(resultp1,resultp2,result_exponent);  in dbl_fsub()
263                 Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);  in dbl_fsub()
279     diff_exponent = result_exponent - right_exponent;  in dbl_fsub()
332 	    result_exponent--;  in dbl_fsub()
336 		if(result_exponent==0)  in dbl_fsub()
354 	       result_exponent==0) goto underflow;  in dbl_fsub()
368 		if((result_exponent -= 8) <= 0  && !underflowtrap)  in dbl_fsub()
376 		if((result_exponent -= 4) <= 0 && !underflowtrap)  in dbl_fsub()
384 		if(result_exponent <= 0) goto underflow;  in dbl_fsub()
386 		Dbl_set_exponent(resultp1,/*using*/result_exponent);  in dbl_fsub()
396 		    result_exponent -= 3;  in dbl_fsub()
403 		    result_exponent -= 2;  in dbl_fsub()
412 		    result_exponent -= 1;  in dbl_fsub()
416 	    if(result_exponent > 0)   in dbl_fsub()
418 		Dbl_set_exponent(resultp1,/*using*/result_exponent);  in dbl_fsub()
427                 Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);  in dbl_fsub()
436 	    Dbl_fix_overshift(resultp1,resultp2,(1-result_exponent),extent);  in dbl_fsub()
453 	    result_exponent++;  in dbl_fsub()
498 	if(Dbl_isone_hiddenoverflow(resultp1)) result_exponent++;  in dbl_fsub()
500     if(result_exponent == DBL_INFINITY_EXPONENT)  in dbl_fsub()
505 	    Dbl_setwrapped_exponent(resultp1,result_exponent,ovfl);  in dbl_fsub()
520     else Dbl_set_exponent(resultp1,result_exponent);  in dbl_fsub()