diff options
| author | Andreas Krebbel <krebbel@linux.vnet.ibm.com> | 2017-04-04 11:45:37 +0000 |
|---|---|---|
| committer | Andreas Krebbel <krebbel@gcc.gnu.org> | 2017-04-04 11:45:37 +0000 |
| commit | d90175a4bb3409aed1318b74bbe75c3abb889e38 (patch) | |
| tree | 1ef4f6f67d883f9221750f647ce06c47ed3c6cd4 | |
| parent | 54fa7033322ab64fb06d82e17815e7b7b66bb0bd (diff) | |
| download | gcc-d90175a4bb3409aed1318b74bbe75c3abb889e38.zip gcc-d90175a4bb3409aed1318b74bbe75c3abb889e38.tar.gz gcc-d90175a4bb3409aed1318b74bbe75c3abb889e38.tar.bz2 | |
[Ada][S/390] Fix Memory_Size definition.
-m31 -mzarch uses 64 as word size instead of 32. This must not affect
the Address type definition which is based on Memory_Size.
gcc/ada/ChangeLog:
2017-04-04 Andreas Krebbel <krebbel@linux.vnet.ibm.com>
* system-linux-s390.ads: Use Long_Integer'Size to define
Memory_Size.
From-SVN: r246678
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/system-linux-s390.ads | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6b0ae2d..cb42c81 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2017-04-04 Andreas Krebbel <krebbel@linux.vnet.ibm.com> + + * system-linux-s390.ads: Use Long_Integer'Size to define + Memory_Size. + 2017-04-04 Eric Botcazou <ebotcazou@adacore.com> * sem_ch3.adb (Build_Derived_Record_Type): Fix long line. diff --git a/gcc/ada/system-linux-s390.ads b/gcc/ada/system-linux-s390.ads index 485a8de..9bf8375 100644 --- a/gcc/ada/system-linux-s390.ads +++ b/gcc/ada/system-linux-s390.ads @@ -70,7 +70,7 @@ package System is Storage_Unit : constant := 8; Word_Size : constant := Standard'Word_Size; - Memory_Size : constant := 2 ** Word_Size; + Memory_Size : constant := 2 ** Long_Integer'Size; -- Address comparison |