From 4f5025391a7e675474f68cb3f156a63ee5f644c3 Mon Sep 17 00:00:00 2001 From: Ronan Desplanques Date: Mon, 4 Aug 2025 16:39:39 +0200 Subject: [PATCH] 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. --- 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 d28bafb3378..42abc894a29 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); -- 2.47.3