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 1c5b93727cd29f2e34c6f3483fb12808aedb4e83..ef19a80b6e76f33f0fe53a5e559ef9a3fb9c6d30 100644 (file)
--- 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;