From 6afd31fc8be8eaa84bb98e35f2bc57d82b34e1e0 Mon Sep 17 00:00:00 2001 From: bosch Date: Wed, 5 Dec 2001 01:18:06 +0000 Subject: [PATCH] * sem_warn.adb (Output_Unreferenced_Messages): Extend previous fix to constants. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47641 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/sem_warn.adb | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5d762463889..7d9a411b63c 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2001-12-04 Ed Schonberg + + * sem_warn.adb (Output_Unreferenced_Messages): Extend previous fix to + constants. + 2001-12-04 Robert Dewar * errout.adb: Minor reformatting diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index f3133d2006d..b31aff7f437 100644 --- 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); -- 2.11.0