diff options
| author | Bob Duff <duff@adacore.com> | 2022-01-28 14:40:27 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-11 08:53:19 +0000 |
| commit | 6281d36342c29cdd9acb32032f59bf440953c942 (patch) | |
| tree | ca109690a0c1cfd96417b991e962f397ff623c19 /gcc/ada/gcc-interface | |
| parent | 470fff3d8e48ede98f0a74a1beb9eafc7452f4b4 (diff) | |
| download | gcc-6281d36342c29cdd9acb32032f59bf440953c942.zip gcc-6281d36342c29cdd9acb32032f59bf440953c942.tar.gz gcc-6281d36342c29cdd9acb32032f59bf440953c942.tar.bz2 | |
[Ada] fix crash on Secondary_Stack_Size with discriminant
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.
Diffstat (limited to 'gcc/ada/gcc-interface')
0 files changed, 0 insertions, 0 deletions