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 72a42a96173d29daf7c79c73de401ffb3d03a95e..fcec78d0d61ffae2f9e4f09b5ce6970d86ff6ff0 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2017-05-10  H.J. Lu  <hongjiu.lu@intel.com>
+
+       PR ada/80626
+       * system-linux-x86.ads (Memory_Size): Use Long_Integer'Size
+       instead of Word_Size.
+
 2017-05-10  Bernd Edlinger  <bernd.edlinger@hotmail.de>
 
        * 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 22a212e265a2f0c81d4ea897cff07c2d9a1c7d7d..533d94efcb52da7a9787306dd30de89d52bda538 100644 (file)
--- 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