[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
This commit is contained in:
Andreas Krebbel 2017-04-04 11:45:37 +00:00 committed by Andreas Krebbel
parent 54fa703332
commit d90175a4bb
2 changed files with 6 additions and 1 deletions

View File

@ -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.

View File

@ -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