From: Piotr Trojanek <trojanek@adacore.com>
Date: Sun, 15 Nov 2020 11:03:30 +0000 (+0100)
Subject: [Ada] Minor reuse Is_Assignable
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1c4dfafe6837c93861581f12edb0b422be407493;p=gcc.git

[Ada] Minor reuse Is_Assignable

gcc/ada/

	* sem_ch5.adb (Process_Statements): Replace low-level membership
	test with a high-level wrapper.
---

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))