From: Jakub Jelinek <jakub@redhat.com>
Date: Wed, 21 Apr 2010 16:48:41 +0000 (+0200)
Subject: re PR debug/40040 (gfortran invalid DW_AT_location for overridable variables)
X-Git-Tag: releases/gcc-4.6.0~7734
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=71a810c300b69083846e8a5aab4745c65b7657de;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 277e34873aa3..a532459553bf 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2010-04-21  Jakub Jelinek  <jakub@redhat.com>
+
+	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  <jh@suse.cz>
 
 	* ipa-prop.c (ipa_edge_removal_hook): Check for bounds.
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 8d569384f30a..e7e2e8f9a723 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))