diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index acfc2e48103..3e0d760a659 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,13 @@ +2015-10-20 Arnaud Charlet + + * s-valllu.adb, sem_ch3.adb, layout.adb, a-crbtgo.adb, exp_ch9.adb, + make.adb, g-diopit.adb, s-valuns.adb, sem_ch9.adb, sem_ch10.adb, + sem_ch12.adb, a-tifiio.adb, g-dynhta.adb, uintp.adb, + sem_util.adb, sem_res.adb, s-htable.adb, exp_tss.adb, s-soflin.ads, + exp_ch6.adb, sem_ch6.adb, a-rbtgbo.adb, par-ch12.adb, sem_ch8.adb, + sem_eval.adb, mdll.adb, par-ch5.adb, s-poosiz.adb, sem_ch4.adb, + a-ngelfu.adb, s-taspri-solaris.ads, a-cforse.adb: Fix typos. + 2015-10-20 Arnaud Charlet * sem_aggr.adb, mlib-prj.adb, prep.adb, eval_fat.adb, rtsfind.adb, diff --git a/gcc/ada/a-cforse.adb b/gcc/ada/a-cforse.adb index 2b09018ab57..cf4e2ab1a36 100644 --- a/gcc/ada/a-cforse.adb +++ b/gcc/ada/a-cforse.adb @@ -584,7 +584,7 @@ is ------------------- function First_Element (Container : Set) return Element_Type is - Fst : constant Count_Type := First (Container).Node; + Fst : constant Count_Type := First (Container).Node; begin if Fst = 0 then raise Constraint_Error with "set is empty"; diff --git a/gcc/ada/a-crbtgo.adb b/gcc/ada/a-crbtgo.adb index bfc0bcf3a42..03079618792 100644 --- a/gcc/ada/a-crbtgo.adb +++ b/gcc/ada/a-crbtgo.adb @@ -157,7 +157,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Operations is and then Color (X) = Black loop if X = Left (Parent (X)) then - W := Right (Parent (X)); + W := Right (Parent (X)); if Color (W) = Red then Set_Color (W, Black); @@ -201,7 +201,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Operations is else pragma Assert (X = Right (Parent (X))); - W := Left (Parent (X)); + W := Left (Parent (X)); if Color (W) = Red then Set_Color (W, Black); diff --git a/gcc/ada/a-ngelfu.adb b/gcc/ada/a-ngelfu.adb index 7546f75ddb1..f17d92497ac 100644 --- a/gcc/ada/a-ngelfu.adb +++ b/gcc/ada/a-ngelfu.adb @@ -127,7 +127,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is then Int_Part := Integer (Float_Type'Base'Truncation (A_Right)); Result := Left ** Int_Part; - Rest := A_Right - Float_Type'Base (Int_Part); + Rest := A_Right - Float_Type'Base (Int_Part); -- Compute with two leading bits of the mantissa using -- square roots. Bound to be better than logarithms, and @@ -148,7 +148,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is Rest := Rest - 0.25; end if; - Result := Result * + Result := Result * Float_Type'Base (Aux.Pow (Double (Left), Double (Rest))); if Right >= 0.0 then diff --git a/gcc/ada/a-rbtgbo.adb b/gcc/ada/a-rbtgbo.adb index b75974065d2..0ef7b02dafe 100644 --- a/gcc/ada/a-rbtgbo.adb +++ b/gcc/ada/a-rbtgbo.adb @@ -88,7 +88,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is X := Node; while X /= Tree.Root and then Color (N (X)) = Black loop if X = Left (N (Parent (N (X)))) then - W := Right (N (Parent (N (X)))); + W := Right (N (Parent (N (X)))); if Color (N (W)) = Red then Set_Color (N (W), Black); @@ -132,7 +132,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is else pragma Assert (X = Right (N (Parent (N (X))))); - W := Left (N (Parent (N (X)))); + W := Left (N (Parent (N (X)))); if Color (N (W)) = Red then Set_Color (N (W), Black); diff --git a/gcc/ada/a-tifiio.adb b/gcc/ada/a-tifiio.adb index ff4bb2c4e18..2fd8b5421f2 100644 --- a/gcc/ada/a-tifiio.adb +++ b/gcc/ada/a-tifiio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -231,7 +231,7 @@ package body Ada.Text_IO.Fixed_IO is -- The final expression for D is - -- D := Integer'Max (-18, Integer'Min (Aft, 18 - (Fore - 1))); + -- D := Integer'Max (-18, Integer'Min (Aft, 18 - (Fore - 1))); -- For Y and Z the following expressions can be derived: diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 792208a3806..80a7e0d9dde 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -1266,7 +1266,7 @@ package body Exp_Ch6 is Reset_Analyzed_Flags (Lhs); else - Lhs := New_Occurrence_Of (Var, Loc); + Lhs := New_Occurrence_Of (Var, Loc); end if; Set_Assignment_OK (Lhs); @@ -5649,7 +5649,7 @@ package body Exp_Ch6 is declare Decls : List_Id; - Obj_Ptr : constant Entity_Id := Make_Temporary (Loc, 'T'); + Obj_Ptr : constant Entity_Id := Make_Temporary (Loc, 'T'); begin Decls := New_List ( diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index b0bf000b936..05b35309553 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -7674,7 +7674,7 @@ package body Exp_Ch9 is -- Create the inner block to protect the abortable part - Hdle := New_List (Build_Abort_Block_Handler (Loc)); + Hdle := New_List (Build_Abort_Block_Handler (Loc)); Prepend_To (Astats, Make_Procedure_Call_Statement (Loc, diff --git a/gcc/ada/exp_tss.adb b/gcc/ada/exp_tss.adb index 94c15dfb2e1..5bcccbb0a59 100644 --- a/gcc/ada/exp_tss.adb +++ b/gcc/ada/exp_tss.adb @@ -152,7 +152,7 @@ package body Exp_Tss is begin loop Btyp := Base_Type (Btyp); - Proc := TSS (Btyp, Nam); + Proc := TSS (Btyp, Nam); exit when Present (Proc) or else not Is_Derived_Type (Btyp); diff --git a/gcc/ada/g-diopit.adb b/gcc/ada/g-diopit.adb index 3538deb2fff..dabea22616f 100644 --- a/gcc/ada/g-diopit.adb +++ b/gcc/ada/g-diopit.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2010, AdaCore -- +-- Copyright (C) 2001-2015, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -221,8 +221,8 @@ package body GNAT.Directory_Operations.Iteration is then -- Starting with ":\" - DS := Strings.Fixed.Index - (SP (SP'First + 3 .. SP'Last), Dir_Seps); + DS := Strings.Fixed.Index + (SP (SP'First + 3 .. SP'Last), Dir_Seps); if DS = 0 then diff --git a/gcc/ada/g-dynhta.adb b/gcc/ada/g-dynhta.adb index 929191d24aa..449ac17dec4 100644 --- a/gcc/ada/g-dynhta.adb +++ b/gcc/ada/g-dynhta.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2014, AdaCore -- +-- Copyright (C) 2002-2015, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -157,7 +157,7 @@ package body GNAT.Dynamic_HTables is else loop - Next_Elmt := Next (Elmt); + Next_Elmt := Next (Elmt); if Next_Elmt = Null_Ptr then return; diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index ecdbbacd0db..c8d7ed7f6c7 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -2430,7 +2430,7 @@ package body Layout is -- represents them the same way. if Is_Access_Type (E) then - Desig_Type := Underlying_Type (Designated_Type (E)); + Desig_Type := Underlying_Type (Designated_Type (E)); -- If we only have a limited view of the type, see whether the -- non-limited view is available. diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 8fbca9df2b8..f3ac043a7ac 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -6953,7 +6953,7 @@ package body Make is Get_Name_String (ALI_File); Link_Args (1) := new String'(Name_Buffer (1 .. Name_Len)); - Link_Args (2 .. Args'Length + 1) := Args; + Link_Args (2 .. Args'Length + 1) := Args; GNAT.OS_Lib.Normalize_Arguments (Link_Args); diff --git a/gcc/ada/mdll.adb b/gcc/ada/mdll.adb index e6eb5e936a3..03e3573aaca 100644 --- a/gcc/ada/mdll.adb +++ b/gcc/ada/mdll.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -326,7 +326,7 @@ package body MDLL is Adr_Opt'Unchecked_Access & All_Options; begin if Map_File then - Params := Map_Opt'Unchecked_Access & Params; + Params := Map_Opt'Unchecked_Access & Params; end if; Utl.Gcc (Output_File => Dll_File, diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb index a103d96032b..cd1f91a0788 100644 --- a/gcc/ada/par-ch12.adb +++ b/gcc/ada/par-ch12.adb @@ -726,7 +726,7 @@ package body Ch12 is when Tok_Not => if P_Null_Exclusion then - Typedef_Node := P_Access_Type_Definition; + Typedef_Node := P_Access_Type_Definition; Set_Null_Exclusion_Present (Typedef_Node); return Typedef_Node; diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index 7b1bc44f39d..a7d0e5a3d7b 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1729,7 +1729,7 @@ package body Ch5 is Node1 : Node_Id; begin - Node1 := New_Node (N_Iterator_Specification, Sloc (Def_Id)); + Node1 := New_Node (N_Iterator_Specification, Sloc (Def_Id)); Set_Defining_Identifier (Node1, Def_Id); if Token = Tok_Colon then diff --git a/gcc/ada/s-htable.adb b/gcc/ada/s-htable.adb index 53302739457..2d6a3c6f477 100644 --- a/gcc/ada/s-htable.adb +++ b/gcc/ada/s-htable.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1995-2013, AdaCore -- +-- Copyright (C) 1995-2015, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -149,7 +149,7 @@ package body System.HTable is else loop - Next_Elmt := Next (Elmt); + Next_Elmt := Next (Elmt); if Next_Elmt = Null_Ptr then return; diff --git a/gcc/ada/s-poosiz.adb b/gcc/ada/s-poosiz.adb index c2dd03bf5d4..683f32e315d 100644 --- a/gcc/ada/s-poosiz.adb +++ b/gcc/ada/s-poosiz.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -51,7 +51,7 @@ package body System.Pool_Size is function To_Storage_Count_Access is new Ada.Unchecked_Conversion (Address, Storage_Count_Access); - SC_Size : constant := SSE.Storage_Count'Object_Size / System.Storage_Unit; + SC_Size : constant := SSE.Storage_Count'Object_Size / System.Storage_Unit; package Variable_Size_Management is diff --git a/gcc/ada/s-soflin.ads b/gcc/ada/s-soflin.ads index cba89366014..35dc9628b98 100644 --- a/gcc/ada/s-soflin.ads +++ b/gcc/ada/s-soflin.ads @@ -254,9 +254,9 @@ package System.Soft_Links is procedure Enter_Master_NT; procedure Complete_Master_NT; - Current_Master : Get_Integer_Call := Current_Master_NT'Access; - Enter_Master : No_Param_Proc := Enter_Master_NT'Access; - Complete_Master : No_Param_Proc := Complete_Master_NT'Access; + Current_Master : Get_Integer_Call := Current_Master_NT'Access; + Enter_Master : No_Param_Proc := Enter_Master_NT'Access; + Complete_Master : No_Param_Proc := Complete_Master_NT'Access; ---------------------- -- Delay Soft-Links -- diff --git a/gcc/ada/s-taspri-solaris.ads b/gcc/ada/s-taspri-solaris.ads index 93c520da02a..e06d4d4dbbe 100644 --- a/gcc/ada/s-taspri-solaris.ads +++ b/gcc/ada/s-taspri-solaris.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -94,7 +94,7 @@ private type Lock is record L : aliased Base_Lock; Ceiling : System.Any_Priority := System.Any_Priority'First; - Saved_Priority : System.Any_Priority := System.Any_Priority'First; + Saved_Priority : System.Any_Priority := System.Any_Priority'First; Owner : Owner_ID; Next : Lock_Ptr; Level : Private_Task_Serial_Number := 0; diff --git a/gcc/ada/s-valllu.adb b/gcc/ada/s-valllu.adb index a641be31959..44dbff7c3df 100644 --- a/gcc/ada/s-valllu.adb +++ b/gcc/ada/s-valllu.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -142,7 +142,7 @@ package body System.Val_LLU is if Base not in 2 .. 16 then Overflow := True; - Base := 16; + Base := 16; end if; -- Scan out based integer diff --git a/gcc/ada/s-valuns.adb b/gcc/ada/s-valuns.adb index b679807803f..009d0bc88c1 100644 --- a/gcc/ada/s-valuns.adb +++ b/gcc/ada/s-valuns.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -142,7 +142,7 @@ package body System.Val_Uns is if Base not in 2 .. 16 then Overflow := True; - Base := 16; + Base := 16; end if; -- Scan out based integer diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 55456e6996f..bae9762f718 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -3127,7 +3127,7 @@ package body Sem_Ch10 is -- visible, so analyze the declaration for B now, in case it -- has not been done yet. - Ent := Entity (Selector_Name (Nam)); + Ent := Entity (Selector_Name (Nam)); Analyze (Parent (Unit_Declaration_Node (Entity (Selector_Name (Nam))))); diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index da3bd903bd3..41e90071a4d 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -1235,7 +1235,7 @@ package body Sem_Ch12 is elsif No (Selector_Name (Actual)) then Found_Assoc := Actual; - Act := Explicit_Generic_Actual_Parameter (Actual); + Act := Explicit_Generic_Actual_Parameter (Actual); Num_Matched := Num_Matched + 1; Next (Actual); @@ -1254,7 +1254,7 @@ package body Sem_Ch12 is Set_Etype (Selector_Name (Actual), Etype (A_F)); Generate_Reference (A_F, Selector_Name (Actual)); Found_Assoc := Actual; - Act := Explicit_Generic_Actual_Parameter (Actual); + Act := Explicit_Generic_Actual_Parameter (Actual); Num_Matched := Num_Matched + 1; exit; end if; @@ -3600,7 +3600,7 @@ package body Sem_Ch12 is New_Copy_Tree (Name (Defining_Unit_Name (N))), Defining_Identifier => Act_Decl_Id); else - Act_Decl_Name := Act_Decl_Id; + Act_Decl_Name := Act_Decl_Id; end if; -- Case of instantiation of a formal package @@ -10882,7 +10882,7 @@ package body Sem_Ch12 is Name => New_Copy_Tree (Name (Defining_Unit_Name (Act_Spec))), Defining_Identifier => Act_Body_Id); else - Act_Body_Name := Act_Body_Id; + Act_Body_Name := Act_Body_Id; end if; Set_Defining_Unit_Name (Act_Body, Act_Body_Name); diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 22e7cbb9d12..ea1640004ff 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -5935,7 +5935,7 @@ package body Sem_Ch3 is if ASIS_Mode then declare - Typ : constant Entity_Id := Make_Temporary (Loc, 'S'); + Typ : constant Entity_Id := Make_Temporary (Loc, 'S'); begin if Nkind (Spec) = N_Access_Function_Definition then @@ -18369,7 +18369,7 @@ package body Sem_Ch3 is -- The index is given by a subtype with a range constraint - T := Base_Type (Entity (Subtype_Mark (N))); + T := Base_Type (Entity (Subtype_Mark (N))); if not Is_Discrete_Type (T) then Error_Msg_N ("discrete type required for range", N); @@ -21547,7 +21547,7 @@ package body Sem_Ch3 is R : Node_Id; Subt : Entity_Id) is - Kind : constant Entity_Kind := Ekind (Def_Id); + Kind : constant Entity_Kind := Ekind (Def_Id); begin -- Defend against previous error diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index fe677541eb1..b01640d3dcf 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -7878,7 +7878,7 @@ package body Sem_Ch4 is -- Before analysis, a function call appears as an indexed component -- if there are no named associations. - elsif Nkind (Parent_Node) = N_Indexed_Component + elsif Nkind (Parent_Node) = N_Indexed_Component and then N = Prefix (Parent_Node) then Node_To_Replace := Parent_Node; diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 455d7023e89..c03269360bf 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -10361,7 +10361,7 @@ package body Sem_Ch6 is Set_Default_Value (Formal, Expression (Param_Spec)); if Present (Expression (Param_Spec)) then - Default := Expression (Param_Spec); + Default := Expression (Param_Spec); if Is_Scalar_Type (Etype (Default)) then if Nkind (Parameter_Type (Param_Spec)) /= diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 290d933bdf0..18023c152ae 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -9214,7 +9214,7 @@ package body Sem_Ch8 is S : Entity_Id; begin for J in reverse 1 .. Scope_Stack.Last loop - S := Scope_Stack.Table (J).Entity; + S := Scope_Stack.Table (J).Entity; Write_Int (Int (S)); Write_Str (" === "); Write_Name (Chars (S)); diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index 1f00ea776c1..728d17d5563 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -781,7 +781,7 @@ package body Sem_Ch9 is for J in reverse 0 .. Scope_Stack.Last loop Task_Nam := Scope_Stack.Table (J).Entity; exit when Ekind (Etype (Task_Nam)) = E_Task_Type; - Kind := Ekind (Task_Nam); + Kind := Ekind (Task_Nam); if Kind /= E_Block and then Kind /= E_Loop and then not Is_Entry (Task_Nam) diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index f8420d4ad74..28acbf06b4c 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -2220,7 +2220,7 @@ package body Sem_Eval is -- case of a concatenation of a series of string literals. if Nkind (Left_Str) = N_String_Literal then - Left_Len := String_Length (Strval (Left_Str)); + Left_Len := String_Length (Strval (Left_Str)); -- If the left operand is the empty string, and the right operand -- is a string literal (the case of "" & "..."), the result is the diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 67278efa456..a96f1d1657a 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -7395,7 +7395,7 @@ package body Sem_Res is declare Pref : constant Node_Id := Prefix (Entry_Name); - Ent : constant Entity_Id := Entity (Selector_Name (Entry_Name)); + Ent : constant Entity_Id := Entity (Selector_Name (Entry_Name)); I : Interp_Index; It : Interp; @@ -7418,7 +7418,7 @@ package body Sem_Res is else pragma Assert (Nkind (Entry_Name) = N_Indexed_Component); Nam := Entity (Selector_Name (Prefix (Entry_Name))); Resolve (Prefix (Prefix (Entry_Name))); - Index := First (Expressions (Entry_Name)); + Index := First (Expressions (Entry_Name)); Resolve (Index, Entry_Index_Type (Nam)); -- Up to this point the expression could have been the actual in a @@ -12049,7 +12049,7 @@ package body Sem_Res is if Present (It.Typ) then N1 := It1.Nam; T1 := It1.Typ; - It1 := Disambiguate (Operand, I1, I, Any_Type); + It1 := Disambiguate (Operand, I1, I, Any_Type); if It1 = No_Interp then Conversion_Error_N diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 162e2bbfb7e..152be0282b5 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -1129,7 +1129,7 @@ package body Sem_Util is D := First_Elmt (Discriminant_Constraint (Desig_Typ)); while Present (D) loop if Denotes_Discriminant (Node (D)) then - D_Val := Make_Selected_Component (Loc, + D_Val := Make_Selected_Component (Loc, Prefix => New_Copy_Tree (P), Selector_Name => New_Occurrence_Of (Entity (Node (D)), Loc)); @@ -7507,7 +7507,7 @@ package body Sem_Util is ("Operation First for iterable type must be unique", Aspect); return Any_Type; else - Cursor := Etype (Func); + Cursor := Etype (Func); end if; end if; diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index 7a554392a79..948c521b22e 100644 --- a/gcc/ada/uintp.adb +++ b/gcc/ada/uintp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1586,7 +1586,7 @@ package body Uintp is -- Use prior single precision steps to compute this Euclid step -- For constructs such as: - -- sqrt_2: constant := 1.41421_35623_73095_04880_16887_24209_698; + -- sqrt_2: constant := 1.41421_35623_73095_04880_16887_24209_698; -- sqrt_eps: constant long_float := long_float( 1.0 / sqrt_2) -- ** long_float'machine_mantissa; --