FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

exp_ch9.adb: Minor reformatting

Browse source 
2008-07-30  Robert Dewar  <dewar@adacore.com>

	* exp_ch9.adb: Minor reformatting

From-SVN: r138328
This commit is contained in:
Robert Dewar 2008-07-30 19:38:04 +02:00 • committed by Arnaud Charlet
parent 35596784bc
commit 1adfc03bfe
1 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
gcc/ada/exp_ch9.adb
View file

@ -1661,26 +1661,26 @@ package body Exp_Ch9 is
if Ekind (Subp_Id) = E_Function then
return
Make_Subprogram_Body (Loc,
Specification => Body_Spec,
Declarations => Empty_List,
Specification => Body_Spec,
Declarations => Empty_List,
Handled_Statement_Sequence =>
Make_Handled_Sequence_Of_Statements (Loc,
Statements => New_List (
Make_Simple_Return_Statement (Loc,
Make_Function_Call (Loc,
Name => Nam,
Name => Nam,
Parameter_Associations => Actuals)))));
else
return
Make_Subprogram_Body (Loc,
Specification => Body_Spec,
Declarations => Empty_List,
Specification => Body_Spec,
Declarations => Empty_List,
Handled_Statement_Sequence =>
Make_Handled_Sequence_Of_Statements (Loc,
Statements => New_List (
Make_Procedure_Call_Statement (Loc,
Name => Nam,
Name => Nam,
Parameter_Associations => Actuals))));
end if;
end;
@ -1860,11 +1860,10 @@ package body Exp_Ch9 is
declare
Obj_Param : constant Node_Id :=
First (Parameter_Specifications (Iface_Op_Spec));
begin
if not Out_Present (Obj_Param)
and then Nkind (Parameter_Type (Obj_Param)) /=
N_Access_Definition
N_Access_Definition
then
return False;
end if;
@ -2044,10 +2043,11 @@ package body Exp_Ch9 is
Obj_Param :=
Make_Parameter_Specification (Loc,
Defining_Identifier =>
Make_Defining_Identifier (Loc, Name_uO),
In_Present => In_Present (First_Param),
Out_Present => Out_Present (First_Param),
Parameter_Type => Obj_Param_Typ);
Make_Defining_Identifier (Loc,
Chars => Name_uO),
In_Present => In_Present (First_Param),
Out_Present => Out_Present (First_Param),
Parameter_Type => Obj_Param_Typ);
-- If we are dealing with a primitive declared between two views,
-- create a default parameter.
@ -2069,14 +2069,14 @@ package body Exp_Ch9 is
if Ekind (Subp_Id) = E_Function then
return
Make_Function_Specification (Loc,
Defining_Unit_Name => Wrapper_Id,
Defining_Unit_Name => Wrapper_Id,
Parameter_Specifications => New_Formals,
Result_Definition =>
Result_Definition =>
New_Copy (Result_Definition (Parent (Subp_Id))));
else
return
Make_Procedure_Specification (Loc,
Defining_Unit_Name => Wrapper_Id,
Defining_Unit_Name => Wrapper_Id,
Parameter_Specifications => New_Formals);
end if;
end;
@ -11385,7 +11385,7 @@ package body Exp_Ch9 is
begin
return
(Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure)
and then Is_Private_Primitive (Id);
and then Is_Private_Primitive (Id);
end Is_Private_Primitive_Subprogram;
------------------