diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-08-06 11:35:06 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-06 11:35:06 +0200 |
| commit | 66aa7643363c7c7b6246649b35f5e6a6b7948c6b (patch) | |
| tree | 1f3fe03cf9270d4461c58c622352e7722e09c0e6 /gcc | |
| parent | 0d3716f50c3897eea4ac30be8a23e8525195749f (diff) | |
| download | gcc-66aa7643363c7c7b6246649b35f5e6a6b7948c6b.zip gcc-66aa7643363c7c7b6246649b35f5e6a6b7948c6b.tar.gz gcc-66aa7643363c7c7b6246649b35f5e6a6b7948c6b.tar.bz2 | |
sem_res.adb: Minor reformatting
2008-08-06 Thomas Quinot <quinot@adacore.com>
* sem_res.adb: Minor reformatting
From-SVN: r138783
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_res.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index d2e74c2..21369ae 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -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 |