From 1c4dfafe6837c93861581f12edb0b422be407493 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Sun, 15 Nov 2020 12:03:30 +0100 Subject: [PATCH] [Ada] Minor reuse Is_Assignable gcc/ada/ * sem_ch5.adb (Process_Statements): Replace low-level membership test with a high-level wrapper. --- gcc/ada/sem_ch5.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 52150df5e69..b13635691d5 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -1466,8 +1466,7 @@ package body Sem_Ch5 is if Is_Entity_Name (Exp) then Ent := Entity (Exp); - if Ekind (Ent) in E_Variable | E_In_Out_Parameter | E_Out_Parameter - then + if Is_Assignable (Ent) then if List_Length (Choices) = 1 and then Nkind (First (Choices)) in N_Subexpr and then Compile_Time_Known_Value (First (Choices)) -- 2.30.2