diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2017-11-22 21:19:13 +0200 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2017-11-22 21:19:13 +0200 |
| commit | 5675291ddbc7c7bee1b4722f1358a276365c0ee5 (patch) | |
| tree | d591cf873aa6b611276b396c56845bbd1e9af949 /libgfortran/io/write.c | |
| parent | 90b415f686b16f9492cd9b11c4f5c3f3c937d5d9 (diff) | |
| download | gcc-5675291ddbc7c7bee1b4722f1358a276365c0ee5.zip gcc-5675291ddbc7c7bee1b4722f1358a276365c0ee5.tar.gz gcc-5675291ddbc7c7bee1b4722f1358a276365c0ee5.tar.bz2 | |
PR 83097 Use __BYTE_ORDER__ predefined macro instead of runtime check
By using the __BYTE_ORDER__ predefined macro we don't need the
determine_endianness function anymore.
Regtested on x86_64-pc-linux-gnu.
libgfortran/ChangeLog:
2017-11-22 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/83097
* io/inquire.c (inquire_via_unit): Use __BYTE_ORDER__ predefined
macro.
* io/open.c (st_open): Likewise.
* io/transfer.c (data_transfer_init): Likewise.
* io/write.c (btoa_big): Likewise.
(otoa_big): Likewise.
(ztoa_big): Likewise.
* libgfortran.h (big_endian): Remove variable.
(GFOR_POINTER_TO_L1): Use __BYTE_ORDER__ macro.
* runtime/main.c (determine_endianness): Remove function.
(init): Remove call to determine_endianness.
* runtime/minimal.c: Remove setting big_endian variable.
From-SVN: r255072
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index c9aad15..f417202 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -986,7 +986,7 @@ btoa_big (const char *s, char *buffer, int len, GFC_UINTEGER_LARGEST *n) int i, j; q = buffer; - if (big_endian) + if (__BYTE_ORDER__ == __ORDER_BIG_ENDIAN__) { const char *p = s; for (i = 0; i < len; i++) @@ -1051,7 +1051,7 @@ otoa_big (const char *s, char *buffer, int len, GFC_UINTEGER_LARGEST *n) *q = '\0'; i = k = octet = 0; - if (big_endian) + if (__BYTE_ORDER__ == __ORDER_BIG_ENDIAN__) { const char *p = s + len - 1; char c = *p; @@ -1126,7 +1126,7 @@ ztoa_big (const char *s, char *buffer, int len, GFC_UINTEGER_LARGEST *n) q = buffer; - if (big_endian) + if (__BYTE_ORDER__ == __ORDER_BIG_ENDIAN__) { const char *p = s; for (i = 0; i < len; i++) |