hppa/spmath/dfadd.c

57     register unsigned int leftp1, leftp2, rightp1, rightp2, extent;
67     Dbl_copyfromptr(rightptr,rightp1,rightp2);
71     Dbl_xortointp1(leftp1,rightp1,/*to*/save);
80 	    if (Dbl_isnotnan(rightp1,rightp2))
82 		if (Dbl_isinfinity(rightp1,rightp2) && save!=0)
116 	    else if (Dbl_is_signalingnan(rightp1))
122 		Dbl_set_quiet(rightp1);
123 		Dbl_copytoptr(rightp1,rightp2,dstptr);
136     if (Dbl_isinfinity_exponent(rightp1))
138 	if (Dbl_iszero_mantissa(rightp1,rightp2))
141 	    Dbl_copytoptr(rightp1,rightp2,dstptr);
147 	if (Dbl_isone_signaling(rightp1))
153 	    Dbl_set_quiet(rightp1);
158 	Dbl_copytoptr(rightp1,rightp2,dstptr);
166     Dbl_copytoint_exponentmantissap1(rightp1,signless_upper_right);
173 	Dbl_xorfromintp1(save,rightp1,/*to*/rightp1);
180     if((right_exponent = Dbl_exponent(rightp1)) == 0)
183 	if(Dbl_iszero_mantissa(rightp1,rightp2))
191 		    Dbl_or_signs(leftp1,/*with*/rightp1);
195 		    Dbl_and_signs(leftp1,/*with*/rightp1);
221 	Dbl_clear_sign(rightp1);	/* Exponent is already cleared */
229 		Dbl_subtract(leftp1,leftp2,/*minus*/rightp1,rightp2,
247 		Dbl_addition(leftp1,leftp2,rightp1,rightp2,
275 	Dbl_clear_signexponent_set_hidden(rightp1);
292     Dbl_right_align(/*operand*/rightp1,rightp2,/*shifted by*/diff_exponent,
303 	Dbl_subtract_withextension(leftp1,leftp2,/*minus*/rightp1,rightp2,
446 	Dbl_addition(leftp1,leftp2,rightp1,rightp2,/*to*/resultp1,resultp2);