diff options
| author | Doug Rupp <rupp@adacore.com> | 2022-06-02 13:39:02 -0700 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-07-05 08:28:17 +0000 |
| commit | f608cf03b1c96878d559820ccb4037fee5575876 (patch) | |
| tree | 6970cae227ab971d3f7cd6fcec67086de328257a | |
| parent | 7b9ae8e806d6afcf23f970fa18ce261024eb4414 (diff) | |
| download | gcc-f608cf03b1c96878d559820ccb4037fee5575876.zip gcc-f608cf03b1c96878d559820ccb4037fee5575876.tar.gz gcc-f608cf03b1c96878d559820ccb4037fee5575876.tar.bz2 | |
[Ada] Combine system.ads files - vxworks6 constants.
Systemitize Word_Size and Memory_Size declarations rather than hard code
with numerical values or OS specific Long_Integer size.
gcc/ada/
* libgnat/system-vxworks-ppc-kernel.ads (Word_Size): Compute
based on Standard'Word_Size.
(Memory_Size): Compute based on Word_Size.
* libgnat/system-vxworks-ppc-rtp-smp.ads: Likewise.
* libgnat/system-vxworks-ppc-rtp.ads: Likewise.
| -rw-r--r-- | gcc/ada/libgnat/system-vxworks-ppc-kernel.ads | 4 | ||||
| -rw-r--r-- | gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads | 4 | ||||
| -rw-r--r-- | gcc/ada/libgnat/system-vxworks-ppc-rtp.ads | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/libgnat/system-vxworks-ppc-kernel.ads b/gcc/ada/libgnat/system-vxworks-ppc-kernel.ads index b8a0ba1..640150a 100644 --- a/gcc/ada/libgnat/system-vxworks-ppc-kernel.ads +++ b/gcc/ada/libgnat/system-vxworks-ppc-kernel.ads @@ -69,8 +69,8 @@ package System is Null_Address : constant Address; Storage_Unit : constant := 8; - Word_Size : constant := 32; - Memory_Size : constant := 2 ** 32; + Word_Size : constant := Standard'Word_Size; + Memory_Size : constant := 2 ** Word_Size; -- Address comparison diff --git a/gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads b/gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads index ecfd7e6..0855721 100644 --- a/gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads +++ b/gcc/ada/libgnat/system-vxworks-ppc-rtp-smp.ads @@ -71,8 +71,8 @@ package System is Null_Address : constant Address; Storage_Unit : constant := 8; - Word_Size : constant := 32; - Memory_Size : constant := 2 ** 32; + Word_Size : constant := Standard'Word_Size; + Memory_Size : constant := 2 ** Word_Size; -- Address comparison diff --git a/gcc/ada/libgnat/system-vxworks-ppc-rtp.ads b/gcc/ada/libgnat/system-vxworks-ppc-rtp.ads index 72fb963..f72177f 100644 --- a/gcc/ada/libgnat/system-vxworks-ppc-rtp.ads +++ b/gcc/ada/libgnat/system-vxworks-ppc-rtp.ads @@ -71,8 +71,8 @@ package System is Null_Address : constant Address; Storage_Unit : constant := 8; - Word_Size : constant := 32; - Memory_Size : constant := 2 ** 32; + Word_Size : constant := Standard'Word_Size; + Memory_Size : constant := 2 ** Word_Size; -- Address comparison |