diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2023-12-01 17:56:12 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-06-10 11:03:58 +0200 |
| commit | a53e5e7aee9af007943f8a96aec00fce343dab57 (patch) | |
| tree | ee669250a1b5e092674d47bc3b913b17c75c1ffe | |
| parent | 8d711859139753221d3eef7ba650579a9817677b (diff) | |
| download | gcc-a53e5e7aee9af007943f8a96aec00fce343dab57.zip gcc-a53e5e7aee9af007943f8a96aec00fce343dab57.tar.gz gcc-a53e5e7aee9af007943f8a96aec00fce343dab57.tar.bz2 | |
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.
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index a8a70a5..e433891 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; |