sem_warn.adb (Output_Unreferenced_Messages): Extend previous fix to constants.

	* sem_warn.adb (Output_Unreferenced_Messages): Extend previous fix to
	constants.

From-SVN: r47641

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5d762463889b89b373dfa5a4546057963f527b63..7d9a411b63c35e569089ff2accd58631921ea276 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-04  Ed Schonberg <schonber@gnat.com>
+
+       * sem_warn.adb (Output_Unreferenced_Messages): Extend previous fix to 
+       constants.
+
 2001-12-04  Robert Dewar <dewar@gnat.com>
 
        * errout.adb: Minor reformatting

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index f3133d2006db00c780c5a016544d1d4e3f16965d..b31aff7f4374d488cd5b80627e5322cf8b38ac02 100644 (file)
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision: 1.24 $
+--                            $Revision$
 --                                                                          --
 --          Copyright (C) 1999-2001 Free Software Foundation, Inc.          --
 --                                                                          --
@@ -926,7 +926,9 @@ package body Sem_Warn is
                   end if;
 
                when E_Constant =>
-                  if Present (Renamed_Object (E)) then
+                  if Present (Renamed_Object (E))
+                    and then Comes_From_Source (Renamed_Object (E))
+                  then
                      Error_Msg_N ("renamed constant & is not referenced?", E);
                   else
                      Error_Msg_N ("constant & is not referenced?", E);