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

[Ada] Fix check for implicit allocation of dynamic objects

Browse Source 
gcc/ada/

	* sem_ch3.adb (Check_Dynamic_Object): Swap check order.
This commit is contained in:
Etienne Servais 2022-01-04 12:41:02 +01:00 committed by Pierre-Marie de Rodat
parent 303bd2a842
commit f5eb70c227
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/sem_ch3.adb
View File

@ -3831,6 +3831,9 @@ package body Sem_Ch3 is
then
null;
elsif Is_Record_Type (Etype (Comp)) then
Check_Dynamic_Object (Etype (Comp));
elsif not Discriminated_Size (Comp)
and then Comes_From_Source (Comp)
then
@ -3838,8 +3841,6 @@ package body Sem_Ch3 is
("component& of non-static size will violate restriction "
& "No_Implicit_Heap_Allocation?", N, Comp);
elsif Is_Record_Type (Etype (Comp)) then
Check_Dynamic_Object (Etype (Comp));
end if;
Next_Component (Comp);