* sem_warn.adb (Output_Unreferenced_Messages): Extend previous fix to
constants.
From-SVN: r47641
+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
-- --
-- B o d y --
-- --
--- $Revision: 1.24 $
+-- $Revision$
-- --
-- Copyright (C) 1999-2001 Free Software Foundation, Inc. --
-- --
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);