123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150 |
- do \
- { \
- _FP_I_TYPE _FP_FRAC_SLL_8_up, _FP_FRAC_SLL_8_down; \
- _FP_I_TYPE _FP_FRAC_SLL_8_skip, _FP_FRAC_SLL_8_i; \
- _FP_FRAC_SLL_8_skip = (N) / _FP_W_TYPE_SIZE; \
- _FP_FRAC_SLL_8_up = (N) % _FP_W_TYPE_SIZE; \
- _FP_FRAC_SLL_8_down = _FP_W_TYPE_SIZE - _FP_FRAC_SLL_8_up; \
- if (!_FP_FRAC_SLL_8_up) \
- for (_FP_FRAC_SLL_8_i = 7; \
- _FP_FRAC_SLL_8_i >= _FP_FRAC_SLL_8_skip; \
- --_FP_FRAC_SLL_8_i) \
- X
- = X
- else \
- { \
- for (_FP_FRAC_SLL_8_i = 7; \
- _FP_FRAC_SLL_8_i > _FP_FRAC_SLL_8_skip; \
- --_FP_FRAC_SLL_8_i) \
- X
- = ((X
- << _FP_FRAC_SLL_8_up) \
- | (X
- >> _FP_FRAC_SLL_8_down)); \
- X
- } \
- for (; _FP_FRAC_SLL_8_i >= 0; --_FP_FRAC_SLL_8_i) \
- X
- } \
- while (0)
- do \
- { \
- _FP_I_TYPE _FP_FRAC_SRL_8_up, _FP_FRAC_SRL_8_down; \
- _FP_I_TYPE _FP_FRAC_SRL_8_skip, _FP_FRAC_SRL_8_i; \
- _FP_FRAC_SRL_8_skip = (N) / _FP_W_TYPE_SIZE; \
- _FP_FRAC_SRL_8_down = (N) % _FP_W_TYPE_SIZE; \
- _FP_FRAC_SRL_8_up = _FP_W_TYPE_SIZE - _FP_FRAC_SRL_8_down; \
- if (!_FP_FRAC_SRL_8_down) \
- for (_FP_FRAC_SRL_8_i = 0; \
- _FP_FRAC_SRL_8_i <= 7-_FP_FRAC_SRL_8_skip; \
- ++_FP_FRAC_SRL_8_i) \
- X
- = X
- else \
- { \
- for (_FP_FRAC_SRL_8_i = 0; \
- _FP_FRAC_SRL_8_i < 7-_FP_FRAC_SRL_8_skip; \
- ++_FP_FRAC_SRL_8_i) \
- X
- = ((X
- >> _FP_FRAC_SRL_8_down) \
- | (X
- << _FP_FRAC_SRL_8_up)); \
- X
- } \
- for (; _FP_FRAC_SRL_8_i < 8; ++_FP_FRAC_SRL_8_i) \
- X
- } \
- while (0)
- do \
- { \
- _FP_I_TYPE _FP_FRAC_SRS_8_up, _FP_FRAC_SRS_8_down; \
- _FP_I_TYPE _FP_FRAC_SRS_8_skip, _FP_FRAC_SRS_8_i; \
- _FP_W_TYPE _FP_FRAC_SRS_8_s; \
- _FP_FRAC_SRS_8_skip = (N) / _FP_W_TYPE_SIZE; \
- _FP_FRAC_SRS_8_down = (N) % _FP_W_TYPE_SIZE; \
- _FP_FRAC_SRS_8_up = _FP_W_TYPE_SIZE - _FP_FRAC_SRS_8_down; \
- for (_FP_FRAC_SRS_8_s = _FP_FRAC_SRS_8_i = 0; \
- _FP_FRAC_SRS_8_i < _FP_FRAC_SRS_8_skip; \
- ++_FP_FRAC_SRS_8_i) \
- _FP_FRAC_SRS_8_s |= X
- if (!_FP_FRAC_SRS_8_down) \
- for (_FP_FRAC_SRS_8_i = 0; \
- _FP_FRAC_SRS_8_i <= 7-_FP_FRAC_SRS_8_skip; \
- ++_FP_FRAC_SRS_8_i) \
- X
- = X
- else \
- { \
- _FP_FRAC_SRS_8_s \
- |= X
- for (_FP_FRAC_SRS_8_i = 0; \
- _FP_FRAC_SRS_8_i < 7-_FP_FRAC_SRS_8_skip; \
- ++_FP_FRAC_SRS_8_i) \
- X
- = ((X
- >> _FP_FRAC_SRS_8_down) \
- | (X
- << _FP_FRAC_SRS_8_up)); \
- X
- } \
- for (; _FP_FRAC_SRS_8_i < 8; ++_FP_FRAC_SRS_8_i) \
- X
-
- \
- X
- } \
- while (0)
|