diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-22 17:21:51 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-22 17:21:51 +0200 |
| commit | fa031669cdf8b013ba14a0e37c3fbce9de0a080e (patch) | |
| tree | aad7dc6de56b6006b61d0b74e8ad5dcaf1137f8d /gcc | |
| parent | e1aca34380564f548add01b7492075bc57f63ab2 (diff) | |
| download | gcc-fa031669cdf8b013ba14a0e37c3fbce9de0a080e.zip gcc-fa031669cdf8b013ba14a0e37c3fbce9de0a080e.tar.gz gcc-fa031669cdf8b013ba14a0e37c3fbce9de0a080e.tar.bz2 | |
[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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 10 | ||||
| -rw-r--r-- | gcc/ada/g-socket.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_warn.adb | 29 |
3 files changed, 33 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2b98844..d2b6375 100644 --- 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 a260d90..a6445e0 100644 --- 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 1551acf..e580f47 100644 --- 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 => |