From: Arnaud Charlet Date: Tue, 8 Apr 2008 07:09:06 +0000 (+0200) Subject: (Short_Address_Size): New constant. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7fee006f036543bdbea1bf1d9cc3f201a3cb3f68;p=gcc.git (Short_Address_Size): New constant. From-SVN: r134076 --- diff --git a/gcc/ada/s-auxdec.ads b/gcc/ada/s-auxdec.ads index 6e90f89852f..e43efeed04f 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;