OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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
This commit is contained in:
Arnaud Charlet 2009-07-22 17:21:51 +02:00
parent e1aca34380
commit fa031669cd
3 changed files with 33 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/ChangeLog
View File

@ -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

2
gcc/ada/g-socket.ads
View File

@ -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;

29
gcc/ada/sem_warn.adb
View File

@ -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 =>