From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sat, 24 Dec 2022 19:29:14 +0000 (+0100)
Subject: ada: Minor tweak to test added in previous change
X-Git-Tag: basepoints/gcc-14~2177
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bd96a6a8a6689ac8f65877b2173f48d231e9f4af;p=thirdparty%2Fgcc.git

ada: Minor tweak to test added in previous change

This changes the test to use the common idion of the codebase.

gcc/ada/

	* exp_util.adb (Make_CW_Equivalent_Type) <Has_Tag_Of_Type>: Tweak.
---

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 245c3cd9dc7e..ab4b18da5386 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -9731,7 +9731,7 @@ package body Exp_Util is
          --  identifies T.
 
          if Is_Entity_Name (Exp)
-           and then Ekind (Entity (Exp)) in Constant_Or_Variable_Kind
+           and then Ekind (Entity (Exp)) in E_Constant | E_Variable
          then
             return True;