From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 9 May 2023 22:05:55 +0000 (+0200)
Subject: ada: Fix inverted implementation of RM 8.4(10) clause for operators
X-Git-Tag: basepoints/gcc-15~8294
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e870d6d73b4f0d24cc1a9d976954b0df836dbd06;p=thirdparty%2Fgcc.git

ada: Fix inverted implementation of RM 8.4(10) clause for operators

The comment is correct but the code implements the opposite outcome.

gcc/ada/

	* sem_type.adb (Disambiguate): Fix pasto in the implementation of
	the RM 8.4(10) clause for operators.
---

diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb
index d4006e4270bb..8519b97fa412 100644
--- a/gcc/ada/sem_type.adb
+++ b/gcc/ada/sem_type.adb
@@ -2229,7 +2229,7 @@ package body Sem_Type is
                 Is_Immediately_Visible (Base_Type (Etype (Right_Opnd (N))))
               and then Is_Potentially_Use_Visible (User_Subp)
             then
-               if It2.Nam = Predef_Subp then
+               if It1.Nam = Predef_Subp then
                   return It1;
                else
                   return It2;