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

[Ada] fix crash on Secondary_Stack_Size with discriminant

Browse Source 
This patch fixes a crash caused by specifying the Secondary_Stack_Size
aspect of a task type as the value of a discriminant of the task type,
and then declaring a record component whose type is the task type,
constrained to a discriminant of the record.

gcc/ada/

	* sem_ch3.adb (Get_Discr_Value): Copy the result. Otherwise, the
	"tree" can be malformed (a DAG, not a tree) because
	Get_Discr_Value could be returning some subtree already attached
	to the tree.
This commit is contained in:
Bob Duff 2022-01-28 14:40:27 -05:00 committed by Pierre-Marie de Rodat
parent 470fff3d8e
commit 6281d36342
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/sem_ch3.adb
View File

@ -13963,7 +13963,7 @@ package body Sem_Ch3 is
or else D = CR_Discriminant (Discr_Id)
or else Corresponding_Discriminant (D) = Discr_Id
then
return Node (E);
return New_Copy_Tree (Node (E));
end if;
Next_Discriminant (D);
@ -13987,7 +13987,7 @@ package body Sem_Ch3 is
E := First_Elmt (Constraints);
while Present (D) loop
if D = Discr_Id then
return Node (E);
return New_Copy_Tree (Node (E));
end if;
Next_Discriminant (D);