From 2aab5fd53b1e58ff46df944161645943fb1bbe5c Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Thu, 16 Jun 2005 10:36:35 +0200 Subject: [PATCH] errout.ads, errout.adb (Error_Msg_NW): Only emit warning on user code... 2005-06-14 Ed Schonberg Robert Dewar * 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 --- gcc/ada/errout.adb | 8 ++++---- gcc/ada/errout.ads | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index eb12d2d5a03..aa39b37bc6f 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -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; diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index f3ffa2d13d2..bac2e7eeca0 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -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 -- 2.30.2