[COMMITTED] ada: Minor tweak in condition
Commit Message
From: Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* sem_util.adb (Compile_Time_Constraint_Error): Test the Ekind.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/sem_util.adb | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
@@ -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);