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
Arnaud Charlet
parent
d5c1a5f179
commit
1b1d88b1ac
|
|
@ -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>
|
2015-10-20 Ed Schonberg <schonberg@adacore.com>
|
||||||
|
|
||||||
* sem_ch11.adb (Analyze_Handled_Statements): If the scope is a
|
* sem_ch11.adb (Analyze_Handled_Statements): If the scope is a
|
||||||
|
|
|
||||||
|
|
@ -686,7 +686,7 @@ package body Clean is
|
||||||
Delete_File := False;
|
Delete_File := False;
|
||||||
|
|
||||||
if (Project.Library_Kind = Static
|
if (Project.Library_Kind = Static
|
||||||
and then Name (1 .. Last) = Archive_Name)
|
and then Name (1 .. Last) = Archive_Name)
|
||||||
or else
|
or else
|
||||||
((Project.Library_Kind = Dynamic
|
((Project.Library_Kind = Dynamic
|
||||||
or else
|
or else
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- 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 --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
||||||
|
|
@ -6275,7 +6275,7 @@ package body Exp_Ch4 is
|
||||||
N_Procedure_Call_Statement)
|
N_Procedure_Call_Statement)
|
||||||
or else (Nkind (Parnt) = N_Parameter_Association
|
or else (Nkind (Parnt) = N_Parameter_Association
|
||||||
and then
|
and then
|
||||||
Nkind (Parent (Parnt)) = N_Procedure_Call_Statement)
|
Nkind (Parent (Parnt)) = N_Procedure_Call_Statement)
|
||||||
then
|
then
|
||||||
return;
|
return;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- 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 --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- 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 --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
@ -517,7 +517,7 @@ package body Exp_Tss is
|
||||||
else
|
else
|
||||||
Elmt := First_Elmt (TSS_Elist (FN));
|
Elmt := First_Elmt (TSS_Elist (FN));
|
||||||
while Present (Elmt) loop
|
while Present (Elmt) loop
|
||||||
if Chars (Node (Elmt)) = Nam then
|
if Chars (Node (Elmt)) = Nam then
|
||||||
Subp := Node (Elmt);
|
Subp := Node (Elmt);
|
||||||
|
|
||||||
-- For stream subprograms, the TSS entity may be a renaming-
|
-- For stream subprograms, the TSS entity may be a renaming-
|
||||||
|
|
|
||||||
|
|
@ -581,7 +581,7 @@ package body Freeze is
|
||||||
-- the body is analyzed when the renamed entity is frozen, it may
|
-- the body is analyzed when the renamed entity is frozen, it may
|
||||||
-- be necessary to restore the proper scope (see package Exp_Ch13).
|
-- 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))
|
and then Present (Corresponding_Spec (N))
|
||||||
then
|
then
|
||||||
Set_Corresponding_Spec (Body_Node, Corresponding_Spec (N));
|
Set_Corresponding_Spec (Body_Node, Corresponding_Spec (N));
|
||||||
|
|
|
||||||
|
|
@ -376,7 +376,7 @@ procedure Gnatlink is
|
||||||
new String'(Arg);
|
new String'(Arg);
|
||||||
|
|
||||||
elsif Arg'Length /= 0 and then Arg (1) = '-' then
|
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
|
Exit_With_Error
|
||||||
("invalid switch: """ & Arg & """ (gnat not needed here)");
|
("invalid switch: """ & Arg & """ (gnat not needed here)");
|
||||||
end if;
|
end if;
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- 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 --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
@ -1816,7 +1816,7 @@ package body MLib.Prj is
|
||||||
Delete := False;
|
Delete := False;
|
||||||
|
|
||||||
if (The_Build_Mode = Static
|
if (The_Build_Mode = Static
|
||||||
and then Name (1 .. Last) = Archive_Name)
|
and then Name (1 .. Last) = Archive_Name)
|
||||||
or else
|
or else
|
||||||
((The_Build_Mode = Dynamic
|
((The_Build_Mode = Dynamic
|
||||||
or else
|
or else
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- 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 --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- 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 --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
||||||
|
|
@ -1107,7 +1107,7 @@ package body Rtsfind is
|
||||||
begin
|
begin
|
||||||
Clause := U.First_Implicit_With;
|
Clause := U.First_Implicit_With;
|
||||||
while Present (Clause) loop
|
while Present (Clause) loop
|
||||||
if Parent (Clause) = Cunit (Current_Sem_Unit) then
|
if Parent (Clause) = Cunit (Current_Sem_Unit) then
|
||||||
return;
|
return;
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- 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 --
|
-- 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- --
|
-- 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
|
-- 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;
|
Freed := LRU_Head;
|
||||||
|
|
||||||
if Freed.Next /= null then
|
if Freed.Next /= null then
|
||||||
|
|
|
||||||
|
|
@ -4416,7 +4416,7 @@ package body Sem_Aggr is
|
||||||
-- have already been inserted into the component
|
-- have already been inserted into the component
|
||||||
-- list of the current aggregate.
|
-- 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 (Component_List (Def_Node))
|
||||||
and then
|
and then
|
||||||
Present
|
Present
|
||||||
|
|
|
||||||
|
|
@ -3865,7 +3865,7 @@ package body Sem_Attr is
|
||||||
Check_E0;
|
Check_E0;
|
||||||
Analyze (P);
|
Analyze (P);
|
||||||
|
|
||||||
if Etype (P) = Standard_Exception_Type then
|
if Etype (P) = Standard_Exception_Type then
|
||||||
Set_Etype (N, RTE (RE_Exception_Id));
|
Set_Etype (N, RTE (RE_Exception_Id));
|
||||||
|
|
||||||
-- Ada 2005 (AI-345): Attribute 'Identity may be applied to task
|
-- Ada 2005 (AI-345): Attribute 'Identity may be applied to task
|
||||||
|
|
|
||||||
|
|
@ -10009,7 +10009,7 @@ package body Sem_Ch6 is
|
||||||
function Is_Class_Wide_Default (D : Node_Id) return Boolean is
|
function Is_Class_Wide_Default (D : Node_Id) return Boolean is
|
||||||
begin
|
begin
|
||||||
return Is_Class_Wide_Type (Designated_Type (Etype (D)))
|
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 Attribute_Name (D) = Name_Access
|
||||||
and then Is_Class_Wide_Type (Etype (Prefix (D))));
|
and then Is_Class_Wide_Type (Etype (Prefix (D))));
|
||||||
end Is_Class_Wide_Default;
|
end Is_Class_Wide_Default;
|
||||||
|
|
|
||||||
|
|
@ -9014,7 +9014,7 @@ package body Sem_Ch8 is
|
||||||
|
|
||||||
function Entity_Of_Unit (U : Node_Id) return Entity_Id is
|
function Entity_Of_Unit (U : Node_Id) return Entity_Id is
|
||||||
begin
|
begin
|
||||||
if Nkind (U) = N_Package_Instantiation
|
if Nkind (U) = N_Package_Instantiation
|
||||||
and then Analyzed (U)
|
and then Analyzed (U)
|
||||||
then
|
then
|
||||||
return Defining_Entity (Instance_Spec (U));
|
return Defining_Entity (Instance_Spec (U));
|
||||||
|
|
|
||||||
|
|
@ -1193,7 +1193,7 @@ package body Sem_Ch9 is
|
||||||
Tasking_Used := True;
|
Tasking_Used := True;
|
||||||
|
|
||||||
-- Entry_Name is initialized to Any_Id. It should get reset to the
|
-- 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;
|
Entry_Name := Any_Id;
|
||||||
|
|
||||||
|
|
@ -1311,7 +1311,7 @@ package body Sem_Ch9 is
|
||||||
-- The entity for the protected subprogram corresponding to the entry
|
-- The entity for the protected subprogram corresponding to the entry
|
||||||
-- has been created. We retain the name of this entity in 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.
|
-- 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
|
-- 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
|
-- the entry itself, which is why we must propagate some attributes
|
||||||
-- explicitly from spec to body.
|
-- 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
|
-- are no language-defined aspects that apply to a protected body, it is
|
||||||
-- not worth changing the whole expansion to accomodate implementation-
|
-- not worth changing the whole expansion to accomodate implementation-
|
||||||
-- defined aspects. Plus we cannot possibly known the semantics of such
|
-- 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
|
if Has_Aspects (N) then
|
||||||
Error_Msg_N
|
Error_Msg_N
|
||||||
|
|
|
||||||
|
|
@ -5434,7 +5434,7 @@ package body Sem_Eval is
|
||||||
-- Case where call to predicate function appears on its own (this means
|
-- Case where call to predicate function appears on its own (this means
|
||||||
-- that the predicate at this level is just inherited from the parent).
|
-- 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
|
declare
|
||||||
Typ : constant Entity_Id :=
|
Typ : constant Entity_Id :=
|
||||||
Etype (First_Formal (Entity (Name (Expr))));
|
Etype (First_Formal (Entity (Name (Expr))));
|
||||||
|
|
|
||||||
|
|
@ -1676,39 +1676,39 @@ package body Sem_Res is
|
||||||
-- Use CASE statement or array???
|
-- Use CASE statement or array???
|
||||||
|
|
||||||
if Is_Binary then
|
if Is_Binary then
|
||||||
if Op_Name = Name_Op_And then
|
if Op_Name = Name_Op_And then
|
||||||
Kind := N_Op_And;
|
Kind := N_Op_And;
|
||||||
elsif Op_Name = Name_Op_Or then
|
elsif Op_Name = Name_Op_Or then
|
||||||
Kind := N_Op_Or;
|
Kind := N_Op_Or;
|
||||||
elsif Op_Name = Name_Op_Xor then
|
elsif Op_Name = Name_Op_Xor then
|
||||||
Kind := N_Op_Xor;
|
Kind := N_Op_Xor;
|
||||||
elsif Op_Name = Name_Op_Eq then
|
elsif Op_Name = Name_Op_Eq then
|
||||||
Kind := N_Op_Eq;
|
Kind := N_Op_Eq;
|
||||||
elsif Op_Name = Name_Op_Ne then
|
elsif Op_Name = Name_Op_Ne then
|
||||||
Kind := N_Op_Ne;
|
Kind := N_Op_Ne;
|
||||||
elsif Op_Name = Name_Op_Lt then
|
elsif Op_Name = Name_Op_Lt then
|
||||||
Kind := N_Op_Lt;
|
Kind := N_Op_Lt;
|
||||||
elsif Op_Name = Name_Op_Le then
|
elsif Op_Name = Name_Op_Le then
|
||||||
Kind := N_Op_Le;
|
Kind := N_Op_Le;
|
||||||
elsif Op_Name = Name_Op_Gt then
|
elsif Op_Name = Name_Op_Gt then
|
||||||
Kind := N_Op_Gt;
|
Kind := N_Op_Gt;
|
||||||
elsif Op_Name = Name_Op_Ge then
|
elsif Op_Name = Name_Op_Ge then
|
||||||
Kind := N_Op_Ge;
|
Kind := N_Op_Ge;
|
||||||
elsif Op_Name = Name_Op_Add then
|
elsif Op_Name = Name_Op_Add then
|
||||||
Kind := N_Op_Add;
|
Kind := N_Op_Add;
|
||||||
elsif Op_Name = Name_Op_Subtract then
|
elsif Op_Name = Name_Op_Subtract then
|
||||||
Kind := N_Op_Subtract;
|
Kind := N_Op_Subtract;
|
||||||
elsif Op_Name = Name_Op_Concat then
|
elsif Op_Name = Name_Op_Concat then
|
||||||
Kind := N_Op_Concat;
|
Kind := N_Op_Concat;
|
||||||
elsif Op_Name = Name_Op_Multiply then
|
elsif Op_Name = Name_Op_Multiply then
|
||||||
Kind := N_Op_Multiply;
|
Kind := N_Op_Multiply;
|
||||||
elsif Op_Name = Name_Op_Divide then
|
elsif Op_Name = Name_Op_Divide then
|
||||||
Kind := N_Op_Divide;
|
Kind := N_Op_Divide;
|
||||||
elsif Op_Name = Name_Op_Mod then
|
elsif Op_Name = Name_Op_Mod then
|
||||||
Kind := N_Op_Mod;
|
Kind := N_Op_Mod;
|
||||||
elsif Op_Name = Name_Op_Rem then
|
elsif Op_Name = Name_Op_Rem then
|
||||||
Kind := N_Op_Rem;
|
Kind := N_Op_Rem;
|
||||||
elsif Op_Name = Name_Op_Expon then
|
elsif Op_Name = Name_Op_Expon then
|
||||||
Kind := N_Op_Expon;
|
Kind := N_Op_Expon;
|
||||||
else
|
else
|
||||||
raise Program_Error;
|
raise Program_Error;
|
||||||
|
|
@ -1717,13 +1717,13 @@ package body Sem_Res is
|
||||||
-- Unary operators
|
-- Unary operators
|
||||||
|
|
||||||
else
|
else
|
||||||
if Op_Name = Name_Op_Add then
|
if Op_Name = Name_Op_Add then
|
||||||
Kind := N_Op_Plus;
|
Kind := N_Op_Plus;
|
||||||
elsif Op_Name = Name_Op_Subtract then
|
elsif Op_Name = Name_Op_Subtract then
|
||||||
Kind := N_Op_Minus;
|
Kind := N_Op_Minus;
|
||||||
elsif Op_Name = Name_Op_Abs then
|
elsif Op_Name = Name_Op_Abs then
|
||||||
Kind := N_Op_Abs;
|
Kind := N_Op_Abs;
|
||||||
elsif Op_Name = Name_Op_Not then
|
elsif Op_Name = Name_Op_Not then
|
||||||
Kind := N_Op_Not;
|
Kind := N_Op_Not;
|
||||||
else
|
else
|
||||||
raise Program_Error;
|
raise Program_Error;
|
||||||
|
|
@ -9881,7 +9881,7 @@ package body Sem_Res is
|
||||||
-- appearing within a variant.
|
-- appearing within a variant.
|
||||||
|
|
||||||
if Has_Discriminants (T)
|
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 Present (Original_Record_Component (Entity (S)))
|
||||||
and then Ekind (Original_Record_Component (Entity (S))) = E_Component
|
and then Ekind (Original_Record_Component (Entity (S))) = E_Component
|
||||||
and then
|
and then
|
||||||
|
|
|
||||||
|
|
@ -12655,7 +12655,7 @@ package body Sem_Util is
|
||||||
-- occurrence of 'Old in that operand is potentially unevaluated.
|
-- occurrence of 'Old in that operand is potentially unevaluated.
|
||||||
-- See Sem_ch13.adb for details of this transformation.
|
-- 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;
|
return True;
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
|
|
@ -14851,7 +14851,7 @@ package body Sem_Util is
|
||||||
and then Present (Next_Named_Actual (Old_E))
|
and then Present (Next_Named_Actual (Old_E))
|
||||||
then
|
then
|
||||||
if First_Named_Actual (Old_Node)
|
if First_Named_Actual (Old_Node)
|
||||||
= Explicit_Actual_Parameter (Old_E)
|
= Explicit_Actual_Parameter (Old_E)
|
||||||
then
|
then
|
||||||
Set_First_Named_Actual
|
Set_First_Named_Actual
|
||||||
(New_Node, Explicit_Actual_Parameter (New_E));
|
(New_Node, Explicit_Actual_Parameter (New_E));
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue