29 #define _FP_FRAC_COPY_4(D,S)			\  argument
30   (D##_f[0] = S##_f[0], D##_f[1] = S##_f[1],	\
31    D##_f[2] = S##_f[2], D##_f[3] = S##_f[3])
429 #define _FP_SQRT_MEAT_4(R, S, T, X, q)				\  argument
433 	T##_f[3] = S##_f[3] + q;				\
436 	    S##_f[3] = T##_f[3] + q;				\
446 	T##_f[2] = S##_f[2] + q;				\
447 	T##_f[3] = S##_f[3];					\
451 	    S##_f[2] = T##_f[2] + q;				\
452 	    S##_f[3] += (T##_f[2] > S##_f[2]);			\
463 	T##_f[1] = S##_f[1] + q;				\
464 	T##_f[2] = S##_f[2];					\
465 	T##_f[3] = S##_f[3];					\
470 	    S##_f[1] = T##_f[1] + q;				\
471 	    S##_f[2] += (T##_f[1] > S##_f[1]);			\
472 	    S##_f[3] += (T##_f[2] > S##_f[2]);			\
483 	T##_f[0] = S##_f[0] + q;				\
484 	T##_f[1] = S##_f[1];					\
485 	T##_f[2] = S##_f[2];					\
486 	T##_f[3] = S##_f[3];					\
489 	    S##_f[0] = T##_f[0] + q;				\
490 	    S##_f[1] += (T##_f[0] > S##_f[0]);			\
491 	    S##_f[2] += (T##_f[1] > S##_f[1]);			\
492 	    S##_f[3] += (T##_f[2] > S##_f[2]);			\
501 	if (_FP_FRAC_GT_4(X,S))					\
615 #define _FP_FRAC_CONV_1_4(dfs, sfs, D, S)				\  argument
617      if (S##_c != FP_CLS_NAN)						\
618        _FP_FRAC_SRS_4(S, (_FP_WFRACBITS_##sfs - _FP_WFRACBITS_##dfs),	\
621        _FP_FRAC_SRL_4(S, (_FP_WFRACBITS_##sfs - _FP_WFRACBITS_##dfs));	\
622      D##_f = S##_f[0];							\
625 #define _FP_FRAC_CONV_2_4(dfs, sfs, D, S)				\  argument
627      if (S##_c != FP_CLS_NAN)						\
628        _FP_FRAC_SRS_4(S, (_FP_WFRACBITS_##sfs - _FP_WFRACBITS_##dfs),	\
631        _FP_FRAC_SRL_4(S, (_FP_WFRACBITS_##sfs - _FP_WFRACBITS_##dfs));	\
632      D##_f0 = S##_f[0];							\
633      D##_f1 = S##_f[1];							\
677 #define _FP_FRAC_CONV_4_1(dfs, sfs, D, S)				\  argument
679      D##_f[0] = S##_f;							\
684 #define _FP_FRAC_CONV_4_2(dfs, sfs, D, S)				\  argument
686      D##_f[0] = S##_f0;							\
687      D##_f[1] = S##_f1;							\