From c05ba1f17969c3423e76bee3e863727c9cf28ca0 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 20 Nov 2014 12:00:44 +0100 Subject: [multiple changes] 2014-11-20 Ed Schonberg * 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 * 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 * 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 * exp_util.ads: Minor addition of ??? clause. 2014-11-20 Ed Schonberg * 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 * sem_ch6.adb (Find_Corresponding_Spec): Inherit the ghostness of the matching spec, the same way convention is inherited. From-SVN: r217835 --- gcc/ada/sem_ch8.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/ada/sem_ch8.adb') 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; -- cgit v1.1