From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1665) id 82EDC385E017; Tue, 25 Jan 2022 23:10:49 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 82EDC385E017 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: =?utf-8?q?Fran=E0=A4=A5=E0=A4=88ois-Xavier_Coudert?= To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-6870] Fortran: fix issignaling() implementation X-Act-Checkin: gcc X-Git-Author: Francois-Xavier Coudert X-Git-Refname: refs/heads/master X-Git-Oldrev: 58ec0964b1d2f2ab197916cd661728f6a7a1736b X-Git-Newrev: fa262add75ab6631bf22b7e2884437ba9c62ed2a Message-Id: <20220125231049.82EDC385E017@sourceware.org> Date: Tue, 25 Jan 2022 23:10:49 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 25 Jan 2022 23:10:49 -0000 https://gcc.gnu.org/g:fa262add75ab6631bf22b7e2884437ba9c62ed2a commit r12-6870-gfa262add75ab6631bf22b7e2884437ba9c62ed2a Author: Francois-Xavier Coudert Date: Tue Jan 25 21:54:03 2022 +0100 Fortran: fix issignaling() implementation libgfortran/ChangeLog: * ieee/issignaling_fallback.h: Fix GCC-specific preprocessor macros. Diff: --- libgfortran/ieee/issignaling_fallback.h | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/libgfortran/ieee/issignaling_fallback.h b/libgfortran/ieee/issignaling_fallback.h index 5b9e1c88d6f..440a3f6c9a5 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