diff options
author | Jakub Jelinek <jakub@redhat.com> | 2012-08-23 12:02:40 +0200 |
---|---|---|
committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2012-08-23 12:02:40 +0200 |
commit | b6b27e9830958b624fa79ddd107e139dd5622edd (patch) | |
tree | 9eadda7c37c09b1cda1c24a9e1acb8c6ada317f2 /gcc/tree.c | |
parent | 8597cab14b29f161d4847976f604058e0ac983ea (diff) | |
download | gcc-b6b27e9830958b624fa79ddd107e139dd5622edd.zip gcc-b6b27e9830958b624fa79ddd107e139dd5622edd.tar.gz gcc-b6b27e9830958b624fa79ddd107e139dd5622edd.tar.bz2 |
tree.c (copy_node_stat): Clear DECL_STRUCT_FUNCTION.
* tree.c (copy_node_stat): Clear DECL_STRUCT_FUNCTION.
fortran/
* trans-decl.c (trans_function_start, generate_coarray_init,
create_main_function, gfc_generate_constructors): Call
allocate_struct_function instead of init_function_start.
From-SVN: r190619
Diffstat (limited to 'gcc/tree.c')
-rw-r--r-- | gcc/tree.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -983,6 +983,8 @@ copy_node_stat (tree node MEM_STAT_DECL) SET_DECL_INIT_PRIORITY (t, DECL_INIT_PRIORITY (node)); DECL_HAS_INIT_PRIORITY_P (t) = 1; } + if (TREE_CODE (node) == FUNCTION_DECL) + DECL_STRUCT_FUNCTION (t) = NULL; } else if (TREE_CODE_CLASS (code) == tcc_type) { |