diff options
| author | Mark Wielaard <mjw@redhat.com> | 2015-02-09 23:36:54 +0100 |
|---|---|---|
| committer | Mark Wielaard <mjw@redhat.com> | 2015-02-10 09:07:25 +0100 |
| commit | 5a19504458d7a4113ef91875a447f4e841df7598 (patch) | |
| tree | ccd6d9c405a15a00d327156c0a26dd8cffbd92f5 /binutils | |
| parent | 0b24eb2de5a6dbefe48fd57fcf5d0e7fb24895d4 (diff) | |
| download | gdb-5a19504458d7a4113ef91875a447f4e841df7598.zip gdb-5a19504458d7a4113ef91875a447f4e841df7598.tar.gz gdb-5a19504458d7a4113ef91875a447f4e841df7598.tar.bz2 | |
Recognize new DWARF5/GCC5 DW_LANG constants for Fortran 03 and Fortran 08.
DWARFv5 defines and GCC5 may output two new DW_LANG constants for the
Fortran 2003 and Fortran 2008 standards. Handle and display both in
binutils.
binutils/ChangeLog:
* dwarf.c (read_and_display_attr_value): Handle DW_LANG_Fortran03
and DW_LANG_Fortran08.
include/ChangeLog:
* dwarf2.h: Add DW_LANG_Fortran03 and DW_LANG_Fortran08.
http://dwarfstd.org/ShowIssue.php?issue=141121.1
Diffstat (limited to 'binutils')
| -rw-r--r-- | binutils/ChangeLog | 5 | ||||
| -rw-r--r-- | binutils/dwarf.c | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/binutils/ChangeLog b/binutils/ChangeLog index 803bfa8..01c4634 100644 --- a/binutils/ChangeLog +++ b/binutils/ChangeLog @@ -1,3 +1,8 @@ +2015-02-09 Mark Wielaard <mjw@redhat.com> + + * dwarf.c (read_and_display_attr_value): Handle DW_LANG_Fortran03 + and DW_LANG_Fortran08. + 2015-02-06 Nick Clifton <nickc@redhat.com> PR binutils/17512 diff --git a/binutils/dwarf.c b/binutils/dwarf.c index cebd8c9..e93a757 100644 --- a/binutils/dwarf.c +++ b/binutils/dwarf.c @@ -1951,6 +1951,8 @@ read_and_display_attr_value (unsigned long attribute, case DW_LANG_C_plus_plus_11: printf ("(C++11)"); break; case DW_LANG_C11: printf ("(C11)"); break; case DW_LANG_C_plus_plus_14: printf ("(C++14)"); break; + case DW_LANG_Fortran03: printf ("(Fortran 03)"); break; + case DW_LANG_Fortran08: printf ("(Fortran 08)"); break; /* MIPS extension. */ case DW_LANG_Mips_Assembler: printf ("(MIPS assembler)"); break; /* UPC extension. */ |