diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2025-11-20 21:54:03 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-12-05 13:22:53 +0100 |
| commit | b6bfc77fe56ac999d515fe3899afbab0eb0ee480 (patch) | |
| tree | a769728232f70788604edfcaac52b33a7f19736c /gcc | |
| parent | fb0daefc42baa50112d260f6a52ee97994c3893e (diff) | |
| download | gcc-b6bfc77fe56ac999d515fe3899afbab0eb0ee480.zip gcc-b6bfc77fe56ac999d515fe3899afbab0eb0ee480.tar.gz gcc-b6bfc77fe56ac999d515fe3899afbab0eb0ee480.tar.bz2 | |
ada: Fix problematic aggregate with box notation
It runs afoul of the pragma Initialize_Scalars + -gnatVa combination.
gcc/ada/ChangeLog:
* sem_ch12.adb (Remove_Parent): Only set the Is_Transient component
of the local scope stack entry.
Diffstat (limited to 'gcc')
| -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 a5df3e5..d340307 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -16929,7 +16929,7 @@ package body Sem_Ch12 is Scope_Stack.Decrement_Last; S := Current_Scope; else - SE := (Is_Transient => False, others => <>); + SE.Is_Transient := False; end if; -- After child instantiation is complete, remove from scope stack the |