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/fortran | |
| 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/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 01cedd8..1e0d825 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2004-07-25 Richard Henderson <rth@redhat.com> + + * trans-decl.c (gfc_build_function_decl): Set DECL_ARTIFICIAL + and DECL_IGNORED_P on RESULT_DECL. + (gfc_generate_constructors): Likewise. + 2004-07-18 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> PR fortran/16465 diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 655c48b..7883bde 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -1030,6 +1030,8 @@ gfc_build_function_decl (gfc_symbol * sym) } result_decl = build_decl (RESULT_DECL, result_decl, type); + DECL_ARTIFICIAL (result_decl) = 1; + DECL_IGNORED_P (result_decl) = 1; DECL_CONTEXT (result_decl) = fndecl; DECL_RESULT (fndecl) = result_decl; @@ -2124,6 +2126,8 @@ gfc_generate_constructors (void) TREE_PUBLIC (fndecl) = 1; decl = build_decl (RESULT_DECL, NULL_TREE, void_type_node); + DECL_ARTIFICIAL (decl) = 1; + DECL_IGNORED_P (decl) = 1; DECL_CONTEXT (decl) = fndecl; DECL_RESULT (fndecl) = decl; |