123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304 |
- do { \
- if (__builtin_constant_p(N) && (N) == 1) \
- X
- else \
- X
- } while (0)
- (X = (X >> (N) | (__builtin_constant_p(N) && (N) == 1 \
- ? X & 1 : (X << (_FP_W_TYPE_SIZE - (N))) != 0)))
- do { \
- union _FP_UNION_
- \
- X
- X
- X
- } while (0)
- do { \
- union _FP_UNION_
- (union _FP_UNION_
- \
- X
- X
- X
- } while (0)
- do { \
- union _FP_UNION_
- \
- _flo.bits.frac = X
- _flo.bits.exp = X
- _flo.bits.sign = X
- \
- (val) = _flo.flt; \
- } while (0)
- do { \
- union _FP_UNION_
- (union _FP_UNION_
- \
- _flo->bits.frac = X
- _flo->bits.exp = X
- _flo->bits.sign = X
- } while (0)
- do { \
- R
-
- \
- _FP_FRAC_SRS_1(R, wfracbits-1, 2*wfracbits); \
- } while (0)
- do { \
- _FP_W_TYPE _Z_f0, _Z_f1; \
- doit(_Z_f1, _Z_f0, X
-
- \
- _FP_FRAC_SRS_2(_Z, wfracbits-1, 2*wfracbits); \
- R
- } while (0)
- do { \
- _FP_W_TYPE _xh, _xl, _yh, _yl, _z_f0, _z_f1, _a_f0, _a_f1; \
- \
- \
- _xh = X
- _xl = X
- _yh = Y
- _yl = Y
- \
- \
- _z_f0 = _xl * _yl; \
- _a_f0 = _xh * _yl; \
- _a_f1 = _xl * _yh; \
- _z_f1 = _xh * _yh; \
- \
- \
- if ((_a_f0 += _a_f1) < _a_f1) \
- _z_f1 += (_FP_W_TYPE)1 << (_FP_W_TYPE_SIZE/2); \
- _a_f1 = _a_f0 >> (_FP_W_TYPE_SIZE/2); \
- _a_f0 = _a_f0 << (_FP_W_TYPE_SIZE/2); \
- _FP_FRAC_ADD_2(_z, _z, _a); \
- \
- \
- _FP_FRAC_SRS_2(_z, wfracbits - 1, 2*wfracbits); \
- R
- } while (0)
- do { \
- _FP_W_TYPE _q, _r; \
- X
- ? R
- : _FP_WFRACBITS_
- doit(_q, _r, X
- R
- } while (0)
- do { \
- _FP_W_TYPE _nh, _nl, _q, _r, _y; \
- \
- \
- _y = Y
- \
- \
- if (X
- { \
- R
- _nl = 0; \
- _nh = X
- } \
- else \
- { \
- _nl = X
- _nh = X
- } \
- \
- udiv_qrnnd(_q, _r, _nh, _nl, _y); \
- R
- } while (0)
- do { \
- _FP_W_TYPE _nh, _nl, _q, _r; \
- if (X
- { \
- R
- _nl = X
- _nh = X
- } \
- else \
- { \
- _nl = X
- _nh = X
- } \
- udiv_qrnnd(_q, _r, _nh, _nl, Y
- R
- } while (0)
-
-
-
- do { \
- while (q != _FP_WORK_ROUND) \
- { \
- T
- if (T
- { \
- S
- X
- R
- } \
- _FP_FRAC_SLL_1(X, 1); \
- q >>= 1; \
- } \
- if (X
- { \
- if (S
- R
- R
- } \
- } while (0)
- do { \
- D
- if (_FP_WFRACBITS_
- { \
- if (S
- _FP_FRAC_SRS_1(D, (_FP_WFRACBITS_
- _FP_WFRACBITS_
- else \
- _FP_FRAC_SRL_1(D, (_FP_WFRACBITS_
- } \
- else \
- D
- } while (0)
|