diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-30 09:00:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-30 09:00:10 +0000 |
| commit | 023f7c076dc62dee3b3f5307d5526b8192a87c5a (patch) | |
| tree | 23809b37bb58f2b97f30382d8d72dbbe57aae323 /gcc/ada/sem_res.adb | |
| parent | cb8f82469d33404060198fd65882ce6ce66b27eb (diff) | |
| download | gcc-023f7c076dc62dee3b3f5307d5526b8192a87c5a.tar.gz | |
2015-01-30 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Analyze_Function_Return): In an extended return
statement, apply accessibility check to result object when there
is no initializing expression (Ada 2012 RM 6.5 (5.4/3))
2015-01-30 Robert Dewar <dewar@adacore.com>
* sem_ch4.adb (Analyze_If_Expression): Allow for non-standard
Boolean for case where ELSE is omitted.
* sem_res.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@220274 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 8f762d44b95..82890810a48 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -722,9 +722,7 @@ package body Sem_Res is F := First_Formal (Subp); A := First_Actual (N); while Present (F) and then Present (A) loop - if not Is_Entity_Name (A) - or else Entity (A) /= F - then + if not Is_Entity_Name (A) or else Entity (A) /= F then return False; end if; @@ -1310,9 +1308,7 @@ package body Sem_Res is else E := First_Entity (Pack); while Present (E) loop - if Test (E) - and then not In_Decl - then + if Test (E) and then not In_Decl then return E; end if; @@ -2152,7 +2148,6 @@ package body Sem_Res is Get_First_Interp (N, I, It); Interp_Loop : while Present (It.Typ) loop - if Debug_Flag_V then Write_Str ("Interp: "); Write_Interp (It); |