123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875 |
- (D
- D
- do \
- { \
- _FP_I_TYPE _FP_FRAC_SLL_4_up, _FP_FRAC_SLL_4_down; \
- _FP_I_TYPE _FP_FRAC_SLL_4_skip, _FP_FRAC_SLL_4_i; \
- _FP_FRAC_SLL_4_skip = (N) / _FP_W_TYPE_SIZE; \
- _FP_FRAC_SLL_4_up = (N) % _FP_W_TYPE_SIZE; \
- _FP_FRAC_SLL_4_down = _FP_W_TYPE_SIZE - _FP_FRAC_SLL_4_up; \
- if (!_FP_FRAC_SLL_4_up) \
- for (_FP_FRAC_SLL_4_i = 3; \
- _FP_FRAC_SLL_4_i >= _FP_FRAC_SLL_4_skip; \
- --_FP_FRAC_SLL_4_i) \
- X
- = X
- else \
- { \
- for (_FP_FRAC_SLL_4_i = 3; \
- _FP_FRAC_SLL_4_i > _FP_FRAC_SLL_4_skip; \
- --_FP_FRAC_SLL_4_i) \
- X
- = ((X
- << _FP_FRAC_SLL_4_up) \
- | (X
- >> _FP_FRAC_SLL_4_down)); \
- X
- } \
- for (; _FP_FRAC_SLL_4_i >= 0; --_FP_FRAC_SLL_4_i) \
- X
- } \
- while (0)
- do \
- { \
- _FP_I_TYPE _FP_FRAC_SRL_4_up, _FP_FRAC_SRL_4_down; \
- _FP_I_TYPE _FP_FRAC_SRL_4_skip, _FP_FRAC_SRL_4_i; \
- _FP_FRAC_SRL_4_skip = (N) / _FP_W_TYPE_SIZE; \
- _FP_FRAC_SRL_4_down = (N) % _FP_W_TYPE_SIZE; \
- _FP_FRAC_SRL_4_up = _FP_W_TYPE_SIZE - _FP_FRAC_SRL_4_down; \
- if (!_FP_FRAC_SRL_4_down) \
- for (_FP_FRAC_SRL_4_i = 0; \
- _FP_FRAC_SRL_4_i <= 3-_FP_FRAC_SRL_4_skip; \
- ++_FP_FRAC_SRL_4_i) \
- X
- = X
- else \
- { \
- for (_FP_FRAC_SRL_4_i = 0; \
- _FP_FRAC_SRL_4_i < 3-_FP_FRAC_SRL_4_skip; \
- ++_FP_FRAC_SRL_4_i) \
- X
- = ((X
- >> _FP_FRAC_SRL_4_down) \
- | (X
- << _FP_FRAC_SRL_4_up)); \
- X
- } \
- for (; _FP_FRAC_SRL_4_i < 4; ++_FP_FRAC_SRL_4_i) \
- X
- } \
- while (0)
- do \
- { \
- _FP_I_TYPE _FP_FRAC_SRST_4_up, _FP_FRAC_SRST_4_down; \
- _FP_I_TYPE _FP_FRAC_SRST_4_skip, _FP_FRAC_SRST_4_i; \
- _FP_W_TYPE _FP_FRAC_SRST_4_s; \
- _FP_FRAC_SRST_4_skip = (N) / _FP_W_TYPE_SIZE; \
- _FP_FRAC_SRST_4_down = (N) % _FP_W_TYPE_SIZE; \
- _FP_FRAC_SRST_4_up = _FP_W_TYPE_SIZE - _FP_FRAC_SRST_4_down; \
- for (_FP_FRAC_SRST_4_s = _FP_FRAC_SRST_4_i = 0; \
- _FP_FRAC_SRST_4_i < _FP_FRAC_SRST_4_skip; \
- ++_FP_FRAC_SRST_4_i) \
- _FP_FRAC_SRST_4_s |= X
- if (!_FP_FRAC_SRST_4_down) \
- for (_FP_FRAC_SRST_4_i = 0; \
- _FP_FRAC_SRST_4_i <= 3-_FP_FRAC_SRST_4_skip; \
- ++_FP_FRAC_SRST_4_i) \
- X
- = X
- else \
- { \
- _FP_FRAC_SRST_4_s \
- |= X
- for (_FP_FRAC_SRST_4_i = 0; \
- _FP_FRAC_SRST_4_i < 3-_FP_FRAC_SRST_4_skip; \
- ++_FP_FRAC_SRST_4_i) \
- X
- = ((X
- >> _FP_FRAC_SRST_4_down) \
- | (X
- << _FP_FRAC_SRST_4_up)); \
- X
- = X
- } \
- for (; _FP_FRAC_SRST_4_i < 4; ++_FP_FRAC_SRST_4_i) \
- X
- S = (_FP_FRAC_SRST_4_s != 0); \
- } \
- while (0)
- do \
- { \
- int _FP_FRAC_SRS_4_sticky; \
- _FP_FRAC_SRST_4 (X, _FP_FRAC_SRS_4_sticky, (N), (size)); \
- X
- } \
- while (0)
- __FP_FRAC_ADD_4 (R
- X
- Y
- __FP_FRAC_SUB_4 (R
- X
- Y
- __FP_FRAC_DEC_4 (X
- Y
- __FP_FRAC_ADDI_4 (X
- (_FP_FRAC_HIGH_DW_
- (X
- && X
- (X
- || (X
- && (X
- || (X
- && (X
- || (X
- && X
- (X
- || (X
- && (X
- || (X
- && (X
- || (X
- && X
- do \
- { \
- if (X
- __FP_CLZ ((R), X
- else if (X
- { \
- __FP_CLZ ((R), X
- (R) += _FP_W_TYPE_SIZE; \
- } \
- else if (X
- { \
- __FP_CLZ ((R), X
- (R) += _FP_W_TYPE_SIZE*2; \
- } \
- else \
- { \
- __FP_CLZ ((R), X
- (R) += _FP_W_TYPE_SIZE*3; \
- } \
- } \
- while (0)
- do \
- { \
- union _FP_UNION_
- _FP_UNPACK_RAW_4_flo.flt = (val); \
- X
- X
- X
- X
- X
- X
- } \
- while (0)
- do \
- { \
- union _FP_UNION_
- = (union _FP_UNION_
- \
- X
- X
- X
- X
- X
- X
- } \
- while (0)
- do \
- { \
- union _FP_UNION_
- _FP_PACK_RAW_4_flo.bits.frac0 = X
- _FP_PACK_RAW_4_flo.bits.frac1 = X
- _FP_PACK_RAW_4_flo.bits.frac2 = X
- _FP_PACK_RAW_4_flo.bits.frac3 = X
- _FP_PACK_RAW_4_flo.bits.exp = X
- _FP_PACK_RAW_4_flo.bits.sign = X
- (val) = _FP_PACK_RAW_4_flo.flt; \
- } \
- while (0)
- do \
- { \
- union _FP_UNION_
- = (union _FP_UNION_
- \
- _FP_PACK_RAW_4_P_flo->bits.frac0 = X
- _FP_PACK_RAW_4_P_flo->bits.frac1 = X
- _FP_PACK_RAW_4_P_flo->bits.frac2 = X
- _FP_PACK_RAW_4_P_flo->bits.frac3 = X
- _FP_PACK_RAW_4_P_flo->bits.exp = X
- _FP_PACK_RAW_4_P_flo->bits.sign = X
- } \
- while (0)
- do \
- { \
- _FP_FRAC_DECL_2 (_FP_MUL_MEAT_DW_4_wide_b); \
- _FP_FRAC_DECL_2 (_FP_MUL_MEAT_DW_4_wide_c); \
- _FP_FRAC_DECL_2 (_FP_MUL_MEAT_DW_4_wide_d); \
- _FP_FRAC_DECL_2 (_FP_MUL_MEAT_DW_4_wide_e); \
- _FP_FRAC_DECL_2 (_FP_MUL_MEAT_DW_4_wide_f); \
- \
- doit (_FP_FRAC_WORD_8 (R, 1), _FP_FRAC_WORD_8 (R, 0), \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_b_f1, _FP_MUL_MEAT_DW_4_wide_b_f0, \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_c_f1, _FP_MUL_MEAT_DW_4_wide_c_f0, \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_d_f1, _FP_MUL_MEAT_DW_4_wide_d_f0, \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_e_f1, _FP_MUL_MEAT_DW_4_wide_e_f0, \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_f_f1, _FP_MUL_MEAT_DW_4_wide_f_f0, \
- X
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 3), _FP_FRAC_WORD_8 (R, 2), \
- _FP_FRAC_WORD_8 (R, 1), 0, \
- _FP_MUL_MEAT_DW_4_wide_b_f1, \
- _FP_MUL_MEAT_DW_4_wide_b_f0, \
- 0, 0, _FP_FRAC_WORD_8 (R, 1)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 3), _FP_FRAC_WORD_8 (R, 2), \
- _FP_FRAC_WORD_8 (R, 1), 0, \
- _FP_MUL_MEAT_DW_4_wide_c_f1, \
- _FP_MUL_MEAT_DW_4_wide_c_f0, \
- _FP_FRAC_WORD_8 (R, 3), _FP_FRAC_WORD_8 (R, 2), \
- _FP_FRAC_WORD_8 (R, 1)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 4), _FP_FRAC_WORD_8 (R, 3), \
- _FP_FRAC_WORD_8 (R, 2), 0, \
- _FP_MUL_MEAT_DW_4_wide_d_f1, \
- _FP_MUL_MEAT_DW_4_wide_d_f0, \
- 0, _FP_FRAC_WORD_8 (R, 3), _FP_FRAC_WORD_8 (R, 2)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 4), _FP_FRAC_WORD_8 (R, 3), \
- _FP_FRAC_WORD_8 (R, 2), 0, \
- _FP_MUL_MEAT_DW_4_wide_e_f1, \
- _FP_MUL_MEAT_DW_4_wide_e_f0, \
- _FP_FRAC_WORD_8 (R, 4), _FP_FRAC_WORD_8 (R, 3), \
- _FP_FRAC_WORD_8 (R, 2)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 4), _FP_FRAC_WORD_8 (R, 3), \
- _FP_FRAC_WORD_8 (R, 2), 0, \
- _FP_MUL_MEAT_DW_4_wide_f_f1, \
- _FP_MUL_MEAT_DW_4_wide_f_f0, \
- _FP_FRAC_WORD_8 (R, 4), _FP_FRAC_WORD_8 (R, 3), \
- _FP_FRAC_WORD_8 (R, 2)); \
- doit (_FP_MUL_MEAT_DW_4_wide_b_f1, \
- _FP_MUL_MEAT_DW_4_wide_b_f0, X
- doit (_FP_MUL_MEAT_DW_4_wide_c_f1, \
- _FP_MUL_MEAT_DW_4_wide_c_f0, X
- doit (_FP_MUL_MEAT_DW_4_wide_d_f1, _FP_MUL_MEAT_DW_4_wide_d_f0, \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_e_f1, _FP_MUL_MEAT_DW_4_wide_e_f0, \
- X
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 5), _FP_FRAC_WORD_8 (R, 4), \
- _FP_FRAC_WORD_8 (R, 3), 0, \
- _FP_MUL_MEAT_DW_4_wide_b_f1, \
- _FP_MUL_MEAT_DW_4_wide_b_f0, \
- 0, _FP_FRAC_WORD_8 (R, 4), _FP_FRAC_WORD_8 (R, 3)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 5), _FP_FRAC_WORD_8 (R, 4), \
- _FP_FRAC_WORD_8 (R, 3), 0, \
- _FP_MUL_MEAT_DW_4_wide_c_f1, \
- _FP_MUL_MEAT_DW_4_wide_c_f0, \
- _FP_FRAC_WORD_8 (R, 5), _FP_FRAC_WORD_8 (R, 4), \
- _FP_FRAC_WORD_8 (R, 3)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 5), _FP_FRAC_WORD_8 (R, 4), \
- _FP_FRAC_WORD_8 (R, 3), 0, \
- _FP_MUL_MEAT_DW_4_wide_d_f1, \
- _FP_MUL_MEAT_DW_4_wide_d_f0, \
- _FP_FRAC_WORD_8 (R, 5), _FP_FRAC_WORD_8 (R, 4), \
- _FP_FRAC_WORD_8 (R, 3)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 5), _FP_FRAC_WORD_8 (R, 4), \
- _FP_FRAC_WORD_8 (R, 3), 0, \
- _FP_MUL_MEAT_DW_4_wide_e_f1, \
- _FP_MUL_MEAT_DW_4_wide_e_f0, \
- _FP_FRAC_WORD_8 (R, 5), _FP_FRAC_WORD_8 (R, 4), \
- _FP_FRAC_WORD_8 (R, 3)); \
- doit (_FP_MUL_MEAT_DW_4_wide_b_f1, _FP_MUL_MEAT_DW_4_wide_b_f0, \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_c_f1, _FP_MUL_MEAT_DW_4_wide_c_f0, \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_d_f1, _FP_MUL_MEAT_DW_4_wide_d_f0, \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_e_f1, _FP_MUL_MEAT_DW_4_wide_e_f0, \
- X
- doit (_FP_MUL_MEAT_DW_4_wide_f_f1, _FP_MUL_MEAT_DW_4_wide_f_f0, \
- X
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 6), _FP_FRAC_WORD_8 (R, 5), \
- _FP_FRAC_WORD_8 (R, 4), 0, \
- _FP_MUL_MEAT_DW_4_wide_b_f1, \
- _FP_MUL_MEAT_DW_4_wide_b_f0, \
- 0, _FP_FRAC_WORD_8 (R, 5), _FP_FRAC_WORD_8 (R, 4)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 6), _FP_FRAC_WORD_8 (R, 5), \
- _FP_FRAC_WORD_8 (R, 4), 0, \
- _FP_MUL_MEAT_DW_4_wide_c_f1, \
- _FP_MUL_MEAT_DW_4_wide_c_f0, \
- _FP_FRAC_WORD_8 (R, 6), _FP_FRAC_WORD_8 (R, 5), \
- _FP_FRAC_WORD_8 (R, 4)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 6), _FP_FRAC_WORD_8 (R, 5), \
- _FP_FRAC_WORD_8 (R, 4), 0, \
- _FP_MUL_MEAT_DW_4_wide_d_f1, \
- _FP_MUL_MEAT_DW_4_wide_d_f0, \
- _FP_FRAC_WORD_8 (R, 6), _FP_FRAC_WORD_8 (R, 5), \
- _FP_FRAC_WORD_8 (R, 4)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 7), _FP_FRAC_WORD_8 (R, 6), \
- _FP_FRAC_WORD_8 (R, 5), 0, \
- _FP_MUL_MEAT_DW_4_wide_e_f1, \
- _FP_MUL_MEAT_DW_4_wide_e_f0, \
- 0, _FP_FRAC_WORD_8 (R, 6), _FP_FRAC_WORD_8 (R, 5)); \
- __FP_FRAC_ADD_3 (_FP_FRAC_WORD_8 (R, 7), _FP_FRAC_WORD_8 (R, 6), \
- _FP_FRAC_WORD_8 (R, 5), 0, \
- _FP_MUL_MEAT_DW_4_wide_f_f1, \
- _FP_MUL_MEAT_DW_4_wide_f_f0, \
- _FP_FRAC_WORD_8 (R, 7), _FP_FRAC_WORD_8 (R, 6), \
- _FP_FRAC_WORD_8 (R, 5)); \
- doit (_FP_MUL_MEAT_DW_4_wide_b_f1, _FP_MUL_MEAT_DW_4_wide_b_f0, \
- X
- __FP_FRAC_ADD_2 (_FP_FRAC_WORD_8 (R, 7), _FP_FRAC_WORD_8 (R, 6), \
- _FP_MUL_MEAT_DW_4_wide_b_f1, \
- _FP_MUL_MEAT_DW_4_wide_b_f0, \
- _FP_FRAC_WORD_8 (R, 7), _FP_FRAC_WORD_8 (R, 6)); \
- } \
- while (0)
- do \
- { \
- _FP_FRAC_DECL_8 (_FP_MUL_MEAT_4_wide_z); \
- \
- _FP_MUL_MEAT_DW_4_wide ((wfracbits), _FP_MUL_MEAT_4_wide_z, \
- X, Y, doit); \
- \
-
- \
- _FP_FRAC_SRS_8 (_FP_MUL_MEAT_4_wide_z, (wfracbits)-1, \
- 2*(wfracbits)); \
- __FP_FRAC_SET_4 (R, _FP_FRAC_WORD_8 (_FP_MUL_MEAT_4_wide_z, 3), \
- _FP_FRAC_WORD_8 (_FP_MUL_MEAT_4_wide_z, 2), \
- _FP_FRAC_WORD_8 (_FP_MUL_MEAT_4_wide_z, 1), \
- _FP_FRAC_WORD_8 (_FP_MUL_MEAT_4_wide_z, 0)); \
- } \
- while (0)
- do \
- { \
- mpn_mul_n (R
- } \
- while (0)
- do \
- { \
- _FP_FRAC_DECL_8 (_FP_MUL_MEAT_4_gmp_z); \
- \
- _FP_MUL_MEAT_DW_4_gmp ((wfracbits), _FP_MUL_MEAT_4_gmp_z, X, Y); \
- \
-
- \
- _FP_FRAC_SRS_8 (_FP_MUL_MEAT_4_gmp_z, (wfracbits)-1, \
- 2*(wfracbits)); \
- __FP_FRAC_SET_4 (R, _FP_FRAC_WORD_8 (_FP_MUL_MEAT_4_gmp_z, 3), \
- _FP_FRAC_WORD_8 (_FP_MUL_MEAT_4_gmp_z, 2), \
- _FP_FRAC_WORD_8 (_FP_MUL_MEAT_4_gmp_z, 1), \
- _FP_FRAC_WORD_8 (_FP_MUL_MEAT_4_gmp_z, 0)); \
- } \
- while (0)
- do \
- { \
- UWtype umul_ppppmnnn_t; \
- umul_ppmm (p1, p0, m, n0); \
- umul_ppmm (p2, umul_ppppmnnn_t, m, n1); \
- __FP_FRAC_ADDI_2 (p2, p1, umul_ppppmnnn_t); \
- umul_ppmm (p3, umul_ppppmnnn_t, m, n2); \
- __FP_FRAC_ADDI_2 (p3, p2, umul_ppppmnnn_t); \
- } \
- while (0)
- do \
- { \
- int _FP_DIV_MEAT_4_udiv_i; \
- _FP_FRAC_DECL_4 (_FP_DIV_MEAT_4_udiv_n); \
- _FP_FRAC_DECL_4 (_FP_DIV_MEAT_4_udiv_m); \
- _FP_FRAC_SET_4 (_FP_DIV_MEAT_4_udiv_n, _FP_ZEROFRAC_4); \
- if (_FP_FRAC_GE_4 (X, Y)) \
- { \
- _FP_DIV_MEAT_4_udiv_n_f[3] \
- = X
- _FP_FRAC_SRL_4 (X, 1); \
- } \
- else \
- R
- \
-
- \
- _FP_FRAC_SLL_4 (Y, _FP_WFRACXBITS_
- \
- for (_FP_DIV_MEAT_4_udiv_i = 3; ; _FP_DIV_MEAT_4_udiv_i--) \
- { \
- if (X
- { \
-
- \
- R
- if (!_FP_DIV_MEAT_4_udiv_i) \
- break; \
- __FP_FRAC_SUB_4 (X
- Y
- X
- _FP_DIV_MEAT_4_udiv_n_f[_FP_DIV_MEAT_4_udiv_i]); \
- _FP_FRAC_SUB_4 (X, Y, X); \
- if (X
- { \
- R
- _FP_FRAC_ADD_4 (X, Y, X); \
- } \
- } \
- else \
- { \
- udiv_qrnnd (R
- X
- umul_ppppmnnn (_FP_DIV_MEAT_4_udiv_m_f[3], \
- _FP_DIV_MEAT_4_udiv_m_f[2], \
- _FP_DIV_MEAT_4_udiv_m_f[1], \
- _FP_DIV_MEAT_4_udiv_m_f[0], \
- R
- Y
- X
- X
- X
- = _FP_DIV_MEAT_4_udiv_n_f[_FP_DIV_MEAT_4_udiv_i]; \
- if (_FP_FRAC_GT_4 (_FP_DIV_MEAT_4_udiv_m, X)) \
- { \
- R
- _FP_FRAC_ADD_4 (X, Y, X); \
- if (_FP_FRAC_GE_4 (X, Y) \
- && _FP_FRAC_GT_4 (_FP_DIV_MEAT_4_udiv_m, X)) \
- { \
- R
- _FP_FRAC_ADD_4 (X, Y, X); \
- } \
- } \
- _FP_FRAC_DEC_4 (X, _FP_DIV_MEAT_4_udiv_m); \
- if (!_FP_DIV_MEAT_4_udiv_i) \
- { \
- if (!_FP_FRAC_EQ_4 (X, _FP_DIV_MEAT_4_udiv_m)) \
- R
- break; \
- } \
- } \
- } \
- } \
- while (0)
- do \
- { \
- while (q) \
- { \
- T
- if (T
- { \
- S
- X
- R
- } \
- _FP_FRAC_SLL_4 (X, 1); \
- (q) >>= 1; \
- } \
- (q) = (_FP_W_TYPE) 1 << (_FP_W_TYPE_SIZE - 1); \
- while (q) \
- { \
- T
- T
- if (T
- || (T
- { \
- S
- S
- __FP_FRAC_DEC_2 (X
- T
- R
- } \
- _FP_FRAC_SLL_4 (X, 1); \
- (q) >>= 1; \
- } \
- (q) = (_FP_W_TYPE) 1 << (_FP_W_TYPE_SIZE - 1); \
- while (q) \
- { \
- T
- T
- T
- if (T
- || (T
- && (T
- || (T
- && T
- { \
- S
- S
- S
- __FP_FRAC_DEC_3 (X
- T
- R
- } \
- _FP_FRAC_SLL_4 (X, 1); \
- (q) >>= 1; \
- } \
- (q) = (_FP_W_TYPE) 1 << (_FP_W_TYPE_SIZE - 1); \
- while ((q) != _FP_WORK_ROUND) \
- { \
- T
- T
- T
- T
- if (_FP_FRAC_GE_4 (X, T)) \
- { \
- S
- S
- S
- S
- _FP_FRAC_DEC_4 (X, T); \
- R
- } \
- _FP_FRAC_SLL_4 (X, 1); \
- (q) >>= 1; \
- } \
- if (!_FP_FRAC_ZEROP_4 (X)) \
- { \
- if (_FP_FRAC_GT_4 (X, S)) \
- R
- R
- } \
- } \
- while (0)
- (X
- do \
- { \
- _FP_W_TYPE __FP_FRAC_ADD_3_c1, __FP_FRAC_ADD_3_c2; \
- r0 = x0 + y0; \
- __FP_FRAC_ADD_3_c1 = r0 < x0; \
- r1 = x1 + y1; \
- __FP_FRAC_ADD_3_c2 = r1 < x1; \
- r1 += __FP_FRAC_ADD_3_c1; \
- __FP_FRAC_ADD_3_c2 |= r1 < __FP_FRAC_ADD_3_c1; \
- r2 = x2 + y2 + __FP_FRAC_ADD_3_c2; \
- } \
- while (0)
- do \
- { \
- _FP_W_TYPE __FP_FRAC_ADD_4_c1, __FP_FRAC_ADD_4_c2; \
- _FP_W_TYPE __FP_FRAC_ADD_4_c3; \
- r0 = x0 + y0; \
- __FP_FRAC_ADD_4_c1 = r0 < x0; \
- r1 = x1 + y1; \
- __FP_FRAC_ADD_4_c2 = r1 < x1; \
- r1 += __FP_FRAC_ADD_4_c1; \
- __FP_FRAC_ADD_4_c2 |= r1 < __FP_FRAC_ADD_4_c1; \
- r2 = x2 + y2; \
- __FP_FRAC_ADD_4_c3 = r2 < x2; \
- r2 += __FP_FRAC_ADD_4_c2; \
- __FP_FRAC_ADD_4_c3 |= r2 < __FP_FRAC_ADD_4_c2; \
- r3 = x3 + y3 + __FP_FRAC_ADD_4_c3; \
- } \
- while (0)
- do \
- { \
- _FP_W_TYPE __FP_FRAC_SUB_3_c1, __FP_FRAC_SUB_3_c2; \
- r0 = x0 - y0; \
- __FP_FRAC_SUB_3_c1 = r0 > x0; \
- r1 = x1 - y1; \
- __FP_FRAC_SUB_3_c2 = r1 > x1; \
- r1 -= __FP_FRAC_SUB_3_c1; \
- __FP_FRAC_SUB_3_c2 |= __FP_FRAC_SUB_3_c1 && (y1 == x1); \
- r2 = x2 - y2 - __FP_FRAC_SUB_3_c2; \
- } \
- while (0)
- do \
- { \
- _FP_W_TYPE __FP_FRAC_SUB_4_c1, __FP_FRAC_SUB_4_c2; \
- _FP_W_TYPE __FP_FRAC_SUB_4_c3; \
- r0 = x0 - y0; \
- __FP_FRAC_SUB_4_c1 = r0 > x0; \
- r1 = x1 - y1; \
- __FP_FRAC_SUB_4_c2 = r1 > x1; \
- r1 -= __FP_FRAC_SUB_4_c1; \
- __FP_FRAC_SUB_4_c2 |= __FP_FRAC_SUB_4_c1 && (y1 == x1); \
- r2 = x2 - y2; \
- __FP_FRAC_SUB_4_c3 = r2 > x2; \
- r2 -= __FP_FRAC_SUB_4_c2; \
- __FP_FRAC_SUB_4_c3 |= __FP_FRAC_SUB_4_c2 && (y2 == x2); \
- r3 = x3 - y3 - __FP_FRAC_SUB_4_c3; \
- } \
- while (0)
- do \
- { \
- UWtype __FP_FRAC_DEC_3_t0, __FP_FRAC_DEC_3_t1; \
- UWtype __FP_FRAC_DEC_3_t2; \
- __FP_FRAC_DEC_3_t0 = x0; \
- __FP_FRAC_DEC_3_t1 = x1; \
- __FP_FRAC_DEC_3_t2 = x2; \
- __FP_FRAC_SUB_3 (x2, x1, x0, __FP_FRAC_DEC_3_t2, \
- __FP_FRAC_DEC_3_t1, __FP_FRAC_DEC_3_t0, \
- y2, y1, y0); \
- } \
- while (0)
- do \
- { \
- UWtype __FP_FRAC_DEC_4_t0, __FP_FRAC_DEC_4_t1; \
- UWtype __FP_FRAC_DEC_4_t2, __FP_FRAC_DEC_4_t3; \
- __FP_FRAC_DEC_4_t0 = x0; \
- __FP_FRAC_DEC_4_t1 = x1; \
- __FP_FRAC_DEC_4_t2 = x2; \
- __FP_FRAC_DEC_4_t3 = x3; \
- __FP_FRAC_SUB_4 (x3, x2, x1, x0, __FP_FRAC_DEC_4_t3, \
- __FP_FRAC_DEC_4_t2, __FP_FRAC_DEC_4_t1, \
- __FP_FRAC_DEC_4_t0, y3, y2, y1, y0); \
- } \
- while (0)
- do \
- { \
- UWtype __FP_FRAC_ADDI_4_t; \
- __FP_FRAC_ADDI_4_t = ((x0 += i) < i); \
- x1 += __FP_FRAC_ADDI_4_t; \
- __FP_FRAC_ADDI_4_t = (x1 < __FP_FRAC_ADDI_4_t); \
- x2 += __FP_FRAC_ADDI_4_t; \
- __FP_FRAC_ADDI_4_t = (x2 < __FP_FRAC_ADDI_4_t); \
- x3 += __FP_FRAC_ADDI_4_t; \
- } \
- while (0)
- do \
- { \
- D
- D
- } \
- while (0)
- do \
- { \
- if ((rsize) <= _FP_W_TYPE_SIZE) \
- (r) = X
- else if ((rsize) <= 2*_FP_W_TYPE_SIZE) \
- { \
- (r) = X
- (r) = ((rsize) <= _FP_W_TYPE_SIZE \
- ? 0 \
- : (r) << _FP_W_TYPE_SIZE); \
- (r) += X
- } \
- else \
- { \
-
- \
- (r) = X
- (r) = ((rsize) <= _FP_W_TYPE_SIZE \
- ? 0 \
- : (r) << _FP_W_TYPE_SIZE); \
- (r) += X
- (r) = ((rsize) <= _FP_W_TYPE_SIZE \
- ? 0 \
- : (r) << _FP_W_TYPE_SIZE); \
- (r) += X
- (r) = ((rsize) <= _FP_W_TYPE_SIZE \
- ? 0 \
- : (r) << _FP_W_TYPE_SIZE); \
- (r) += X
- } \
- } \
- while (0)
- do \
- { \
- X
- X
- ? 0 \
- : (r) >> _FP_W_TYPE_SIZE); \
- X
- ? 0 \
- : (r) >> 2*_FP_W_TYPE_SIZE); \
- X
- ? 0 \
- : (r) >> 3*_FP_W_TYPE_SIZE); \
- } \
- while (0)
- do \
- { \
- D
- D
- } \
- while (0)
- do \
- { \
- D
- D
- D
- } \
- while (0)
|