[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6b0ae2d4d0665c4390bb38056584f4287cb7a675..cb42c811b0365853a18ecf4a60672ee684ffa5b3 100644 (file)
--- 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 485a8de8c4a62189812154c7bb9de33ab224dc76..9bf8375e3a5c88943b46eaabdbbfcfaec991a1a8 100644 (file)
--- 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