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 277e348..a532459 100644 (file)
--- 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 8d56938..e7e2e8f 100644 (file)
--- 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))