From ad5edba5cec413cf60b5c71046e7787a0048357f Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 4 Aug 2014 09:57:40 +0200 Subject: [multiple changes] 2014-08-04 Hristian Kirtchev * sem_ch8.adb (Build_Class_Wide_Wrapper): Mark the primitive as referenced once resolution has taken place. 2014-08-04 Gary Dismukes * exp_ch4.adb (Expand_N_Type_Conversion): Don't compare access levels in the case where the target type is the anonymous type of an access discriminant, since the level of such types is defined based on context. Add comment. From-SVN: r213534 --- gcc/ada/sem_ch8.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gcc/ada/sem_ch8.adb') diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 97518b3..0780f3f 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -2290,12 +2290,13 @@ package body Sem_Ch8 is return; end if; - -- Set the proper entity of the renamed generic formal subprogram - -- and reset its overloaded status now that resolution has finally - -- taken place. + -- Set the proper entity of the renamed generic formal subprogram, + -- reset its overloaded status and mark the primitive as referenced + -- now that resolution has finally taken place. Set_Entity (Nam, Prim_Op); Set_Is_Overloaded (Nam, False); + Set_Referenced (Prim_Op); -- Step 3: Create the declaration and the body of the wrapper, insert -- all the pieces into the tree. -- cgit v1.1