diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-11-02 06:21:45 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-27 04:15:43 -0500 |
| commit | 78287696dc5f788b28f8541c93809e002f722f81 (patch) | |
| tree | d6dd75b389b3bde7ab5cd8da67cca1c03ac77e15 | |
| parent | 94a5437d3b4f531faf2e3f49b26579cb06fd0aa5 (diff) | |
| download | gcc-78287696dc5f788b28f8541c93809e002f722f81.zip gcc-78287696dc5f788b28f8541c93809e002f722f81.tar.gz gcc-78287696dc5f788b28f8541c93809e002f722f81.tar.bz2 | |
[Ada] Fix tree for expanded instantiations corresponding to formal packages
gcc/ada/
* sem_ch12.adb (Instantiate_Object): Consistently use
New_Copy_Tree instead of New_Copy.
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 20a00d7..6a32bdc 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -11567,7 +11567,7 @@ package body Sem_Ch12 is -- Use default to construct declaration if Present (Subt_Mark) then - Def := New_Copy (Subt_Mark); + Def := New_Copy_Tree (Subt_Mark); else pragma Assert (Present (Acc_Def)); Def := New_Copy_Tree (Acc_Def); |