* dbxread.c: Enable, but soften, const_vol_complaint.

(read_dbx_symtab):  N_STSYM and N_LCSYM define static vars.
Ditto Gould N_NBSTS and N_NBLCS.  Also, all types in the psymtab
should be file-scope, not global.
(read_struct_type):  Remove ancient multiple-inheritance warning.
(read_range_type):  Check base type, complain & patch if undefined.
This commit is contained in:
John Gilmore 1991-10-01 13:29:10 +00:00
parent a187ef68c1
commit 9bb3045288
2 changed files with 24 additions and 33 deletions

View File

@ -1,5 +1,11 @@
Mon Sep 30 13:15:31 1991 John Gilmore (gnu at cygnus.com) Mon Sep 30 13:15:31 1991 John Gilmore (gnu at cygnus.com)
* dbxread.c: Enable, but soften, const_vol_complaint.
(read_dbx_symtab): N_STSYM and N_LCSYM define static vars.
Ditto Gould N_NBSTS and N_NBLCS. Also, all types in the psymtab
should be file-scope, not global.
(read_struct_type): Remove ancient multiple-inheritance warning.
(read_range_type): Check base type, complain & patch if undefined.
* stack.c (frame_info): Demangle the function name in `info stack'. * stack.c (frame_info): Demangle the function name in `info stack'.
(From Peter Schauer) (From Peter Schauer)

View File

@ -400,13 +400,16 @@ struct complaint lbrac_rbrac_complaint =
{"block start larger than block end", 0, 0}; {"block start larger than block end", 0, 0};
struct complaint const_vol_complaint = struct complaint const_vol_complaint =
{"const/volatile indicator missing, got '%c'", 0, 0}; {"const/volatile indicator missing (ok if using g++ v1.x), got '%c'", 0, 0};
struct complaint error_type_complaint = struct complaint error_type_complaint =
{"C++ type mismatch between compiler and debugger", 0, 0}; {"C++ type mismatch between compiler and debugger", 0, 0};
struct complaint invalid_member_complaint = struct complaint invalid_member_complaint =
{"invalid (minimal) member type data format at symtab pos %d.", 0, 0}; {"invalid (minimal) member type data format at symtab pos %d.", 0, 0};
struct complaint range_type_base_complaint =
{"base type %d of range type is not defined", 0, 0};
/* Support for Sun changes to dbx symbol format */ /* Support for Sun changes to dbx symbol format */
@ -1825,10 +1828,7 @@ read_dbx_symtab (symfile_name, addr,
/* We need to be able to deal with both N_FN or N_TEXT, /* We need to be able to deal with both N_FN or N_TEXT,
because we have no way of knowing whether the sys-supplied ld because we have no way of knowing whether the sys-supplied ld
or GNU ld was used to make the executable. */ or GNU ld was used to make the executable. */
#if ! (N_FN & N_EXT)
case N_FN: case N_FN:
#endif
case N_FN | N_EXT:
case N_TEXT: case N_TEXT:
bufp->n_value += addr; /* Relocate */ bufp->n_value += addr; /* Relocate */
SET_NAMESTRING(); SET_NAMESTRING();
@ -2008,7 +2008,7 @@ read_dbx_symtab (symfile_name, addr,
source file, or a previously included file. source file, or a previously included file.
This seems to be a lot of time to be spending on N_SOL, but This seems to be a lot of time to be spending on N_SOL, but
things like "break expread.y:435" need to work (I things like "break c-exp.y:435" need to work (I
suppose the psymtab_include_list could be hashed or put suppose the psymtab_include_list could be hashed or put
in a binary tree, if profiling shows this is a major hog). */ in a binary tree, if profiling shows this is a major hog). */
if (!strcmp (namestring, pst->filename)) if (!strcmp (namestring, pst->filename))
@ -2039,6 +2039,11 @@ read_dbx_symtab (symfile_name, addr,
continue; continue;
case N_LSYM: /* Typedef or automatic variable. */ case N_LSYM: /* Typedef or automatic variable. */
case N_STSYM: /* Data seg var -- static */
case N_LCSYM: /* BSS " */
case N_NBSTS: /* Gould nobase. */
case N_NBLCS: /* symbols. */
SET_NAMESTRING(); SET_NAMESTRING();
p = (char *) strchr (namestring, ':'); p = (char *) strchr (namestring, ':');
@ -2140,11 +2145,6 @@ read_dbx_symtab (symfile_name, addr,
case N_FUN: case N_FUN:
case N_GSYM: /* Global (extern) variable; can be case N_GSYM: /* Global (extern) variable; can be
data or bss (sigh). */ data or bss (sigh). */
case N_STSYM: /* Data seg var -- static */
case N_LCSYM: /* BSS " */
case N_NBSTS: /* Gould nobase. */
case N_NBLCS: /* symbols. */
/* Following may probably be ignored; I'll leave them here /* Following may probably be ignored; I'll leave them here
for now (until I do Pascal and Modula 2 extensions). */ for now (until I do Pascal and Modula 2 extensions). */
@ -2194,7 +2194,7 @@ read_dbx_symtab (symfile_name, addr,
case 't': case 't':
ADD_PSYMBOL_TO_LIST (namestring, p - namestring, ADD_PSYMBOL_TO_LIST (namestring, p - namestring,
VAR_NAMESPACE, LOC_TYPEDEF, VAR_NAMESPACE, LOC_TYPEDEF,
global_psymbols, bufp->n_value); static_psymbols, bufp->n_value);
continue; continue;
case 'f': case 'f':
@ -3151,9 +3151,8 @@ process_one_symbol (type, desc, valu, name)
local_symbols = new->locals; local_symbols = new->locals;
break; break;
case N_FN | N_EXT: case N_FN:
/* This kind of symbol supposedly indicates the start /* This kind of symbol indicates the start of an object file. */
of an object file. In fact this type does not appear. */
break; break;
case N_SO: case N_SO:
@ -4292,23 +4291,6 @@ read_struct_type (pp, type)
baseclass = read_type (pp); baseclass = read_type (pp);
*pp += 1; /* skip trailing ';' */ *pp += 1; /* skip trailing ';' */
#if 0
/* One's understanding improves, grasshopper... */
if (offset != 0)
{
static int error_printed = 0;
if (!error_printed)
{
fprintf (stderr,
"\nWarning: GDB has limited understanding of multiple inheritance...");
if (!info_verbose)
fprintf(stderr, "\n");
error_printed = 1;
}
}
#endif
/* Make this baseclass visible for structure-printing purposes. */ /* Make this baseclass visible for structure-printing purposes. */
new = (struct nextfield *) alloca (sizeof (struct nextfield)); new = (struct nextfield *) alloca (sizeof (struct nextfield));
new->next = list; new->next = list;
@ -4628,12 +4610,11 @@ read_struct_type (pp, type)
D for `const volatile' member functions. */ D for `const volatile' member functions. */
if (**pp == 'A' || **pp == 'B' || **pp == 'C' || **pp == 'D') if (**pp == 'A' || **pp == 'B' || **pp == 'C' || **pp == 'D')
(*pp)++; (*pp)++;
#if 0
/* This probably just means we're processing a file compiled /* This probably just means we're processing a file compiled
with g++ version 1. */ with g++ version 1. */
else else
complain(&const_vol_complaint, **pp); complain(&const_vol_complaint, **pp);
#endif /* 0 */
switch (*(*pp)++) switch (*(*pp)++)
{ {
@ -5263,6 +5244,10 @@ read_range_type (pp, typenums)
TYPE_CODE (result_type) = TYPE_CODE_RANGE; TYPE_CODE (result_type) = TYPE_CODE_RANGE;
TYPE_TARGET_TYPE (result_type) = *dbx_lookup_type(rangenums); TYPE_TARGET_TYPE (result_type) = *dbx_lookup_type(rangenums);
if (TYPE_TARGET_TYPE (result_type) == 0) {
complain (&range_type_base_complaint, rangenums[1]);
TYPE_TARGET_TYPE (result_type) = builtin_type_int;
}
TYPE_NFIELDS (result_type) = 2; TYPE_NFIELDS (result_type) = 2;
TYPE_FIELDS (result_type) = TYPE_FIELDS (result_type) =