diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-03-16 18:38:20 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-26 09:29:16 +0200 |
| commit | 9df0c1198ecba478ac27d28765224412ee6606e9 (patch) | |
| tree | 3d1983d5593321a2325f462311ddb1b6c9d82a13 /gcc | |
| parent | c8c37d2bfde00ec3ac8083502dbbe04f0b213298 (diff) | |
| download | gcc-9df0c1198ecba478ac27d28765224412ee6606e9.zip gcc-9df0c1198ecba478ac27d28765224412ee6606e9.tar.gz gcc-9df0c1198ecba478ac27d28765224412ee6606e9.tar.bz2 | |
ada: Minor tweak in condition
gcc/ada/
* sem_util.adb (Compile_Time_Constraint_Error): Test the Ekind.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index aabd017..ea5be2f 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -6110,7 +6110,7 @@ package body Sem_Util is Conc_Typ : constant Entity_Id := (if Present (Init_Proc_Type) - and then Init_Proc_Type in E_Record_Type_Id + and then Ekind (Init_Proc_Type) = E_Record_Type then Corresponding_Concurrent_Type (Init_Proc_Type) else Empty); |