From 09c954dc79de82ab6220e151d032e3957a5a6008 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 1 Aug 2014 11:44:35 +0200 Subject: [multiple changes] 2014-08-01 Robert Dewar * hostparm.ads: Put back definition of OpenVMS as False to aid the transition process. * sem_ch7.adb: Minor reformatting. * prj-env.adb: Minor code fix. * gnat_rm.texi: Complete previous change. * sem_ch3.adb: Minor reformatting. * sem_ch6.adb: Minor reformatting. * sem_elab.adb: Minor reformatting. * exp_strm.adb: Complete previous change. 2014-08-01 Vincent Celier * sem_warn.adb (Warn_On_Unreferenced_Entity): Do not issue a warning when a constant is unreferenced and its type has pragma Unreferenced_Objects. 2014-08-01 Hristian Kirtchev * einfo.adb: Flag2 is now known as Is_Hidden_Non_Overridden_Subprogram. (Is_Hidden_Non_Overridden_Subprogram): New routine. (Set_Is_Hidden_Non_Overridden_Subprogram): New routine. (Write_Entity_Fields): Output Flag2. * einfo.ads: New attribute Is_Hidden_Non_Overridden_Subprogram along with occurrences in entities. (Is_Hidden_Non_Overridden_Subprogram): New routine and pragma Inline. (Set_Is_Hidden_Non_Overridden_Subprogram): New routine and pragma Inline. * sem_ch7.adb (Install_Package_Entity): Do not enter implicitly declared non-overriden homographs into visibility. * sem_ch13.adb (Freeze_Entity_Checks): Hide all implicitly declared non-overriden homographs. (Hide_Non_Overridden_Subprograms): New routine. From-SVN: r213434 --- gcc/ada/sem_warn.adb | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'gcc/ada/sem_warn.adb') diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 6974c45..3971ccc 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -4015,14 +4015,16 @@ package body Sem_Warn is end if; when E_Constant => - if Present (Renamed_Object (E)) - and then Comes_From_Source (Renamed_Object (E)) - then - Error_Msg_N -- CODEFIX - ("?u?renamed constant & is not referenced!", E); - else - Error_Msg_N -- CODEFIX - ("?u?constant & is not referenced!", E); + if not Has_Pragma_Unreferenced_Objects (Etype (E)) then + if Present (Renamed_Object (E)) + and then Comes_From_Source (Renamed_Object (E)) + then + Error_Msg_N -- CODEFIX + ("?u?renamed constant & is not referenced!", E); + else + Error_Msg_N -- CODEFIX + ("?u?constant & is not referenced!", E); + end if; end if; when E_In_Parameter | -- cgit v1.1