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

diff --git a/binutils/ChangeLog b/binutils/ChangeLog
index 803bfa89b8438bab9234e1718d1a1b6eb4d10163..01c463441b5aef145deecec4132094171ece1d5a 100644 (file)
--- 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 cebd8c9b76744338839a4d17800992764f08dcc3..e93a757287687e797f15d1ffe64fc1526b57be6e 100644 (file)
--- 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.  */

diff --git a/include/ChangeLog b/include/ChangeLog
index 4004997441edbfcf8b8c10c1bf80e30fcd567c9a..24a141dba511a222c5bd49618cce0f87b5c3517f 100644 (file)
--- a/include/ChangeLog
+++ b/include/ChangeLog
@@ -1,3 +1,7 @@
+2015-02-09  Mark Wielaard  <mjw@redhat.com>
+
+       * dwarf2.h: Add DW_LANG_Fortran03 and DW_LANG_Fortran08.
+
 2015-02-09  Mark Wielaard  <mjw@redhat.com>
 
        * dwarf2.def: Add DW_TAG_atomic_type.

diff --git a/include/dwarf2.h b/include/dwarf2.h
index 791ef566f9949e6cef2dd9dd18d2874849352c3a..4ada87162fa868eb80c6994e1877c6d9897ae732 100644 (file)
--- a/include/dwarf2.h
+++ b/include/dwarf2.h
@@ -310,6 +310,8 @@ enum dwarf_source_language
     DW_LANG_C_plus_plus_11 = 0x001a, /* dwarf5.20141029.pdf DRAFT */
     DW_LANG_C11 = 0x001d,
     DW_LANG_C_plus_plus_14 = 0x0021,
+    DW_LANG_Fortran03 = 0x0022,
+    DW_LANG_Fortran08 = 0x0023,
 
     DW_LANG_lo_user = 0x8000,  /* Implementation-defined range start.  */
     DW_LANG_hi_user = 0xffff,  /* Implementation-defined range start.  */