From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 7 Mar 2023 18:52:40 +0000 (+0100)
Subject: ada: Simplify copying of node lists
X-Git-Tag: basepoints/gcc-15~8921
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c4399ee62946eafbded4334478678d6f3d68787e;p=thirdparty%2Fgcc.git

ada: Simplify copying of node lists

When creating a copy of a node list we called Copy_Entity for entities
and Copy_Separate_Tree for other nodes. This was unnecessary, because
the Copy_Separate_Tree when called on entities will just do Copy_Entity.

Code cleanup; semantics is unaffected.

gcc/ada/

	* atree.adb (Copy_List): Call Copy_Separate_Tree for both entities and
	other nodes.
---

diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb
index 1c5b93727cd2..ef19a80b6e76 100644
--- a/gcc/ada/atree.adb
+++ b/gcc/ada/atree.adb
@@ -1396,12 +1396,7 @@ package body Atree is
 
             E := First (List);
             while Present (E) loop
-               if Is_Entity (E) then
-                  Append (Copy_Entity (E), NL);
-               else
-                  Append (Copy_Separate_Tree (E), NL);
-               end if;
-
+               Append (Copy_Separate_Tree (E), NL);
                Next (E);
             end loop;