OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

errout.ads, errout.adb (Error_Msg_NW): Only emit warning on user code... 

2005-06-14  Ed Schonberg  <schonberg@adacore.com>
	    Robert Dewar  <dewar@adacore.com>

	* errout.ads, errout.adb (Error_Msg_NW): Only emit warning on user
	code, not on the bodies of predefined operations, to cut down on
	spurious noise.

From-SVN: r101030
This commit is contained in:
Ed Schonberg 2005-06-16 10:36:35 +02:00 committed by Arnaud Charlet
parent edd63e9bac
commit 2aab5fd53b
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/errout.adb
View File

@ -582,7 +582,6 @@ package body Errout is
S : String (1 .. Feature'Length + 1 + CCRT'Length);
L : Natural;
begin
S (1) := '|';
S (2 .. Feature'Length + 1) := Feature;
@ -1034,7 +1033,10 @@ package body Errout is
N : Node_Or_Entity_Id)
is
begin
if Eflag and then In_Extended_Main_Source_Unit (N) then
if Eflag
and then In_Extended_Main_Source_Unit (N)
and then Comes_From_Source (N)
then
Error_Msg_NEL (Msg, N, N, Sloc (N));
end if;
end Error_Msg_NW;
@ -1751,7 +1753,6 @@ package body Errout is
-- Casing required for result. Default value of Mixed_Case is used if
-- for some reason we cannot find the right file name in the table.
begin
-- Get length of file name
@ -2239,7 +2240,6 @@ package body Errout is
when '>' =>
Set_Msg_Insertion_Run_Time_Name;
when '^' =>
Set_Msg_Insertion_Uint;

4
gcc/ada/errout.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2005 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- --
@ -574,7 +574,7 @@ package Errout is
-- This routine is used for posting a message conditionally. The message
-- is posted (with the same effect as Error_Msg_N (Msg, N) if and only
-- if Eflag is True and if the node N is within the main extended source
-- unit. Typically this is a warning mode flag.
-- unit and comes from source. Typically this is a warning mode flag.
procedure Change_Error_Text (Error_Id : Error_Msg_Id; New_Msg : String);
-- The error message text of the message identified by Id is replaced by