From a53e5e7aee9af007943f8a96aec00fce343dab57 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Fri, 1 Dec 2023 17:56:12 +0100 Subject: [PATCH] ada: Cleanup building of error messages for class-wide contracts Code cleanup; semantics is unaffected. gcc/ada/ * exp_ch6.adb (Build_Dynamic_Check_Helper_Call): Remove unused iteration over formal parameters. --- gcc/ada/exp_ch6.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index a8a70a5759d..e43389132ae 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -7635,7 +7635,6 @@ package body Exp_Ch6 is Dynamic_Call_Helper (CW_Subp); Actuals : constant List_Id := New_List; A : Node_Id := First_Actual (Call_Node); - F : Entity_Id := First_Formal (Helper_Id); begin while Present (A) loop @@ -7646,7 +7645,7 @@ package body Exp_Ch6 is Remove_Side_Effects (A); Append_To (Actuals, New_Copy_Tree (A)); - Next_Formal (F); + Next_Actual (A); end loop; -- 2.47.2