* New R5900 COP2 test case.
[deliverable/binutils-gdb.git] / gdb / symtab.c
index 92bff76850a0571f641163a994584dba203326a9..422a67e79550bda1acc40e32e26e0f71ef9f905e 100644 (file)
@@ -1,5 +1,5 @@
 /* Symbol table lookup for the GNU debugger, GDB.
-   Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995
+   Copyright 1986, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 1997
              Free Software Foundation, Inc.
 
 This file is part of GDB.
@@ -33,6 +33,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "expression.h"
 #include "language.h"
 #include "demangle.h"
+#include "inferior.h"
 
 #include "obstack.h"
 
@@ -77,7 +78,7 @@ list_symbols PARAMS ((char *, int, int, int));
 static void
 output_source_filename PARAMS ((char *, int *));
 
-static char *
+char *
 operator_chars PARAMS ((char *, char **));
 
 static int find_line_common PARAMS ((struct linetable *, int, int *));
@@ -86,12 +87,18 @@ static struct partial_symbol *
 lookup_partial_symbol PARAMS ((struct partial_symtab *, const char *,
                               int, namespace_enum));
 
+static struct partial_symbol *
+fixup_psymbol_section PARAMS ((struct partial_symbol *, struct objfile *));
+
 static struct symtab *
 lookup_symtab_1 PARAMS ((char *));
 
 static void
 cplusplus_hint PARAMS ((char *));
 
+static struct symbol *
+find_active_alias PARAMS ((struct symbol *sym, CORE_ADDR addr));
+
 /* */
 
 /* The single non-language-specific builtin type */
@@ -305,12 +312,11 @@ gdb_mangle_name (type, i, j)
   if (len == 0)
     {
       sprintf (buf, "__%s%s", const_prefix, volatile_prefix);
-      if (strcmp(buf, "__") == 0)
-       buf[0] = '\0';
     }
-  else if (newname != NULL && strchr (newname, '<') != NULL)
+  else if (physname[0] == 't' || physname[0] == 'Q')
     {
-      /* Template methods are fully mangled.  */
+      /* The physname for template and qualified methods already includes
+        the class name.  */
       sprintf (buf, "__%s%s", const_prefix, volatile_prefix);
       newname = NULL;
       len = 0;
@@ -358,11 +364,13 @@ gdb_mangle_name (type, i, j)
 }
 
 \f
-/* Find which partial symtab on contains PC.  Return 0 if none.  */
+
+/* Find which partial symtab on contains PC and SECTION.  Return 0 if none.  */
 
 struct partial_symtab *
-find_pc_psymtab (pc)
-     register CORE_ADDR pc;
+find_pc_sect_psymtab (pc, section)
+     CORE_ADDR pc;
+     asection *section;
 {
   register struct partial_symtab *pst;
   register struct objfile *objfile;
@@ -378,10 +386,11 @@ find_pc_psymtab (pc)
             many partial symbol tables containing the PC, but
             we want the partial symbol table that contains the
             function containing the PC.  */
-         if (!(objfile->flags & OBJF_REORDERED))
+         if (!(objfile->flags & OBJF_REORDERED) &&
+             section == 0)     /* can't validate section this way */
            return (pst);
 
-         msymbol = lookup_minimal_symbol_by_pc (pc);
+         msymbol = lookup_minimal_symbol_by_pc_section (pc, section);
          if (msymbol == NULL)
            return (pst);
 
@@ -391,7 +400,7 @@ find_pc_psymtab (pc)
                {
                  struct partial_symbol *p;
 
-                 p = find_pc_psymbol (tpst, pc);
+                 p = find_pc_sect_psymbol (tpst, pc, section);
                  if (p != NULL
                      && SYMBOL_VALUE_ADDRESS(p)
                         == SYMBOL_VALUE_ADDRESS (msymbol))
@@ -404,18 +413,30 @@ find_pc_psymtab (pc)
   return (NULL);
 }
 
-/* Find which partial symbol within a psymtab contains PC.  Return 0
-   if none.  Check all psymtabs if PSYMTAB is 0.  */
+/* Find which partial symtab contains PC.  Return 0 if none. 
+   Backward compatibility, no section */
+
+struct partial_symtab *
+find_pc_psymtab (pc)
+     CORE_ADDR pc;
+{
+  return find_pc_sect_psymtab (pc, find_pc_mapped_section (pc));
+}
+
+/* Find which partial symbol within a psymtab matches PC and SECTION.  
+   Return 0 if none.  Check all psymtabs if PSYMTAB is 0.  */
+
 struct partial_symbol *
-find_pc_psymbol (psymtab, pc)
+find_pc_sect_psymbol (psymtab, pc, section)
      struct partial_symtab *psymtab;
      CORE_ADDR pc;
+     asection *section;
 {
   struct partial_symbol *best = NULL, *p, **pp;
   CORE_ADDR best_pc;
   
   if (!psymtab)
-    psymtab = find_pc_psymtab (pc);
+    psymtab = find_pc_sect_psymtab (pc, section);
   if (!psymtab)
     return 0;
 
@@ -435,6 +456,12 @@ find_pc_psymbol (psymtab, pc)
          && pc >= SYMBOL_VALUE_ADDRESS (p)
          && SYMBOL_VALUE_ADDRESS (p) > best_pc)
        {
+         if (section)  /* match on a specific section */
+           {
+             fixup_psymbol_section (p, psymtab->objfile);
+             if (SYMBOL_BFD_SECTION (p) != section)
+               continue;
+           }
          best_pc = SYMBOL_VALUE_ADDRESS (p);
          best = p;
        }
@@ -450,6 +477,12 @@ find_pc_psymbol (psymtab, pc)
          && pc >= SYMBOL_VALUE_ADDRESS (p)
          && SYMBOL_VALUE_ADDRESS (p) > best_pc)
        {
+         if (section)  /* match on a specific section */
+           {
+             fixup_psymbol_section (p, psymtab->objfile);
+             if (SYMBOL_BFD_SECTION (p) != section)
+               continue;
+           }
          best_pc = SYMBOL_VALUE_ADDRESS (p);
          best = p;
        }
@@ -459,7 +492,64 @@ find_pc_psymbol (psymtab, pc)
   return best;
 }
 
+/* Find which partial symbol within a psymtab matches PC.  Return 0 if none.  
+   Check all psymtabs if PSYMTAB is 0.  Backwards compatibility, no section. */
+
+struct partial_symbol *
+find_pc_psymbol (psymtab, pc)
+     struct partial_symtab *psymtab;
+     CORE_ADDR pc;
+{
+  return find_pc_sect_psymbol (psymtab, pc, find_pc_mapped_section (pc));
+}
 \f
+/* Debug symbols usually don't have section information.  We need to dig that
+   out of the minimal symbols and stash that in the debug symbol.  */
+
+static void
+fixup_section (ginfo, objfile)
+     struct general_symbol_info *ginfo;
+     struct objfile *objfile;
+{
+  struct minimal_symbol *msym;
+  msym = lookup_minimal_symbol (ginfo->name, NULL, objfile);
+
+  if (msym)
+    ginfo->bfd_section = SYMBOL_BFD_SECTION (msym);
+}
+
+struct symbol *
+fixup_symbol_section (sym, objfile)
+     struct symbol *sym;
+     struct objfile *objfile;
+{
+  if (!sym)
+    return NULL;
+
+  if (SYMBOL_BFD_SECTION (sym))
+    return sym;
+
+  fixup_section (&sym->ginfo, objfile);
+
+  return sym;
+}
+
+static struct partial_symbol *
+fixup_psymbol_section (psym, objfile)
+     struct partial_symbol *psym;
+     struct objfile *objfile;
+{
+  if (!psym)
+    return NULL;
+
+  if (SYMBOL_BFD_SECTION (psym))
+    return psym;
+
+  fixup_section (&psym->ginfo, objfile);
+
+  return psym;
+}
+
 /* Find the definition for a specified symbol name NAME
    in namespace NAMESPACE, visible from lexical block BLOCK.
    Returns the struct symbol pointer, or zero if no symbol is found.
@@ -493,7 +583,7 @@ lookup_symbol (name, block, namespace, is_a_field_of_this, symtab)
   register struct symtab *s = NULL;
   register struct partial_symtab *ps;
   struct blockvector *bv;
-  register struct objfile *objfile;
+  register struct objfile *objfile = NULL;
   register struct block *b;
   register struct minimal_symbol *msymbol;
 
@@ -521,7 +611,7 @@ found:
              *symtab = s;
            }
 
-         return (sym);
+         return fixup_symbol_section (sym, objfile);
        }
       block = BLOCK_SUPERBLOCK (block);
     }
@@ -550,7 +640,7 @@ found:
                  block_found = b;
                  if (symtab != NULL)
                    *symtab = s;
-                 return sym;
+                 return fixup_symbol_section (sym, objfile);
                }
            }
        }
@@ -569,7 +659,7 @@ found:
          *is_a_field_of_this = 1;
          if (symtab != NULL)
            *symtab = NULL;
-         return 0;
+         return NULL;
        }
     }
 
@@ -586,7 +676,7 @@ found:
          block_found = block;
          if (symtab != NULL)
            *symtab = s;
-         return sym;
+         return fixup_symbol_section (sym, objfile);
        }
     }
 
@@ -599,7 +689,8 @@ found:
       msymbol = lookup_minimal_symbol (name, NULL, NULL);
       if (msymbol != NULL)
        {
-         s = find_pc_symtab (SYMBOL_VALUE_ADDRESS (msymbol));
+         s = find_pc_sect_symtab (SYMBOL_VALUE_ADDRESS (msymbol),
+                                 SYMBOL_BFD_SECTION (msymbol));
          if (s != NULL)
            {
              /* This is a function which has a symtab for its address.  */
@@ -630,7 +721,7 @@ found:
 
              if (symtab != NULL)
                *symtab = s;
-             return sym;
+             return fixup_symbol_section (sym, objfile);
            }
          else if (MSYMBOL_TYPE (msymbol) != mst_text
                   && MSYMBOL_TYPE (msymbol) != mst_file_text
@@ -638,7 +729,7 @@ found:
            {
              /* This is a mangled variable, look it up by its
                 mangled name.  */
-             return lookup_symbol (SYMBOL_NAME (msymbol), block,
+             return lookup_symbol (SYMBOL_NAME (msymbol), block, 
                                    namespace, is_a_field_of_this, symtab);
            }
          /* There are no debug symbols for this file, or we are looking
@@ -659,7 +750,7 @@ found:
            error ("Internal: global symbol `%s' found in %s psymtab but not in symtab", name, ps->filename);
          if (symtab != NULL)
            *symtab = s;
-         return sym;
+         return fixup_symbol_section (sym, objfile);
        }
     }
 
@@ -677,7 +768,7 @@ found:
          block_found = block;
          if (symtab != NULL)
            *symtab = s;
-         return sym;
+         return fixup_symbol_section (sym, objfile);
        }
     }
 
@@ -693,7 +784,7 @@ found:
            error ("Internal: static symbol `%s' found in %s psymtab but not in symtab", name, ps->filename);
          if (symtab != NULL)
            *symtab = s;
-         return sym;
+         return fixup_symbol_section (sym, objfile);
        }
     }
 
@@ -929,6 +1020,15 @@ lookup_block_symbol (block, name, namespace)
          if (SYMBOL_NAMESPACE (sym) == namespace &&
              SYMBOL_MATCHES_NAME (sym, name))
            {
+             /* If SYM has aliases, then use any alias that is active
+                at the current PC.  If no alias is active at the current
+                PC, then use the main symbol.
+
+                ?!? Is checking the current pc correct?  Is this routine
+                ever called to look up a symbol from another context?  */
+              if (SYMBOL_ALIASES (sym))
+                sym = find_active_alias (sym, read_pc ());
+
              sym_found = sym;
              if (SYMBOL_CLASS (sym) != LOC_ARG &&
                  SYMBOL_CLASS (sym) != LOC_LOCAL_ARG &&
@@ -946,6 +1046,39 @@ lookup_block_symbol (block, name, namespace)
   return (sym_found);          /* Will be NULL if not found. */
 }
 
+/* Given a main symbol SYM and ADDR, search through the alias
+   list to determine if an alias is active at ADDR and return
+   the active alias.
+
+   If no alias is active, then return SYM.  */
+
+static struct symbol *
+find_active_alias (sym, addr)
+  struct symbol *sym;
+  CORE_ADDR addr;
+{
+  struct range_list *r;
+  struct alias_list *aliases;
+
+  /* If we have aliases, check them first.  */
+  aliases = SYMBOL_ALIASES (sym);
+
+  while (aliases)
+    {
+      if (!SYMBOL_RANGES (aliases->sym))
+        return aliases->sym;
+      for (r = SYMBOL_RANGES (aliases->sym); r; r = r->next)
+       {
+         if (r->start <= addr && r->end > addr)
+           return aliases->sym;
+       }
+      aliases = aliases->next;
+    }
+
+  /* Nothing found, return the main symbol.  */
+  return sym;
+}
+
 \f
 /* Return the symbol for the function which contains a specified
    lexical block, described by a struct block BL.  */
@@ -960,12 +1093,13 @@ block_function (bl)
   return BLOCK_FUNCTION (bl);
 }
 
-/* Find the symtab associated with PC.  Look through the psymtabs and read in
-   another symtab if necessary. */
+/* Find the symtab associated with PC and SECTION.  Look through the
+   psymtabs and read in another symtab if necessary. */
 
 struct symtab *
-find_pc_symtab (pc)
-     register CORE_ADDR pc;
+find_pc_sect_symtab (pc, section)
+     CORE_ADDR pc;
+     asection *section;
 {
   register struct block *b;
   struct blockvector *bv;
@@ -973,7 +1107,7 @@ find_pc_symtab (pc)
   register struct symtab *best_s = NULL;
   register struct partial_symtab *ps;
   register struct objfile *objfile;
-  int distance = 0;
+  CORE_ADDR distance = 0;
 
   /* Search all symtabs for the one whose file contains our address, and which
      is the smallest of all the ones containing the address.  This is designed
@@ -1002,14 +1136,27 @@ find_pc_symtab (pc)
          /* For an objfile that has its functions reordered,
             find_pc_psymtab will find the proper partial symbol table
             and we simply return its corresponding symtab.  */
+         /* In order to better support objfiles that contain both
+            stabs and coff debugging info, we continue on if a psymtab
+            can't be found. */
          if ((objfile->flags & OBJF_REORDERED) && objfile->psymtabs)
            {
-             ps = find_pc_psymtab (pc);
+             ps = find_pc_sect_psymtab (pc, section);
              if (ps)
-               s = PSYMTAB_TO_SYMTAB (ps);
-             else
-               s = NULL;
-             return (s);
+               return PSYMTAB_TO_SYMTAB (ps);
+           }
+         if (section != 0)
+           {
+             int i;
+
+             for (i = 0; i < b->nsyms; i++)
+               {
+                 fixup_symbol_section (b->sym[i], objfile);
+                 if (section == SYMBOL_BFD_SECTION (b->sym[i]))
+                   break;
+               }
+             if (i >= b->nsyms)
+               continue;       /* no symbol in this symtab matches section */
            }
          distance = BLOCK_END (b) - BLOCK_START (b);
          best_s = s;
@@ -1020,7 +1167,7 @@ find_pc_symtab (pc)
     return(best_s);
 
   s = NULL;
-  ps = find_pc_psymtab (pc);
+  ps = find_pc_sect_psymtab (pc, section);
   if (ps)
     {
       if (ps->readin)
@@ -1035,6 +1182,17 @@ find_pc_symtab (pc)
     }
   return (s);
 }
+
+/* Find the symtab associated with PC.  Look through the psymtabs and
+   read in another symtab if necessary.  Backward compatibility, no section */
+
+struct symtab *
+find_pc_symtab (pc)
+     CORE_ADDR pc;
+{
+  return find_pc_sect_symtab (pc, find_pc_mapped_section (pc));
+}
+
 \f
 #if 0
 
@@ -1116,7 +1274,7 @@ find_addr_symbol (addr, symtabp, symaddrp)
 }
 #endif /* 0 */
 
-/* Find the source file and line number for a given PC value.
+/* Find the source file and line number for a given PC value and section.
    Return a structure containing a symtab pointer, a line number,
    and a pc range for the entire source line.
    The value's .pc field is NOT the specified pc.
@@ -1134,8 +1292,9 @@ find_addr_symbol (addr, symtabp, symaddrp)
 /* If it's worth the effort, we could be using a binary search.  */
 
 struct symtab_and_line
-find_pc_line (pc, notcurrent)
+find_pc_sect_line (pc, section, notcurrent)
      CORE_ADDR pc;
+     struct sec *section;
      int notcurrent;
 {
   struct symtab *s;
@@ -1170,15 +1329,18 @@ find_pc_line (pc, notcurrent)
      But what we want is the statement containing the instruction.
      Fudge the pc to make sure we get that.  */
 
-  if (notcurrent) pc -= 1;
+  INIT_SAL (&val);     /* initialize to zeroes */
+
+  if (notcurrent)
+    pc -= 1;
 
-  s = find_pc_symtab (pc);
+  s = find_pc_sect_symtab (pc, section);
   if (!s)
     {
-      val.symtab = 0;
-      val.line = 0;
+      /* if no symbol information, return previous pc */
+      if (notcurrent)
+       pc++;
       val.pc = pc;
-      val.end = 0;
       return val;
     }
 
@@ -1248,11 +1410,8 @@ find_pc_line (pc, notcurrent)
     {
       if (!alt_symtab)
        {                       /* If we didn't find any line # info, just
-                                return zeros.  */
-         val.symtab = 0;
-         val.line = 0;
+                                  return zeros.  */
          val.pc = pc;
-         val.end = 0;
        }
       else
        {
@@ -1278,8 +1437,25 @@ find_pc_line (pc, notcurrent)
       else
        val.end = BLOCK_END (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK));
     }
+  val.section = section;
   return val;
 }
+
+/* Backward compatibility (no section) */
+
+struct symtab_and_line
+find_pc_line (pc, notcurrent)
+     CORE_ADDR pc;
+     int notcurrent;
+{
+  asection     *section;
+
+  section = find_pc_overlay (pc);
+  if (pc_in_unmapped_range (pc, section))
+    pc = overlay_mapped_address (pc, section);
+  return find_pc_sect_line (pc, section, notcurrent);
+}
+
 \f
 static int find_line_symtab PARAMS ((struct symtab *, int, struct linetable **,
                                     int *, int *));
@@ -1423,7 +1599,7 @@ find_line_pc_range (sal, startptr, endptr)
      This also insures that we never give a range like "starts at 0x134
      and ends at 0x12c".  */
 
-  found_sal = find_pc_line (startaddr, 0);
+  found_sal = find_pc_sect_line (startaddr, sal.section, 0);
   if (found_sal.line != sal.line)
     {
       /* The specified line (sal) has zero bytes.  */
@@ -1519,12 +1695,23 @@ find_function_start_sal (sym, funfirstline)
   struct symtab_and_line sal;
 
   pc = BLOCK_START (SYMBOL_BLOCK_VALUE (sym));
+  fixup_symbol_section (sym, NULL);
   if (funfirstline)
-    {
+    { /* skip "first line" of function (which is actually its prologue) */
+      asection *section = SYMBOL_BFD_SECTION (sym);
+      /* If function is in an unmapped overlay, use its unmapped LMA
+        address, so that SKIP_PROLOGUE has something unique to work on */
+      if (section_is_overlay (section) &&
+         !section_is_mapped (section))
+       pc = overlay_unmapped_address (pc, section);
+
       pc += FUNCTION_START_OFFSET;
       SKIP_PROLOGUE (pc);
+
+      /* For overlays, map pc back into its mapped VMA range */
+      pc = overlay_mapped_address (pc, section);
     }
-  sal = find_pc_line (pc, 0);
+  sal = find_pc_sect_line (pc, SYMBOL_BFD_SECTION (sym), 0);
 
 #ifdef PROLOGUE_FIRSTLINE_OVERLAP
   /* Convex: no need to suppress code on first line, if any */
@@ -1539,7 +1726,7 @@ find_function_start_sal (sym, funfirstline)
       /* First pc of next line */
       pc = sal.end;
       /* Recalculate the line number (might not be N+1).  */
-      sal = find_pc_line (pc, 0);
+      sal = find_pc_sect_line (pc, SYMBOL_BFD_SECTION (sym), 0);
     }
   sal.pc = pc;
 #endif
@@ -1551,7 +1738,7 @@ find_function_start_sal (sym, funfirstline)
    some legitimate operator text, return a pointer to the
    beginning of the substring of the operator text.
    Otherwise, return "".  */
-static char *
+char *
 operator_chars (p, end)
      char *p;
      char **end;
@@ -1647,6 +1834,8 @@ total_number_of_methods (type)
   int count;
 
   CHECK_TYPEDEF (type);
+  if (TYPE_CPLUS_SPECIFIC (type) == NULL)
+    return 0;
   count = TYPE_NFN_FIELDS_TOTAL (type);
 
   for (n = 0; n < TYPE_N_BASECLASSES (type); n++)
@@ -1717,19 +1906,12 @@ find_methods (t, name, sym_arr)
                if (DESTRUCTOR_PREFIX_P (phys_name))
                  continue;
 
-               /* FIXME: Why are we looking this up in the
-                  SYMBOL_BLOCK_VALUE (sym_class)?  It is intended as a hook
-                  for nested types?  If so, it should probably hook to the
-                  type, not the symbol.  mipsread.c is the only symbol
-                  reader which sets the SYMBOL_BLOCK_VALUE for types, and
-                  this is not documented in symtab.h.  -26Aug93.  */
-
                sym_arr[i1] = lookup_symbol (phys_name,
-                                            SYMBOL_BLOCK_VALUE (sym_class),
-                                            VAR_NAMESPACE,
+                                            NULL, VAR_NAMESPACE,
                                             (int *) NULL,
                                             (struct symtab **) NULL);
-               if (sym_arr[i1]) i1++;
+               if (sym_arr[i1])
+                 i1++;
                else
                  {
                    fputs_filtered("(Cannot find method ", gdb_stdout);
@@ -1902,6 +2084,8 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
   char *saved_arg = *argptr;
   extern char *gdb_completer_quote_characters;
   
+  INIT_SAL (&val);     /* initialize to zeroes */
+
   /* Defaults have defaults.  */
 
   if (default_symtab == 0)
@@ -1920,7 +2104,6 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
        xmalloc (sizeof (struct symtab_and_line));
       values.nelts = 1;
       values.sals[0] = find_pc_line (pc, 0);
-      values.sals[0].pc = pc;
       return values;
     }
 
@@ -1944,15 +2127,25 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
        }
       if (p[0] == ':' || p[0] == ' ' || p[0] == '\t')
        break;
+      if (p[0] == '.' && strchr (p, ':') == NULL) /* Java qualified method. */
+       {
+         /* Find the *last* '.', since the others are package qualifiers. */
+         for (p1 = p;  *p1;  p1++)
+           {
+             if (*p1 == '.')
+               p = p1;
+           }
+         break;
+       }
     }
   while (p[0] == ' ' || p[0] == '\t') p++;
 
-  if ((p[0] == ':') && !has_parens)
+  if ((p[0] == ':' || p[0] == '.') && !has_parens)
     {
 
-      /*  C++  */
+      /*  C++ or Java */
       if (is_quoted) *argptr = *argptr+1;
-      if (p[1] ==':')
+      if (p[0] == '.' || p[1] ==':')
        {
          /* Extract the class name.  */
          p1 = p;
@@ -1962,7 +2155,7 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
          copy[p - *argptr] = 0;
 
          /* Discard the class name from the arg.  */
-         p = p1 + 2;
+         p = p1 + (p1[0] == ':' ? 2 : 1);
          while (*p == ' ' || *p == '\t') p++;
          *argptr = p;
 
@@ -2029,25 +2222,22 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
              sym_arr = (struct symbol **) alloca(total_number_of_methods (t)
                                                  * sizeof(struct symbol *));
 
-             /* Cfront objects don't have fieldlists.  */
-             if (destructor_name_p (copy, t) && TYPE_FN_FIELDLISTS (t) != NULL)
+             if (destructor_name_p (copy, t))
                {
-                 /* destructors are a special case.  */
-                 struct fn_field *f = TYPE_FN_FIELDLIST1 (t, 0);
-                 int len = TYPE_FN_FIELDLIST_LENGTH (t, 0) - 1;
-                 /* gcc 1.x puts destructor in last field,
-                    gcc 2.x puts destructor in first field.  */
-                 char *phys_name = TYPE_FN_FIELD_PHYSNAME (f, len);
-                 if (!DESTRUCTOR_PREFIX_P (phys_name))
+                 /* Destructors are a special case.  */
+                 int m_index, f_index;
+
+                 if (get_destructor_fn_field (t, &m_index, &f_index))
                    {
-                     phys_name = TYPE_FN_FIELD_PHYSNAME (f, 0);
-                     if (!DESTRUCTOR_PREFIX_P (phys_name))
-                       phys_name = "";
+                     struct fn_field *f = TYPE_FN_FIELDLIST1 (t, m_index);
+
+                     sym_arr[i1] =
+                       lookup_symbol (TYPE_FN_FIELD_PHYSNAME (f, f_index),
+                                      NULL, VAR_NAMESPACE, (int *) NULL,
+                                      (struct symtab **)NULL);
+                     if (sym_arr[i1])
+                       i1++;
                    }
-                 sym_arr[i1] =
-                   lookup_symbol (phys_name, SYMBOL_BLOCK_VALUE (sym_class),
-                                  VAR_NAMESPACE, 0, (struct symtab **)NULL);
-                 if (sym_arr[i1]) i1++;
                }
              else
                i1 = find_methods (t, copy, sym_arr);
@@ -2058,7 +2248,8 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
 
                  if (sym && SYMBOL_CLASS (sym) == LOC_BLOCK)
                    {
-                     values.sals = (struct symtab_and_line *)xmalloc (sizeof (struct symtab_and_line));
+                     values.sals = (struct symtab_and_line *)
+                       xmalloc (sizeof (struct symtab_and_line));
                      values.nelts = 1;
                      values.sals[0] = find_function_start_sal (sym,
                                                                funfirstline);
@@ -2196,7 +2387,8 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
        s = default_symtab;
       val.symtab = s;
       val.pc = 0;
-      values.sals = (struct symtab_and_line *)xmalloc (sizeof (struct symtab_and_line));
+      values.sals = (struct symtab_and_line *)
+       xmalloc (sizeof (struct symtab_and_line));
       values.sals[0] = val;
       values.nelts = 1;
       if (need_canonical)
@@ -2277,7 +2469,8 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
       if (SYMBOL_CLASS (sym) == LOC_BLOCK)
        {
          /* Arg is the name of a function */
-         values.sals = (struct symtab_and_line *)xmalloc (sizeof (struct symtab_and_line));
+         values.sals = (struct symtab_and_line *)
+           xmalloc (sizeof (struct symtab_and_line));
          values.sals[0] = find_function_start_sal (sym, funfirstline);
          values.nelts = 1;
 
@@ -2324,15 +2517,15 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
   msymbol = lookup_minimal_symbol (copy, NULL, NULL);
   if (msymbol != NULL)
     {
-      val.symtab = 0;
-      val.line = 0;
-      val.pc = SYMBOL_VALUE_ADDRESS (msymbol);
+      val.pc      = SYMBOL_VALUE_ADDRESS (msymbol);
+      val.section = SYMBOL_BFD_SECTION (msymbol);
       if (funfirstline)
        {
          val.pc += FUNCTION_START_OFFSET;
          SKIP_PROLOGUE (val.pc);
        }
-      values.sals = (struct symtab_and_line *)xmalloc (sizeof (struct symtab_and_line));
+      values.sals = (struct symtab_and_line *)
+       xmalloc (sizeof (struct symtab_and_line));
       values.sals[0] = val;
       values.nelts = 1;
       return values;
@@ -2382,8 +2575,10 @@ decode_line_2 (sym_arr, nelts, funfirstline, canonical)
   struct cleanup *old_chain;
   char **canonical_arr = (char **)NULL;
 
-  values.sals = (struct symtab_and_line *) alloca (nelts * sizeof(struct symtab_and_line));
-  return_values.sals = (struct symtab_and_line *) xmalloc (nelts * sizeof(struct symtab_and_line));
+  values.sals = (struct symtab_and_line *) 
+    alloca (nelts * sizeof(struct symtab_and_line));
+  return_values.sals = (struct symtab_and_line *) 
+    xmalloc (nelts * sizeof(struct symtab_and_line));
   old_chain = make_cleanup (free, return_values.sals);
 
   if (canonical)
@@ -2398,6 +2593,8 @@ decode_line_2 (sym_arr, nelts, funfirstline, canonical)
   printf_unfiltered("[0] cancel\n[1] all\n");
   while (i < nelts)
     {
+      INIT_SAL (&return_values.sals[i]);       /* initialize to zeroes */
+      INIT_SAL (&values.sals[i]);
       if (sym_arr[i] && SYMBOL_CLASS (sym_arr[i]) == LOC_BLOCK)
        {
          values.sals[i] = find_function_start_sal (sym_arr[i], funfirstline);
@@ -2458,7 +2655,7 @@ decode_line_2 (sym_arr, nelts, funfirstline, canonical)
          return return_values;
        }
 
-      if (num > nelts + 2)
+      if (num >= nelts + 2)
        {
          printf_unfiltered ("No choice number %d.\n", num);
        }
@@ -2848,15 +3045,26 @@ list_symbols (regexp, class, bpt, from_tty)
                      }
                    else
                      {
-# if 0  /* FIXME, why is this zapped out? */
-                       char buf[1024];
+# if 0
+/* Tiemann says: "info methods was never implemented."  */
+                       char *demangled_name;
                        c_type_print_base (TYPE_FN_FIELD_TYPE(t, i),
                                           gdb_stdout, 0, 0); 
                        c_type_print_varspec_prefix (TYPE_FN_FIELD_TYPE(t, i),
                                                     gdb_stdout, 0); 
-                       sprintf (buf, " %s::", type_name_no_tag (t));
-                       cp_type_print_method_args (TYPE_FN_FIELD_ARGS (t, i),
-                                                  buf, name, gdb_stdout);
+                       if (TYPE_FN_FIELD_STUB (t, i))
+                         check_stub_method (TYPE_DOMAIN_TYPE (type), j, i);
+                       demangled_name =
+                         cplus_demangle (TYPE_FN_FIELD_PHYSNAME (t, i),
+                                         DMGL_ANSI | DMGL_PARAMS);
+                       if (demangled_name == NULL)
+                         fprintf_filtered (stream, "<badly mangled name %s>",
+                                           TYPE_FN_FIELD_PHYSNAME (t, i));
+                       else
+                         {
+                           fputs_filtered (demangled_name, stream);
+                           free (demangled_name);
+                         }
 # endif
                      }
                  }
@@ -3262,7 +3470,7 @@ make_symbol_completion_list (text, word)
    between the first instruction of a function, and the first executable line.
    Returns 1 if PC *might* be in prologue, 0 if definately *not* in prologue.
 
-   If non-zero, func_start is where we thing the prologue starts, possibly
+   If non-zero, func_start is where we think the prologue starts, possibly
    by previous examination of symbol table information.
  */
 
@@ -3341,7 +3549,7 @@ are listed.");
   add_info ("sources", sources_info,
            "Source files in the program.");
 
-  add_com ("rbreak", no_class, rbreak_command,
+  add_com ("rbreak", class_breakpoint, rbreak_command,
            "Set a breakpoint for all functions matching REGEXP.");
 
   /* Initialize the one built-in type that isn't language dependent... */
This page took 0.034896 seconds and 4 git commands to generate.