FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Rewrite extended names in derived class-wide expressions

Browse source 
gcc/ada/

	* exp_util.adb (Build_Class_Wide_Expression): Replace entities
	of both simple and extended names.
This commit is contained in:
Piotr Trojanek 2021-09-30 12:54:28 +02:00 • committed by Pierre-Marie de Rodat
parent 4075bdcf80
commit e0926f7901
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gcc/ada/exp_util.adb
View file

@ -1293,7 +1293,7 @@ package body Exp_Util is
Adjust_Inherited_Pragma_Sloc (N);
end if;
if Nkind (N) in N_Identifier | N_Operator_Symbol
if Nkind (N) in N_Identifier | N_Expanded_Name | N_Operator_Symbol
and then Present (Entity (N))
and then
(Is_Formal (Entity (N)) or else Is_Subprogram (Entity (N)))