Commit 7fee006f by Arnaud Charlet

(Short_Address_Size): New constant.

From-SVN: r134076
parent ecc37585
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -89,6 +89,7 @@ package System.Aux_DEC is ...@@ -89,6 +89,7 @@ package System.Aux_DEC is
Address_Zero : constant Address; Address_Zero : constant Address;
No_Addr : constant Address; No_Addr : constant Address;
Address_Size : constant := Standard'Address_Size; Address_Size : constant := Standard'Address_Size;
Short_Address_Size : constant := Standard'Address_Size;
function "+" (Left : Address; Right : Integer) return Address; function "+" (Left : Address; Right : Integer) return Address;
function "+" (Left : Integer; Right : Address) return Address; function "+" (Left : Integer; Right : Address) return Address;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment