diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-11-23 12:22:27 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-12-02 16:26:23 +0000 |
| commit | d43fbe0151b8efcb452970a92c31f52d64d0003e (patch) | |
| tree | c937dc2e47fefc824e5fa10d35c8660133ce778b | |
| parent | eccc7c8cbfda3d8b6210543127b000d028631b6b (diff) | |
| download | gcc-d43fbe0151b8efcb452970a92c31f52d64d0003e.zip gcc-d43fbe0151b8efcb452970a92c31f52d64d0003e.tar.gz gcc-d43fbe0151b8efcb452970a92c31f52d64d0003e.tar.bz2 | |
[Ada] Remove extra space after assignment symbol
gcc/ada/
* exp_aggr.adb, exp_ch6.adb, par-ch4.adb, sem_ch13.adb: Remove
extra space after ":=" symbol.
* gen_il-gen.adb: Likewise; add missing headerbox.
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 12 | ||||
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/gen_il-gen.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/par-ch4.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 2 |
5 files changed, 14 insertions, 10 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index af39ba5..bdb483e 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -7546,11 +7546,11 @@ package body Exp_Aggr is Parameter_Associations => Params)); end if; - Loop_Stat := Make_Implicit_Loop_Statement - (Node => N, - Identifier => Empty, - Iteration_Scheme => L_Iteration_Scheme, - Statements => Stats); + Loop_Stat := Make_Implicit_Loop_Statement + (Node => N, + Identifier => Empty, + Iteration_Scheme => L_Iteration_Scheme, + Statements => Stats); Append (Loop_Stat, Aggr_Code); end Expand_Iterated_Component; @@ -7825,7 +7825,7 @@ package body Exp_Aggr is -- required size for the aggregwte : call the provided -- constructor rather than the Empty aggregate. - Index := Make_Op_Add (Loc, + Index := Make_Op_Add (Loc, Left_Opnd => New_Copy_Tree (Type_Low_Bound (Index_Type)), Right_Opnd => Make_Integer_Literal (Loc, Siz - 1)); diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index fa1a89a..f433fa7 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -10206,7 +10206,7 @@ package body Exp_Ch6 is -- If function is inherited, a conversion may be necessary. if Nkind (Par) = N_Assignment_Statement then - Last_Actual := Name (Par); + Last_Actual := Name (Par); if not Comes_From_Source (Orig_Func) and then Etype (Orig_Func) /= Etype (Func_Id) diff --git a/gcc/ada/gen_il-gen.adb b/gcc/ada/gen_il-gen.adb index f058c5a..2e81149 100644 --- a/gcc/ada/gen_il-gen.adb +++ b/gcc/ada/gen_il-gen.adb @@ -2135,9 +2135,13 @@ package body Gen_IL.Gen is procedure One_Comp (F : Field_Enum); + -------------- + -- One_Comp -- + -------------- + procedure One_Comp (F : Field_Enum) is pragma Annotate (Codepeer, Modified, Field_Table); - Offset : constant Field_Offset := Field_Table (F).Offset; + Offset : constant Field_Offset := Field_Table (F).Offset; begin if First_Time then First_Time := False; diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 545d83b..aa49bff 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -3482,7 +3482,7 @@ package body Ch4 is New_Node (N_Loop_Parameter_Specification, Prev_Token_Ptr); Set_Defining_Identifier (Loop_Spec, Id); - Choice := First (Discrete_Choices (Assoc_Node)); + Choice := First (Discrete_Choices (Assoc_Node)); Assoc_Node := New_Node (N_Iterated_Element_Association, Prev_Token_Ptr); Set_Loop_Parameter_Specification (Assoc_Node, Loop_Spec); diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 6ff7046..ba41209 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -15550,7 +15550,7 @@ package body Sem_Ch13 is Add_Unnamed_Subp := Subp; elsif Op_Name = Name_New_Indexed then - New_Indexed_Subp := Subp; + New_Indexed_Subp := Subp; elsif Op_Name = Name_Assign_Indexed then Assign_Indexed_Subp := Subp; |