diff options
| -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 46ab2cc..dff3b6c 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 cd91a36..d685fb3 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; } } |