diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 09:34:17 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 09:34:17 +0000 |
| commit | f79171279e8bc70640e5c585adcb843a661aafb4 (patch) | |
| tree | 8843afa54cc5e7d610920ba3e29992ef9ff7bc9b /gcc/ada/par.adb | |
| parent | ec19aaaf927977db65022cb344615a26098e9cd4 (diff) | |
| download | gcc-f79171279e8bc70640e5c585adcb843a661aafb4.tar.gz | |
2010-10-11 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb (Resolve_Entry_Call): Generate 's' reference for entry
call.
* sem_ch6.adb: Diagnose additional error condition.
2010-10-11 Bob Duff <duff@adacore.com>
* par.adb (Par): Clarify wording of certain error messages.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165286 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par.adb')
| -rw-r--r-- | gcc/ada/par.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 7ba6e0c0cbc..b8a95a68d39 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -1375,7 +1375,7 @@ begin begin -- If parsing was successful and we are not in check syntax - -- mode, check that language defined units are compiled in GNAT + -- mode, check that language-defined units are compiled in GNAT -- mode. For this purpose we do NOT consider renamings in annex -- J as predefined. That allows users to compile their own -- versions of these files, and in particular, in the VMS @@ -1406,7 +1406,7 @@ begin Name = "system" then Error_Msg - ("language defined units may not be recompiled", + ("language-defined units cannot be recompiled", Sloc (Unit (Comp_Unit_Node))); elsif Name'Length > 4 @@ -1414,8 +1414,8 @@ begin Name (Name'First .. Name'First + 3) = "ada." then Error_Msg - ("descendents of package Ada " & - "may not be compiled", + ("user-defined descendents of package Ada " & + "are not allowed", Sloc (Unit (Comp_Unit_Node))); elsif Name'Length > 11 @@ -1423,8 +1423,8 @@ begin Name (Name'First .. Name'First + 10) = "interfaces." then Error_Msg - ("descendents of package Interfaces " & - "may not be compiled", + ("user-defined descendents of package Interfaces " & + "are not allowed", Sloc (Unit (Comp_Unit_Node))); elsif Name'Length > 7 @@ -1436,8 +1436,8 @@ begin "system.rpc.") then Error_Msg - ("descendents of package System " & - "may not be compiled", + ("user-defined descendents of package System " & + "are not allowed", Sloc (Unit (Comp_Unit_Node))); end if; end; |