From: Andreas Krebbel Date: Tue, 4 Apr 2017 11:45:37 +0000 (+0000) Subject: [Ada][S/390] Fix Memory_Size definition. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d90175a4bb3409aed1318b74bbe75c3abb889e38;p=gcc.git [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 * 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 6b0ae2d4d06..cb42c811b03 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2017-04-04 Andreas Krebbel + + * system-linux-s390.ads: Use Long_Integer'Size to define + Memory_Size. + 2017-04-04 Eric Botcazou * 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 485a8de8c4a..9bf8375e3a5 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