56     register unsigned int leftp1, leftp2, rightp1, rightp2, extent;  in dbl_fsub()  local
65     Dbl_copyfromptr(rightptr,rightp1,rightp2);  in dbl_fsub()
69     Dbl_xortointp1(leftp1,rightp1,/*to*/save);  in dbl_fsub()
78 	    if (Dbl_isnotnan(rightp1,rightp2))   in dbl_fsub()
80 		if (Dbl_isinfinity(rightp1,rightp2) && save==0)   in dbl_fsub()
114 	    else if (Dbl_is_signalingnan(rightp1))   in dbl_fsub()
120 		Dbl_set_quiet(rightp1);  in dbl_fsub()
121 		Dbl_copytoptr(rightp1,rightp2,dstptr);  in dbl_fsub()
134     if (Dbl_isinfinity_exponent(rightp1))   in dbl_fsub()
136 	if (Dbl_iszero_mantissa(rightp1,rightp2))   in dbl_fsub()
139 	    Dbl_invert_sign(rightp1);  in dbl_fsub()
140 	    Dbl_copytoptr(rightp1,rightp2,dstptr);  in dbl_fsub()
146         if (Dbl_isone_signaling(rightp1))   in dbl_fsub()
152 	    Dbl_set_quiet(rightp1);  in dbl_fsub()
157 	Dbl_copytoptr(rightp1,rightp2,dstptr);  in dbl_fsub()
165     Dbl_copytoint_exponentmantissap1(rightp1,signless_upper_right);  in dbl_fsub()
172 	Dbl_xorfromintp1(save,rightp1,/*to*/rightp1);  in dbl_fsub()
180     if((right_exponent = Dbl_exponent(rightp1)) == 0)  in dbl_fsub()
183 	if(Dbl_iszero_mantissa(rightp1,rightp2))   in dbl_fsub()
189 		Dbl_invert_sign(rightp1);  in dbl_fsub()
192 		    Dbl_or_signs(leftp1,/*with*/rightp1);  in dbl_fsub()
196 		    Dbl_and_signs(leftp1,/*with*/rightp1);  in dbl_fsub()
222 	Dbl_clear_sign(rightp1);	/* Exponent is already cleared */  in dbl_fsub()
230 		Dbl_subtract(leftp1,leftp2,/*minus*/rightp1,rightp2,  in dbl_fsub()
248 		Dbl_addition(leftp1,leftp2,rightp1,rightp2,  in dbl_fsub()
276 	Dbl_clear_signexponent_set_hidden(rightp1);  in dbl_fsub()
293     Dbl_right_align(/*operand*/rightp1,rightp2,/*shifted by*/diff_exponent,  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()