2010-01-14 Tristan Gingold <gingold@adacore.com>

	* dwarf.c (get_AT_name): Handle DW_AT_use_GNAT_descriptive_type
	and DW_AT_GNAT_descriptive_type.

diff --git a/binutils/ChangeLog b/binutils/ChangeLog
index 82d912f85659dfde1c34cecdaad7421e2396b84e..2dfc75f85a4b16ab328d8fd646f17a9ffa327161 100644 (file)
--- a/binutils/ChangeLog
+++ b/binutils/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-14  Tristan Gingold  <gingold@adacore.com>
+
+       * dwarf.c (get_AT_name): Handle DW_AT_use_GNAT_descriptive_type
+       and DW_AT_GNAT_descriptive_type.
+
 2010-01-13  Tristan Gingold  <gingold@adacore.com>
 
        * ar.c (main): Use lbasename.

diff --git a/binutils/dwarf.c b/binutils/dwarf.c
index eb6c2d70905731f09a2f21efdc46cf9e857a43ea..93eb15a79bc11e2050d2e14adbe586adb079d6b9 100644 (file)
--- a/binutils/dwarf.c
+++ b/binutils/dwarf.c
@@ -1802,6 +1802,8 @@ get_AT_name (unsigned long attribute)
     case DW_AT_GNU_exclusive_locks_required:   return "DW_AT_GNU_exclusive_locks_required";
     case DW_AT_GNU_shared_locks_required:      return "DW_AT_GNU_shared_locks_required";
     case DW_AT_GNU_odr_signature:              return "DW_AT_GNU_odr_signature";
+    case DW_AT_use_GNAT_descriptive_type:      return "DW_AT_use_GNAT_descriptive_type";
+    case DW_AT_GNAT_descriptive_type:          return "DW_AT_GNAT_descriptive_type";
 
       /* UPC extension.  */
     case DW_AT_upc_threads_scaled:     return "DW_AT_upc_threads_scaled";