https://gcc.gnu.org/g:4f5025391a7e675474f68cb3f156a63ee5f644c3
commit r16-3700-g4f5025391a7e675474f68cb3f156a63ee5f644c3 Author: Ronan Desplanques <[email protected]> Date: Mon Aug 4 16:39:39 2025 +0200 ada: Remove useless statements The initial value of fields of type Elist_Id is No_Elist, therefore the statements this patch removes were useless. gcc/ada/ChangeLog: * sem_ch7.adb (New_Private_Type): Remove useless statements. Diff: --- gcc/ada/sem_ch7.adb | 3 --- 1 file changed, 3 deletions(-) diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb index d28bafb3378c..42abc894a296 100644 --- a/gcc/ada/sem_ch7.adb +++ b/gcc/ada/sem_ch7.adb @@ -2758,9 +2758,6 @@ package body Sem_Ch7 is Set_Is_Tagged_Type (Id, Tagged_Present (Def)); - Set_Discriminant_Constraint (Id, No_Elist); - Set_Stored_Constraint (Id, No_Elist); - if Present (Discriminant_Specifications (N)) then Push_Scope (Id); Process_Discriminants (N);
