OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* coffread.c (coff_symfile_read): Use xmalloc, not malloc. 

* language.c, printcmd.c:  Lint.
        * language.h (get_frame_language):  Declare.
        * saber.suppress:  update.
        * stack.c (find_relative_frame):  Remove complex code that was
        #if 0'd, stick with simple code.  Lint.
	* saber.suppress:  Update a bit.
        * symfile.c (add_symbol_file_command):  Add "?" to question.
        * utils.c (parse_escape):  Avoid \a due to bdead compilers.
        * value.h:  Declare typedef_print.

        * valprint.c (val_print, type_print_base):  TYPE_CODE_RANGE less
        kludgey.
This commit is contained in:
John Gilmore 1991-09-28 01:35:29 +00:00
parent dad0e12d57
commit d8ce13268e
6 changed files with 246 additions and 124 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

183
gdb/coffread.c
View File

@ -1,7 +1,5 @@
/* Read coff symbol tables and convert to internal format, for GDB.
Design and support routines derived from dbxread.c, and UMAX COFF
specific routines written 9/1/87 by David D. Johnson, Brown University.
Revised 11/27/87 ddj@cs.brown.edu
Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
Copyright (C) 1987-1991 Free Software Foundation, Inc.
This file is part of GDB.
@ -29,10 +27,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "symfile.h"
#if defined (TDESC)
/* Need to get C_VERSION and friends. */
#include <a.out.h>
#else /* not TDESC */
#include <intel-coff.h>
/* Need to get C_VERSION and friends. FIXME, should be in internalcoff.h */
#include "m88k-bcs.h"
#endif /* not TDESC */
#include <obstack.h>
@ -71,6 +67,15 @@ extern void free_all_psymtabs ();
#define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
/*
* Convert from an sdb register number to an internal gdb register number.
* This should be defined in tm.h, if REGISTER_NAMES is not set up
* to map one to one onto the sdb register numbers.
*/
#ifndef SDB_REG_TO_REGNUM
# define SDB_REG_TO_REGNUM(value) (value)
#endif
/* Name of source file whose symbol data we are now processing.
This comes from a symbol named ".file". */
@ -85,11 +90,6 @@ static CORE_ADDR cur_src_end_addr;
/* Core address of the end of the first object file. */
static CORE_ADDR first_object_file_end;
/* End of the text segment of the executable file,
as found in the symbol _etext. */
static CORE_ADDR end_of_text_addr;
/* The addresses of the symbol table stream and number of symbols
of the object file we are reading (as copied into core). */
@ -128,6 +128,37 @@ static int prev_line_number;
static int line_vector_length;
/* Pointers to scratch storage, used for reading raw symbols and auxents. */
static char *temp_sym;
static char *temp_aux;
/* Local variables that hold the shift and mask values for the
COFF file that we are currently reading. These come back to us
from BFD, and are referenced by their macro names, as well as
internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
macros from ../internalcoff.h . */
static unsigned local_n_btmask;
static unsigned local_n_btshft;
static unsigned local_n_tmask;
static unsigned local_n_tshift;
#define N_BTMASK local_n_btmask
#define N_BTSHFT local_n_btshft
#define N_TMASK local_n_tmask
#define N_TSHIFT local_n_tshift
/* Local variables that hold the sizes in the file of various COFF structures.
(We only need to know this to read them from the file -- BFD will then
translate the data in them, into `internal_xxx' structs in the right
byte order, alignment, etc.) */
static unsigned local_linesz;
static unsigned local_symesz;
static unsigned local_auxesz;
#ifdef TDESC
#include "tdesc.h"
#define SEM
@ -187,6 +218,13 @@ struct context_stack *context_stack;
int within_function;
#if 0
/* The type of the function we are currently reading in. This is
used by define_symbol to record the type of arguments to a function. */
struct type *in_function_type;
#endif
/* List of blocks already made (lexical contexts already closed).
This is used at the end to make the blockvector. */
@ -518,12 +556,12 @@ end_symtab ()
blockvector = make_blockvector ();
/* Now create the symtab object for this source file. */
symtab = (struct symtab *) xmalloc (sizeof (struct symtab));
symtab->free_ptr = 0;
symtab = allocate_symtab (last_source_file);
/* Fill in its components. */
symtab->blockvector = blockvector;
symtab->free_code = free_linetable;
symtab->free_ptr = 0;
symtab->filename = last_source_file;
symtab->dirname = NULL;
lv = line_vector;
@ -531,11 +569,6 @@ end_symtab ()
symtab->linetable = (struct linetable *)
xrealloc (lv, (sizeof (struct linetable)
+ lv->nitems * sizeof (struct linetable_entry)));
symtab->nlines = 0;
symtab->line_charpos = 0;
symtab->language = language_unknown;
symtab->fullname = NULL;
#ifdef TDESC
symtab->coffsem = last_coffsem;
@ -592,10 +625,13 @@ struct coff_symfile_info {
file_ptr max_lineno_offset; /* 1+last byte of line#s in file */
};
static int text_bfd_scnum;
void
coff_symfile_init (sf)
struct sym_fns *sf;
{
asection *section;
bfd *abfd = sf->sym_bfd;
/* Allocate struct to keep track of the symfile */
@ -623,6 +659,11 @@ coff_symfile_init (sf)
startup_file_start = 0;
startup_file_end = 0;
}
/* Save the section number for the text section */
if (section = bfd_get_section_by_name(abfd,".text"))
text_bfd_scnum = section->index;
else
text_bfd_scnum = -1;
}
/* This function is called for every section; it finds the outer limits
@ -646,12 +687,7 @@ find_linenos (abfd, asect, vpinfo)
if (count == 0)
return;
#if !defined (LINESZ)
/* Just in case, you never know what to expect from those
COFF header files. */
#define LINESZ (sizeof (struct lineno))
#endif /* No LINESZ. */
size = count * LINESZ;
size = count * local_linesz;
info = (struct coff_symfile_info *)vpinfo;
/* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
@ -700,6 +736,7 @@ coff_symfile_read (sf, addr, mainline)
{
struct coff_symfile_info *info = (struct coff_symfile_info *)sf->sym_private;
bfd *abfd = sf->sym_bfd;
coff_data_type *cdata = coff_data (abfd);
char *name = bfd_get_filename (abfd);
int desc;
register int val;
@ -710,10 +747,29 @@ coff_symfile_read (sf, addr, mainline)
symfile_bfd = abfd; /* Kludge for swap routines */
/* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
desc = fileno ((FILE *)(abfd->iostream)); /* File descriptor */
desc = fileno ((FILE *)(abfd->iostream)); /* File descriptor */
num_symbols = bfd_get_symcount (abfd); /* How many syms */
symtab_offset = obj_sym_filepos (abfd); /* Symbol table file offset */
stringtab_offset = symtab_offset + num_symbols * SYMESZ; /* String tab */
symtab_offset = cdata->sym_filepos; /* Symbol table file offset */
stringtab_offset = symtab_offset + /* String table file offset */
num_symbols * cdata->local_symesz;
/* Set a few file-statics that give us specific information about
the particular COFF file format we're reading. */
local_linesz = cdata->local_linesz;
local_n_btmask = cdata->local_n_btmask;
local_n_btshft = cdata->local_n_btshft;
local_n_tmask = cdata->local_n_tmask;
local_n_tshift = cdata->local_n_tshift;
local_linesz = cdata->local_linesz;
local_symesz = cdata->local_symesz;
local_auxesz = cdata->local_auxesz;
/* Allocate space for raw symbol and aux entries, based on their
space requirements as reported by BFD. */
temp_sym = (char *) xmalloc
(cdata->local_symesz + cdata->local_auxesz);
temp_aux = temp_sym + cdata->local_symesz;
make_cleanup (free_current_contents, &temp_sym);
/* End of warning */
/* Read the line number table, all at once. */
@ -920,7 +976,9 @@ read_coff_symtab (desc, nsyms)
case C_STAT:
if (cs->c_name[0] == '.') {
if (strcmp (cs->c_name, _TEXT) == 0) {
if (strcmp (cs->c_name, ".text") == 0) {
/* FIXME: don't wire in ".text" as section name
or symbol name! */
if (++num_object_files == 1) {
/* last address of startup file */
first_object_file_end = cs->c_value +
@ -952,12 +1010,14 @@ read_coff_symtab (desc, nsyms)
break;
/* fall in for static symbols that don't start with '.' */
case C_EXT:
if (cs->c_sclass == C_EXT &&
cs->c_secnum == N_ABS &&
strcmp (cs->c_name, _ETEXT) == 0)
end_of_text_addr = cs->c_value;
if (!SDB_TYPE (cs->c_type)) {
if (cs->c_secnum <= 1) { /* text or abs */
/* FIXME: This is BOGUS Will Robinson!
Coff should provide the SEC_CODE flag for executable sections,
then if we could look up sections by section number we
could see if the flags indicate SEC_CODE. If so, then
record this symbol as a miscellaneous function. But why
are absolute syms recorded as functions, anyway? */
if (cs->c_secnum <= text_bfd_scnum+1) {/* text or abs */
record_misc_function (cs->c_name, cs->c_value);
break;
} else {
@ -1168,22 +1228,21 @@ read_one_sym (cs, sym, aux)
register struct internal_syment *sym;
register union internal_auxent *aux;
{
struct external_syment temp_sym[1];
union external_auxent temp_aux[1];
int i;
cs->c_symnum = symnum;
fread ((char *)temp_sym, SYMESZ, 1, nlist_stream_global);
bfd_coff_swap_sym_in (symfile_bfd, temp_sym, sym);
fread (temp_sym, local_symesz, 1, nlist_stream_global);
bfd_coff_swap_sym_in (symfile_bfd, temp_sym, (char *)sym);
cs->c_nsyms = (sym->n_numaux & 0xff) + 1;
if (cs->c_nsyms >= 2)
{
fread ((char *)temp_aux, AUXESZ, 1, nlist_stream_global);
bfd_coff_swap_aux_in (symfile_bfd, temp_aux, sym->n_type, sym->n_sclass, aux);
fread (temp_aux, local_auxesz, 1, nlist_stream_global);
bfd_coff_swap_aux_in (symfile_bfd, temp_aux, sym->n_type, sym->n_sclass,
(char *)aux);
/* If more than one aux entry, read past it (only the first aux
is important). */
for (i = 2; i < cs->c_nsyms; i++)
fread ((char *)temp_aux, AUXESZ, 1, nlist_stream_global);
fread (temp_aux, local_auxesz, 1, nlist_stream_global);
}
cs->c_name = getsymname (sym);
cs->c_value = sym->n_value;
@ -1364,13 +1423,13 @@ enter_linenos (file_offset, first_line, last_line)
rawptr = &linetab[file_offset - linetab_offset];
/* skip first line entry for each function */
rawptr += LINESZ;
rawptr += local_linesz;
/* line numbers start at one for the first line of the function */
first_line--;
for (;;) {
bfd_coff_swap_lineno_in (symfile_bfd, (LINENO *)rawptr, &lptr);
rawptr += LINESZ;
bfd_coff_swap_lineno_in (symfile_bfd, rawptr, &lptr);
rawptr += local_linesz;
if (L_LNNO32 (&lptr) && L_LNNO32 (&lptr) <= last_line)
record_line (first_line + L_LNNO32 (&lptr), lptr.l_addr.l_paddr);
else
@ -1515,8 +1574,23 @@ process_coff_symbol (cs, aux)
if (ISFCN (cs->c_type))
{
SYMBOL_TYPE (sym) =
lookup_function_type (decode_function_type (cs, cs->c_type, aux));
#if 0
/* FIXME: This has NOT been tested. The DBX version has.. */
/* Generate a template for the type of this function. The
types of the arguments will be added as we read the symbol
table. */
struct type *new = (struct type *)
obstack_alloc (symbol_obstack, sizeof (struct type));
bcopy(lookup_function_type (decode_function_type (cs, cs->c_type, aux)),
new, sizeof(struct type));
SYMBOL_TYPE (sym) = new;
in_function_type = SYMBOL_TYPE(sym);
#else
SYMBOL_TYPE(sym) =
lookup_function_type (decode_function_type (cs, cs->c_type, aux));
#endif
SYMBOL_CLASS (sym) = LOC_BLOCK;
if (cs->c_sclass == C_STAT)
add_symbol_to_list (sym, &file_symbols);
@ -1555,8 +1629,12 @@ process_coff_symbol (cs, aux)
}
break;
#ifdef C_GLBLREG /* AMD coff */
case C_GLBLREG:
#endif
case C_REG:
SYMBOL_CLASS (sym) = LOC_REGISTER;
SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM(cs->c_value);
add_symbol_to_list (sym, &local_symbols);
break;
@ -1565,6 +1643,11 @@ process_coff_symbol (cs, aux)
case C_ARG:
SYMBOL_CLASS (sym) = LOC_ARG;
#if 0
/* FIXME: This has not bee tested. */
/* Add parameter to function. */
add_param_to_type(&in_function_type,sym);
#endif
add_symbol_to_list (sym, &local_symbols);
#if !defined (BELIEVE_PCC_PROMOTION)
/* If PCC says a parameter is a short or a char,
@ -1580,6 +1663,7 @@ process_coff_symbol (cs, aux)
case C_REGPARM:
SYMBOL_CLASS (sym) = LOC_REGPARM;
SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM(cs->c_value);
add_symbol_to_list (sym, &local_symbols);
#if !defined (BELIEVE_PCC_PROMOTION)
/* If PCC says a parameter is a short or a char,
@ -2021,6 +2105,13 @@ read_enum_type (index, length, lastsym)
TYPE_FIELD_BITPOS (type, n) = SYMBOL_VALUE (syms->symbol);
TYPE_FIELD_BITSIZE (type, n) = 0;
}
/* Is this Modula-2's BOOLEAN type? Flag it as such if so. */
if(TYPE_NFIELDS(type) == 2 &&
((!strcmp(TYPE_FIELD_NAME(type,0),"TRUE") &&
!strcmp(TYPE_FIELD_NAME(type,1),"FALSE")) ||
(!strcmp(TYPE_FIELD_NAME(type,1),"TRUE") &&
!strcmp(TYPE_FIELD_NAME(type,0),"FALSE"))))
TYPE_CODE(type) = TYPE_CODE_BOOL;
return type;
}

49
gdb/language.c
View File

@ -94,8 +94,8 @@ void set_range_str();
/* Show command. Display a warning if the language set
does not match the frame. */
void
show_language_command (str, from_tty)
char *str;
show_language_command (ignore, from_tty)
char *ignore;
int from_tty;
{
enum language flang; /* The language of the current frame */
@ -109,8 +109,8 @@ show_language_command (str, from_tty)
/* Set command. Change the current working language. */
void
set_language_command (str, from_tty)
char *str;
set_language_command (ignore, from_tty)
char *ignore;
int from_tty;
{
int i;
@ -161,8 +161,8 @@ modula-2 Use the Modula-2 language\n");
/* Show command. Display a warning if the type setting does
not match the current language. */
void
show_type_command(str, from_tty)
char *str;
show_type_command(ignore, from_tty)
char *ignore;
int from_tty;
{
if (type_check != current_language->la_type_check)
@ -172,8 +172,8 @@ show_type_command(str, from_tty)
/* Set command. Change the setting for type checking. */
void
set_type_command(str, from_tty)
char *str;
set_type_command(ignore, from_tty)
char *ignore;
int from_tty;
{
if (!strcmp(type,"on"))
@ -200,14 +200,14 @@ set_type_command(str, from_tty)
return;
}
set_type_str();
show_type_command();
show_type_command((char *)NULL, from_tty);
}
/* Show command. Display a warning if the range setting does
not match the current language. */
void
show_range_command(str, from_tty)
char *str;
show_range_command(ignore, from_tty)
char *ignore;
int from_tty;
{
@ -218,8 +218,8 @@ show_range_command(str, from_tty)
/* Set command. Change the setting for range checking. */
void
set_range_command(str, from_tty)
char *str;
set_range_command(ignore, from_tty)
char *ignore;
int from_tty;
{
if (!strcmp(range,"on"))
@ -246,7 +246,7 @@ set_range_command(str, from_tty)
return;
}
set_range_str();
show_range_command();
show_range_command((char *)0, from_tty);
}
/* Set the status of range and type checking based on
@ -256,7 +256,6 @@ set_range_command(str, from_tty)
static void
set_type_range()
{
char *rtmp, *ttmp;
if (range_mode == range_mode_auto)
range_check = current_language->la_range_check;
@ -290,7 +289,7 @@ set_language(lang)
void
set_lang_str()
{
char *tmp, *prefix = "";
char *prefix = "";
free (language);
if (language_mode == language_mode_auto)
@ -360,11 +359,11 @@ void
language_info ()
{
printf("Current Language: %s\n",language);
show_language_command();
show_language_command((char *)0, 1);
printf("Type checking: %s\n",type);
show_type_command();
show_type_command((char *)0, 1);
printf("Range checking: %s\n",range);
show_range_command();
show_range_command((char *)0, 1);
}
/* Return the result of a binary operation. */
@ -374,10 +373,8 @@ binop_result_type(v1,v2)
{
int l1,l2,size,uns;
l1=TYPE_LENGTH(VALUE_TYPE(v1));
l2=TYPE_LENGTH(VALUE_TYPE(v2));
size = l1 > l2 ? l1 : l2;
uns = TYPE_UNSIGNED(VALUE_TYPE(v1)) || TYPE_UNSIGNED(VALUE_TYPE(v2));
l1 = TYPE_LENGTH(VALUE_TYPE(v1));
l2 = TYPE_LENGTH(VALUE_TYPE(v2));
switch(current_language->la_language)
{
@ -401,6 +398,8 @@ binop_result_type(v1,v2)
return l1 > l2 ? VALUE_TYPE(v1) : VALUE_TYPE(v2);
break;
}
abort();
return (struct type *)0; /* For lint */
}
/* This page contains functions that return format strings for
@ -921,8 +920,8 @@ struct cmd_list_element *setchecklist = NULL;
struct cmd_list_element *showchecklist = NULL;
static void
set_check (arg, from_tty)
char *arg;
set_check (ignore, from_tty)
char *ignore;
int from_tty;
{
printf(

2
gdb/language.h
View File

@ -166,3 +166,5 @@ char *language_str();
/* Add a language to the set known by GDB (at initialization time). */
void add_language (); /* Arg is &language_defn */
extern enum language get_frame_language (); /* In stack.c */

32
gdb/saber.suppress
View File

@ -368,26 +368,36 @@ suppress 68 on complain
/* Benign type mismatch */
suppress 3 in read_range_type
/* Over/underflow unary minus */
suppress 594 ../expread.tab.c
/* Set but not used */
suppress 593 ../expread.tab.c
/* Label not used */
suppress 590 ../expread.tab.c
/* Formal param not used */
suppress 442 ../../bfd/archive.c
suppress 442 ../bfd/archive.c
/* \0 in string */
suppress 558 ../../bfd/b.out.c
suppress 558 ../bfd/b.out.c
/* Conditional if always true */
suppress 558 ../../bfd/coffswap.c
suppress 558 ../bfd/coffswap.c
/* Conditional if always true -- bfd_h_put_x */
suppress 529 ../../bfd/coffswap.c
suppress 529 ../bfd/coffswap.c
/* Stmt unreach -- bfd_h_put_x */
suppress 590 ../../bfd/ecoff.c
suppress 590 ../bfd/ecoff.c
/* Formal parameter not used */
suppress 590 on ignore
/* Formal param not used */
suppress 590 on ignore_exec_bfd
/* Formal param not used */
suppress 590 on ignore_core_bfd
/* Formal param not used */
suppress 590 on ignore_input_section
/* Formal param not used */
suppress 590 on ignore_newsect
/* Formal param not used */
suppress 590 on ignore_abfd
/* Formal param not used */
suppress 590 on ignore_symbol
/* Formal param not used */
suppress 590 on ignore_symbols
/* Formal param not used */
suppress 652 in ../bfd/libaout.h
/* The declaration has no effect */
suppress 442 in ../bfd/archive.c
/* Escape sequence in string literal has null value */
/* Signals caught and ignored */
catch HUP

34
gdb/stack.c
View File

@ -32,7 +32,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
extern int addressprint; /* Print addresses, or stay symbolic only? */
extern int info_verbose; /* Verbosity of symbol reading msgs */
extern unsigned lines_to_list; /* # of lines "list" command shows by default */
extern int lines_to_list; /* # of lines "list" command shows by default */
extern char *reg_names[]; /* Names of registers */
/* Thie "selected" stack frame is used by default for local and arg access.
@ -899,7 +899,7 @@ find_relative_frame (frame, level_offset_ptr)
register int* level_offset_ptr;
{
register FRAME prev;
register FRAME frame1, frame2;
register FRAME frame1;
/* Going up is simple: just do get_prev_frame enough times
or until initial frame is reached. */
@ -911,36 +911,9 @@ find_relative_frame (frame, level_offset_ptr)
(*level_offset_ptr)--;
frame = prev;
}
/* Going down could be done by iterating get_frame_info to
find the next frame, but that would be quadratic
since get_frame_info must scan all the way from the current frame.
The following algorithm is linear. */
/* Going down is just as simple. */
if (*level_offset_ptr < 0)
{
#if 0
/* This is ancient and unnecessary? -- gnu@cygnus.com
It also loops forever if frame #0 is not current_frame (e.g. when we have
used the "frame" command after the stack was invalid). */
/* First put frame1 at innermost frame
and frame2 N levels up from there. */
frame1 = get_current_frame ();
frame2 = frame1;
while (*level_offset_ptr < 0 && frame2 != frame)
{
frame2 = get_prev_frame (frame2);
(*level_offset_ptr) ++;
}
/* Then slide frame1 and frame2 up in synchrony
and when frame2 reaches our starting point
frame1 must be N levels down from there. */
while (frame2 != frame)
{
frame1 = get_prev_frame (frame1);
frame2 = get_prev_frame (frame2);
}
return frame1;
#else
while (*level_offset_ptr < 0) {
frame1 = get_next_frame (frame);
if (!frame1)
@ -948,7 +921,6 @@ find_relative_frame (frame, level_offset_ptr)
frame = frame1;
(*level_offset_ptr)++;
}
#endif
}
return frame;
}

70
gdb/symfile.c
View File

@ -42,6 +42,7 @@ extern int info_verbose;
extern void qsort ();
extern char *getenv ();
extern char *rindex ();
/* Functions this file defines */
static bfd *symfile_open();
@ -364,8 +365,6 @@ struct symtab *
psymtab_to_symtab (pst)
register struct partial_symtab *pst;
{
register struct symtab *result;
/* If it's been looked up before, return it. */
if (pst->symtab)
return pst->symtab;
@ -645,8 +644,8 @@ add_symbol_file_command (arg_string, from_tty)
dont_repeat ();
if (!query ("add symbol table from file \"%s\" at text_addr = 0x%x\n",
name, text_addr))
if (!query ("add symbol table from file \"%s\" at text_addr = %s?\n",
name, local_hex_string (text_addr)))
error ("Not confirmed.");
symbol_file_add (name, 0, text_addr, 0);
@ -748,6 +747,53 @@ clear_complaints ()
p->counter = 0;
}
/* allocate_symtab:
Allocate and partly initialize a new symbol table. Return a pointer
to it. error() if no space.
Caller must set these fields:
LINETABLE(symtab)
symtab->blockvector
symtab->typevector
symtab->dirname
symtab->free_code
symtab->free_ptr
initialize any EXTRA_SYMTAB_INFO
possibly free_named_symtabs (symtab->filename);
symtab->next = symtab_list;
symtab_list = symtab;
*/
struct symtab *
allocate_symtab(name)
char *name;
{
register struct symtab *symtab;
char *c;
symtab = (struct symtab *) xmalloc (sizeof (struct symtab));
bzero (symtab, sizeof (*symtab));
symtab->filename = name;
symtab->fullname = NULL;
symtab->nlines = 0;
symtab->line_charpos = 0;
symtab->version = 0;
symtab->language = language_unknown; /* default */
c = rindex (name, '.');
if (!c) {
; /* Don't know language of file. */
} else if(!strcmp(c,".mod")) {
symtab->language = language_m2;
} else if(!strcmp(c,".c") || !strcmp(c,".cc")) {
symtab->language = language_c;
}
return symtab;
}
/* clear_symtab_users_once:
This function is run after symbol reading, or from a cleanup.
@ -921,13 +967,15 @@ again2:
free_symtab (s);
}
else
/* It is still possible that some breakpoints will be affected
even though no symtab was found, since the file might have
been compiled without debugging, and hence not be associated
with a symtab. In order to handle this correctly, we would need
to keep a list of text address ranges for undebuggable files.
For now, we do nothing, since this is a fairly obscure case. */
;
{
/* It is still possible that some breakpoints will be affected
even though no symtab was found, since the file might have
been compiled without debugging, and hence not be associated
with a symtab. In order to handle this correctly, we would need
to keep a list of text address ranges for undebuggable files.
For now, we do nothing, since this is a fairly obscure case. */
;
}
/* FIXME, what about the misc function vector? */
return blewit;