From 71a810c300b69083846e8a5aab4745c65b7657de Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Wed, 21 Apr 2010 18:48:41 +0200 Subject: [PATCH] re PR debug/40040 (gfortran invalid DW_AT_location for overridable variables) PR debug/40040 * dwarf2out.c (add_name_and_src_coords_attributes): Add DW_AT_{,MIPS_}linkage_name even for Fortran decls. From-SVN: r158612 --- gcc/ChangeLog | 6 ++++++ gcc/dwarf2out.c | 3 +-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 277e348..a532459 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2010-04-21 Jakub Jelinek + + PR debug/40040 + * dwarf2out.c (add_name_and_src_coords_attributes): Add + DW_AT_{,MIPS_}linkage_name even for Fortran decls. + 2010-04-21 Jan Hubicka * ipa-prop.c (ipa_edge_removal_hook): Check for bounds. diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 8d56938..e7e2e8f 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -16808,8 +16808,7 @@ add_name_and_src_coords_attributes (dw_die_ref die, tree decl) if ((TREE_CODE (decl) == FUNCTION_DECL || TREE_CODE (decl) == VAR_DECL) && TREE_PUBLIC (decl) && !DECL_ABSTRACT (decl) - && !(TREE_CODE (decl) == VAR_DECL && DECL_REGISTER (decl)) - && !is_fortran ()) + && !(TREE_CODE (decl) == VAR_DECL && DECL_REGISTER (decl))) { /* Defer until we have an assembler name set. */ if (!DECL_ASSEMBLER_NAME_SET_P (decl)) -- 2.7.4