OSDN Git Service

PR debug/43950
authorjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 5 May 2010 19:11:16 +0000 (19:11 +0000)
committerMasaki Muranaka <monaka@monami-software.com>
Sun, 23 May 2010 04:59:56 +0000 (13:59 +0900)
* dwarf2out.c (gen_compile_unit_die): Add DW_AT_identifier_case
DW_ID_down_case for Fortran compilation units.

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

gcc/ChangeLog
gcc/dwarf2out.c

index 1c961e7..e6c95de 100644 (file)
@@ -1,3 +1,9 @@
+2010-05-05  Jakub Jelinek  <jakub@redhat.com>
+
+       PR debug/43950
+       * dwarf2out.c (gen_compile_unit_die): Add DW_AT_identifier_case
+       DW_ID_down_case for Fortran compilation units.
+
 2010-05-05  Jan Hubicka  <jh@suse.cz>
 
        * lto-cgraph.c (lto_output_varpool_node, input_varpool_node): Correctly
index ab04b68..416f75a 100644 (file)
@@ -18747,6 +18747,20 @@ gen_compile_unit_die (const char *filename)
     }
 
   add_AT_unsigned (die, DW_AT_language, language);
+
+  switch (language)
+    {
+    case DW_LANG_Fortran77:
+    case DW_LANG_Fortran90:
+    case DW_LANG_Fortran95:
+      /* Fortran has case insensitive identifiers and the front-end
+        lowercases everything.  */
+      add_AT_unsigned (die, DW_AT_identifier_case, DW_ID_down_case);
+      break;
+    default:
+      /* The default DW_ID_case_sensitive doesn't need to be specified.  */
+      break;
+    }
   return die;
 }