Skip to content

R
riscv-gcc-1
Commit c2a41e57 by Ed Schonberg Committed by Geert Bosch
Options

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
parent 0ae84753
Showing with 9 additions and 2 deletions
gcc/ada/ChangeLog
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
......
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);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment