diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-04 09:57:40 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-04 09:57:40 +0200 |
| commit | ad5edba5cec413cf60b5c71046e7787a0048357f (patch) | |
| tree | 9dba4c2c474be1f9b2df2220eaf2ff37f785c8db /gcc/ada/sem_ch8.adb | |
| parent | b6621d10eb36c29e6965678b7d53aa39eb302c9e (diff) | |
| download | gcc-ad5edba5cec413cf60b5c71046e7787a0048357f.zip gcc-ad5edba5cec413cf60b5c71046e7787a0048357f.tar.gz gcc-ad5edba5cec413cf60b5c71046e7787a0048357f.tar.bz2 | |
[multiple changes]
2014-08-04 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch8.adb (Build_Class_Wide_Wrapper): Mark the primitive as
referenced once resolution has taken place.
2014-08-04 Gary Dismukes <dismukes@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 7 |
1 files changed, 4 insertions, 3 deletions
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. |