Skip to content

Commit a999dc3

Browse files
ronan-dMarc Poulhiès
authored andcommitted
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.
1 parent 93aa395 commit a999dc3

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

gcc/ada/sem_ch3.adb

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -9660,6 +9660,8 @@ package body Sem_Ch3 is
96609660
(New_Decl, Parent_Base, New_Base,
96619661
Is_Completion => False, Derive_Subps => False);
96629662

9663+
Set_Is_Implicit_Full_View (New_Base);
9664+
96639665
-- ??? This needs re-examination to determine whether the
96649666
-- following call can simply be replaced by a call to Analyze.
96659667

0 commit comments

Comments
 (0)