-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2007, 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- --
--- ware Foundation; either version 2, or (at your option) any later ver- --
+-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- 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, 51 Franklin Street, Fifth Floor, --
--- Boston, MA 02110-1301, USA. --
+-- Public License distributed with GNAT; see file COPYING3. If not, go to --
+-- http://www.gnu.org/licenses for a complete copy of the license. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- This package contains the routines to output error messages for the binder
-- and also the routines for handling fatal error conditions in the binder.
+with Namet; use Namet;
with Types; use Types;
package Binderr is
-- appear which cause the error message circuit to modify the given
-- string as follows:
- -- Insertion character % (Percent: insert file name from Names table)
- -- The character % is replaced by the text for the file name specified
- -- by the Name_Id value stored in Error_Msg_Name_1. The name is always
- -- enclosed in quotes. A second % may appear in a single message in
- -- 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 { (Left brace: insert file name from Names table)
+ -- The character { is replaced by the text for the file name specified
+ -- by the File_Name_Type value stored in Error_Msg_File_1. The name is
+ -- always enclosed in quotes. A second % may appear in a single message
+ -- in which case it is similarly replaced by the name which is
+ -- specified by the File_Name_Type value stored in Error_Msg_File_2.
- -- Insertion character & (Ampersand: insert unit name from Names table)
+ -- Insertion character $ (Dollar: insert unit name from Names table)
-- The character & is replaced by the text for the unit name specified
- -- by the Name_Id value stored in Error_Msg_Name_1. The name is always
+ -- by the Name_Id value stored in Error_Msg_Unit_1. The name is always
-- enclosed in quotes. A second & may appear in a single message in
-- which case it is similarly replaced by the name which is specified
- -- by the Name_Id value stored in Error_Msg_Name_2.
+ -- by the Name_Id value stored in Error_Msg_Unit_2.
-- Insertion character # (Pound: insert non-negative number in decimal)
-- The character # is replaced by the contents of Error_Msg_Nat_1
-- passed to the error message routine for insertion sequences described
-- above. The reason these are passed globally is that the insertion
-- mechanism is essentially an untyped one in which the appropriate
- -- variables are set dependingon the specific insertion characters used.
+ -- variables are set depending on the specific insertion characters used.
Error_Msg_Name_1 : Name_Id;
- Error_Msg_Name_2 : Name_Id;
- -- Name_Id values for % insertion characters in message
+ -- Name_Id value for % insertion characters in message
+
+ Error_Msg_File_1 : File_Name_Type;
+ Error_Msg_File_2 : File_Name_Type;
+ -- Name_Id values for { insertion characters in message
+
+ Error_Msg_Unit_1 : Unit_Name_Type;
+ Error_Msg_Unit_2 : Unit_Name_Type;
+ -- Name_Id values for $ insertion characters in message
Error_Msg_Nat_1 : Nat;
Error_Msg_Nat_2 : Nat;