From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id C75BA385841F; Tue, 5 Oct 2021 08:23:15 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org C75BA385841F MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-4158] [Ada] Rewrite operator entity in derived class-wide expressions X-Act-Checkin: gcc X-Git-Author: Piotr Trojanek X-Git-Refname: refs/heads/master X-Git-Oldrev: cc1fcd387984da9cde6d7314345d366789929d57 X-Git-Newrev: bdabd8b6ecb3115dd359d39221b01cbc4b523333 Message-Id: <20211005082315.C75BA385841F@sourceware.org> Date: Tue, 5 Oct 2021 08:23:15 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 05 Oct 2021 08:23:15 -0000 https://gcc.gnu.org/g:bdabd8b6ecb3115dd359d39221b01cbc4b523333 commit r12-4158-gbdabd8b6ecb3115dd359d39221b01cbc4b523333 Author: Piotr Trojanek Date: Fri Sep 10 22:29:27 2021 +0200 [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. Diff: --- 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 c0966fb0b96..eef278fb391 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)))