From bdabd8b6ecb3115dd359d39221b01cbc4b523333 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Fri, 10 Sep 2021 22:29:27 +0200 Subject: [PATCH] [Ada] Rewrite operator entity in derived class-wide expressions gcc/ada/ * exp_util.adb (Build_Class_Wide_Expression): Replace entities of both identifiers and operator symbols. --- gcc/ada/exp_util.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index c0966fb..eef278f 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) = N_Identifier + if Nkind (N) in N_Identifier | N_Operator_Symbol and then Present (Entity (N)) and then (Is_Formal (Entity (N)) or else Is_Subprogram (Entity (N))) -- 2.7.4