diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2022-12-24 20:29:14 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-01-05 15:30:02 +0100 |
| commit | bd96a6a8a6689ac8f65877b2173f48d231e9f4af (patch) | |
| tree | 148dbd6501445498ff18f172d7321c1c40260be0 | |
| parent | 09e0175327d333360fbe45346c411a8bc7eee1f1 (diff) | |
| download | gcc-bd96a6a8a6689ac8f65877b2173f48d231e9f4af.zip gcc-bd96a6a8a6689ac8f65877b2173f48d231e9f4af.tar.gz gcc-bd96a6a8a6689ac8f65877b2173f48d231e9f4af.tar.bz2 | |
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.
| -rw-r--r-- | gcc/ada/exp_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 245c3cd..ab4b18d 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; |