diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2008-07-31 12:27:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-31 12:27:42 +0200 |
| commit | 4f6e2c24220fdf6db9992288f40d22bd21ffa2f6 (patch) | |
| tree | 71983e3368d1cc55eeaaf2b235a0676d575e9c68 | |
| parent | 23ed6584d682ee5036850fdeb52cb7c22b8e3a0b (diff) | |
| download | gcc-4f6e2c24220fdf6db9992288f40d22bd21ffa2f6.zip gcc-4f6e2c24220fdf6db9992288f40d22bd21ffa2f6.tar.gz gcc-4f6e2c24220fdf6db9992288f40d22bd21ffa2f6.tar.bz2 | |
exp_ch6.adb (Make_Build_In_Place_Call_In_Object_Declaration): Use Insert_Actions to place the pointer declaration in the code...
2008-07-31 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Make_Build_In_Place_Call_In_Object_Declaration): Use
Insert_Actions to place the pointer declaration in the code, rather
than Insert_Before_And_Analyze, so that insertions of temporaries are
kept in the proper order when transient scopes are present.
From-SVN: r138386
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index cddc021..3e3c10d 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -5496,7 +5496,7 @@ package body Exp_Ch6 is if Is_Constrained (Underlying_Type (Result_Subt)) then Insert_After_And_Analyze (Object_Decl, Ptr_Typ_Decl); else - Insert_Before_And_Analyze (Object_Decl, Ptr_Typ_Decl); + Insert_Action (Object_Decl, Ptr_Typ_Decl); end if; -- Finally, create an access object initialized to a reference to the |