diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-30 17:38:04 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-30 17:38:04 +0000 |
| commit | 3ade449624a7fdd7d370b608aca5107025f5b445 (patch) | |
| tree | f089af94a00b55cf9ca8006a95f1c3bbb64b429e /gcc/ada/exp_ch9.adb | |
| parent | 1f89f64b7814c1b520c300a11fefefd617c7f628 (diff) | |
| download | gcc-3ade449624a7fdd7d370b608aca5107025f5b445.tar.gz | |
2008-07-30 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138328 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index d040f00a6cf..574d01f0ac8 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -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; ------------------ |