diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-10 11:32:56 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-10 11:32:56 +0000 |
| commit | 45c55567d1e1737155bb5abc65a9d710c8d5ec38 (patch) | |
| tree | 6ac8f371271e8b63e9cb7275c2b6d2d9b5a89159 | |
| parent | e23ab77f9cc148c526d4d9caf82dfbebd995dc2c (diff) | |
| download | ppe42-gcc-45c55567d1e1737155bb5abc65a9d710c8d5ec38.tar.gz ppe42-gcc-45c55567d1e1737155bb5abc65a9d710c8d5ec38.zip | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 46ab2ccaf32..dff3b6cbcca 100644 --- 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 cd91a368328..d685fb34db0 100644 --- 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; } } |
