diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 11:57:02 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 11:57:02 +0200 |
commit | 4fdebd93e0b117dc4363d2552ca886623075e1a8 (patch) | |
tree | 7946b22e7f13f198a60bc32005dd7fccb3114188 /gcc/ada/exp_ch4.adb | |
parent | 6aaa058707f9d29c01aae3c7823a3d184d0e777f (diff) | |
download | gcc-4fdebd93e0b117dc4363d2552ca886623075e1a8.zip gcc-4fdebd93e0b117dc4363d2552ca886623075e1a8.tar.gz gcc-4fdebd93e0b117dc4363d2552ca886623075e1a8.tar.bz2 |
[multiple changes]
2011-08-04 Arnaud Charlet <charlet@adacore.com>
* debug.adb: Update comment.
2011-08-04 Robert Dewar <dewar@adacore.com>
* par_sco.adb, exp_util.adb, make.adb, a-tags.adb, sem_prag.adb,
sem_util.adb, sem_attr.adb, exp_ch4.adb, g-comlin.adb, g-comlin.ads,
exp_ch6.adb: Minor reformatting.
2011-08-04 Gary Dismukes <dismukes@adacore.com>
* gnat_ugn.texi: Add sentence about the case of compile-time-detected
checks for -gnateE.
2011-08-04 Ed Schonberg <schonberg@adacore.com>
* gnat_rm.texi: update Ravenscar desription to reflect Ada2012 RM.
2011-08-04 Thomas Quinot <quinot@adacore.com>
* sinfo.ads: Minor reformatting.
2011-08-04 Emmanuel Briot <briot@adacore.com>
* makeutl.adb, makeutl.ads, prj-nmsc.adb (Complete_Mains): report error
even if there is no location.
From-SVN: r177351
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
-rw-r--r-- | gcc/ada/exp_ch4.adb | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index afe0c06..a5b3bdc 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -4319,7 +4319,7 @@ package body Exp_Ch4 is ------------------------------ procedure Process_Transient_Object (Decl : Node_Id) is - Ins_Nod : constant Node_Id := Parent (N); + Ins_Nod : constant Node_Id := Parent (N); -- To avoid the insertion of generated code in the list of Actions, -- Insert_Action must look at the parent field of the EWA. @@ -4353,10 +4353,9 @@ package body Exp_Ch4 is Defining_Identifier => Ptr_Id, Type_Definition => Make_Access_To_Object_Definition (Loc, - All_Present => + All_Present => Ekind (Obj_Typ) = E_General_Access_Type, - Subtype_Indication => - New_Reference_To (Desig_Typ, Loc))); + Subtype_Indication => New_Reference_To (Desig_Typ, Loc))); Insert_Action (Ins_Nod, Ptr_Decl); Analyze (Ptr_Decl); @@ -4389,8 +4388,7 @@ package body Exp_Ch4 is else Expr := Make_Attribute_Reference (Loc, - Prefix => - New_Reference_To (Obj_Id, Loc), + Prefix => New_Reference_To (Obj_Id, Loc), Attribute_Name => Name_Unrestricted_Access); end if; |