PR ada/23995

	* trans.c (call_to_gnu): Restore statement lost in translation.

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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 46ab2cc..dff3b6c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-10  Eric Botcazou  <ebotcazou@adacore.com>
+
+       PR ada/23995
+       * trans.c (call_to_gnu): Restore statement lost in translation.
+
 2005-11-08  Eric Botcazou  <ebotcazou@adacore.com>
 
        * init.c: Use the Linux-specific section for the IA-64/Linux target.

diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index cd91a36..d685fb3 100644 (file)
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -1687,6 +1687,9 @@ call_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, tree gnu_target)
                                          gnu_copy, gnu_actual);
              annotate_with_node (gnu_temp, gnat_actual);
              append_to_statement_list (gnu_temp, &gnu_after_list);
+
+             /* Account for next statement just below.  */
+             gnu_name = gnu_actual;
            }
        }