diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2005-06-16 10:36:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-06-16 10:36:35 +0200 |
| commit | 2aab5fd53b1e58ff46df944161645943fb1bbe5c (patch) | |
| tree | 8b74efa2407316fb5cb2dac7b126f205bbdba4a1 | |
| parent | edd63e9baccac484fcbeed6b082941a159c30244 (diff) | |
| download | gcc-2aab5fd53b1e58ff46df944161645943fb1bbe5c.zip gcc-2aab5fd53b1e58ff46df944161645943fb1bbe5c.tar.gz gcc-2aab5fd53b1e58ff46df944161645943fb1bbe5c.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/errout.adb | 8 | ||||
| -rw-r--r-- | 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 eb12d2d..aa39b37 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 f3ffa2d..bac2e7e 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 |