diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-06 12:53:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-06 12:53:27 +0000 |
| commit | 3ba6a78b08fd9584e78444dafd32d5808419292a (patch) | |
| tree | 492cd082cc6e4f7b5a7e18b91c76fcbe7eacbd77 /gcc/ada/sem_warn.adb | |
| parent | a6252fe00bef7f8f91c6850559177e82a5facd64 (diff) | |
| download | gcc-3ba6a78b08fd9584e78444dafd32d5808419292a.tar.gz | |
2009-05-06 Robert Dewar <dewar@adacore.com>
* errout.adb: Minor reformatting
* scng.adb, sem_prag.adb, par-ch4.adb, sem_res.adb, par-ch6.adb,
sem_ch6.adb, par-prag.adb, sem_ch8.adb, sem_warn.adb, par-util.adb,
styleg.adb: Add stylized comments to error messages that are included
in the codefix circuitry of IDE's such as GPS.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147173 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_warn.adb')
| -rw-r--r-- | gcc/ada/sem_warn.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 515e727bdb8..8132531cc0c 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -1005,7 +1005,7 @@ package body Sem_Warn is and then not Has_Pragma_Unmodified_Check_Spec (E1) then if not Warnings_Off_E1 then - Error_Msg_N + Error_Msg_N -- CODEFIX ("?& is not modified, " & "could be declared constant!", E1); @@ -1155,7 +1155,7 @@ package body Sem_Warn is elsif not Has_Unreferenced (E1) and then not Warnings_Off_E1 then - Output_Reference_Error + Output_Reference_Error -- CODEFIX ("?variable& is never read and never assigned!"); end if; @@ -2342,7 +2342,7 @@ package body Sem_Warn is end if; if not Is_Visible_Renaming then - Error_Msg_N + Error_Msg_N -- CODEFIX ("\?with clause might be moved to body!", Name (Item)); end if; @@ -2370,7 +2370,7 @@ package body Sem_Warn is if Unit = Spec_Unit then Set_Unreferenced_In_Spec (Item); else - Error_Msg_N + Error_Msg_N -- CODEFIX ("?unit& is never instantiated!", Name (Item)); end if; @@ -2381,7 +2381,7 @@ package body Sem_Warn is elsif Unreferenced_In_Spec (Item) then Error_Msg_N ("?unit& is not instantiated in spec!", Name (Item)); - Error_Msg_N + Error_Msg_N -- CODEFIX ("\?with clause can be moved to body!", Name (Item)); end if; end if; @@ -3782,7 +3782,7 @@ package body Sem_Warn is and then No (Renamed_Object (E)) then if not Has_Pragma_Unmodified_Check_Spec (E) then - Error_Msg_N + Error_Msg_N -- CODEFIX ("?variable & is assigned but never read!", E); end if; @@ -3871,11 +3871,11 @@ package body Sem_Warn is Error_Msg_N ("?procedure & is not referenced!", E); when E_Generic_Procedure => - Error_Msg_N + Error_Msg_N -- CODEFIX ("?generic procedure & is never instantiated!", E); when E_Generic_Function => - Error_Msg_N + Error_Msg_N -- CODEFIX ("?generic function & is never instantiated!", E); when Type_Kind => |