58     register int result_exponent, right_exponent, diff_exponent;  in dbl_fadd()  local
74     if ((result_exponent = Dbl_exponent(leftp1)) == DBL_INFINITY_EXPONENT)  in dbl_fadd()
174 	result_exponent = Dbl_exponent(leftp1);  in dbl_fadd()
201 		if( (result_exponent == 0) && Is_underflowtrap_enabled() )  in dbl_fadd()
206 		    Dbl_normalize(leftp1,leftp2,result_exponent);  in dbl_fadd()
208                     Dbl_setwrapped_exponent(leftp1,result_exponent,unfl);  in dbl_fadd()
220 	if(result_exponent == 0 )  in dbl_fadd()
258 		Dbl_normalize(resultp1,resultp2,result_exponent);  in dbl_fadd()
260                 Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);  in dbl_fadd()
276     diff_exponent = result_exponent - right_exponent;  in dbl_fadd()
329 	    result_exponent--;  in dbl_fadd()
333 		if(result_exponent==0)  in dbl_fadd()
351 	       result_exponent==0) goto underflow;  in dbl_fadd()
365 		if((result_exponent -= 8) <= 0  && !underflowtrap)  in dbl_fadd()
373 		if((result_exponent -= 4) <= 0 && !underflowtrap)  in dbl_fadd()
381 		if(result_exponent <= 0) goto underflow;  in dbl_fadd()
383 		Dbl_set_exponent(resultp1,/*using*/result_exponent);  in dbl_fadd()
393 		    result_exponent -= 3;  in dbl_fadd()
400 		    result_exponent -= 2;  in dbl_fadd()
409 		    result_exponent -= 1;  in dbl_fadd()
413 	    if(result_exponent > 0)   in dbl_fadd()
415 		Dbl_set_exponent(resultp1,/*using*/result_exponent);  in dbl_fadd()
424                 Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);  in dbl_fadd()
433 	    Dbl_fix_overshift(resultp1,resultp2,(1-result_exponent),extent);  in dbl_fadd()
450 	    result_exponent++;  in dbl_fadd()
495 	if(Dbl_isone_hiddenoverflow(resultp1)) result_exponent++;  in dbl_fadd()
497     if(result_exponent == DBL_INFINITY_EXPONENT)  in dbl_fadd()
502 	    Dbl_setwrapped_exponent(resultp1,result_exponent,ovfl);  in dbl_fadd()
517     else Dbl_set_exponent(resultp1,result_exponent);  in dbl_fadd()