45     register int result_exponent, right_exponent, diff_exponent;  in dbl_fadd()  local
61     if ((result_exponent = Dbl_exponent(leftp1)) == DBL_INFINITY_EXPONENT)  in dbl_fadd()
161 	result_exponent = Dbl_exponent(leftp1);  in dbl_fadd()
188 		if( (result_exponent == 0) && Is_underflowtrap_enabled() )  in dbl_fadd()
193 		    Dbl_normalize(leftp1,leftp2,result_exponent);  in dbl_fadd()
195                     Dbl_setwrapped_exponent(leftp1,result_exponent,unfl);  in dbl_fadd()
207 	if(result_exponent == 0 )  in dbl_fadd()
245 		Dbl_normalize(resultp1,resultp2,result_exponent);  in dbl_fadd()
247                 Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);  in dbl_fadd()
263     diff_exponent = result_exponent - right_exponent;  in dbl_fadd()
316 	    result_exponent--;  in dbl_fadd()
320 		if(result_exponent==0)  in dbl_fadd()
338 	       result_exponent==0) goto underflow;  in dbl_fadd()
352 		if((result_exponent -= 8) <= 0  && !underflowtrap)  in dbl_fadd()
360 		if((result_exponent -= 4) <= 0 && !underflowtrap)  in dbl_fadd()
368 		if(result_exponent <= 0) goto underflow;  in dbl_fadd()
370 		Dbl_set_exponent(resultp1,/*using*/result_exponent);  in dbl_fadd()
380 		    result_exponent -= 3;  in dbl_fadd()
387 		    result_exponent -= 2;  in dbl_fadd()
396 		    result_exponent -= 1;  in dbl_fadd()
400 	    if(result_exponent > 0)   in dbl_fadd()
402 		Dbl_set_exponent(resultp1,/*using*/result_exponent);  in dbl_fadd()
411                 Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);  in dbl_fadd()
420 	    Dbl_fix_overshift(resultp1,resultp2,(1-result_exponent),extent);  in dbl_fadd()
437 	    result_exponent++;  in dbl_fadd()
482 	if(Dbl_isone_hiddenoverflow(resultp1)) result_exponent++;  in dbl_fadd()
484     if(result_exponent == DBL_INFINITY_EXPONENT)  in dbl_fadd()
489 	    Dbl_setwrapped_exponent(resultp1,result_exponent,ovfl);  in dbl_fadd()
504     else Dbl_set_exponent(resultp1,result_exponent);  in dbl_fadd()