From 44293580369777e9fac3341133d6459b37c04672 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Wed, 24 Feb 2016 23:04:09 +0100 Subject: [PATCH] re PR debug/69705 (segfault in libgomp.fortran/task1.f90 with -flto -fno-use-linker-plugin -fno-toplevel-reorder -O1 -g) PR debug/69705 * dwarf2out.c (gen_variable_die): Work around buggy LTO - allow NULL decl for Fortran DW_TAG_common_block variables. From-SVN: r233685 --- gcc/ChangeLog | 8 +++++++- gcc/dwarf2out.c | 12 +++++++----- gcc/testsuite/ChangeLog | 2 +- 3 files changed, 15 insertions(+), 7 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 913abc87b8ec..3cae3cbb8f37 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,9 +1,15 @@ +2016-02-24 Jakub Jelinek + + PR debug/69705 + * dwarf2out.c (gen_variable_die): Work around buggy LTO + - allow NULL decl for Fortran DW_TAG_common_block variables. + 2016-02-24 Jason Merrill * common.opt (flifetime-dse): Add -flifetime-dse=1. 2016-02-24 Richard Biener - Jakub Jelinek + Jakub Jelinek PR middle-end/69760 * tree-scalar-evolution.c (interpret_rhs_expr): Re-write diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index d8ca1b7e6baf..97e192b9d4d2 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -21055,7 +21055,7 @@ gen_variable_die (tree decl, tree origin, dw_die_ref context_die) DW_TAG_common_block and DW_TAG_variable. */ loc = loc_list_from_tree (com_decl, 2, NULL); } - else if (DECL_EXTERNAL (decl)) + else if (DECL_EXTERNAL (decl_or_origin)) add_AT_flag (com_die, DW_AT_declaration, 1); if (want_pubnames ()) add_pubname_string (cnam, com_die); /* ??? needed? */ @@ -21070,8 +21070,9 @@ gen_variable_die (tree decl, tree origin, dw_die_ref context_die) remove_AT (com_die, DW_AT_declaration); } var_die = new_die (DW_TAG_variable, com_die, decl); - add_name_and_src_coords_attributes (var_die, decl); - add_type_attribute (var_die, TREE_TYPE (decl), decl_quals (decl), false, + add_name_and_src_coords_attributes (var_die, decl_or_origin); + add_type_attribute (var_die, TREE_TYPE (decl_or_origin), + decl_quals (decl_or_origin), false, context_die); add_AT_flag (var_die, DW_AT_external, 1); if (loc) @@ -21093,9 +21094,10 @@ gen_variable_die (tree decl, tree origin, dw_die_ref context_die) } add_AT_location_description (var_die, DW_AT_location, loc); } - else if (DECL_EXTERNAL (decl)) + else if (DECL_EXTERNAL (decl_or_origin)) add_AT_flag (var_die, DW_AT_declaration, 1); - equate_decl_number_to_die (decl, var_die); + if (decl) + equate_decl_number_to_die (decl, var_die); return; } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e5cfd9ad6f5c..305ebf7435ea 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -28,7 +28,7 @@ * g++.dg/pr61033.C: Add a regression testcase for PR debug/61033. 2016-02-24 Richard Biener - Jakub Jelinek + Jakub Jelinek PR middle-end/69760 * gcc.dg/torture/pr69760.c: New testcase. -- 2.47.2