diff options
| author | Jan Hubicka <jh@suse.cz> | 2019-06-24 23:13:12 +0200 |
|---|---|---|
| committer | Jan Hubicka <hubicka@gcc.gnu.org> | 2019-06-24 21:13:12 +0000 |
| commit | f4af4019dfb79f92adcf7cee4ef9e5f6ff428a37 (patch) | |
| tree | 2344514a98c3312cba34b09afe63f6f1962da351 /gcc/dwarf2out.c | |
| parent | cd57f4d81bdefeca6133dc52db8b7832a867686b (diff) | |
ipa-utils.h (type_with_linkage_p): Verify that type is CXX_ODR_P.
* ipa-utils.h (type_with_linkage_p): Verify that type is
CXX_ODR_P.
(odr_type_p): Remove extra return.
* lto-streamer-out.c (hash_tree): Hash TYPE_CXX_ODR_P;
hash STRING_FLAG only for arrays and integers.
* tree-stremaer-in.c (unpack_ts_type_common_value_fields):
Update analogously.
* tree-streamer-out.c (pack_ts_type_common_value_fields):
Likewise.
* print-tree.c (print_node): Print cxx-odr-p
and string-flag.
* tree.c (need_assembler_name_p): Also check that type
is CXX_ODR_TYPE_P
(verify_type_variant): Update verification of SRING_FLAG;
also check CXX_ODR_P.
* tree.h (ARRAY_OR_INTEGER_TYPE_CHECK): New macro.
(TYPE_STRING_FLAG): Use it.
(TYPE_CXX_ODR_P): New macro.
* lto-common.c (compare_tree_sccs_1): Compare CXX_ODR_P;
compare STRING_FLAG only for arrays and integers.
* gcc-interface/decl.c (gnat_to_gnu_entity): Check that
type is array or integer prior checking string flag.
* gcc-interface/gigi.h (gnat_signed_type_for,
maybe_character_value): Likewise.
* c-common.c (braced_lists_to_strings): Check that
type is array or integer prior checking string flag.
* lex.c (cxx_make_type): Set TYPE_CXX_ODR_P.
* dwarf2out.c (gen_array_type_die): First check that type
is an array and then test string flag.
* trans-expr.c (gfc_conv_substring): Check that
type is array or integer prior checking string flag.
(gfc_conv_string_parameter): Likewise.
* trans-openmp.c (gfc_omp_scalar_p): Likewise.
* trans.c (gfc_build_array_ref): Likewise.
From-SVN: r272628
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 6a85c12fb76..7fa8b05fe5c 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -21850,8 +21850,8 @@ gen_array_type_die (tree type, dw_die_ref context_die) /* Emit DW_TAG_string_type for Fortran character types (with kind 1 only, as DW_TAG_string_type doesn't have DW_AT_type attribute). */ - if (TYPE_STRING_FLAG (type) - && TREE_CODE (type) == ARRAY_TYPE + if (TREE_CODE (type) == ARRAY_TYPE + && TYPE_STRING_FLAG (type) && is_fortran () && TYPE_MODE (TREE_TYPE (type)) == TYPE_MODE (char_type_node)) { |