OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sem_aggr.adb, [...]: Fix typos. 

2015-10-20  Arnaud Charlet  <charlet@adacore.com>

	* sem_aggr.adb, mlib-prj.adb, prep.adb, eval_fat.adb, rtsfind.adb,
	freeze.adb, sem_util.adb, sem_res.adb, sem_attr.adb, gnatlink.adb,
	par-ch6.adb, exp_tss.adb, exp_ch4.adb, s-shasto.adb, exp_fixd.adb,
	sem_ch6.adb, clean.adb, sem_ch8.adb, sem_eval.adb, sem_ch9.adb: Fix
	typos.

From-SVN: r229074
This commit is contained in:
Arnaud Charlet 2015-10-20 12:37:13 +00:00 committed by Arnaud Charlet
parent d5c1a5f179
commit 1b1d88b1ac
21 changed files with 55 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/ChangeLog
View File

@ -1,3 +1,11 @@
2015-10-20 Arnaud Charlet <charlet@adacore.com>
* sem_aggr.adb, mlib-prj.adb, prep.adb, eval_fat.adb, rtsfind.adb,
freeze.adb, sem_util.adb, sem_res.adb, sem_attr.adb, gnatlink.adb,
par-ch6.adb, exp_tss.adb, exp_ch4.adb, s-shasto.adb, exp_fixd.adb,
sem_ch6.adb, clean.adb, sem_ch8.adb, sem_eval.adb, sem_ch9.adb: Fix
typos.
2015-10-20 Ed Schonberg <schonberg@adacore.com>
* sem_ch11.adb (Analyze_Handled_Statements): If the scope is a

2
gcc/ada/clean.adb
View File

@ -686,7 +686,7 @@ package body Clean is
Delete_File := False;
if (Project.Library_Kind = Static
and then Name (1 .. Last) = Archive_Name)
and then Name (1 .. Last) = Archive_Name)
or else
((Project.Library_Kind = Dynamic
or else

2
gcc/ada/eval_fat.adb
View File

@ -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- --

2
gcc/ada/exp_ch4.adb
View File

@ -6275,7 +6275,7 @@ package body Exp_Ch4 is
N_Procedure_Call_Statement)
or else (Nkind (Parnt) = N_Parameter_Association
and then
Nkind (Parent (Parnt)) = N_Procedure_Call_Statement)
Nkind (Parent (Parnt)) = N_Procedure_Call_Statement)
then
return;

2
gcc/ada/exp_fixd.adb
View File

@ -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- --

4
gcc/ada/exp_tss.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2013, 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- --
@ -517,7 +517,7 @@ package body Exp_Tss is
else
Elmt := First_Elmt (TSS_Elist (FN));
while Present (Elmt) loop
if Chars (Node (Elmt)) = Nam then
if Chars (Node (Elmt)) = Nam then
Subp := Node (Elmt);
-- For stream subprograms, the TSS entity may be a renaming-

2
gcc/ada/freeze.adb
View File

@ -581,7 +581,7 @@ package body Freeze is
-- the body is analyzed when the renamed entity is frozen, it may
-- be necessary to restore the proper scope (see package Exp_Ch13).
if Nkind (N) = N_Subprogram_Renaming_Declaration
if Nkind (N) = N_Subprogram_Renaming_Declaration
and then Present (Corresponding_Spec (N))
then
Set_Corresponding_Spec (Body_Node, Corresponding_Spec (N));

2
gcc/ada/gnatlink.adb
View File

@ -376,7 +376,7 @@ procedure Gnatlink is
new String'(Arg);
elsif Arg'Length /= 0 and then Arg (1) = '-' then
if Arg'Length > 4 and then Arg (2 .. 5) = "gnat" then
if Arg'Length > 4 and then Arg (2 .. 5) = "gnat" then
Exit_With_Error
("invalid switch: """ & Arg & """ (gnat not needed here)");
end if;

4
gcc/ada/mlib-prj.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2001-2014, 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- --
@ -1816,7 +1816,7 @@ package body MLib.Prj is
Delete := False;
if (The_Build_Mode = Static
and then Name (1 .. Last) = Archive_Name)
and then Name (1 .. Last) = Archive_Name)
or else
((The_Build_Mode = Dynamic
or else

2
gcc/ada/par-ch6.adb
View File

@ -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- --

2
gcc/ada/prep.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2013, Free Software Foundation, Inc. --
-- Copyright (C) 2002-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- --

2
gcc/ada/rtsfind.adb
View File

@ -1107,7 +1107,7 @@ package body Rtsfind is
begin
Clause := U.First_Implicit_With;
while Present (Clause) loop
if Parent (Clause) = Cunit (Current_Sem_Unit) then
if Parent (Clause) = Cunit (Current_Sem_Unit) then
return;
end if;

4
gcc/ada/s-shasto.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1998-2014, Free Software Foundation, Inc. --
-- Copyright (C) 1998-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- --
@ -201,7 +201,7 @@ package body System.Shared_Storage is
-- Release least recently used entry if we have to
if Shared_Var_Files_Open = Max_Shared_Var_Files then
if Shared_Var_Files_Open = Max_Shared_Var_Files then
Freed := LRU_Head;
if Freed.Next /= null then

2
gcc/ada/sem_aggr.adb
View File

@ -4416,7 +4416,7 @@ package body Sem_Aggr is
-- have already been inserted into the component
-- list of the current aggregate.
if Nkind (Def_Node) = N_Record_Definition
if Nkind (Def_Node) = N_Record_Definition
and then Present (Component_List (Def_Node))
and then
Present

2
gcc/ada/sem_attr.adb
View File

@ -3865,7 +3865,7 @@ package body Sem_Attr is
Check_E0;
Analyze (P);
if Etype (P) = Standard_Exception_Type then
if Etype (P) = Standard_Exception_Type then
Set_Etype (N, RTE (RE_Exception_Id));
-- Ada 2005 (AI-345): Attribute 'Identity may be applied to task

2
gcc/ada/sem_ch6.adb
View File

@ -10009,7 +10009,7 @@ package body Sem_Ch6 is
function Is_Class_Wide_Default (D : Node_Id) return Boolean is
begin
return Is_Class_Wide_Type (Designated_Type (Etype (D)))
or else (Nkind (D) = N_Attribute_Reference
or else (Nkind (D) = N_Attribute_Reference
and then Attribute_Name (D) = Name_Access
and then Is_Class_Wide_Type (Etype (Prefix (D))));
end Is_Class_Wide_Default;

2
gcc/ada/sem_ch8.adb
View File

@ -9014,7 +9014,7 @@ package body Sem_Ch8 is
function Entity_Of_Unit (U : Node_Id) return Entity_Id is
begin
if Nkind (U) = N_Package_Instantiation
if Nkind (U) = N_Package_Instantiation
and then Analyzed (U)
then
return Defining_Entity (Instance_Spec (U));

6
gcc/ada/sem_ch9.adb
View File

@ -1193,7 +1193,7 @@ package body Sem_Ch9 is
Tasking_Used := True;
-- Entry_Name is initialized to Any_Id. It should get reset to the
-- matching entry entity. An error is signalled if it is not reset
-- matching entry entity. An error is signalled if it is not reset.
Entry_Name := Any_Id;
@ -1311,7 +1311,7 @@ package body Sem_Ch9 is
-- The entity for the protected subprogram corresponding to the entry
-- has been created. We retain the name of this entity in the entry
-- body, for use when the corresponding subprogram body is created.
-- Note that entry bodies have no corresponding_spec, and there is no
-- Note that entry bodies have no Corresponding_Spec, and there is no
-- easy link back in the tree between the entry body and the entity for
-- the entry itself, which is why we must propagate some attributes
-- explicitly from spec to body.
@ -1738,7 +1738,7 @@ package body Sem_Ch9 is
-- are no language-defined aspects that apply to a protected body, it is
-- not worth changing the whole expansion to accomodate implementation-
-- defined aspects. Plus we cannot possibly known the semantics of such
-- future implementation defined aspects in order to plan ahead.
-- future implementation-defined aspects in order to plan ahead.
if Has_Aspects (N) then
Error_Msg_N

2
gcc/ada/sem_eval.adb
View File

@ -5434,7 +5434,7 @@ package body Sem_Eval is
-- Case where call to predicate function appears on its own (this means
-- that the predicate at this level is just inherited from the parent).
elsif Nkind (Expr) = N_Function_Call then
elsif Nkind (Expr) = N_Function_Call then
declare
Typ : constant Entity_Id :=
Etype (First_Formal (Entity (Name (Expr))));

44
gcc/ada/sem_res.adb
View File

@ -1676,39 +1676,39 @@ package body Sem_Res is
-- Use CASE statement or array???
if Is_Binary then
if Op_Name = Name_Op_And then
if Op_Name = Name_Op_And then
Kind := N_Op_And;
elsif Op_Name = Name_Op_Or then
elsif Op_Name = Name_Op_Or then
Kind := N_Op_Or;
elsif Op_Name = Name_Op_Xor then
elsif Op_Name = Name_Op_Xor then
Kind := N_Op_Xor;
elsif Op_Name = Name_Op_Eq then
elsif Op_Name = Name_Op_Eq then
Kind := N_Op_Eq;
elsif Op_Name = Name_Op_Ne then
elsif Op_Name = Name_Op_Ne then
Kind := N_Op_Ne;
elsif Op_Name = Name_Op_Lt then
elsif Op_Name = Name_Op_Lt then
Kind := N_Op_Lt;
elsif Op_Name = Name_Op_Le then
elsif Op_Name = Name_Op_Le then
Kind := N_Op_Le;
elsif Op_Name = Name_Op_Gt then
elsif Op_Name = Name_Op_Gt then
Kind := N_Op_Gt;
elsif Op_Name = Name_Op_Ge then
elsif Op_Name = Name_Op_Ge then
Kind := N_Op_Ge;
elsif Op_Name = Name_Op_Add then
elsif Op_Name = Name_Op_Add then
Kind := N_Op_Add;
elsif Op_Name = Name_Op_Subtract then
elsif Op_Name = Name_Op_Subtract then
Kind := N_Op_Subtract;
elsif Op_Name = Name_Op_Concat then
elsif Op_Name = Name_Op_Concat then
Kind := N_Op_Concat;
elsif Op_Name = Name_Op_Multiply then
elsif Op_Name = Name_Op_Multiply then
Kind := N_Op_Multiply;
elsif Op_Name = Name_Op_Divide then
elsif Op_Name = Name_Op_Divide then
Kind := N_Op_Divide;
elsif Op_Name = Name_Op_Mod then
elsif Op_Name = Name_Op_Mod then
Kind := N_Op_Mod;
elsif Op_Name = Name_Op_Rem then
elsif Op_Name = Name_Op_Rem then
Kind := N_Op_Rem;
elsif Op_Name = Name_Op_Expon then
elsif Op_Name = Name_Op_Expon then
Kind := N_Op_Expon;
else
raise Program_Error;
@ -1717,13 +1717,13 @@ package body Sem_Res is
-- Unary operators
else
if Op_Name = Name_Op_Add then
if Op_Name = Name_Op_Add then
Kind := N_Op_Plus;
elsif Op_Name = Name_Op_Subtract then
elsif Op_Name = Name_Op_Subtract then
Kind := N_Op_Minus;
elsif Op_Name = Name_Op_Abs then
elsif Op_Name = Name_Op_Abs then
Kind := N_Op_Abs;
elsif Op_Name = Name_Op_Not then
elsif Op_Name = Name_Op_Not then
Kind := N_Op_Not;
else
raise Program_Error;
@ -9881,7 +9881,7 @@ package body Sem_Res is
-- appearing within a variant.
if Has_Discriminants (T)
and then Ekind (Entity (S)) = E_Component
and then Ekind (Entity (S)) = E_Component
and then Present (Original_Record_Component (Entity (S)))
and then Ekind (Original_Record_Component (Entity (S))) = E_Component
and then

4
gcc/ada/sem_util.adb
View File

@ -12655,7 +12655,7 @@ package body Sem_Util is
-- occurrence of 'Old in that operand is potentially unevaluated.
-- See Sem_ch13.adb for details of this transformation.
if Nkind (Original_Node (Par)) = N_And_Then then
if Nkind (Original_Node (Par)) = N_And_Then then
return True;
end if;
@ -14851,7 +14851,7 @@ package body Sem_Util is
and then Present (Next_Named_Actual (Old_E))
then
if First_Named_Actual (Old_Node)
= Explicit_Actual_Parameter (Old_E)
= Explicit_Actual_Parameter (Old_E)
then
Set_First_Named_Actual
(New_Node, Explicit_Actual_Parameter (New_E));