From: Ronan Desplanques <desplanques@adacore.com>
Date: Wed, 12 Feb 2025 09:34:06 +0000 (+0100)
Subject: ada: Remove useless calls
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d5b0410adf21e24177150ac3a209770f46299494;p=thirdparty%2Fgcc.git

ada: Remove useless calls

The subprogram calls this patch removes were useless because they were
already made in New_Standard_Entity.

gcc/ada/ChangeLog:

	* cstand.adb (Create_Standard): Remove useless calls.
---

diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb
index 5ba88b9ae1c..41b0fec157f 100644
--- a/gcc/ada/cstand.adb
+++ b/gcc/ada/cstand.adb
@@ -629,8 +629,6 @@ package body CStand is
             Decl := New_Node (N_Full_Type_Declaration, Stloc);
          end if;
 
-         Set_Is_Frozen (Standard_Entity (S));
-         Set_Is_Public (Standard_Entity (S));
          Set_Defining_Identifier (Decl, Standard_Entity (S));
          Append (Decl, Decl_S);
       end loop;