From 1095d2227d380c8caefdffa76e67be0dfc052d7a Mon Sep 17 00:00:00 2001 From: jakub Date: Sun, 26 Apr 2009 18:44:59 +0000 Subject: [PATCH] * tree.h (DECL_BY_REFERENCE): Note that it is also valid for !TREE_STATIC VAR_DECLs. * dwarf2out.c (loc_by_reference, gen_decl_die): Handle DECL_BY_REFERENCE on !TREE_STATIC VAR_DECLs. (gen_variable_die): Likewise. Don't look at TREE_PRIVATE if DECL_BY_REFERENCE is valid. * dbxout.c (DECL_ACCESSIBILITY_CHAR): Don't look at TREE_PRIVATE for PARM_DECLs, RESULT_DECLs or !TREE_STATIC VAR_DECLs. * tree-nested.c (get_nonlocal_debug_decl, get_local_debug_decl): Copy DECL_BY_REFERENCE. (struct nesting_copy_body_data): New type. (nesting_copy_decl): New function. (finalize_nesting_tree_1): Remap types of debug_var_chain variables, if they have variable length. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146808 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ChangeLog | 17 ++++++++++ gcc/dbxout.c | 4 ++- gcc/dwarf2out.c | 21 +++++++++--- gcc/tree-nested.c | 100 ++++++++++++++++++++++++++++++++++++++++++++++++++++-- gcc/tree.h | 7 ++-- 5 files changed, 137 insertions(+), 12 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c597a35..b7bd93b 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,20 @@ +2009-04-26 Jakub Jelinek + + * tree.h (DECL_BY_REFERENCE): Note that it is also valid for + !TREE_STATIC VAR_DECLs. + * dwarf2out.c (loc_by_reference, gen_decl_die): Handle + DECL_BY_REFERENCE on !TREE_STATIC VAR_DECLs. + (gen_variable_die): Likewise. Don't look at TREE_PRIVATE if + DECL_BY_REFERENCE is valid. + * dbxout.c (DECL_ACCESSIBILITY_CHAR): Don't look at TREE_PRIVATE + for PARM_DECLs, RESULT_DECLs or !TREE_STATIC VAR_DECLs. + * tree-nested.c (get_nonlocal_debug_decl, get_local_debug_decl): + Copy DECL_BY_REFERENCE. + (struct nesting_copy_body_data): New type. + (nesting_copy_decl): New function. + (finalize_nesting_tree_1): Remap types of debug_var_chain variables, + if they have variable length. + 2009-04-26 Michael Matz * tree-sra.c (sra_build_assignment): Don't use into_ssa mode, diff --git a/gcc/dbxout.c b/gcc/dbxout.c index dd05076..077fc1a 100644 --- a/gcc/dbxout.c +++ b/gcc/dbxout.c @@ -1398,7 +1398,9 @@ dbxout_type_index (tree type) /* Used in several places: evaluates to '0' for a private decl, '1' for a protected decl, '2' for a public decl. */ #define DECL_ACCESSIBILITY_CHAR(DECL) \ -(TREE_PRIVATE (DECL) ? '0' : TREE_PROTECTED (DECL) ? '1' : '2') +((TREE_CODE (DECL) != PARM_DECL && TREE_CODE (DECL) != RESULT_DECL \ + && (TREE_CODE (DECL) != VAR_DECL || TREE_STATIC (DECL)) \ + && TREE_PRIVATE (DECL)) ? '0' : TREE_PROTECTED (DECL) ? '1' : '2') /* Subroutine of `dbxout_type'. Output the type fields of TYPE. This must be a separate function because anonymous unions require diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 69cdb03..0b25382 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -11701,7 +11701,9 @@ loc_by_reference (dw_loc_descr_ref loc, tree decl) if (loc == NULL) return NULL; - if ((TREE_CODE (decl) != PARM_DECL && TREE_CODE (decl) != RESULT_DECL) + if ((TREE_CODE (decl) != PARM_DECL + && TREE_CODE (decl) != RESULT_DECL + && (TREE_CODE (decl) != VAR_DECL || TREE_STATIC (decl))) || !DECL_BY_REFERENCE (decl)) return loc; @@ -14040,12 +14042,19 @@ gen_variable_die (tree decl, tree origin, dw_die_ref context_die) else { tree type = TREE_TYPE (decl); + bool private_flag_valid = true; add_name_and_src_coords_attributes (var_die, decl); if ((TREE_CODE (decl) == PARM_DECL - || TREE_CODE (decl) == RESULT_DECL) + || TREE_CODE (decl) == RESULT_DECL + || (TREE_CODE (decl) == VAR_DECL && !TREE_STATIC (decl))) && DECL_BY_REFERENCE (decl)) - add_type_attribute (var_die, TREE_TYPE (type), 0, 0, context_die); + { + add_type_attribute (var_die, TREE_TYPE (type), 0, 0, context_die); + /* DECL_BY_REFERENCE uses the same bit as TREE_PRIVATE, + for PARM_DECL, RESULT_DECL or non-static VAR_DECL. */ + private_flag_valid = false; + } else add_type_attribute (var_die, type, TREE_READONLY (decl), TREE_THIS_VOLATILE (decl), context_die); @@ -14058,7 +14067,7 @@ gen_variable_die (tree decl, tree origin, dw_die_ref context_die) if (TREE_PROTECTED (decl)) add_AT_unsigned (var_die, DW_AT_accessibility, DW_ACCESS_protected); - else if (TREE_PRIVATE (decl)) + else if (private_flag_valid && TREE_PRIVATE (decl)) add_AT_unsigned (var_die, DW_AT_accessibility, DW_ACCESS_private); } @@ -15291,7 +15300,9 @@ gen_decl_die (tree decl, tree origin, dw_die_ref context_die) /* Output any DIEs that are needed to specify the type of this data object. */ - if (TREE_CODE (decl_or_origin) == RESULT_DECL + if ((TREE_CODE (decl_or_origin) == RESULT_DECL + || (TREE_CODE (decl_or_origin) == VAR_DECL + && !TREE_STATIC (decl_or_origin))) && DECL_BY_REFERENCE (decl_or_origin)) gen_type_die (TREE_TYPE (TREE_TYPE (decl_or_origin)), context_die); else diff --git a/gcc/tree-nested.c b/gcc/tree-nested.c index 8f9fec5..b3301a7 100644 --- a/gcc/tree-nested.c +++ b/gcc/tree-nested.c @@ -827,6 +827,11 @@ get_nonlocal_debug_decl (struct nesting_info *info, tree decl) TREE_READONLY (new_decl) = TREE_READONLY (decl); TREE_ADDRESSABLE (new_decl) = TREE_ADDRESSABLE (decl); DECL_SEEN_IN_BIND_EXPR_P (new_decl) = 1; + if ((TREE_CODE (decl) == PARM_DECL + || TREE_CODE (decl) == RESULT_DECL + || TREE_CODE (decl) == VAR_DECL) + && DECL_BY_REFERENCE (decl)) + DECL_BY_REFERENCE (new_decl) = 1; SET_DECL_VALUE_EXPR (new_decl, x); DECL_HAS_VALUE_EXPR_P (new_decl) = 1; @@ -1240,6 +1245,11 @@ get_local_debug_decl (struct nesting_info *info, tree decl, tree field) TREE_READONLY (new_decl) = TREE_READONLY (decl); TREE_ADDRESSABLE (new_decl) = TREE_ADDRESSABLE (decl); DECL_SEEN_IN_BIND_EXPR_P (new_decl) = 1; + if ((TREE_CODE (decl) == PARM_DECL + || TREE_CODE (decl) == RESULT_DECL + || TREE_CODE (decl) == VAR_DECL) + && DECL_BY_REFERENCE (decl)) + DECL_BY_REFERENCE (new_decl) = 1; SET_DECL_VALUE_EXPR (new_decl, x); DECL_HAS_VALUE_EXPR_P (new_decl) = 1; @@ -1944,6 +1954,34 @@ convert_all_function_calls (struct nesting_info *root) while (root); } +struct nesting_copy_body_data +{ + copy_body_data cb; + struct nesting_info *root; +}; + +/* A helper subroutine for debug_var_chain type remapping. */ + +static tree +nesting_copy_decl (tree decl, copy_body_data *id) +{ + struct nesting_copy_body_data *nid = (struct nesting_copy_body_data *) id; + void **slot = pointer_map_contains (nid->root->var_map, decl); + + if (slot) + return (tree) *slot; + + if (TREE_CODE (decl) == TYPE_DECL && DECL_ORIGINAL_TYPE (decl)) + { + tree new_decl = copy_decl_no_change (decl, id); + DECL_ORIGINAL_TYPE (new_decl) + = remap_type (DECL_ORIGINAL_TYPE (decl), id); + return new_decl; + } + + return copy_decl_no_change (decl, id); +} + /* Do "everything else" to clean up or complete state collected by the various walking passes -- lay out the types and decls, generate code to initialize the frame decl, store critical expressions in the @@ -2076,10 +2114,66 @@ finalize_nesting_tree_1 (struct nesting_info *root) declare_vars (root->new_local_var_chain, gimple_seq_first_stmt (gimple_body (root->context)), false); + if (root->debug_var_chain) - declare_vars (root->debug_var_chain, - gimple_seq_first_stmt (gimple_body (root->context)), - true); + { + tree debug_var; + + for (debug_var = root->debug_var_chain; debug_var; + debug_var = TREE_CHAIN (debug_var)) + if (variably_modified_type_p (TREE_TYPE (debug_var), NULL)) + break; + + /* If there are any debug decls with variable length types, + remap those types using other debug_var_chain variables. */ + if (debug_var) + { + struct nesting_copy_body_data id; + + memset (&id, 0, sizeof (id)); + id.cb.copy_decl = nesting_copy_decl; + id.cb.decl_map = pointer_map_create (); + id.root = root; + + for (; debug_var; debug_var = TREE_CHAIN (debug_var)) + if (variably_modified_type_p (TREE_TYPE (debug_var), NULL)) + { + tree type = TREE_TYPE (debug_var); + tree newt, t = type; + struct nesting_info *i; + + for (i = root; i; i = i->outer) + if (variably_modified_type_p (type, i->context)) + break; + + if (i == NULL) + continue; + + id.cb.src_fn = i->context; + id.cb.dst_fn = i->context; + id.cb.src_cfun = DECL_STRUCT_FUNCTION (root->context); + + TREE_TYPE (debug_var) = newt = remap_type (type, &id.cb); + while (POINTER_TYPE_P (newt) && !TYPE_NAME (newt)) + { + newt = TREE_TYPE (newt); + t = TREE_TYPE (t); + } + if (TYPE_NAME (newt) + && TREE_CODE (TYPE_NAME (newt)) == TYPE_DECL + && DECL_ORIGINAL_TYPE (TYPE_NAME (newt)) + && newt != t + && TYPE_NAME (newt) == TYPE_NAME (t)) + TYPE_NAME (newt) = remap_decl (TYPE_NAME (newt), &id.cb); + } + + pointer_map_destroy (id.cb.decl_map); + } + + declare_vars (root->debug_var_chain, + gimple_seq_first_stmt (gimple_body (root->context)), + true); + } /* Dump the translated tree function. */ dump_function (TDI_nested, root->context); diff --git a/gcc/tree.h b/gcc/tree.h index 4cd9b7d..d6550b5 100644 --- a/gcc/tree.h +++ b/gcc/tree.h @@ -476,7 +476,7 @@ struct GTY(()) tree_common { CALL_EXPR DECL_BY_REFERENCE in - PARM_DECL, RESULT_DECL + PARM_DECL, RESULT_DECL, VAR_DECL (only !TREE_STATIC) OMP_SECTION_LAST in OMP_SECTION @@ -1294,8 +1294,9 @@ extern void omp_clause_range_check_failed (const_tree, const char *, int, #define CALL_EXPR_RETURN_SLOT_OPT(NODE) \ (CALL_EXPR_CHECK (NODE)->base.private_flag) -/* In a RESULT_DECL or PARM_DECL, means that it is passed by invisible - reference (and the TREE_TYPE is a pointer to the true type). */ +/* In a RESULT_DECL, PARM_DECL or VAR_DECL without TREE_STATIC, means that it is + passed by invisible reference (and the TREE_TYPE is a pointer to the true + type). */ #define DECL_BY_REFERENCE(NODE) (DECL_COMMON_CHECK (NODE)->base.private_flag) /* In a CALL_EXPR, means that the call is the jump from a thunk to the -- 2.7.4