217 #define _FP_ADD_INTERNAL(fs, wc, R, X, Y, OP)				     \  argument
219   switch (_FP_CLS_COMBINE(X##_c, Y##_c))				     \
224       _FP_I_TYPE diff = X##_e - Y##_e;					     \
233 	  R##_e = Y##_e;						     \
240 	        _FP_FRAC_SRS_##wc(Y, diff, _FP_WFRACBITS_##fs);		     \
241 	      else if (!_FP_FRAC_ZEROP_##wc(Y))				     \
242 	        _FP_FRAC_SET_##wc(Y, _FP_MINFRAC_##wc);			     \
249       if (X##_s == Y##_s)						     \
252 	  _FP_FRAC_ADD_##wc(R, X, Y);					     \
262 	  _FP_FRAC_SUB_##wc(R, X, Y);					     \
267 		R##_s |= Y##_s;						     \
269 		R##_s &= Y##_s;						     \
276 		  _FP_FRAC_SUB_##wc(R, Y, X);				     \
277 		  R##_s = Y##_s;					     \
294     _FP_CHOOSENAN(fs, wc, R, X, Y, OP);					     \
308     R##_e = Y##_e;							     \
312     _FP_FRAC_COPY_##wc(R, Y);						     \
313     R##_s = Y##_s;							     \
314     R##_c = Y##_c;							     \
318     if (X##_s != Y##_s)							     \
337     R##_s = Y##_s;							     \
344       R##_s = X##_s | Y##_s;						     \
346       R##_s = X##_s & Y##_s;						     \
355 #define _FP_ADD(fs, wc, R, X, Y) _FP_ADD_INTERNAL(fs, wc, R, X, Y, '+')  argument
356 #define _FP_SUB(fs, wc, R, X, Y)					     \  argument
358     if (Y##_c != FP_CLS_NAN) Y##_s ^= 1;				     \
359     _FP_ADD_INTERNAL(fs, wc, R, X, Y, '-');				     \
381 #define _FP_MUL(fs, wc, R, X, Y)			\  argument
383   R##_s = X##_s ^ Y##_s;				\
384   switch (_FP_CLS_COMBINE(X##_c, Y##_c))		\
388     R##_e = X##_e + Y##_e + 1;				\
390     _FP_MUL_MEAT_##fs(R,X,Y);				\
399     _FP_CHOOSENAN(fs, wc, R, X, Y, '*');		\
418     R##_s = Y##_s;					\
422     _FP_FRAC_COPY_##wc(R, Y);				\
423     R##_c = Y##_c;					\
444 #define _FP_DIV(fs, wc, R, X, Y)			\  argument
446   R##_s = X##_s ^ Y##_s;				\
447   switch (_FP_CLS_COMBINE(X##_c, Y##_c))		\
451     R##_e = X##_e - Y##_e;				\
453     _FP_DIV_MEAT_##fs(R,X,Y);				\
457     _FP_CHOOSENAN(fs, wc, R, X, Y, '/');		\
471     R##_s = Y##_s;					\
472     _FP_FRAC_COPY_##wc(R, Y);				\
473     R##_c = Y##_c;					\
508 #define _FP_CMP(fs, wc, ret, X, Y, un)					\  argument
512 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	\
522 	__is_zero_y = (!Y##_e && _FP_FRAC_ZEROP_##wc(Y)) ? 1 : 0;	\
527 		ret = Y##_s ? 1 : -1;					\
530 	else if (X##_s != Y##_s)					\
532 	else if (X##_e > Y##_e)						\
534 	else if (X##_e < Y##_e)						\
536 	else if (_FP_FRAC_GT_##wc(X, Y))				\
538 	else if (_FP_FRAC_GT_##wc(Y, X))				\
548 #define _FP_CMP_EQ(fs, wc, ret, X, Y)					  \  argument
552 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	  \
558 	ret = !(X##_e == Y##_e						  \
559 		&& _FP_FRAC_EQ_##wc(X, Y)				  \
560 		&& (X##_s == Y##_s || !X##_e && _FP_FRAC_ZEROP_##wc(X))); \