From e0926f7901431a1f145c83db284b94d75b926fe0 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 30 Sep 2021 12:54:28 +0200 Subject: [Ada] Rewrite extended names in derived class-wide expressions gcc/ada/ * exp_util.adb (Build_Class_Wide_Expression): Replace entities of both simple and extended names. --- gcc/ada/exp_util.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc') diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 11499e1..2ae3dd3 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -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))) -- cgit v1.1