From 6071bbaa09dec3ecc7a71a19a83c3d649eb9cec3 Mon Sep 17 00:00:00 2001 From: "H.J. Lu" Date: Wed, 10 May 2017 17:35:02 +0000 Subject: 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 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/system-linux-x86.ads | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/ada') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 72a42a9..fcec78d 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 22a212e..533d94e 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 -- cgit v1.1