diff options
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 9530165..1ce2f72 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -3294,6 +3294,7 @@ finish_subprog_decl (tree decl, tree asm_name, tree type) DECL_ARTIFICIAL (result_decl) = 1; DECL_IGNORED_P (result_decl) = 1; + DECL_CONTEXT (result_decl) = decl; DECL_BY_REFERENCE (result_decl) = TREE_ADDRESSABLE (type); DECL_RESULT (decl) = result_decl; @@ -3369,9 +3370,6 @@ end_subprog_body (tree body) DECL_INITIAL (fndecl) = current_binding_level->block; gnat_poplevel (); - /* Mark the RESULT_DECL as being in this subprogram. */ - DECL_CONTEXT (DECL_RESULT (fndecl)) = fndecl; - /* The body should be a BIND_EXPR whose BLOCK is the top-level one. */ if (TREE_CODE (body) == BIND_EXPR) { |