From: Eric Botcazou <ebotca...@adacore.com>

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.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 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 245c3cd9dc7..ab4b18da538 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;
 
-- 
2.34.1

Reply via email to