diff options
| author | Richard Henderson <rth@redhat.com> | 2004-07-25 01:10:28 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2004-07-25 01:10:28 -0700 |
| commit | b785f485ecfa4a4685e30b3385b701159726f4a3 (patch) | |
| tree | b78bcdd05d614d85d427a31d73cab2c711cc5ccd /gcc/ada | |
| parent | 78d8e0f9d867bb8d53ab4ad98873e2e8ab342c8f (diff) | |
| download | gcc-b785f485ecfa4a4685e30b3385b701159726f4a3.zip gcc-b785f485ecfa4a4685e30b3385b701159726f4a3.tar.gz gcc-b785f485ecfa4a4685e30b3385b701159726f4a3.tar.bz2 | |
c-decl.c (start_function): Set DECL_ARTIFICIAL and DECL_IGNORED_P on the RESULT_DECL.
* c-decl.c (start_function): Set DECL_ARTIFICIAL and DECL_IGNORED_P
on the RESULT_DECL.
* cgraphunit.c (cgraph_build_static_cdtor): Likewise.
* integrate.c (copy_decl_for_inlining): Copy DECL_ARTIFICIAL and
DECL_IGNORED_P to new decl.
ada/
* utils.c (create_subprog_decl): Set DECL_ARTIFICIAL and
DECL_IGNORED_P on RESULT_DECL.
cp/
* decl.c (start_preparsed_function): Set DECL_ARTIFICIAL and
DECL_IGNORED_P on RESULT_DECL.
* semantics.c (finalize_nrv): Copy them too.
fortran/
* trans-decl.c (gfc_build_function_decl): Set DECL_ARTIFICIAL
and DECL_IGNORED_P on RESULT_DECL.
(gfc_generate_constructors): Likewise.
java/
* decl.c (build_result_decl): Set DECL_ARTIFICIAL and DECL_IGNORED_P.
From-SVN: r85145
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/utils.c | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 28445a8..651ff90 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2004-07-25 Richard Henderson <rth@redhat.com> + + * utils.c (create_subprog_decl): Set DECL_ARTIFICIAL and + DECL_IGNORED_P on RESULT_DECL. + 2004-07-20 Olivier Hainque <hainque@act-europe.fr> * a-elchha.adb (Last_Chance_Handler): Remove the bogus buffer dynamic diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 3d525a0..e307def 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -1687,6 +1687,8 @@ create_subprog_decl (tree subprog_name, tree asm_name, TREE_SIDE_EFFECTS (subprog_decl) = TYPE_VOLATILE (subprog_type); DECL_ARGUMENTS (subprog_decl) = param_decl_list; DECL_RESULT (subprog_decl) = build_decl (RESULT_DECL, 0, return_type); + DECL_ARTIFICIAL (DECL_RESULT (subprog_decl)) = 1; + DECL_IGNORED_P (DECL_RESULT (subprog_decl)) = 1; if (inline_flag) DECL_DECLARED_INLINE_P (subprog_decl) = 1; |