mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
a31886f79e
(Namet.Name_Buffer, Namet.Name_Len), which caused a bug when called from Errors.Display_Error, which uses the same global variables for a different purpose. Move Image on Int from Frontend.Debug and Backend.BE_CORBA_Ada.Debug to Utils, and make it work for negative numbers. This is so Locations.Image can call it. Errors.Display_Error was calling Image (Error_Loc (1)) when it should use Image (Error_Loc (2)). This is the case where the "!" refers to a different file, due to #include, and we want to display something like "include_file_name.idl:12:34". Misc code cleanup and added comments. Fixes H723-022. Subversion-branch: /trunk/polyorb Subversion-revision: 127086
75 lines
3.9 KiB
Ada
75 lines
3.9 KiB
Ada
------------------------------------------------------------------------------
|
|
-- --
|
|
-- POLYORB COMPONENTS --
|
|
-- --
|
|
-- E R R O R S --
|
|
-- --
|
|
-- S p e c --
|
|
-- --
|
|
-- Copyright (C) 2004-2008, Free Software Foundation, Inc. --
|
|
-- --
|
|
-- PolyORB is free software; you can redistribute it and/or modify it --
|
|
-- under terms of the GNU General Public License as published by the Free --
|
|
-- Software Foundation; either version 2, or (at your option) any later --
|
|
-- version. PolyORB is distributed in the hope that it will be useful, --
|
|
-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- --
|
|
-- TABILITY 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 PolyORB; see file COPYING. If --
|
|
-- not, write to the Free Software Foundation, 51 Franklin Street, Fifth --
|
|
-- Floor, Boston, MA 02111-1301, USA. --
|
|
-- --
|
|
-- As a special exception, if other files instantiate generics from this --
|
|
-- unit, or you link this unit with other files to produce an executable, --
|
|
-- this unit does not by itself cause the resulting executable to be --
|
|
-- covered by the GNU General Public License. This exception does not --
|
|
-- however invalidate any other reasons why the executable file might be --
|
|
-- covered by the GNU Public License. --
|
|
-- --
|
|
-- PolyORB is maintained by AdaCore --
|
|
-- (email: sales@adacore.com) --
|
|
-- --
|
|
------------------------------------------------------------------------------
|
|
|
|
with Locations; use Locations;
|
|
with Types; use Types;
|
|
|
|
package Errors is
|
|
|
|
Not_Yet_Implemented : exception;
|
|
-- Raised when code is not ready yet
|
|
|
|
Internal_Error : exception;
|
|
-- Raised when idlac reaches an internal inconsistent state
|
|
|
|
Fatal_Error : exception;
|
|
-- Raised when idlac has detected an external inconsistent state
|
|
|
|
procedure Display_Error (S : String);
|
|
procedure DE (S : String) renames Display_Error;
|
|
-- Display a warning or error message S. The following special characters
|
|
-- may appear in the message:
|
|
-- % (Percent): insert Error_Name (N)
|
|
-- # (Hash): insert Error_Name (N) within quotes
|
|
-- ! (Exclamantion): insert Error_Loc (L)
|
|
-- $ (Dollar): insert Error_Int (I)
|
|
-- ? (Question): make message a warning
|
|
-- \ (Backslash): make message a continuation (does not count toward
|
|
-- errors or warnings counter)
|
|
-- Where N, L and I are indices incremented after each insertion character
|
|
-- (note that Error_Loc (1) is always inserted ahead of the message, and
|
|
-- L starts at 2 as far as explicit '!' insertions are concerned).
|
|
|
|
procedure Initialize;
|
|
|
|
Error_Name : array (1 .. 2) of Name_Id;
|
|
Error_Loc : array (1 .. 2) of Location;
|
|
Error_Int : array (1 .. 2) of Int;
|
|
|
|
-- Count of errors and warnings displayed so far
|
|
|
|
N_Errors : Int := 0;
|
|
N_Warnings : Int := 0;
|
|
|
|
end Errors;
|