diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2013-09-18 10:21:37 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2013-09-18 10:21:37 +0000 |
| commit | df2abf546911a295588c230ced8cb59ba5c38477 (patch) | |
| tree | 03e43d00d117ee522778cea89119268f61346556 /gcc/ada/gcc-interface/trans.c | |
| parent | 995a1b4a75aca90837c9a62131eda7b6be9b8c41 (diff) | |
| download | gcc-df2abf546911a295588c230ced8cb59ba5c38477.zip gcc-df2abf546911a295588c230ced8cb59ba5c38477.tar.gz gcc-df2abf546911a295588c230ced8cb59ba5c38477.tar.bz2 | |
trans.c (Subprogram_Body_to_gnu): Pop the stack of return variables for subprograms using the CICO mechanism.
* gcc-interface/trans.c (Subprogram_Body_to_gnu): Pop the stack of
return variables for subprograms using the CICO mechanism.
From-SVN: r202684
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 4048e0a..923189a 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -3605,6 +3605,8 @@ Subprogram_Body_to_gnu (Node_Id gnat_node) { tree gnu_retval; + gnu_return_var_stack->pop (); + add_stmt (gnu_result); add_stmt (build1 (LABEL_EXPR, void_type_node, gnu_return_label_stack->last ())); |