* trans.c (tree_transform): Adjust call of expand_start_stmt_expr.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47611 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 86f1f30..d2ac167 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,17 +1,21 @@
+2001-12-04  Andreas Jaeger  <aj@suse.de>
+
+       * trans.c (tree_transform): Adjust call of expand_start_stmt_expr.
+
 2001-12-03  Robert Dewar <dewar@gnat.com>
 
-       * sinfo.ads: Minor reformatting. N_Freeze_Entity node does not 
+       * sinfo.ads: Minor reformatting. N_Freeze_Entity node does not
         have Associated_Node.
 
 2001-12-03  Robert Dewar <dewar@gnat.com>
 
        * prj-proc.adb: Minor reformatting
-       
+
        * make.adb: Minor reformatting
 
 2001-12-03  Geert Bosch <bosch@gnat.com>
 
-       * make.adb: Minor reformatting.
+       * make.adb: Minor reformatting.
 
 2001-12-03   <dewar@gnat.com>
 
@@ -19,15 +23,15 @@
 
 2001-12-03  Ed Schonberg <schonber@gnat.com>
 
-       * sem_ch12.adb (Inline_Instance_Body): Use Save_Scope_Stack and 
-       push Standard on the stack before analyzing the instance body, 
+       * sem_ch12.adb (Inline_Instance_Body): Use Save_Scope_Stack and
+       push Standard on the stack before analyzing the instance body,
        in order to have a clean visibility environment.
-       
-       * sem_ch12.adb (Inline_Instance_Body): Remove redundant code. 
+
+       * sem_ch12.adb (Inline_Instance_Body): Remove redundant code.
 
 2001-12-03  Ed Schonberg <schonber@gnat.com>
 
-       * sem_ch12.adb (Instantiate_Package_Body): Protect against double 
+       * sem_ch12.adb (Instantiate_Package_Body): Protect against double
        instantiation of a body that contains an inlined body.
 
 2001-12-03  Ed Schonberg <schonber@gnat.com>
@@ -62,8 +66,8 @@
 
 2001-11-29  Ed Schonberg <schonber@gnat.com>
 
-       * g-os_lib.adb (Add_To_Command): use explicit loop to move string 
-       into Command, an array conversion is illegal here. Uncovered by 
+       * g-os_lib.adb (Add_To_Command): use explicit loop to move string
+       into Command, an array conversion is illegal here. Uncovered by
        ACATS B460005.
 
 2001/11/28  Geert Bosch <bosch@gnat.com>
@@ -72,7 +76,7 @@
 
 2001-11-28  Doug Rupp <rupp@gnat.com>
 
-       * init.c: (__gnat_install_handler,VMS): Increase size of alternate 
+       * init.c: (__gnat_install_handler,VMS): Increase size of alternate
        signal stack.
 
 2001-11-28  Zack Weinberg  <zack@codesourcery.com>

diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 7db952e..2f3965f 100644 (file)
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -6,7 +6,7 @@
  *                                                                          *
  *                          C Implementation File                           *
  *                                                                          *
- *                            $Revision: 1.4 $
+ *                            $Revision: 1.5 $
  *                                                                          *
  *          Copyright (C) 1992-2001, Free Software Foundation, Inc.         *
  *                                                                          *
@@ -1797,7 +1797,7 @@ tree_transform (gnat_node)
           we need to make sure it gets executed after the LHS.  */
        gnu_lhs = gnat_to_gnu (Left_Opnd (gnat_node));
        clear_last_expr ();
-       gnu_rhs_side = expand_start_stmt_expr ();
+       gnu_rhs_side = expand_start_stmt_expr (1);
        gnu_rhs = gnat_to_gnu (Right_Opnd (gnat_node));
        expand_end_stmt_expr (gnu_rhs_side);
        gnu_result_type = get_unpadded_type (Etype (gnat_node));