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);					     \
320     R##_e = Y##_e;							     \
324     _FP_FRAC_COPY_##wc(R, Y);						     \
325     R##_s = Y##_s;							     \
326     R##_c = Y##_c;							     \
330     if (X##_s != Y##_s)							     \
349     R##_s = Y##_s;							     \
356       R##_s = X##_s | Y##_s;						     \
358       R##_s = X##_s & Y##_s;						     \
367 #define _FP_ADD(fs, wc, R, X, Y) _FP_ADD_INTERNAL(fs, wc, R, X, Y, '+')  argument
368 #define _FP_SUB(fs, wc, R, X, Y)					     \  argument
370     if (Y##_c != FP_CLS_NAN) Y##_s ^= 1;				     \
371     _FP_ADD_INTERNAL(fs, wc, R, X, Y, '-');				     \
393 #define _FP_MUL(fs, wc, R, X, Y)			\  argument
395   R##_s = X##_s ^ Y##_s;				\
396   switch (_FP_CLS_COMBINE(X##_c, Y##_c))		\
400     R##_e = X##_e + Y##_e + 1;				\
402     _FP_MUL_MEAT_##fs(R,X,Y);				\
411     _FP_CHOOSENAN(fs, wc, R, X, Y, '*');		\
430     R##_s = Y##_s;					\
434     _FP_FRAC_COPY_##wc(R, Y);				\
435     R##_c = Y##_c;					\
456 #define _FP_DIV(fs, wc, R, X, Y)			\  argument
458   R##_s = X##_s ^ Y##_s;				\
459   switch (_FP_CLS_COMBINE(X##_c, Y##_c))		\
463     R##_e = X##_e - Y##_e;				\
465     _FP_DIV_MEAT_##fs(R,X,Y);				\
469     _FP_CHOOSENAN(fs, wc, R, X, Y, '/');		\
483     R##_s = Y##_s;					\
484     _FP_FRAC_COPY_##wc(R, Y);				\
485     R##_c = Y##_c;					\
526 #define _FP_CMP(fs, wc, ret, X, Y, un)					\  argument
530 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	\
540 	__is_zero_y = (!Y##_e && _FP_FRAC_ZEROP_##wc(Y)) ? 1 : 0;	\
545 		ret = Y##_s ? 1 : -1;					\
548 	else if (X##_s != Y##_s)					\
550 	else if (X##_e > Y##_e)						\
552 	else if (X##_e < Y##_e)						\
554 	else if (_FP_FRAC_GT_##wc(X, Y))				\
556 	else if (_FP_FRAC_GT_##wc(Y, X))				\
566 #define _FP_CMP_EQ(fs, wc, ret, X, Y)					  \  argument
570 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	  \
576 	ret = !(X##_e == Y##_e						  \
577 		&& _FP_FRAC_EQ_##wc(X, Y)				  \
578 		&& (X##_s == Y##_s || !X##_e && _FP_FRAC_ZEROP_##wc(X))); \