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

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index eb12d2d5a03fdd678bc72f6fd05abca95ad282ce..aa39b37bc6f79bf59706b5d609809ed55e36737b 100644 (file)
--- 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 f3ffa2d13d2e5e1331c92c30918e95a7c8b4d553..bac2e7eeca092dc671dec016cf5aa34c3d575119 100644 (file)
--- 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