diff options
author | Francois-Xavier Coudert <fxcoudert@gmail.com> | 2022-01-25 21:54:03 +0100 |
---|---|---|
committer | Francois-Xavier Coudert <fxcoudert@gmail.com> | 2022-01-26 00:10:45 +0100 |
commit | fa262add75ab6631bf22b7e2884437ba9c62ed2a (patch) | |
tree | 8804ea0563cc97c80c8483f6b9dc6aec19cea90f /libgfortran | |
parent | 58ec0964b1d2f2ab197916cd661728f6a7a1736b (diff) | |
download | gcc-fa262add75ab6631bf22b7e2884437ba9c62ed2a.zip gcc-fa262add75ab6631bf22b7e2884437ba9c62ed2a.tar.gz gcc-fa262add75ab6631bf22b7e2884437ba9c62ed2a.tar.bz2 |
Fortran: fix issignaling() implementation
libgfortran/ChangeLog:
* ieee/issignaling_fallback.h: Fix GCC-specific preprocessor
macros.
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ieee/issignaling_fallback.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libgfortran/ieee/issignaling_fallback.h b/libgfortran/ieee/issignaling_fallback.h index 5b9e1c8..440a3f6 100644 --- a/libgfortran/ieee/issignaling_fallback.h +++ b/libgfortran/ieee/issignaling_fallback.h @@ -103,12 +103,12 @@ typedef union long double value; struct { -#if __FLOAT_WORD_ORDER == __BIG_ENDIAN +#if __FLOAT_WORD_ORDER__ == __ORDER_BIG_ENDIAN__ int sign_exponent:16; unsigned int empty:16; uint32_t msw; uint32_t lsw; -#elif __FLOAT_WORD_ORDER == __LITTLE_ENDIAN +#elif __FLOAT_WORD_ORDER__ == __ORDER_LITTLE_ENDIAN__ uint32_t lsw; uint32_t msw; int sign_exponent:16; @@ -159,10 +159,10 @@ typedef union long double value; struct { -#if __FLOAT_WORD_ORDER == __BIG_ENDIAN +#if __FLOAT_WORD_ORDER__ == __ORDER_BIG_ENDIAN__ uint64_t msw; uint64_t lsw; -#elif __FLOAT_WORD_ORDER == __LITTLE_ENDIAN +#elif __FLOAT_WORD_ORDER__ == __ORDER_LITTLE_ENDIAN__ uint64_t lsw; uint64_t msw; #endif @@ -204,10 +204,10 @@ typedef union __float128 value; struct { -#if __FLOAT_WORD_ORDER == __BIG_ENDIAN +#if __FLOAT_WORD_ORDER__ == __ORDER_BIG_ENDIAN__ uint64_t msw; uint64_t lsw; -#elif __FLOAT_WORD_ORDER == __LITTLE_ENDIAN +#elif __FLOAT_WORD_ORDER__ == __ORDER_LITTLE_ENDIAN__ uint64_t lsw; uint64_t msw; #endif |