diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 11:44:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 11:44:35 +0200 |
| commit | 09c954dc79de82ab6220e151d032e3957a5a6008 (patch) | |
| tree | 0d65d5c8f677d7c79d2b41e87cc5cfa0ce8be44c /gcc/ada/sem_warn.adb | |
| parent | cd916532cfb9d71581ba8b1749d669d5d63cfa8c (diff) | |
| download | gcc-09c954dc79de82ab6220e151d032e3957a5a6008.zip gcc-09c954dc79de82ab6220e151d032e3957a5a6008.tar.gz gcc-09c954dc79de82ab6220e151d032e3957a5a6008.tar.bz2 | |
[multiple changes]
2014-08-01 Robert Dewar <dewar@adacore.com>
* 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 <celier@adacore.com>
* 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 <kirtchev@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/sem_warn.adb')
| -rw-r--r-- | gcc/ada/sem_warn.adb | 18 |
1 files changed, 10 insertions, 8 deletions
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 | |