gdb-archer-ada.patch

   1 From: Keith Seitz <keiths@redhat.com>
   2 Message-ID: <4B7F207A.7020102@redhat.com>
   3
   4 [ read_partial_die part dropped in the port to Rawhide ]
   5
   6 --- gdb-7.0.1-orig/gdb/dwarf2read.c     2010-02-20 01:06:44.000000000 +0100
   7 +++ gdb-7.0.1/gdb/dwarf2read.c  2010-02-20 01:08:28.000000000 +0100
   8 @@ -9924,9 +9928,13 @@ dwarf2_canonicalize_name (char *name, st
   9  static char *
  10  dwarf2_name (struct die_info *die, struct dwarf2_cu *cu)
  11  {
  12 -  struct attribute *attr;
  13 +  struct attribute *attr = NULL;
  14 +
  15 +  if (cu->language == language_ada)
  16 +    attr = dwarf2_attr (die, DW_AT_MIPS_linkage_name, cu);
  17
  18 -  attr = dwarf2_attr (die, DW_AT_name, cu);
  19 +  if (!attr)
  20 +    attr = dwarf2_attr (die, DW_AT_name, cu);
  21    if (!attr || !DW_STRING (attr))
  22      return NULL;
  23