From 2a3652640b612c1e7619dfa10c096f3adc750b41 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Fri, 3 Dec 2021 13:23:36 +0100 Subject: [PATCH] [Ada] Simplify repeated calls in printing of GNAT AST gcc/ada/ * treepr.adb (Visit_Node): Simplify repeated call to Next_Entity. --- gcc/ada/treepr.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index f317d8f..b6a6525 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; -- 2.7.4