111 #define _FP_FRAC_ADD_4(R,X,Y)						\  argument
114 		  Y##_f[3], Y##_f[2], Y##_f[1], Y##_f[0])
116 #define _FP_FRAC_SUB_4(R,X,Y)						\  argument
119 		  Y##_f[3], Y##_f[2], Y##_f[1], Y##_f[0])
121 #define _FP_FRAC_DEC_4(X,Y)						\  argument
123 		  Y##_f[3], Y##_f[2], Y##_f[1], Y##_f[0])
137 #define _FP_FRAC_EQ_4(X,Y)				\  argument
138  (X##_f[0] == Y##_f[0] && X##_f[1] == Y##_f[1]		\
139   && X##_f[2] == Y##_f[2] && X##_f[3] == Y##_f[3])
141 #define _FP_FRAC_GT_4(X,Y)				\  argument
142  (X##_f[3] > Y##_f[3] ||				\
143   (X##_f[3] == Y##_f[3] && (X##_f[2] > Y##_f[2] ||	\
144    (X##_f[2] == Y##_f[2] && (X##_f[1] > Y##_f[1] ||	\
145     (X##_f[1] == Y##_f[1] && X##_f[0] > Y##_f[0])	\
150 #define _FP_FRAC_GE_4(X,Y)				\  argument
151  (X##_f[3] > Y##_f[3] ||				\
152   (X##_f[3] == Y##_f[3] && (X##_f[2] > Y##_f[2] ||	\
153    (X##_f[2] == Y##_f[2] && (X##_f[1] > Y##_f[1] ||	\
154     (X##_f[1] == Y##_f[1] && X##_f[0] >= Y##_f[0])	\
239 #define _FP_MUL_MEAT_4_wide(wfracbits, R, X, Y, doit)			    \  argument
244     doit(_FP_FRAC_WORD_8(_z,1), _FP_FRAC_WORD_8(_z,0), X##_f[0], Y##_f[0]); \
245     doit(_b_f1, _b_f0, X##_f[0], Y##_f[1]);				    \
246     doit(_c_f1, _c_f0, X##_f[1], Y##_f[0]);				    \
247     doit(_d_f1, _d_f0, X##_f[1], Y##_f[1]);				    \
248     doit(_e_f1, _e_f0, X##_f[0], Y##_f[2]);				    \
249     doit(_f_f1, _f_f0, X##_f[2], Y##_f[0]);				    \
268     doit(_b_f1, _b_f0, X##_f[0], Y##_f[3]);				    \
269     doit(_c_f1, _c_f0, X##_f[3], Y##_f[0]);				    \
270     doit(_d_f1, _d_f0, X##_f[1], Y##_f[2]);				    \
271     doit(_e_f1, _e_f0, X##_f[2], Y##_f[1]);				    \
287     doit(_b_f1, _b_f0, X##_f[2], Y##_f[2]);				    \
288     doit(_c_f1, _c_f0, X##_f[1], Y##_f[3]);				    \
289     doit(_d_f1, _d_f0, X##_f[3], Y##_f[1]);				    \
290     doit(_e_f1, _e_f0, X##_f[2], Y##_f[3]);				    \
291     doit(_f_f1, _f_f0, X##_f[3], Y##_f[2]);				    \
310     doit(_b_f1, _b_f0, X##_f[3], Y##_f[3]);				    \
323 #define _FP_MUL_MEAT_4_gmp(wfracbits, R, X, Y)				    \  argument
355 #define _FP_DIV_MEAT_4_udiv(fs, R, X, Y)				    \  argument
360     if (_FP_FRAC_GT_4(X, Y))						    \
370     _FP_FRAC_SLL_4(Y, _FP_WFRACXBITS_##fs);				    \
374         if (X##_f[3] == Y##_f[3])					    \
384 			    Y##_f[2], Y##_f[1], Y##_f[0], 0,		    \
386             _FP_FRAC_SUB_4(X, Y, X);					    \
387             if (X##_f[3] > Y##_f[3])					    \
390                 _FP_FRAC_ADD_4(X, Y, X);				    \
395             udiv_qrnnd(R##_f[_i], X##_f[3], X##_f[3], X##_f[2], Y##_f[3]);  \
397 			  R##_f[_i], Y##_f[2], Y##_f[1], Y##_f[0]);	    \
404                 _FP_FRAC_ADD_4(X, Y, X);				    \
405                 if (_FP_FRAC_GE_4(X, Y) && _FP_FRAC_GT_4(_m, X))	    \
408 		    _FP_FRAC_ADD_4(X, Y, X);				    \