OSDN Git Service

PR debug/40040
authorjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 21 Apr 2010 16:48:41 +0000 (16:48 +0000)
committerMasaki Muranaka <monaka@monami-software.com>
Sun, 23 May 2010 01:08:21 +0000 (10:08 +0900)
* 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

gcc/ChangeLog
gcc/dwarf2out.c

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