diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 12:27:16 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 12:27:16 +0200 |
| commit | 6320f5e18ed03cb41e65e640566d2a9cf1cd5690 (patch) | |
| tree | b4ee8d576fb450f09c1b861f596dfff8de7dd0d7 /gcc/ada/sem_res.adb | |
| parent | 2fe829aee4382946ff335be64c2e2d4a1f79f484 (diff) | |
| download | gcc-6320f5e18ed03cb41e65e640566d2a9cf1cd5690.zip gcc-6320f5e18ed03cb41e65e640566d2a9cf1cd5690.tar.gz gcc-6320f5e18ed03cb41e65e640566d2a9cf1cd5690.tar.bz2 | |
[multiple changes]
2011-08-02 Robert Dewar <dewar@adacore.com>
* sem_ch5.adb, sem_ch7.adb, einfo.ads, sem_util.adb, sem_util.ads,
sem_res.adb, sem_ch6.adb: Minor reformatting.
2011-08-02 Jerome Guitton <guitton@adacore.com>
* a-except-2005.adb (Raise_Current_Excep): Remove obsolete dead code.
From-SVN: r177127
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index fa938c1..072baf4 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -3586,9 +3586,8 @@ package body Sem_Res is F_Typ := Etype (F); if Comes_From_Source (Original_Node (N)) - and then Nkind_In (Original_Node (N), - N_Function_Call, - N_Procedure_Call_Statement) + and then Nkind_In (Original_Node (N), N_Function_Call, + N_Procedure_Call_Statement) then -- In formal mode, check that actual parameters matching -- formals of tagged types are objects (or ancestor type |