diff options
| author | Ronan Desplanques <desplanques@adacore.com> | 2025-07-11 11:28:35 +0200 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-07-25 10:09:35 +0200 |
| commit | a999dc31581f0b3239668726cc508a02ce1f2450 (patch) | |
| tree | 0040315a7a8223f10659fd8da569f68c50f41c78 /gcc | |
| parent | 93aa395bc32d0e0c7254eb9ab1eee546809d4338 (diff) | |
| download | gcc-a999dc31581f0b3239668726cc508a02ce1f2450.zip gcc-a999dc31581f0b3239668726cc508a02ce1f2450.tar.gz gcc-a999dc31581f0b3239668726cc508a02ce1f2450.tar.bz2 | |
ada: Fix regression of finalization primitive selection
A recent patch introduced a new flag to mark the types for which looking
up finalization primitives needs special handling. But there was one
place in Build_Derived_Record_Type where the flag was not set when it
should, which introduced a regression in some cases.
This patch adds the missing setting of the flag.
gcc/ada/ChangeLog:
* sem_ch3.adb (Build_Derived_Record_Type): Set flag appropriately.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 55d2795..d30c866 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -9660,6 +9660,8 @@ package body Sem_Ch3 is (New_Decl, Parent_Base, New_Base, Is_Completion => False, Derive_Subps => False); + Set_Is_Implicit_Full_View (New_Base); + -- ??? This needs re-examination to determine whether the -- following call can simply be replaced by a call to Analyze. |