diff options
| -rw-r--r-- | gcc/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/dwarf2out.c | 14 |
2 files changed, 20 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 1c961e792a4..e6c95de72de 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -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 diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index ab04b68edec..416f75a1465 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -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; } |