diff options
Diffstat (limited to 'libgfortran/runtime/main.c')
| -rw-r--r-- | libgfortran/runtime/main.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c index 8632f15..71b481a 100644 --- a/libgfortran/runtime/main.c +++ b/libgfortran/runtime/main.c @@ -45,10 +45,9 @@ stupid_function_name_for_static_linking (void) return; } -/* This is the offset (in bytes) required to cast from logical(8)* to - logical(4)*. and still get the same result. Will be 0 for little-endian - machines and 4 for big-endian machines. */ -int l8_to_l4_offset = 0; +/* This will be 0 for little-endian + machines and 1 for big-endian machines. */ +int big_endian = 0; /* Figure out endianness for this machine. */ @@ -64,9 +63,9 @@ determine_endianness (void) u.l8 = 1; if (u.l4[0]) - l8_to_l4_offset = 0; + big_endian = 0; else if (u.l4[1]) - l8_to_l4_offset = 1; + big_endian = 1; else runtime_error ("Unable to determine machine endianness"); } |