diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-11-20 12:00:44 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-11-20 12:00:44 +0100 |
| commit | c05ba1f17969c3423e76bee3e863727c9cf28ca0 (patch) | |
| tree | 89ec69df270ace088b55995a8f20af1ca31d2b2a /gcc/ada/sem_ch8.adb | |
| parent | 4a0a5d5fc14e61fb73c1440a5a5bf2bee0b7ced8 (diff) | |
| download | gcc-c05ba1f17969c3423e76bee3e863727c9cf28ca0.zip gcc-c05ba1f17969c3423e76bee3e863727c9cf28ca0.tar.gz gcc-c05ba1f17969c3423e76bee3e863727c9cf28ca0.tar.bz2 | |
[multiple changes]
2014-11-20 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb (Make_Call_Into_Operator): In ASIS mode, propagate
back the resolved operands to the original call node, taking
into account that the original call may have named associations.
2014-11-20 Hristian Kirtchev <kirtchev@adacore.com>
* inline.adb (Has_Some_Contract): Change the
guard to test the Ekind of the entity rather than the Analyzed
flag. This handles partially analyzed contexts.
2014-11-20 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb (Analyze_Object_Renaming): In Ada 83 mode, do
not reject the renaming of a function result if the renaming
does not come for source.
2014-11-20 Robert Dewar <dewar@adacore.com>
* exp_util.ads: Minor addition of ??? clause.
2014-11-20 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb (Is_Variable): For an Ada 2012 implicit
dereference introduced for an indexing opertion, check that the
type of the corresponding access discriminant is not an access
to constant.
2014-11-20 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch6.adb (Find_Corresponding_Spec): Inherit
the ghostness of the matching spec, the same way convention
is inherited.
From-SVN: r217835
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 21d9e73..4edeac9 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -1058,10 +1058,11 @@ package body Sem_Ch8 is if Nkind (Nam) = N_Function_Call then case Ada_Version is - -- Usage is illegal in Ada 83 + -- Usage is illegal in Ada 83, but renamings are also introduced + -- during expansion, and error does not apply to those. when Ada_83 => - if Comes_From_Source (Nam) then + if Comes_From_Source (N) then Error_Msg_N ("(Ada 83) cannot rename function return object", Nam); end if; |