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