OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Minor cleanup with Is_Assignable

Browse Source 
gcc/ada/

	* sem_ch5.adb (Analyze_Assignment): Reuse Is_Assignable.
This commit is contained in:
Piotr Trojanek 2020-05-10 16:16:30 +02:00 committed by Pierre-Marie de Rodat
parent db290a9e37
commit 62226c3554
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/sem_ch5.adb
View File

@ -822,9 +822,7 @@ package body Sem_Ch5 is
-- that of the target mutable object.
if Is_Entity_Name (Lhs)
and then Ekind_In (Entity (Lhs), E_In_Out_Parameter,
E_Out_Parameter,
E_Variable)
and then Is_Assignable (Entity (Lhs))
and then Is_Composite_Type (T1)
and then not Is_Constrained (Etype (Entity (Lhs)))
and then Nkind_In (Rhs, N_If_Expression, N_Case_Expression)