exp_ch6.adb (Make_Build_In_Place_Call_In_Object_Declaration): Use Insert_Actions…

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

exp_ch6.adb (Make_Build_In_Place_Call_In_Object_Declaration): Use Insert_Actions…
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
4f6e2c24 · Ed Schonberg · Arnaud Charlet · 23ed6584 · 4f6e2c24
Commit 4f6e2c24 authored Jul 31, 2008 by Ed Schonberg Committed by Arnaud Charlet Jul 31, 2008
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 1 deletions

gcc/ada/exp_ch6.adb
+1 -1

No files found.
--- 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