10 #define _FP_UNPACK_CANONICAL(fs, wc, X)					\  argument
15     _FP_FRAC_HIGH_##wc(X) |= _FP_IMPLBIT_##fs;				\
17     X##_e -= _FP_EXPBIAS_##fs;						\
29 	_shift -= _FP_FRACXBITS_##fs;					\
31 	X##_e -= _FP_EXPBIAS_##fs - 1 + _shift;				\
36   case _FP_EXPMAX_##fs:							\
54 #define _FP_PACK_CANONICAL(fs, wc, X)				\  argument
59     X##_e += _FP_EXPBIAS_##fs;					\
63 	if (_FP_FRAC_OVERP_##wc(fs, X))				\
70 	if (X##_e >= _FP_EXPMAX_##fs)				\
73 	    X##_e = _FP_EXPMAX_##fs;				\
82 	if (X##_e <= _FP_WFRACBITS_##fs)			\
84 	    _FP_FRAC_SRS_##wc(X, X##_e, _FP_WFRACBITS_##fs);	\
87 	    if (_FP_FRAC_OVERP_##wc(fs, X))			\
115     X##_e = _FP_EXPMAX_##fs;					\
120     X##_e = _FP_EXPMAX_##fs;					\
123 	_FP_FRAC_SET_##wc(X, _FP_NANFRAC_##fs);			\
127       _FP_FRAC_HIGH_##wc(X) |= _FP_QNANBIT_##fs;		\
138 #define _FP_ADD(fs, wc, R, X, Y)					     \  argument
150 	  if (diff <= _FP_WFRACBITS_##fs)				     \
151 	    _FP_FRAC_SRS_##wc(X, diff, _FP_WFRACBITS_##fs);		     \
162 	      if (diff <= _FP_WFRACBITS_##fs)				     \
163 	        _FP_FRAC_SRS_##wc(Y, diff, _FP_WFRACBITS_##fs);		     \
178 	  if (_FP_FRAC_OVERP_##wc(fs, R))				     \
180 	      _FP_FRAC_SRS_##wc(R, 1, _FP_WFRACBITS_##fs);		     \
207 	      diff -= _FP_WFRACXBITS_##fs;				     \
219     _FP_CHOOSENAN(fs, wc, R, X, Y);					     \
246 	_FP_FRAC_SET_##wc(R, _FP_NANFRAC_##fs);				     \
285 #define _FP_NEG(fs, wc, R, X)		\  argument
298 #define _FP_MUL(fs, wc, R, X, Y)			\  argument
307     _FP_MUL_MEAT_##fs(R,X,Y);				\
309     if (_FP_FRAC_OVERP_##wc(fs, R))			\
310       _FP_FRAC_SRS_##wc(R, 1, _FP_WFRACBITS_##fs);	\
316     _FP_CHOOSENAN(fs, wc, R, X, Y);			\
346     _FP_FRAC_SET_##wc(R, _FP_NANFRAC_##fs);		\
359 #define _FP_DIV(fs, wc, R, X, Y)			\  argument
368     _FP_DIV_MEAT_##fs(R,X,Y);				\
372     _FP_CHOOSENAN(fs, wc, R, X, Y);			\
406     _FP_FRAC_SET_##wc(R, _FP_NANFRAC_##fs);		\
420 #define _FP_CMP(fs, wc, ret, X, Y, un)					\  argument
423     if ((X##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(X))		\
424 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	\
457 #define _FP_CMP_EQ(fs, wc, ret, X, Y)					  \  argument
460     if ((X##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(X))		  \
461 	|| (Y##_e == _FP_EXPMAX_##fs && !_FP_FRAC_ZEROP_##wc(Y)))	  \
477 #define _FP_SQRT(fs, wc, R, X)						\  argument
517         q = _FP_OVERFLOW_##fs;						\
551 #define _FP_TO_INT(fs, wc, r, X, rsize, rsigned)			\  argument
584 		r <<= X##_e - _FP_WFRACBITS_##fs;			\
588 		if (X##_e >= _FP_WFRACBITS_##fs)			\
589 		  _FP_FRAC_SLL_##wc(X, (X##_e - _FP_WFRACBITS_##fs + 1));\
591 		  _FP_FRAC_SRL_##wc(X, (_FP_WFRACBITS_##fs - X##_e - 1));\
601 #define _FP_FROM_INT(fs, wc, X, r, rsize, rtype)			\  argument
621 	if (_FP_FRACBITS_##fs < rsize && _FP_WFRACBITS_##fs < X##_e)	\
622 	  __FP_FRAC_SRS_1(r, (X##_e - _FP_WFRACBITS_##fs), rsize);	\
625 	_FP_FRAC_SLL_##wc(X, (_FP_WFRACBITS_##fs - X##_e - 1));		\