138 #define _FP_ADD(fs, wc, R, X, Y)					     \  argument
140   switch (_FP_CLS_COMBINE(X##_c, Y##_c))				     \
145       _FP_I_TYPE diff = X##_e - Y##_e;					     \
156 	  R##_e = Y##_e;						     \
163 	        _FP_FRAC_SRS_##wc(Y, diff, _FP_WFRACBITS_##fs);		     \
164 	      else if (!_FP_FRAC_ZEROP_##wc(Y))				     \
165 	        _FP_FRAC_SET_##wc(Y, _FP_MINFRAC_##wc);			     \
167 	        _FP_FRAC_SET_##wc(Y, _FP_ZEROFRAC_##wc);		     \
174       if (X##_s == Y##_s)						     \
177 	  _FP_FRAC_ADD_##wc(R, X, Y);					     \
187 	  _FP_FRAC_SUB_##wc(R, X, Y);					     \
192 		R##_s |= Y##_s;						     \
194 		R##_s &= Y##_s;						     \
201 		  _FP_FRAC_SUB_##wc(R, Y, X);				     \
202 		  R##_s = Y##_s;					     \
219     _FP_CHOOSENAN(fs, wc, R, X, Y);					     \
233     R##_e = Y##_e;							     \
237     _FP_FRAC_COPY_##wc(R, Y);						     \
238     R##_s = Y##_s;							     \
239     R##_c = Y##_c;							     \
243     if (X##_s != Y##_s)							     \
247 	R##_s = X##_s ^ Y##_s;						     \
261     R##_s = Y##_s;							     \
268       R##_s = X##_s | Y##_s;						     \
270       R##_s = X##_s & Y##_s;						     \
298 #define _FP_MUL(fs, wc, R, X, Y)			\  argument
300   R##_s = X##_s ^ Y##_s;				\
301   switch (_FP_CLS_COMBINE(X##_c, Y##_c))		\
305     R##_e = X##_e + Y##_e + 1;				\
307     _FP_MUL_MEAT_##fs(R,X,Y);				\
316     _FP_CHOOSENAN(fs, wc, R, X, Y);			\
335     R##_s = Y##_s;					\
339     _FP_FRAC_COPY_##wc(R, Y);				\
340     R##_c = Y##_c;					\
359 #define _FP_DIV(fs, wc, R, X, Y)			\  argument
361   R##_s = X##_s ^ Y##_s;				\
362   switch (_FP_CLS_COMBINE(X##_c, Y##_c))		\
366     R##_e = X##_e - Y##_e;				\
368     _FP_DIV_MEAT_##fs(R,X,Y);				\
372     _FP_CHOOSENAN(fs, wc, R, X, Y);			\
386     R##_s = Y##_s;					\
387     _FP_FRAC_COPY_##wc(R, Y);				\
388     R##_c = Y##_c;					\
420 #define _FP_CMP(fs, wc, ret, X, Y, un)					\  argument
424 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	\
431         int __y_zero = (!Y##_e && _FP_FRAC_ZEROP_##wc(Y)) ? 1 : 0;	\
436 	  ret = Y##_s ? 1 : -1;						\
439 	else if (X##_s != Y##_s)					\
441 	else if (X##_e > Y##_e)						\
443 	else if (X##_e < Y##_e)						\
445 	else if (_FP_FRAC_GT_##wc(X, Y))				\
447 	else if (_FP_FRAC_GT_##wc(Y, X))				\
457 #define _FP_CMP_EQ(fs, wc, ret, X, Y)					  \  argument
461 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	  \
467 	ret = !(X##_e == Y##_e						  \
468 		&& _FP_FRAC_EQ_##wc(X, Y)				  \
469 		&& (X##_s == Y##_s || !X##_e && _FP_FRAC_ZEROP_##wc(X))); \