* gimplify.c (gimplify_type_sizes) [POINTER_TYPE, REFERENCE_TYPE]:

[pf3gnuchains/gcc-fork.git] / gcc / ada / binderr.ads

diff --git a/gcc/ada/binderr.ads b/gcc/ada/binderr.ads
index 162d69d..bc0c013 100644 (file)
--- a/gcc/ada/binderr.ads
+++ b/gcc/ada/binderr.ads
@@ -6,8 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                                                                          --
---          Copyright (C) 1992-2000 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2003 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- --
@@ -17,11 +16,11 @@
 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 -- for  more details.  You should have  received  a copy of the GNU General --
 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
--- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
--- MA 02111-1307, USA.                                                      --
+-- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
+-- Boston, MA 02110-1301, USA.                                              --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
--- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- Extensive contributions were provided by Ada Core Technologies Inc.      --
 --                                                                          --
 ------------------------------------------------------------------------------
 
@@ -66,6 +65,12 @@ package Binderr is
    --      which case it is similarly replaced by the name which is specified
    --      by the Name_Id value stored in Error_Msg_Name_2.
 
+   --    Insertion character # (Pound: insert non-negative number in decimal)
+   --      The character # is replaced by the contents of Error_Msg_Nat_1
+   --      converted into an unsigned decimal string. A second # may appear
+   --      in a single message, in which case it is similarly replaced by
+   --      the value stored in Error_Msg_Nat_2.
+
    --    Insertion character ? (Question mark: warning message)
    --      The character ?, which must be the first character in the message
    --      string, signals a warning message instead of an error message.
@@ -84,6 +89,10 @@ package Binderr is
    Error_Msg_Name_2 : Name_Id;
    --  Name_Id values for % insertion characters in message
 
+   Error_Msg_Nat_1 : Nat;
+   Error_Msg_Nat_2 : Nat;
+   --  Integer values for # insertion characters in message
+
    ------------------------------
    -- Error Output Subprograms --
    ------------------------------