57     register unsigned int resultp1 = 0, resultp2 = 0;  in dbl_fsub()  local
87                     Dbl_makequietnan(resultp1,resultp2);  in dbl_fsub()
88 		    Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
231 		 /*into*/resultp1,resultp2);  in dbl_fsub()
232 		if(Dbl_iszero_mantissa(resultp1,resultp2))  in dbl_fsub()
236 			Dbl_setone_sign(resultp1);  in dbl_fsub()
240 			Dbl_setzero_sign(resultp1);  in dbl_fsub()
242 		    Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
249 		 /*into*/resultp1,resultp2);  in dbl_fsub()
250 		if(Dbl_isone_hidden(resultp1))  in dbl_fsub()
252 		    Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
259 	    	sign_save = Dbl_signextendedsign(resultp1);  in dbl_fsub()
260 		Dbl_leftshiftby1(resultp1,resultp2);  in dbl_fsub()
261 		Dbl_normalize(resultp1,resultp2,result_exponent);  in dbl_fsub()
262 		Dbl_set_sign(resultp1,/*using*/sign_save);  in dbl_fsub()
263                 Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);  in dbl_fsub()
264 		Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
268 	    Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
305 	 /*with*/extent,/*into*/resultp1,resultp2);  in dbl_fsub()
306 	if(Dbl_iszero_hidden(resultp1))  in dbl_fsub()
318 	    sign_save = Dbl_signextendedsign(resultp1);  in dbl_fsub()
319             Dbl_leftshiftby1_withextent(resultp1,resultp2,extent,resultp1,resultp2);  in dbl_fsub()
325     	    if(Dbl_iszero(resultp1,resultp2))  in dbl_fsub()
328 		if(Is_rounding_mode(ROUNDMINUS)) Dbl_setone_sign(resultp1);  in dbl_fsub()
329 		Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
334 	    if(Dbl_isone_hidden(resultp1))  in dbl_fsub()
345 		    Dbl_set_sign(resultp1,/*using*/sign_save);  in dbl_fsub()
365 	    while(Dbl_iszero_hiddenhigh7mantissa(resultp1))  in dbl_fsub()
367 		Dbl_leftshiftby8(resultp1,resultp2);  in dbl_fsub()
372 	    if(Dbl_iszero_hiddenhigh3mantissa(resultp1))  in dbl_fsub()
375 		Dbl_leftshiftby4(resultp1,resultp2);  in dbl_fsub()
381 	    if((jumpsize = Dbl_hiddenhigh3mantissa(resultp1)) > 7)  in dbl_fsub()
385 		Dbl_set_sign(resultp1,/*using*/sign_save);  in dbl_fsub()
386 		Dbl_set_exponent(resultp1,/*using*/result_exponent);  in dbl_fsub()
387 		Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
390 	    Dbl_sethigh4bits(resultp1,/*using*/sign_save);  in dbl_fsub()
395 		    Dbl_leftshiftby3(resultp1,resultp2);  in dbl_fsub()
402 		    Dbl_leftshiftby2(resultp1,resultp2);  in dbl_fsub()
411 		    Dbl_leftshiftby1(resultp1,resultp2);  in dbl_fsub()
418 		Dbl_set_exponent(resultp1,/*using*/result_exponent);  in dbl_fsub()
419 		Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
426 		Dbl_set_sign(resultp1,sign_save);  in dbl_fsub()
427                 Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);  in dbl_fsub()
428 		Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
436 	    Dbl_fix_overshift(resultp1,resultp2,(1-result_exponent),extent);  in dbl_fsub()
437 	    Dbl_clear_signexponent(resultp1);  in dbl_fsub()
438 	    Dbl_set_sign(resultp1,sign_save);  in dbl_fsub()
439 	    Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
447 	Dbl_addition(leftp1,leftp2,rightp1,rightp2,/*to*/resultp1,resultp2);  in dbl_fsub()
448 	if(Dbl_isone_hiddenoverflow(resultp1))  in dbl_fsub()
452 	    Dbl_arithrightshiftby1(resultp1,resultp2);  in dbl_fsub()
475 		    Dbl_increment(resultp1,resultp2);  in dbl_fsub()
481 	    if(Dbl_iszero_sign(resultp1))  in dbl_fsub()
484 		Dbl_increment(resultp1,resultp2);  in dbl_fsub()
489 	    if(Dbl_isone_sign(resultp1))  in dbl_fsub()
492 		Dbl_increment(resultp1,resultp2);  in dbl_fsub()
498 	if(Dbl_isone_hiddenoverflow(resultp1)) result_exponent++;  in dbl_fsub()
505 	    Dbl_setwrapped_exponent(resultp1,result_exponent,ovfl);  in dbl_fsub()
506 	    Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()
517 	    Dbl_setoverflow(resultp1,resultp2);  in dbl_fsub()
520     else Dbl_set_exponent(resultp1,result_exponent);  in dbl_fsub()
521     Dbl_copytoptr(resultp1,resultp2,dstptr);  in dbl_fsub()