59     register int result_exponent, right_exponent, diff_exponent;  in sgl_fadd()  local
75     if ((result_exponent = Sgl_exponent(left)) == SGL_INFINITY_EXPONENT)  in sgl_fadd()
174 	result_exponent = Sgl_exponent(left);  in sgl_fadd()
201 		if( (result_exponent == 0) && Is_underflowtrap_enabled() )  in sgl_fadd()
206 		    Sgl_normalize(left,result_exponent);  in sgl_fadd()
208 		    Sgl_setwrapped_exponent(left,result_exponent,unfl);  in sgl_fadd()
219 	if(result_exponent == 0 )  in sgl_fadd()
255 		Sgl_normalize(result,result_exponent);  in sgl_fadd()
257                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fadd()
272     diff_exponent = result_exponent - right_exponent;  in sgl_fadd()
324 	    result_exponent--;  in sgl_fadd()
328 		if(result_exponent==0)  in sgl_fadd()
346 	       result_exponent==0) goto underflow;  in sgl_fadd()
360 		if((result_exponent -= 8) <= 0  && !underflowtrap)  in sgl_fadd()
368 		if((result_exponent -= 4) <= 0 && !underflowtrap)  in sgl_fadd()
376 		if(result_exponent <= 0) goto underflow;  in sgl_fadd()
378 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fadd()
388 		    result_exponent -= 3;  in sgl_fadd()
395 		    result_exponent -= 2;  in sgl_fadd()
404 		    result_exponent -= 1;  in sgl_fadd()
408 	    if(result_exponent > 0)   in sgl_fadd()
410 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fadd()
419                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fadd()
428 	    Sgl_right_align(result,/*by*/(1-result_exponent),extent);  in sgl_fadd()
445 	    result_exponent++;  in sgl_fadd()
490 	if(Sgl_isone_hiddenoverflow(result)) result_exponent++;  in sgl_fadd()
492     if(result_exponent == SGL_INFINITY_EXPONENT)  in sgl_fadd()
497 	    Sgl_setwrapped_exponent(result,result_exponent,ovfl);  in sgl_fadd()
512     else Sgl_set_exponent(result,result_exponent);  in sgl_fadd()