32 true_add(px, py, pz)  in true_add()  argument
33 	unpacked	*px, *py, *pz;  in true_add()
38 	if ((int) px->fpclass <= (int) py->fpclass) {	/* Reverse. */
39 		pt = py;
40 		py = px;
52 		if (py->fpclass == fp_zero) {
59 	if (px->exponent < py->exponent) {	/* Reverse. */
60 		pt = py;
61 		py = px;
70 	if (px->exponent != py->exponent) {	/* pre-alignment required */
71 		fpu_rightshift(py, pz->exponent - py->exponent);
72 		pz->rounded = py->rounded;
73 		pz->sticky  = py->sticky;
77 						py->significand[3], c);
79 						py->significand[2], c);
81 						py->significand[1], c);
83 						py->significand[0], c);
93 true_sub(pfpsd, px, py, pz)  in true_sub()  argument
95 	unpacked	*px, *py, *pz;
100 	if ((int) px->fpclass <= (int) py->fpclass) {	/* Reverse. */
101 		pt = py;
102 		py = px;
112 		if (py->fpclass == fp_infinity) {
121 		if (py->fpclass == fp_zero)
127 	if (px->exponent < py->exponent) { /* Reverse. */
128 		pt = py;
129 		py = px;
140 	if (px->exponent == py->exponent) {	/* no pre-alignment required */
143 				py->significand[3], c);
145 				py->significand[2], c);
147 				py->significand[1], c);
149 				py->significand[0], c);
156 			pz->sign = py->sign;
166 		fpu_rightshift(py, pz->exponent - py->exponent - 1);
167 		r = py->rounded; 	/* rounded bit */
168 		s = py->sticky;		/* sticky bit */
169 		fpu_rightshift(py, 1);
170 		g = py->rounded;	/* guard bit */
175 				py->significand[3], c);
177 				py->significand[2], c);
179 				py->significand[1], c);
181 				py->significand[0], c);
201 _fp_add(pfpsd, px, py, pz)  in _fp_add()  argument
203 	unpacked	*px, *py, *pz;
205 	if (px->sign == py->sign)
206 		true_add(px, py, pz);
208 		true_sub(pfpsd, px, py, pz);
212 _fp_sub(pfpsd, px, py, pz)  in _fp_sub()  argument
214 	unpacked	*px, *py, *pz;
216 	if (py->fpclass < fp_quiet) py->sign = 1 - py->sign;
217 	if (px->sign == py->sign)
218 		true_add(px, py, pz);
220 		true_sub(pfpsd, px, py, pz);