From 3f83fcb46d5fe324aebbc8eacdc0794e382df888 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 27 Jul 2009 13:24:40 +0000 Subject: 2009-07-27 Gary Dismukes * sem_ch6.adb (Analyze_Function_Return): Set Referenced on return objects, since these are implicitly referenced by the return statement. * sem_warn.adb (Warn_On_Unreferenced_Entity): No longer a need to test Is_Return_Object in this procedure, as return objects will never make it here since they're now marked as Referenced. 2009-07-27 Robert Dewar * exp_ch2.adb, sem_util.adb, sem_util.ads: Minor reformnatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150111 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_ch2.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gcc/ada/exp_ch2.adb') diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index 9d475e2ca6a..e0be4042f11 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -384,15 +384,17 @@ package body Exp_Ch2 is and then not Is_LHS (N) and then not Is_Actual_Out_Parameter (N) and then (Nkind (Parent (N)) /= N_Attribute_Reference - or else Attribute_Name (Parent (N)) /= Name_Valid) + or else Attribute_Name (Parent (N)) /= Name_Valid) then Write_Location (Sloc (N)); Write_Str (": Read from scalar """); Write_Name (Chars (N)); Write_Str (""""); + if Is_Known_Valid (E) then Write_Str (", Is_Known_Valid"); end if; + Write_Eol; end if; -- cgit v1.2.1