56     register unsigned int leftp1, leftp2, rightp1, rightp2, extent;  in dbl_fsub()  local
64     Dbl_copyfromptr(leftptr,leftp1,leftp2);  in dbl_fsub()
69     Dbl_xortointp1(leftp1,rightp1,/*to*/save);  in dbl_fsub()
74     if ((result_exponent = Dbl_exponent(leftp1)) == DBL_INFINITY_EXPONENT)  in dbl_fsub()
76 	if (Dbl_iszero_mantissa(leftp1,leftp2))   in dbl_fsub()
94 		Dbl_copytoptr(leftp1,leftp2,dstptr);  in dbl_fsub()
103             if (Dbl_isone_signaling(leftp1))   in dbl_fsub()
109         	Dbl_set_quiet(leftp1);  in dbl_fsub()
127 	    Dbl_copytoptr(leftp1,leftp2,dstptr);  in dbl_fsub()
164     Dbl_copytoint_exponentmantissap1(leftp1,signless_upper_left);  in dbl_fsub()
173 	Dbl_xorfromintp1(save,leftp1,/*to*/leftp1);  in dbl_fsub()
175 	result_exponent = Dbl_exponent(leftp1);  in dbl_fsub()
176 	Dbl_invert_sign(leftp1);  in dbl_fsub()
186 	    if(Dbl_iszero_exponentmantissa(leftp1,leftp2))  in dbl_fsub()
192 		    Dbl_or_signs(leftp1,/*with*/rightp1);  in dbl_fsub()
196 		    Dbl_and_signs(leftp1,/*with*/rightp1);  in dbl_fsub()
207 	    	    sign_save = Dbl_signextendedsign(leftp1);  in dbl_fsub()
208 		    Dbl_leftshiftby1(leftp1,leftp2);  in dbl_fsub()
209 		    Dbl_normalize(leftp1,leftp2,result_exponent);  in dbl_fsub()
210 		    Dbl_set_sign(leftp1,/*using*/sign_save);  in dbl_fsub()
211                     Dbl_setwrapped_exponent(leftp1,result_exponent,unfl);  in dbl_fsub()
212 		    Dbl_copytoptr(leftp1,leftp2,dstptr);  in dbl_fsub()
217 	    Dbl_copytoptr(leftp1,leftp2,dstptr);  in dbl_fsub()
230 		Dbl_subtract(leftp1,leftp2,/*minus*/rightp1,rightp2,  in dbl_fsub()
248 		Dbl_addition(leftp1,leftp2,rightp1,rightp2,  in dbl_fsub()
278     Dbl_clear_exponent_set_hidden(leftp1);  in dbl_fsub()
304 	Dbl_subtract_withextension(leftp1,leftp2,/*minus*/rightp1,rightp2,  in dbl_fsub()
447 	Dbl_addition(leftp1,leftp2,rightp1,rightp2,/*to*/resultp1,resultp2);  in dbl_fsub()