(Short_Address_Size): New constant.

From-SVN: r134076
This commit is contained in:
Arnaud Charlet 2008-04-08 09:09:06 +02:00
parent ecc37585d1
commit 7fee006f03
1 changed files with 5 additions and 4 deletions

View File

@ -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;