diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2023-03-07 19:52:40 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-25 09:44:17 +0200 |
| commit | c4399ee62946eafbded4334478678d6f3d68787e (patch) | |
| tree | 81d9f348b2ee66c4cff59af8f54e50849665bb5f /gcc | |
| parent | 82a205ebf656aa349f46c541a2a22303ca5b92fc (diff) | |
| download | gcc-c4399ee62946eafbded4334478678d6f3d68787e.zip gcc-c4399ee62946eafbded4334478678d6f3d68787e.tar.gz gcc-c4399ee62946eafbded4334478678d6f3d68787e.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/atree.adb | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index 1c5b937..ef19a80 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; |