[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
This commit is contained in:
Arnaud Charlet 2010-10-11 11:34:17 +02:00
parent 9c870c905e
commit ae6ede7778
4 changed files with 27 additions and 10 deletions

View File

@ -1,3 +1,13 @@
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.
2010-10-11 Gary Dismukes <dismukes@adacore.com>
* sem_disp.adb (Check_Dispatching_Operation): Revise test for warning

View File

@ -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;

View File

@ -5915,7 +5915,11 @@ package body Sem_Ch6 is
null;
elsif In_Package_Body (Scope (Typ)) then
null; -- warrants a warning ???
Error_Msg_NE
("equality operator must be declared "
& "before type& is frozen", Eq_Op, Typ);
Error_Msg_N
("\move declaration to package spec", Eq_Op);
else
Error_Msg_NE

View File

@ -6328,7 +6328,10 @@ package body Sem_Res is
end if;
Resolve_Actuals (N, Nam);
Generate_Reference (Nam, Entry_Name);
-- Create a call reference to the entry
Generate_Reference (Nam, Entry_Name, 's');
if Ekind_In (Nam, E_Entry, E_Entry_Family) then
Check_Potentially_Blocking_Operation (N);