[multiple changes]

2009-07-22  Robert Dewar  <dewar@adacore.com>

	* g-socket.ads: Minor reformatting

2009-07-22  Gary Dismukes  <dismukes@adacore.com>

	* sem_warn.adb (Warn_On_Unreferenced_Entity): Add warning messages that
	include the entity kind for following cases of unreferenced entities:
	E_Label, E_Discriminant, E_Package, E_Exception, and Formal_Object_Kind.

From-SVN: r149940

gcc/ada/ChangeLog

+2009-07-22  Robert Dewar  <dewar@adacore.com>
+
+	* g-socket.ads: Minor reformatting
+
+2009-07-22  Gary Dismukes  <dismukes@adacore.com>
+
+	* sem_warn.adb (Warn_On_Unreferenced_Entity): Add warning messages that
+	include the entity kind for following cases of unreferenced entities:
+	E_Label, E_Discriminant, E_Package, E_Exception, and Formal_Object_Kind.
+
 2009-07-22  Ed Falis  <falis@adacore.com>
 
 	* s-vxwext-kernel.adb, s-vxwext-kernel.ads: Replace use of taskStop

gcc/ada/sem_warn.adb

@@ -3984,10 +3984,16 @@ package body Sem_Warn is
             when E_Out_Parameter =>
                null;
 
+            when E_Discriminant =>
+               Error_Msg_N ("?discriminant & is not referenced!", E);
+
             when E_Named_Integer |
                  E_Named_Real    =>
                Error_Msg_N ("?named number & is not referenced!", E);
 
+            when Formal_Object_Kind =>
+               Error_Msg_N ("?formal object & is not referenced!", E);
+
             when E_Enumeration_Literal =>
                Error_Msg_N ("?literal & is not referenced!", E);
 
@@ -3997,6 +4003,15 @@ package body Sem_Warn is
             when E_Procedure =>
                Error_Msg_N ("?procedure & is not referenced!", E);
 
+            when E_Package =>
+               Error_Msg_N ("?package & is not referenced!", E);
+
+            when E_Exception =>
+               Error_Msg_N ("?exception & is not referenced!", E);
+
+            when E_Label =>
+               Error_Msg_N ("?label & is not referenced!", E);
+
             when E_Generic_Procedure =>
                Error_Msg_N -- CODEFIX
                  ("?generic procedure & is never instantiated!", E);