diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-21 10:50:36 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-21 10:50:36 +0200 |
| commit | 2d6aa71558f460ef00af8420e81e01f46d95da84 (patch) | |
| tree | ea8cc0c200b4dbee8969f7837027839c0ce74ed7 /gcc/ada/sem_ch5.adb | |
| parent | 08f52d9f8462f6d35a82fe51818929fc563b4285 (diff) | |
| download | gcc-2d6aa71558f460ef00af8420e81e01f46d95da84.zip gcc-2d6aa71558f460ef00af8420e81e01f46d95da84.tar.gz gcc-2d6aa71558f460ef00af8420e81e01f46d95da84.tar.bz2 | |
[multiple changes]
2016-04-21 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch5.adb: Minor reformatting.
2016-04-21 Eric Botcazou <ebotcazou@adacore.com>
* exp_ch2.adb (Expand_Current_Value): Make an appropriate
character literal if the entity is of a character type.
2016-04-21 Arnaud Charlet <charlet@adacore.com>
* exp_aggr.adb (Backend_Processing_Possible): Return False
when generating C and aggregate contains function calls.
2016-04-21 Tristan Gingold <gingold@adacore.com>
* krunch.adb (Krunch): Only partially krunch children of
Interfaces that aren't known.
2016-04-21 Ed Schonberg <schonberg@adacore.com>
* sem_prag.adb (Make_Inline): Handle properly the instantiation
of a generic subpprogram that carries an Inline aspect. Place
inline info on the anonymous subprogram that is constructed in
the wrapper package.
(Analyze_Pragma, case Pure): Do not check placement if pragma
appears within an instantiation, which can be nested at any level.
* sem_ch12.adb (Analyze_Instance_And_Renamings): Do not copy Freeze
node from anonymous subprogram to its visible renaming. The
freeze node will be constructed if the subprogram carries
delayed aspects.
(Set_Global): Preserve dimension information if present (from
code reading).
2016-04-21 Vasiliy Fofanov <fofanov@adacore.com>
* gnatlink.adb: Change wording of the warning message on
problematic filenames to be more neutral. Add a new substring
"patch" introduced on Windows 10.
From-SVN: r235313
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 138da4d..9b4d589 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -2201,9 +2201,11 @@ package body Sem_Ch5 is Error_Msg_N ("variable container expected", N); end if; - -- It could be a function, which - -- Is_Dependent_Component_Of_Mutable_Object doesn't like, - -- so check that it's a component. + -- Detect a case where the iterator denotes a component + -- of a mutable object which depends on a discriminant. + -- Note that the iterator may denote a function call in + -- qualified form, in which case this check should not + -- be performed. if Nkind (Orig_Iter_Name) = N_Selected_Component and then Ekind_In |