Lines 1026-1040
Link Here
|
1026 |
|
1026 |
|
1027 |
#if __GNUC__ > 2 || __GNUC_MINOR__ >= 95 |
1027 |
#if __GNUC__ > 2 || __GNUC_MINOR__ >= 95 |
1028 |
#define mpfr_custom_get_kind(x) \ |
1028 |
#define mpfr_custom_get_kind(x) \ |
1029 |
__extension__ ({ \ |
1029 |
( \ |
1030 |
mpfr_ptr _x = (x); \ |
1030 |
(x)->_mpfr_exp > __MPFR_EXP_INF ? \ |
1031 |
_x->_mpfr_exp > __MPFR_EXP_INF ? \ |
1031 |
(mpfr_int) MPFR_REGULAR_KIND * MPFR_SIGN (x) \ |
1032 |
(mpfr_int) MPFR_REGULAR_KIND * MPFR_SIGN (_x) \ |
1032 |
: (x)->_mpfr_exp == __MPFR_EXP_INF ? \ |
1033 |
: _x->_mpfr_exp == __MPFR_EXP_INF ? \ |
1033 |
(mpfr_int) MPFR_INF_KIND * MPFR_SIGN (x) \ |
1034 |
(mpfr_int) MPFR_INF_KIND * MPFR_SIGN (_x) \ |
1034 |
: (x)->_mpfr_exp == __MPFR_EXP_NAN ? (mpfr_int) MPFR_NAN_KIND \ |
1035 |
: _x->_mpfr_exp == __MPFR_EXP_NAN ? (mpfr_int) MPFR_NAN_KIND \ |
1035 |
: (mpfr_int) MPFR_ZERO_KIND * MPFR_SIGN (x) \ |
1036 |
: (mpfr_int) MPFR_ZERO_KIND * MPFR_SIGN (_x); \ |
1036 |
) |
1037 |
}) |
|
|
1038 |
#else |
1037 |
#else |
1039 |
#define mpfr_custom_get_kind(x) ((mpfr_custom_get_kind)(x)) |
1038 |
#define mpfr_custom_get_kind(x) ((mpfr_custom_get_kind)(x)) |
1040 |
#endif |
1039 |
#endif |