From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 3 Dec 2021 12:23:36 +0000 (+0100)
Subject: [Ada] Simplify repeated calls in printing of GNAT AST
X-Git-Tag: basepoints/gcc-13~2022
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=2a3652640b612c1e7619dfa10c096f3adc750b41;p=thirdparty%2Fgcc.git

[Ada] Simplify repeated calls in printing of GNAT AST

gcc/ada/

	* treepr.adb (Visit_Node): Simplify repeated call to
	Next_Entity.
---

diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb
index f317d8fd660f..b6a652545ef7 100644
--- a/gcc/ada/treepr.adb
+++ b/gcc/ada/treepr.adb
@@ -2305,8 +2305,8 @@ package body Treepr is
             begin
                Nod := N;
                while Present (Nod) loop
-                  Visit_Descendant (Union_Id (Next_Entity (Nod)));
                   Next_Entity (Nod);
+                  Visit_Descendant (Union_Id (Nod));
                end loop;
             end;
          end if;