From: H.J. Lu Date: Wed, 10 May 2017 17:35:02 +0000 (+0000) Subject: Ada/x32: PR ada/80626: Correct Memory_Size X-Git-Tag: basepoints/gcc-9~7430 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6071bbaa09dec3ecc7a71a19a83c3d649eb9cec3;p=thirdparty%2Fgcc.git Ada/x32: PR ada/80626: Correct Memory_Size X32 uses 64 as word size instead of 32. This must not affect the Address type definition which is based on Memory_Size. PR ada/80626 * system-linux-x86.ads (Memory_Size): Use Long_Integer'Size instead of Word_Size. From-SVN: r247849 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 72a42a96173d..fcec78d0d61f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2017-05-10 H.J. Lu + + PR ada/80626 + * system-linux-x86.ads (Memory_Size): Use Long_Integer'Size + instead of Word_Size. + 2017-05-10 Bernd Edlinger * raise-gcc.c (exception_class_eq): Make ec parameter const. diff --git a/gcc/ada/system-linux-x86.ads b/gcc/ada/system-linux-x86.ads index 22a212e265a2..533d94efcb52 100644 --- a/gcc/ada/system-linux-x86.ads +++ b/gcc/ada/system-linux-x86.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