OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sem_res.adb: Minor reformatting

Browse Source 
2008-08-06  Thomas Quinot  <quinot@adacore.com>

	* sem_res.adb: Minor reformatting

From-SVN: r138783
This commit is contained in:
Thomas Quinot 2008-08-06 11:35:06 +02:00 committed by Arnaud Charlet
parent 0d3716f50c
commit 66aa764336
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gcc/ada/sem_res.adb
View File

@ -4701,10 +4701,10 @@ package body Sem_Res is
and then Nkind (Subp) /= N_Explicit_Dereference
and then Present (Parameter_Associations (N))
then
-- The prefix is a parameterless function call that returns an
-- access to subprogram. If parameters are present in the current
-- call add an explicit dereference. We use the base type here
-- because within an instance these may be subtypes.
-- The prefix is a parameterless function call that returns an access
-- to subprogram. If parameters are present in the current call, add
-- add an explicit dereference. We use the base type here because
-- within an instance these may be subtypes.
-- The dereference is added either in Analyze_Call or here. Should
-- be consolidated ???
@ -4769,8 +4769,8 @@ package body Sem_Res is
Error_Msg_N ("entry call required in select statement", N);
-- Ada 2005 (AI-345): If a procedure_call_statement is used
-- for a procedure_or_entry_call, the procedure_name or pro-
-- cedure_prefix of the procedure_call_statement shall denote
-- for a procedure_or_entry_call, the procedure_name or
-- procedure_prefix of the procedure_call_statement shall denote
-- an entry renamed by a procedure, or (a view of) a primitive
-- subprogram of a limited interface whose first parameter is
-- a controlling parameter.
@ -4784,8 +4784,8 @@ package body Sem_Res is
end if;
end if;
-- Check that this is not a call to a protected procedure or
-- entry from within a protected function.
-- Check that this is not a call to a protected procedure or entry from
-- within a protected function.
if Ekind (Current_Scope) = E_Function
and then Ekind (Scope (Current_Scope)) = E_Protected_Type