diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:09:06 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:09:06 +0200 |
| commit | 7fee006f036543bdbea1bf1d9cc3f201a3cb3f68 (patch) | |
| tree | 5895d99b897cfaee074c70702a2ec7334bc81fc9 | |
| parent | ecc37585d11292a659944b37d3c549f0d005c0e0 (diff) | |
| download | gcc-7fee006f036543bdbea1bf1d9cc3f201a3cb3f68.zip gcc-7fee006f036543bdbea1bf1d9cc3f201a3cb3f68.tar.gz gcc-7fee006f036543bdbea1bf1d9cc3f201a3cb3f68.tar.bz2 | |
(Short_Address_Size): New constant.
From-SVN: r134076
| -rw-r--r-- | gcc/ada/s-auxdec.ads | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/s-auxdec.ads b/gcc/ada/s-auxdec.ads index 6e90f89..e43efee 100644 --- a/gcc/ada/s-auxdec.ads +++ b/gcc/ada/s-auxdec.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1996-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -86,9 +86,10 @@ package System.Aux_DEC is function "or" (Left, Right : Largest_Integer) return Largest_Integer; function "xor" (Left, Right : Largest_Integer) return Largest_Integer; - Address_Zero : constant Address; - No_Addr : constant Address; - Address_Size : constant := Standard'Address_Size; + Address_Zero : constant Address; + No_Addr : constant Address; + Address_Size : constant := Standard'Address_Size; + Short_Address_Size : constant := Standard'Address_Size; function "+" (Left : Address; Right : Integer) return Address; function "+" (Left : Integer; Right : Address) return Address; |