diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-09 12:07:52 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-09 12:07:52 +0200 |
commit | 5042f726c5a4e41d6e52c7dcb21e31259342d311 (patch) | |
tree | 245afd36b7185db2fe04ff1a0b76ba89f389dffe /gcc/ada/exp_ch8.adb | |
parent | 3a89c57d9eceff3a49b1500a34d0c7fec32be089 (diff) | |
download | gcc-5042f726c5a4e41d6e52c7dcb21e31259342d311.zip gcc-5042f726c5a4e41d6e52c7dcb21e31259342d311.tar.gz gcc-5042f726c5a4e41d6e52c7dcb21e31259342d311.tar.bz2 |
[multiple changes]
2010-09-09 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Is_Progenitor): Relocated to sem_type.
(Replace_Type): Code cleanup.
* sem_type.ads, sem_type.adb (Is_Progenitor): Relocated from sem_ch3
2010-09-09 Thomas Quinot <quinot@adacore.com>
* exp_ch8.adb: Minor reformatting.
2010-09-09 Ed Schonberg <schonberg@adacore.com>
* exp_ch9.adb, einfo.adb, einfo.ads: New attribute
Corresponding_Protected_Entry.
From-SVN: r164065
Diffstat (limited to 'gcc/ada/exp_ch8.adb')
-rw-r--r-- | gcc/ada/exp_ch8.adb | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/gcc/ada/exp_ch8.adb b/gcc/ada/exp_ch8.adb index b81fb42..39c0fc6 100644 --- a/gcc/ada/exp_ch8.adb +++ b/gcc/ada/exp_ch8.adb @@ -358,7 +358,7 @@ package body Exp_Ch8 is end if; -- Check whether this is a renaming of a predefined equality on an - -- untagged record type (AI05-0123). + -- untagged record type (AI05-0123). if Is_Entity_Name (Nam) and then Chars (Entity (Nam)) = Name_Op_Eq @@ -370,9 +370,9 @@ package body Exp_Ch8 is Id : constant Entity_Id := Defining_Entity (N); Typ : constant Entity_Id := Etype (First_Formal (Id)); - Decl : Node_Id; - Body_Id : constant Entity_Id - := Make_Defining_Identifier (Sloc (N), Chars (Id)); + Decl : Node_Id; + Body_Id : constant Entity_Id := + Make_Defining_Identifier (Sloc (N), Chars (Id)); begin if Is_Record_Type (Typ) @@ -394,14 +394,15 @@ package body Exp_Ch8 is Set_Has_Delayed_Freeze (Id); Decl := Make_Subprogram_Body (Loc, - Specification => - Make_Function_Specification (Loc, - Defining_Unit_Name => Body_Id, - Parameter_Specifications => Copy_Parameter_List (Id), - Result_Definition => - New_Occurrence_Of (Standard_Boolean, Loc)), - Declarations => Empty_List, - Handled_Statement_Sequence => Empty); + Specification => + Make_Function_Specification (Loc, + Defining_Unit_Name => Body_Id, + Parameter_Specifications => + Copy_Parameter_List (Id), + Result_Definition => + New_Occurrence_Of (Standard_Boolean, Loc)), + Declarations => Empty_List, + Handled_Statement_Sequence => Empty); Set_Handled_Statement_Sequence (Decl, Make_Handled_Sequence_Of_Statements (Loc, |