From: jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 21 Apr 2010 16:48:41 +0000 (+0000)
Subject: 	PR debug/40040
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=f9e293e56c44738afe27abf0a42b6263873e1756

	PR debug/40040
	* dwarf2out.c (add_name_and_src_coords_attributes): Add
	DW_AT_{,MIPS_}linkage_name even for Fortran decls.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@158612 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 277e34873aa..a532459553b 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 8d569384f30..e7e2e8f9a72 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))