diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-11 11:34:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-11 11:34:17 +0200 |
| commit | ae6ede7778adc56299bdecf1e73302aebc990fef (patch) | |
| tree | 8843afa54cc5e7d610920ba3e29992ef9ff7bc9b /gcc/ada/par.adb | |
| parent | 9c870c905e4fe4f70cce91aa968273df5125a21a (diff) | |
| download | gcc-ae6ede7778adc56299bdecf1e73302aebc990fef.tar.gz | |
[multiple changes]
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.
From-SVN: r165286
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; |