Commit 1adfc03b by Robert Dewar Committed by Arnaud Charlet

exp_ch9.adb: Minor reformatting

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

	* exp_ch9.adb: Minor reformatting

From-SVN: r138328
parent 35596784
...@@ -1661,26 +1661,26 @@ package body Exp_Ch9 is ...@@ -1661,26 +1661,26 @@ package body Exp_Ch9 is
if Ekind (Subp_Id) = E_Function then if Ekind (Subp_Id) = E_Function then
return return
Make_Subprogram_Body (Loc, Make_Subprogram_Body (Loc,
Specification => Body_Spec, Specification => Body_Spec,
Declarations => Empty_List, Declarations => Empty_List,
Handled_Statement_Sequence => Handled_Statement_Sequence =>
Make_Handled_Sequence_Of_Statements (Loc, Make_Handled_Sequence_Of_Statements (Loc,
Statements => New_List ( Statements => New_List (
Make_Simple_Return_Statement (Loc, Make_Simple_Return_Statement (Loc,
Make_Function_Call (Loc, Make_Function_Call (Loc,
Name => Nam, Name => Nam,
Parameter_Associations => Actuals))))); Parameter_Associations => Actuals)))));
else else
return return
Make_Subprogram_Body (Loc, Make_Subprogram_Body (Loc,
Specification => Body_Spec, Specification => Body_Spec,
Declarations => Empty_List, Declarations => Empty_List,
Handled_Statement_Sequence => Handled_Statement_Sequence =>
Make_Handled_Sequence_Of_Statements (Loc, Make_Handled_Sequence_Of_Statements (Loc,
Statements => New_List ( Statements => New_List (
Make_Procedure_Call_Statement (Loc, Make_Procedure_Call_Statement (Loc,
Name => Nam, Name => Nam,
Parameter_Associations => Actuals)))); Parameter_Associations => Actuals))));
end if; end if;
end; end;
...@@ -1860,11 +1860,10 @@ package body Exp_Ch9 is ...@@ -1860,11 +1860,10 @@ package body Exp_Ch9 is
declare declare
Obj_Param : constant Node_Id := Obj_Param : constant Node_Id :=
First (Parameter_Specifications (Iface_Op_Spec)); First (Parameter_Specifications (Iface_Op_Spec));
begin begin
if not Out_Present (Obj_Param) if not Out_Present (Obj_Param)
and then Nkind (Parameter_Type (Obj_Param)) /= and then Nkind (Parameter_Type (Obj_Param)) /=
N_Access_Definition N_Access_Definition
then then
return False; return False;
end if; end if;
...@@ -2044,10 +2043,11 @@ package body Exp_Ch9 is ...@@ -2044,10 +2043,11 @@ package body Exp_Ch9 is
Obj_Param := Obj_Param :=
Make_Parameter_Specification (Loc, Make_Parameter_Specification (Loc,
Defining_Identifier => Defining_Identifier =>
Make_Defining_Identifier (Loc, Name_uO), Make_Defining_Identifier (Loc,
In_Present => In_Present (First_Param), Chars => Name_uO),
Out_Present => Out_Present (First_Param), In_Present => In_Present (First_Param),
Parameter_Type => Obj_Param_Typ); Out_Present => Out_Present (First_Param),
Parameter_Type => Obj_Param_Typ);
-- If we are dealing with a primitive declared between two views, -- If we are dealing with a primitive declared between two views,
-- create a default parameter. -- create a default parameter.
...@@ -2069,14 +2069,14 @@ package body Exp_Ch9 is ...@@ -2069,14 +2069,14 @@ package body Exp_Ch9 is
if Ekind (Subp_Id) = E_Function then if Ekind (Subp_Id) = E_Function then
return return
Make_Function_Specification (Loc, Make_Function_Specification (Loc,
Defining_Unit_Name => Wrapper_Id, Defining_Unit_Name => Wrapper_Id,
Parameter_Specifications => New_Formals, Parameter_Specifications => New_Formals,
Result_Definition => Result_Definition =>
New_Copy (Result_Definition (Parent (Subp_Id)))); New_Copy (Result_Definition (Parent (Subp_Id))));
else else
return return
Make_Procedure_Specification (Loc, Make_Procedure_Specification (Loc,
Defining_Unit_Name => Wrapper_Id, Defining_Unit_Name => Wrapper_Id,
Parameter_Specifications => New_Formals); Parameter_Specifications => New_Formals);
end if; end if;
end; end;
...@@ -11385,7 +11385,7 @@ package body Exp_Ch9 is ...@@ -11385,7 +11385,7 @@ package body Exp_Ch9 is
begin begin
return return
(Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure) (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; end Is_Private_Primitive_Subprogram;
------------------ ------------------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment