229 #define _FP_ADD_INTERNAL(fs, wc, R, X, Y, OP)				     \  argument
231   switch (_FP_CLS_COMBINE(X##_c, Y##_c))				     \
236       _FP_I_TYPE diff = X##_e - Y##_e;					     \
245 	  R##_e = Y##_e;						     \
252 	        _FP_FRAC_SRS_##wc(Y, diff, _FP_WFRACBITS_##fs);		     \
253 	      else if (!_FP_FRAC_ZEROP_##wc(Y))				     \
254 	        _FP_FRAC_SET_##wc(Y, _FP_MINFRAC_##wc);			     \
261       if (X##_s == Y##_s)						     \
264 	  _FP_FRAC_ADD_##wc(R, X, Y);					     \
274 	  _FP_FRAC_SUB_##wc(R, X, Y);					     \
279 		R##_s |= Y##_s;						     \
281 		R##_s &= Y##_s;						     \
288 		  _FP_FRAC_SUB_##wc(R, Y, X);				     \
289 		  R##_s = Y##_s;					     \
306     _FP_CHOOSENAN(fs, wc, R, X, Y, OP);					     \
321     R##_e = Y##_e;							     \
326     _FP_FRAC_COPY_##wc(R, Y);						     \
327     R##_s = Y##_s;							     \
328     R##_c = Y##_c;							     \
332     if (X##_s != Y##_s)							     \
351     R##_s = Y##_s;							     \
358       R##_s = X##_s | Y##_s;						     \
360       R##_s = X##_s & Y##_s;						     \
369 #define _FP_ADD(fs, wc, R, X, Y) _FP_ADD_INTERNAL(fs, wc, R, X, Y, '+')  argument
370 #define _FP_SUB(fs, wc, R, X, Y)					     \  argument
372     if (Y##_c != FP_CLS_NAN) Y##_s ^= 1;				     \
373     _FP_ADD_INTERNAL(fs, wc, R, X, Y, '-');				     \
395 #define _FP_MUL(fs, wc, R, X, Y)			\  argument
397   R##_s = X##_s ^ Y##_s;				\
398   switch (_FP_CLS_COMBINE(X##_c, Y##_c))		\
402     R##_e = X##_e + Y##_e + 1;				\
404     _FP_MUL_MEAT_##fs(R,X,Y);				\
413     _FP_CHOOSENAN(fs, wc, R, X, Y, '*');		\
433     R##_s = Y##_s;					\
438     _FP_FRAC_COPY_##wc(R, Y);				\
439     R##_c = Y##_c;					\
460 #define _FP_DIV(fs, wc, R, X, Y)			\  argument
462   R##_s = X##_s ^ Y##_s;				\
463   switch (_FP_CLS_COMBINE(X##_c, Y##_c))		\
467     R##_e = X##_e - Y##_e;				\
469     _FP_DIV_MEAT_##fs(R,X,Y);				\
473     _FP_CHOOSENAN(fs, wc, R, X, Y, '/');		\
487     R##_s = Y##_s;					\
488     _FP_FRAC_COPY_##wc(R, Y);				\
489     R##_c = Y##_c;					\
531 #define _FP_CMP(fs, wc, ret, X, Y, un)					\  argument
535 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	\
545 	__is_zero_y = (!Y##_e && _FP_FRAC_ZEROP_##wc(Y)) ? 1 : 0;	\
550 		ret = Y##_s ? 1 : -1;					\
553 	else if (X##_s != Y##_s)					\
555 	else if (X##_e > Y##_e)						\
557 	else if (X##_e < Y##_e)						\
559 	else if (_FP_FRAC_GT_##wc(X, Y))				\
561 	else if (_FP_FRAC_GT_##wc(Y, X))				\
571 #define _FP_CMP_EQ(fs, wc, ret, X, Y)					  \  argument
575 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	  \
581 	ret = !(X##_e == Y##_e						  \
582 		&& _FP_FRAC_EQ_##wc(X, Y)				  \
583 		&& (X##_s == Y##_s || !X##_e && _FP_FRAC_ZEROP_##wc(X))); \