From 08613129bb18b932e8c1108fca1c8e4e39a24e38 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Mon, 29 Nov 2021 13:21:04 +0100 Subject: [PATCH] [Ada] Remove extra space in parameter associations gcc/ada/ * exp_aggr.adb (Two_Pass_Aggregate_Expansion): Fix whitespace. * libgnat/a-cofuve.ads (Add): Likewise. * sem_ch3.adb (Build_Access_Subprogram_Wrapper): Likewise. --- gcc/ada/exp_aggr.adb | 4 ++-- gcc/ada/libgnat/a-cofuve.ads | 2 +- gcc/ada/sem_ch3.adb | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index bdb483e..df37638 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -6408,7 +6408,7 @@ package body Exp_Aggr is One_Loop := Make_Loop_Statement (Loc, Iteration_Scheme => Make_Iteration_Scheme (Loc, - Iterator_Specification => New_Copy_Tree (Iter)), + Iterator_Specification => New_Copy_Tree (Iter)), Statements => New_List (Incr)); Append (One_Loop, Size_Expr_Code); @@ -6540,7 +6540,7 @@ package body Exp_Aggr is One_Loop := Make_Loop_Statement (Loc, Iteration_Scheme => Make_Iteration_Scheme (Loc, - Iterator_Specification => Copy_Separate_Tree (Iter)), + Iterator_Specification => Copy_Separate_Tree (Iter)), Statements => New_List (New_Comp, Incr)); Append (One_Loop, Insertion_Code); diff --git a/gcc/ada/libgnat/a-cofuve.ads b/gcc/ada/libgnat/a-cofuve.ads index ee52730..b9af5ca 100644 --- a/gcc/ada/libgnat/a-cofuve.ads +++ b/gcc/ada/libgnat/a-cofuve.ads @@ -303,7 +303,7 @@ package Ada.Containers.Functional_Vectors with SPARK_Mode is and then Get (Add'Result, Position) = New_Item and then Range_Equal (Left => Container, - Right => Add'Result, + Right => Add'Result, Fst => Index_Type'First, Lst => Index_Type'Pred (Position)) and then Range_Shifted diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 7fcde4d..158ad4d 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -6780,7 +6780,7 @@ package body Sem_Ch3 is Append ( Make_Parameter_Specification (Loc, Defining_Identifier => Make_Temporary (Loc, 'P'), - Parameter_Type => New_Occurrence_Of (Id, Loc)), + Parameter_Type => New_Occurrence_Of (Id, Loc)), Profile); if Nkind (Type_Def) = N_Access_Procedure_Definition then -- 2.7.4