55     register unsigned int left, right, result, extent;  in sgl_fadd()  local
88                     Sgl_makequietnan(result);  in sgl_fadd()
89 		    *dstptr = result;  in sgl_fadd()
226 		Sgl_subtract(left,/*minus*/right,/*into*/result);  in sgl_fadd()
227 		if(Sgl_iszero_mantissa(result))  in sgl_fadd()
231 			Sgl_setone_sign(result);  in sgl_fadd()
235 			Sgl_setzero_sign(result);  in sgl_fadd()
237 		    *dstptr = result;  in sgl_fadd()
243 		Sgl_addition(left,right,/*into*/result);  in sgl_fadd()
244 		if(Sgl_isone_hidden(result))  in sgl_fadd()
246 		    *dstptr = result;  in sgl_fadd()
253 	    	sign_save = Sgl_signextendedsign(result);  in sgl_fadd()
254 		Sgl_leftshiftby1(result);  in sgl_fadd()
255 		Sgl_normalize(result,result_exponent);  in sgl_fadd()
256 		Sgl_set_sign(result,/*using*/sign_save);  in sgl_fadd()
257                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fadd()
258 		*dstptr = result;  in sgl_fadd()
261 	    *dstptr = result;  in sgl_fadd()
297 	Sgl_subtract_withextension(left,/*minus*/right,/*with*/extent,/*into*/result);  in sgl_fadd()
298 	if(Sgl_iszero_hidden(result))  in sgl_fadd()
310 	    sign_save = Sgl_signextendedsign(result);  in sgl_fadd()
311             Sgl_leftshiftby1_withextent(result,extent,result);  in sgl_fadd()
317     	    if(Sgl_iszero(result))  in sgl_fadd()
320 		if(Is_rounding_mode(ROUNDMINUS)) Sgl_setone_sign(result);  in sgl_fadd()
321 		*dstptr = result;  in sgl_fadd()
326 	    if(Sgl_isone_hidden(result))  in sgl_fadd()
337 		    Sgl_set_sign(result,/*using*/sign_save);  in sgl_fadd()
357 	    while(Sgl_iszero_hiddenhigh7mantissa(result))  in sgl_fadd()
359 		Sgl_leftshiftby8(result);  in sgl_fadd()
364 	    if(Sgl_iszero_hiddenhigh3mantissa(result))  in sgl_fadd()
367 		Sgl_leftshiftby4(result);  in sgl_fadd()
373 	    if((jumpsize = Sgl_hiddenhigh3mantissa(result)) > 7)  in sgl_fadd()
377 		Sgl_set_sign(result,/*using*/sign_save);  in sgl_fadd()
378 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fadd()
379 		*dstptr = result;  in sgl_fadd()
382 	    Sgl_sethigh4bits(result,/*using*/sign_save);  in sgl_fadd()
387 		    Sgl_leftshiftby3(result);  in sgl_fadd()
394 		    Sgl_leftshiftby2(result);  in sgl_fadd()
403 		    Sgl_leftshiftby1(result);  in sgl_fadd()
410 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fadd()
411 		*dstptr = result;  in sgl_fadd()
418 		Sgl_set_sign(result,sign_save);  in sgl_fadd()
419                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fadd()
420 		*dstptr = result;  in sgl_fadd()
428 	    Sgl_right_align(result,/*by*/(1-result_exponent),extent);  in sgl_fadd()
429 	    Sgl_clear_signexponent(result);  in sgl_fadd()
430 	    Sgl_set_sign(result,sign_save);  in sgl_fadd()
431 	    *dstptr = result;  in sgl_fadd()
439 	Sgl_addition(left,right,/*to*/result);  in sgl_fadd()
440 	if(Sgl_isone_hiddenoverflow(result))  in sgl_fadd()
443 	    Sgl_rightshiftby1_withextent(result,extent,extent);  in sgl_fadd()
444 	    Sgl_arithrightshiftby1(result);  in sgl_fadd()
464 		  Sgl_isone_lowmantissa(result))  in sgl_fadd()
467 		    Sgl_increment(result);  in sgl_fadd()
473 	    if(Sgl_iszero_sign(result))  in sgl_fadd()
476 		Sgl_increment(result);  in sgl_fadd()
481 	    if(Sgl_isone_sign(result))  in sgl_fadd()
484 		Sgl_increment(result);  in sgl_fadd()
490 	if(Sgl_isone_hiddenoverflow(result)) result_exponent++;  in sgl_fadd()
497 	    Sgl_setwrapped_exponent(result,result_exponent,ovfl);  in sgl_fadd()
498 	    *dstptr = result;  in sgl_fadd()
509 	    Sgl_setoverflow(result);  in sgl_fadd()
512     else Sgl_set_exponent(result,result_exponent);  in sgl_fadd()
513     *dstptr = result;  in sgl_fadd()