From: Ronan Desplanques <desplanques@adacore.com>
Date: Mon, 4 Aug 2025 14:39:39 +0000 (+0200)
Subject: ada: Remove useless statements
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4f5025391a7e675474f68cb3f156a63ee5f644c3;p=thirdparty%2Fgcc.git

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 --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);