46     register int result_exponent, right_exponent, diff_exponent;  in sgl_fadd()  local
62     if ((result_exponent = Sgl_exponent(left)) == SGL_INFINITY_EXPONENT)  in sgl_fadd()
161 	result_exponent = Sgl_exponent(left);  in sgl_fadd()
188 		if( (result_exponent == 0) && Is_underflowtrap_enabled() )  in sgl_fadd()
193 		    Sgl_normalize(left,result_exponent);  in sgl_fadd()
195 		    Sgl_setwrapped_exponent(left,result_exponent,unfl);  in sgl_fadd()
206 	if(result_exponent == 0 )  in sgl_fadd()
242 		Sgl_normalize(result,result_exponent);  in sgl_fadd()
244                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fadd()
259     diff_exponent = result_exponent - right_exponent;  in sgl_fadd()
311 	    result_exponent--;  in sgl_fadd()
315 		if(result_exponent==0)  in sgl_fadd()
333 	       result_exponent==0) goto underflow;  in sgl_fadd()
347 		if((result_exponent -= 8) <= 0  && !underflowtrap)  in sgl_fadd()
355 		if((result_exponent -= 4) <= 0 && !underflowtrap)  in sgl_fadd()
363 		if(result_exponent <= 0) goto underflow;  in sgl_fadd()
365 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fadd()
375 		    result_exponent -= 3;  in sgl_fadd()
382 		    result_exponent -= 2;  in sgl_fadd()
391 		    result_exponent -= 1;  in sgl_fadd()
395 	    if(result_exponent > 0)   in sgl_fadd()
397 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fadd()
406                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fadd()
415 	    Sgl_right_align(result,/*by*/(1-result_exponent),extent);  in sgl_fadd()
432 	    result_exponent++;  in sgl_fadd()
477 	if(Sgl_isone_hiddenoverflow(result)) result_exponent++;  in sgl_fadd()
479     if(result_exponent == SGL_INFINITY_EXPONENT)  in sgl_fadd()
484 	    Sgl_setwrapped_exponent(result,result_exponent,ovfl);  in sgl_fadd()
499     else Sgl_set_exponent(result,result_exponent);  in sgl_fadd()