From f79171279e8bc70640e5c585adcb843a661aafb4 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 11 Oct 2010 09:34:17 +0000 Subject: 2010-10-11 Ed Schonberg * sem_res.adb (Resolve_Entry_Call): Generate 's' reference for entry call. * sem_ch6.adb: Diagnose additional error condition. 2010-10-11 Bob Duff * 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 --- gcc/ada/par.adb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'gcc/ada/par.adb') 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; -- cgit v1.2.1