[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2b9884461c1ddb0c224f974ff3b5f7e3cf268804..d2b6375b7fa675f97bfa7b733b12ede8a896462d 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,13 @@
+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

diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads
index a260d903b4c2583d03e00fdaee5d10a2f1b207ba..a6445e044ad0424217a42cf106f1c837c8a36cb1 100644 (file)
--- a/gcc/ada/g-socket.ads
+++ b/gcc/ada/g-socket.ads
@@ -1146,7 +1146,7 @@ private
       --  Highest socket in set. Last = No_Socket denotes an empty set (which
       --  is the default initial value).
 
-      Set  : aliased Fd_Set;
+      Set : aliased Fd_Set;
       --  Underlying socket set. Note that the contents of this component is
       --  undefined if Last = No_Socket.
    end record;

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 1551acf092af8a39c992cdb0c48e815ee29694c1..e580f4748203c9a25d3b262dd9b62176e5836182 100644 (file)
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -3981,31 +3981,46 @@ package body Sem_Warn is
                   end if;
                end if;
 
-            when E_Out_Parameter    =>
+            when E_Out_Parameter =>
                null;
 
-            when E_Named_Integer    |
-                 E_Named_Real       =>
+            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);
 
-            when E_Function         =>
+            when E_Function =>
                Error_Msg_N ("?function & is not referenced!", E);
 
-            when E_Procedure         =>
+            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);
 
-            when E_Generic_Function  =>
+            when E_Generic_Function =>
                Error_Msg_N -- CODEFIX
                  ("?generic function & is never instantiated!", E);
 
-            when Type_Kind          =>
+            when Type_Kind =>
                Error_Msg_N ("?type & is not referenced!", E);
 
             when others =>