File gdb-archer-ada.patch of Package gdb

From: Keith Seitz <keiths@redhat.com>
Message-ID: <4B7F207A.7020102@redhat.com>

[ read_partial_die part dropped in the port to Rawhide ]

--- gdb-7.0.1-orig/gdb/dwarf2read.c	2010-02-20 01:06:44.000000000 +0100
+++ gdb-7.0.1/gdb/dwarf2read.c	2010-02-20 01:08:28.000000000 +0100
@@ -9924,9 +9928,13 @@ dwarf2_canonicalize_name (char *name, st
 static char *
 dwarf2_name (struct die_info *die, struct dwarf2_cu *cu)
 {
-  struct attribute *attr;
+  struct attribute *attr = NULL;
+
+  if (cu->language == language_ada)
+    attr = dwarf2_attr (die, DW_AT_MIPS_linkage_name, cu);
 
-  attr = dwarf2_attr (die, DW_AT_name, cu);
+  if (!attr)
+    attr = dwarf2_attr (die, DW_AT_name, cu);
   if (!attr || !DW_STRING (attr))
     return NULL;