summaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authoraoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4>2001-12-04 15:10:16 +0000
committeraoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4>2001-12-04 15:10:16 +0000
commit1084d1c7d3a2db70926d0ff69f3815aad14e0782 (patch)
tree2f7f9ab738ee326953f015588c4b564eca6e1b43 /gcc/ada
parentcd8d7ab1ea0700933746fad7035fd76adb91c5a9 (diff)
downloadgcc-1084d1c7d3a2db70926d0ff69f3815aad14e0782.tar.gz
Revert previous patch
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47612 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog4
-rw-r--r--gcc/ada/trans.c4
2 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d2ac167bf07..cf3b44bb4a9 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,7 +1,3 @@
-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
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 2f3965f09e6..deec9e79a7b 100644
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
- * $Revision: 1.5 $
+ * $Revision: 1.6 $
* *
* 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 (1);
+ gnu_rhs_side = expand_start_stmt_expr ();
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));