42     register unsigned int left, right, result, extent;  in sgl_fadd()  local
75                     Sgl_makequietnan(result);  in sgl_fadd()
76 		    *dstptr = result;  in sgl_fadd()
213 		Sgl_subtract(left,/*minus*/right,/*into*/result);  in sgl_fadd()
214 		if(Sgl_iszero_mantissa(result))  in sgl_fadd()
218 			Sgl_setone_sign(result);  in sgl_fadd()
222 			Sgl_setzero_sign(result);  in sgl_fadd()
224 		    *dstptr = result;  in sgl_fadd()
230 		Sgl_addition(left,right,/*into*/result);  in sgl_fadd()
231 		if(Sgl_isone_hidden(result))  in sgl_fadd()
233 		    *dstptr = result;  in sgl_fadd()
240 	    	sign_save = Sgl_signextendedsign(result);  in sgl_fadd()
241 		Sgl_leftshiftby1(result);  in sgl_fadd()
242 		Sgl_normalize(result,result_exponent);  in sgl_fadd()
243 		Sgl_set_sign(result,/*using*/sign_save);  in sgl_fadd()
244                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fadd()
245 		*dstptr = result;  in sgl_fadd()
248 	    *dstptr = result;  in sgl_fadd()
284 	Sgl_subtract_withextension(left,/*minus*/right,/*with*/extent,/*into*/result);  in sgl_fadd()
285 	if(Sgl_iszero_hidden(result))  in sgl_fadd()
297 	    sign_save = Sgl_signextendedsign(result);  in sgl_fadd()
298             Sgl_leftshiftby1_withextent(result,extent,result);  in sgl_fadd()
304     	    if(Sgl_iszero(result))  in sgl_fadd()
307 		if(Is_rounding_mode(ROUNDMINUS)) Sgl_setone_sign(result);  in sgl_fadd()
308 		*dstptr = result;  in sgl_fadd()
313 	    if(Sgl_isone_hidden(result))  in sgl_fadd()
324 		    Sgl_set_sign(result,/*using*/sign_save);  in sgl_fadd()
344 	    while(Sgl_iszero_hiddenhigh7mantissa(result))  in sgl_fadd()
346 		Sgl_leftshiftby8(result);  in sgl_fadd()
351 	    if(Sgl_iszero_hiddenhigh3mantissa(result))  in sgl_fadd()
354 		Sgl_leftshiftby4(result);  in sgl_fadd()
360 	    if((jumpsize = Sgl_hiddenhigh3mantissa(result)) > 7)  in sgl_fadd()
364 		Sgl_set_sign(result,/*using*/sign_save);  in sgl_fadd()
365 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fadd()
366 		*dstptr = result;  in sgl_fadd()
369 	    Sgl_sethigh4bits(result,/*using*/sign_save);  in sgl_fadd()
374 		    Sgl_leftshiftby3(result);  in sgl_fadd()
381 		    Sgl_leftshiftby2(result);  in sgl_fadd()
390 		    Sgl_leftshiftby1(result);  in sgl_fadd()
397 		Sgl_set_exponent(result,/*using*/result_exponent);  in sgl_fadd()
398 		*dstptr = result;  in sgl_fadd()
405 		Sgl_set_sign(result,sign_save);  in sgl_fadd()
406                 Sgl_setwrapped_exponent(result,result_exponent,unfl);  in sgl_fadd()
407 		*dstptr = result;  in sgl_fadd()
415 	    Sgl_right_align(result,/*by*/(1-result_exponent),extent);  in sgl_fadd()
416 	    Sgl_clear_signexponent(result);  in sgl_fadd()
417 	    Sgl_set_sign(result,sign_save);  in sgl_fadd()
418 	    *dstptr = result;  in sgl_fadd()
426 	Sgl_addition(left,right,/*to*/result);  in sgl_fadd()
427 	if(Sgl_isone_hiddenoverflow(result))  in sgl_fadd()
430 	    Sgl_rightshiftby1_withextent(result,extent,extent);  in sgl_fadd()
431 	    Sgl_arithrightshiftby1(result);  in sgl_fadd()
451 		  Sgl_isone_lowmantissa(result))  in sgl_fadd()
454 		    Sgl_increment(result);  in sgl_fadd()
460 	    if(Sgl_iszero_sign(result))  in sgl_fadd()
463 		Sgl_increment(result);  in sgl_fadd()
468 	    if(Sgl_isone_sign(result))  in sgl_fadd()
471 		Sgl_increment(result);  in sgl_fadd()
477 	if(Sgl_isone_hiddenoverflow(result)) result_exponent++;  in sgl_fadd()
484 	    Sgl_setwrapped_exponent(result,result_exponent,ovfl);  in sgl_fadd()
485 	    *dstptr = result;  in sgl_fadd()
496 	    Sgl_setoverflow(result);  in sgl_fadd()
499     else Sgl_set_exponent(result,result_exponent);  in sgl_fadd()
500     *dstptr = result;  in sgl_fadd()