#include "defs.h"
#include "gdb_string.h"
#include "gdb_assert.h"
#include <stdio.h>
#if defined(USG) || defined(__CYGNUSCLIB__)
#include <sys/types.h>
#include <fcntl.h>
#endif
#include "obstack.h"
#include "gdb_stat.h"
#include "symtab.h"
#include "breakpoint.h"
#include "command.h"
#include "target.h"
#include "gdbcore.h"
#include "libaout.h"
#include "symfile.h"
#include "objfiles.h"
#include "buildsym.h"
#include "gdb-stabs.h"
#include "demangle.h"
#include "language.h"
#include "complaints.h"
#include "os9k.h"
#include "stabsread.h"
extern void _initialize_os9kread (void);
#define LDSYMOFF(p) (((struct symloc *)((p)->read_symtab_private))->ldsymoff)
#define LDSYMCNT(p) (((struct symloc *)((p)->read_symtab_private))->ldsymnum)
struct symloc
{
int ldsymoff;
int ldsymnum;
};
static enum language psymtab_language = language_unknown;
static int psymfile_depth = 0;
static int symfile_depth = 0;
extern int previous_stab_code;
static char *last_function_name;
extern struct complaint lbrac_complaint;
extern struct complaint unknown_symtype_complaint;
extern struct complaint unknown_symchar_complaint;
extern struct complaint lbrac_rbrac_complaint;
extern struct complaint repeated_header_complaint;
extern struct complaint repeated_header_name_complaint;
#if 0
static struct complaint lbrac_unmatched_complaint =
{"unmatched Increment Block Entry before symtab pos %d", 0, 0};
static struct complaint lbrac_mismatch_complaint =
{"IBE/IDE symbol mismatch at symtab pos %d", 0, 0};
#endif
static void read_minimal_symbols (struct objfile *);
static void os9k_read_ofile_symtab (struct partial_symtab *);
static void os9k_psymtab_to_symtab (struct partial_symtab *);
static void os9k_psymtab_to_symtab_1 (struct partial_symtab *);
static void read_os9k_psymtab (struct objfile *, CORE_ADDR, int);
static int fill_sym (FILE *, bfd *);
static void os9k_symfile_init (struct objfile *);
static void os9k_new_init (struct objfile *);
static void os9k_symfile_read (struct objfile *, int);
static void os9k_symfile_finish (struct objfile *);
static void
os9k_process_one_symbol (int, int, CORE_ADDR, char *,
struct section_offsets *, struct objfile *);
static struct partial_symtab *os9k_start_psymtab (struct objfile *, char *,
CORE_ADDR, int, int,
struct partial_symbol **,
struct partial_symbol **);
static struct partial_symtab *os9k_end_psymtab (struct partial_symtab *,
char **, int, int, CORE_ADDR,
struct partial_symtab **,
int);
static void record_minimal_symbol (char *, CORE_ADDR, int, struct objfile *);
#define HANDLE_RBRAC(val) \
if ((val) > pst->texthigh) pst->texthigh = (val);
#define SWAP_STBHDR(hdrp, abfd) \
{ \
(hdrp)->fmtno = bfd_get_16(abfd, (unsigned char *)&(hdrp)->fmtno); \
(hdrp)->crc = bfd_get_32(abfd, (unsigned char *)&(hdrp)->crc); \
(hdrp)->offset = bfd_get_32(abfd, (unsigned char *)&(hdrp)->offset); \
(hdrp)->nsym = bfd_get_32(abfd, (unsigned char *)&(hdrp)->nsym); \
}
#define SWAP_STBSYM(symp, abfd) \
{ \
(symp)->value = bfd_get_32(abfd, (unsigned char *)&(symp)->value); \
(symp)->type = bfd_get_16(abfd, (unsigned char *)&(symp)->type); \
(symp)->stroff = bfd_get_32(abfd, (unsigned char *)&(symp)->stroff); \
}
#define N_DATA 0
#define N_BSS 1
#define N_RDATA 2
#define N_IDATA 3
#define N_TEXT 4
#define N_ABS 6
static void
record_minimal_symbol (char *name, CORE_ADDR address, int type,
struct objfile *objfile)
{
enum minimal_symbol_type ms_type;
switch (type)
{
case N_TEXT:
ms_type = mst_text;
address += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
break;
case N_DATA:
ms_type = mst_data;
break;
case N_BSS:
ms_type = mst_bss;
break;
case N_RDATA:
ms_type = mst_bss;
break;
case N_IDATA:
ms_type = mst_data;
break;
case N_ABS:
ms_type = mst_abs;
break;
default:
ms_type = mst_unknown;
break;
}
prim_record_minimal_symbol (name, address, ms_type, objfile);
}
typedef char mhhdr[80];
struct stbhdr
{
mhhdr comhdr;
char *name;
short fmtno;
int crc;
int offset;
int nsym;
char *pad;
};
struct stbsymbol
{
int value;
short type;
int stroff;
};
#define STBSYMSIZE 10
static void
read_minimal_symbols (struct objfile *objfile)
{
FILE *fp;
bfd *abfd;
struct stbhdr hdr;
struct stbsymbol sym;
int ch, i, j, off;
char buf[64], buf1[128];
fp = objfile->auxf1;
if (fp == NULL)
return;
abfd = objfile->obfd;
fread (&hdr.comhdr[0], sizeof (mhhdr), 1, fp);
i = 0;
ch = getc (fp);
while (ch != -1)
{
buf[i] = (char) ch;
i++;
if (ch == 0)
break;
ch = getc (fp);
};
if (i % 2)
ch = getc (fp);
hdr.name = &buf[0];
fread (&hdr.fmtno, sizeof (hdr.fmtno), 1, fp);
fread (&hdr.crc, sizeof (hdr.crc), 1, fp);
fread (&hdr.offset, sizeof (hdr.offset), 1, fp);
fread (&hdr.nsym, sizeof (hdr.nsym), 1, fp);
SWAP_STBHDR (&hdr, abfd);
init_minimal_symbol_collection ();
off = hdr.offset;
for (i = hdr.nsym; i > 0; i--)
{
fseek (fp, (long) off, 0);
fread (&sym.value, sizeof (sym.value), 1, fp);
fread (&sym.type, sizeof (sym.type), 1, fp);
fread (&sym.stroff, sizeof (sym.stroff), 1, fp);
SWAP_STBSYM (&sym, abfd);
fseek (fp, (long) sym.stroff, 0);
j = 0;
ch = getc (fp);
while (ch != -1)
{
buf1[j] = (char) ch;
j++;
if (ch == 0)
break;
ch = getc (fp);
};
record_minimal_symbol (buf1, sym.value, sym.type & 7, objfile);
off += STBSYMSIZE;
};
install_minimal_symbols (objfile);
return;
}
static void
os9k_symfile_read (struct objfile *objfile, int mainline)
{
bfd *sym_bfd;
struct cleanup *back_to;
sym_bfd = objfile->obfd;
if (mainline
|| (objfile->global_psymbols.size == 0
&& objfile->static_psymbols.size == 0))
init_psymbol_list (objfile, DBX_SYMCOUNT (objfile));
free_pending_blocks ();
back_to = make_cleanup (really_free_pendings, 0);
make_cleanup_discard_minimal_symbols ();
read_minimal_symbols (objfile);
read_os9k_psymtab (objfile,
DBX_TEXT_ADDR (objfile),
DBX_TEXT_SIZE (objfile));
do_cleanups (back_to);
}
static void
os9k_new_init (struct objfile *ignore)
{
stabsread_new_init ();
buildsym_new_init ();
psymfile_depth = 0;
}
static void
os9k_symfile_init (struct objfile *objfile)
{
bfd *sym_bfd = objfile->obfd;
char *name = bfd_get_filename (sym_bfd);
char dbgname[512], stbname[512];
FILE *symfile = 0;
FILE *minfile = 0;
asection *text_sect;
strcpy (dbgname, name);
strcat (dbgname, ".dbg");
strcpy (stbname, name);
strcat (stbname, ".stb");
if ((symfile = fopen (dbgname, "r")) == NULL)
{
warning ("Symbol file %s not found", dbgname);
}
objfile->auxf2 = symfile;
if ((minfile = fopen (stbname, "r")) == NULL)
{
warning ("Symbol file %s not found", stbname);
}
objfile->auxf1 = minfile;
objfile->sym_stab_info = (struct dbx_symfile_info *)
xmmalloc (objfile->md, sizeof (struct dbx_symfile_info));
DBX_SYMFILE_INFO (objfile)->stab_section_info = NULL;
text_sect = bfd_get_section_by_name (sym_bfd, ".text");
if (!text_sect)
error ("Can't find .text section in file");
DBX_TEXT_ADDR (objfile) = bfd_section_vma (sym_bfd, text_sect);
DBX_TEXT_SIZE (objfile) = bfd_section_size (sym_bfd, text_sect);
DBX_SYMBOL_SIZE (objfile) = 0;
DBX_SYMCOUNT (objfile) = 0;
DBX_SYMTAB_OFFSET (objfile) = 0;
}
static void
os9k_symfile_finish (struct objfile *objfile)
{
if (objfile->sym_stab_info != NULL)
{
xmfree (objfile->md, objfile->sym_stab_info);
}
}
struct st_dbghdr
{
int sync;
short rev;
int crc;
short os;
short cpu;
};
#define SYNC (int)0xefbefeca
#define SWAP_DBGHDR(hdrp, abfd) \
{ \
(hdrp)->sync = bfd_get_32(abfd, (unsigned char *)&(hdrp)->sync); \
(hdrp)->rev = bfd_get_16(abfd, (unsigned char *)&(hdrp)->rev); \
(hdrp)->crc = bfd_get_32(abfd, (unsigned char *)&(hdrp)->crc); \
(hdrp)->os = bfd_get_16(abfd, (unsigned char *)&(hdrp)->os); \
(hdrp)->cpu = bfd_get_16(abfd, (unsigned char *)&(hdrp)->cpu); \
}
#define N_SYM_CMPLR 0
#define N_SYM_SLINE 1
#define N_SYM_SYM 2
#define N_SYM_LBRAC 3
#define N_SYM_RBRAC 4
#define N_SYM_SE 5
struct internal_symstruct
{
short n_type;
short n_desc;
long n_value;
char *n_strx;
};
static struct internal_symstruct symbol;
static struct internal_symstruct *symbuf = &symbol;
static char strbuf[4096];
static struct st_dbghdr dbghdr;
static short cmplrid;
#define VER_PRE_ULTRAC ((short)4)
#define VER_ULTRAC ((short)5)
static int
fill_sym (FILE *dbg_file, bfd *abfd)
{
short si, nmask;
long li;
int ii;
char *p;
int nbytes = fread (&si, sizeof (si), 1, dbg_file);
if (nbytes == 0)
return 0;
if (nbytes < 0)
perror_with_name ("reading .dbg file.");
symbuf->n_desc = 0;
symbuf->n_value = 0;
symbuf->n_strx = NULL;
symbuf->n_type = bfd_get_16 (abfd, (unsigned char *) &si);
symbuf->n_type = 0xf & symbuf->n_type;
switch (symbuf->n_type)
{
case N_SYM_CMPLR:
fread (&si, sizeof (si), 1, dbg_file);
symbuf->n_desc = bfd_get_16 (abfd, (unsigned char *) &si);
cmplrid = symbuf->n_desc & 0xff;
break;
case N_SYM_SLINE:
fread (&li, sizeof (li), 1, dbg_file);
symbuf->n_value = bfd_get_32 (abfd, (unsigned char *) &li);
fread (&li, sizeof (li), 1, dbg_file);
li = bfd_get_32 (abfd, (unsigned char *) &li);
symbuf->n_strx = (char *) (li >> 12);
symbuf->n_desc = li & 0xfff;
break;
case N_SYM_SYM:
fread (&li, sizeof (li), 1, dbg_file);
symbuf->n_value = bfd_get_32 (abfd, (unsigned char *) &li);
si = 0;
do
{
ii = getc (dbg_file);
strbuf[si++] = (char) ii;
}
while (ii != 0 || si % 2 != 0);
symbuf->n_strx = strbuf;
p = (char *) strchr (strbuf, ':');
if (!p)
break;
if ((p[1] == 'F' || p[1] == 'f') && cmplrid == VER_PRE_ULTRAC)
{
fread (&si, sizeof (si), 1, dbg_file);
nmask = bfd_get_16 (abfd, (unsigned char *) &si);
for (ii = 0; ii < nmask; ii++)
fread (&si, sizeof (si), 1, dbg_file);
}
break;
case N_SYM_LBRAC:
fread (&li, sizeof (li), 1, dbg_file);
symbuf->n_value = bfd_get_32 (abfd, (unsigned char *) &li);
break;
case N_SYM_RBRAC:
fread (&li, sizeof (li), 1, dbg_file);
symbuf->n_value = bfd_get_32 (abfd, (unsigned char *) &li);
break;
case N_SYM_SE:
break;
}
return 1;
}
static void
read_os9k_psymtab (struct objfile *objfile, CORE_ADDR text_addr, int text_size)
{
register struct internal_symstruct *bufp = 0;
register char *namestring;
int past_first_source_file = 0;
CORE_ADDR last_o_file_start = 0;
#if 0
struct cleanup *back_to;
#endif
bfd *abfd;
FILE *fp;
static CORE_ADDR end_of_text_addr;
static struct partial_symtab *pst = 0;
char **psymtab_include_list;
int includes_allocated;
int includes_used;
struct partial_symtab **dependency_list;
int dependencies_used, dependencies_allocated;
includes_allocated = 30;
includes_used = 0;
psymtab_include_list = (char **) alloca (includes_allocated *
sizeof (char *));
dependencies_allocated = 30;
dependencies_used = 0;
dependency_list =
(struct partial_symtab **) alloca (dependencies_allocated *
sizeof (struct partial_symtab *));
last_source_file = NULL;
#ifdef END_OF_TEXT_DEFAULT
end_of_text_addr = END_OF_TEXT_DEFAULT;
#else
end_of_text_addr = text_addr + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile))
+ text_size;
#endif
abfd = objfile->obfd;
fp = objfile->auxf2;
if (!fp)
return;
fread (&dbghdr.sync, sizeof (dbghdr.sync), 1, fp);
fread (&dbghdr.rev, sizeof (dbghdr.rev), 1, fp);
fread (&dbghdr.crc, sizeof (dbghdr.crc), 1, fp);
fread (&dbghdr.os, sizeof (dbghdr.os), 1, fp);
fread (&dbghdr.cpu, sizeof (dbghdr.cpu), 1, fp);
SWAP_DBGHDR (&dbghdr, abfd);
symnum = 0;
while (1)
{
int ret;
long cursymoffset;
QUIT;
cursymoffset = ftell (objfile->auxf2);
ret = fill_sym (objfile->auxf2, abfd);
if (ret <= 0)
break;
else
symnum++;
bufp = symbuf;
if (bufp->n_type == (short) N_SYM_SLINE)
continue;
#define CUR_SYMBOL_VALUE bufp->n_value
switch (bufp->n_type)
{
char *p;
case N_SYM_CMPLR:
continue;
case N_SYM_SE:
CUR_SYMBOL_VALUE += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
if (psymfile_depth == 1 && pst)
{
os9k_end_psymtab (pst, psymtab_include_list, includes_used,
symnum, CUR_SYMBOL_VALUE,
dependency_list, dependencies_used);
pst = (struct partial_symtab *) 0;
includes_used = 0;
dependencies_used = 0;
}
psymfile_depth--;
continue;
case N_SYM_SYM:
namestring = bufp->n_strx;
p = (char *) strchr (namestring, ':');
if (!p)
continue;
switch (p[1])
{
case 'S':
{
unsigned long valu;
enum language tmp_language;
char *str, *p;
int n;
valu = CUR_SYMBOL_VALUE;
if (valu)
valu += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
past_first_source_file = 1;
p = strchr (namestring, ':');
if (p)
n = p - namestring;
else
n = strlen (namestring);
str = alloca (n + 1);
strncpy (str, namestring, n);
str[n] = '\0';
if (psymfile_depth == 0)
{
if (!pst)
pst = os9k_start_psymtab (objfile,
str, valu,
cursymoffset,
symnum - 1,
objfile->global_psymbols.next,
objfile->static_psymbols.next);
}
else
{
tmp_language = deduce_language_from_filename (str);
if (tmp_language != language_unknown
&& (tmp_language != language_c
|| psymtab_language != language_cplus))
psymtab_language = tmp_language;
psymtab_include_list[includes_used++] = str;
if (includes_used >= includes_allocated)
{
char **orig = psymtab_include_list;
psymtab_include_list = (char **)
alloca ((includes_allocated *= 2) * sizeof (char *));
memcpy ((PTR) psymtab_include_list, (PTR) orig,
includes_used * sizeof (char *));
}
}
psymfile_depth++;
continue;
}
case 'v':
add_psymbol_to_list (namestring, p - namestring,
VAR_NAMESPACE, LOC_STATIC,
&objfile->static_psymbols,
0, CUR_SYMBOL_VALUE,
psymtab_language, objfile);
continue;
case 'V':
add_psymbol_to_list (namestring, p - namestring,
VAR_NAMESPACE, LOC_STATIC,
&objfile->global_psymbols,
0, CUR_SYMBOL_VALUE,
psymtab_language, objfile);
continue;
case 'T':
if (p != namestring)
{
add_psymbol_to_list (namestring, p - namestring,
STRUCT_NAMESPACE, LOC_TYPEDEF,
&objfile->static_psymbols,
CUR_SYMBOL_VALUE, 0,
psymtab_language, objfile);
if (p[2] == 't')
{
add_psymbol_to_list (namestring, p - namestring,
VAR_NAMESPACE, LOC_TYPEDEF,
&objfile->static_psymbols,
CUR_SYMBOL_VALUE, 0, psymtab_language,
objfile);
p += 1;
}
else if (psymtab_language == language_cplus)
{
add_psymbol_to_list (namestring, p - namestring,
VAR_NAMESPACE, LOC_TYPEDEF,
&objfile->static_psymbols,
CUR_SYMBOL_VALUE, 0, psymtab_language,
objfile);
}
}
goto check_enum;
case 't':
if (p != namestring)
{
add_psymbol_to_list (namestring, p - namestring,
VAR_NAMESPACE, LOC_TYPEDEF,
&objfile->static_psymbols,
CUR_SYMBOL_VALUE, 0,
psymtab_language, objfile);
}
check_enum:
p += 2;
while ((*p >= '0' && *p <= '9')
|| *p == '(' || *p == ',' || *p == ')'
|| *p == '=')
p++;
if (*p++ == 'e')
{
while (*p >= '0' && *p <= '9')
p++;
while (*p && *p != ';' && *p != ',')
{
char *q;
for (q = p; *q && *q != ':'; q++)
;
add_psymbol_to_list (p, q - p,
VAR_NAMESPACE, LOC_CONST,
&objfile->static_psymbols, 0,
0, psymtab_language, objfile);
p = q;
while (*p && *p != ',')
p++;
if (*p)
p++;
}
}
continue;
case 'c':
add_psymbol_to_list (namestring, p - namestring,
VAR_NAMESPACE, LOC_CONST,
&objfile->static_psymbols, CUR_SYMBOL_VALUE,
0, psymtab_language, objfile);
continue;
case 'f':
CUR_SYMBOL_VALUE += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
if (pst && pst->textlow == 0)
pst->textlow = CUR_SYMBOL_VALUE;
add_psymbol_to_list (namestring, p - namestring,
VAR_NAMESPACE, LOC_BLOCK,
&objfile->static_psymbols, CUR_SYMBOL_VALUE,
0, psymtab_language, objfile);
continue;
case 'F':
CUR_SYMBOL_VALUE += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
if (pst && pst->textlow == 0)
pst->textlow = CUR_SYMBOL_VALUE;
add_psymbol_to_list (namestring, p - namestring,
VAR_NAMESPACE, LOC_BLOCK,
&objfile->global_psymbols, CUR_SYMBOL_VALUE,
0, psymtab_language, objfile);
continue;
case 'p':
case 'l':
case 's':
continue;
case ':':
continue;
default:
complain (&unknown_symchar_complaint, p[1]);
continue;
}
case N_SYM_RBRAC:
CUR_SYMBOL_VALUE += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
#ifdef HANDLE_RBRAC
HANDLE_RBRAC (CUR_SYMBOL_VALUE);
continue;
#endif
case N_SYM_LBRAC:
continue;
default:
complain (&unknown_symtype_complaint,
local_hex_string ((unsigned long) bufp->n_type));
continue;
}
}
DBX_SYMCOUNT (objfile) = symnum;
if (DBX_SYMCOUNT (objfile) > 0
&& last_o_file_start
&& objfile->ei.entry_point < bufp->n_value
&& objfile->ei.entry_point >= last_o_file_start)
{
objfile->ei.entry_file_lowpc = last_o_file_start;
objfile->ei.entry_file_highpc = bufp->n_value;
}
if (pst)
{
os9k_end_psymtab (pst, psymtab_include_list, includes_used,
symnum, end_of_text_addr,
dependency_list, dependencies_used);
}
}
static struct partial_symtab *
os9k_start_psymtab (struct objfile *objfile, char *filename, CORE_ADDR textlow,
int ldsymoff, int ldsymcnt,
struct partial_symbol **global_syms,
struct partial_symbol **static_syms)
{
struct partial_symtab *result =
start_psymtab_common (objfile, objfile->section_offsets,
filename, textlow, global_syms, static_syms);
result->read_symtab_private = (char *)
obstack_alloc (&objfile->psymbol_obstack, sizeof (struct symloc));
LDSYMOFF (result) = ldsymoff;
LDSYMCNT (result) = ldsymcnt;
result->read_symtab = os9k_psymtab_to_symtab;
psymtab_language = deduce_language_from_filename (filename);
return result;
}
static struct partial_symtab *
os9k_end_psymtab (struct partial_symtab *pst, char **include_list,
int num_includes, int capping_symbol_cnt,
CORE_ADDR capping_text,
struct partial_symtab **dependency_list,
int number_dependencies)
{
int i;
struct partial_symtab *p1;
struct objfile *objfile = pst->objfile;
if (capping_symbol_cnt != -1)
LDSYMCNT (pst) = capping_symbol_cnt - LDSYMCNT (pst);
if (pst->texthigh == 0 && last_function_name)
{
char *p;
int n;
struct minimal_symbol *minsym;
p = strchr (last_function_name, ':');
if (p == NULL)
p = last_function_name;
n = p - last_function_name;
p = alloca (n + 1);
strncpy (p, last_function_name, n);
p[n] = 0;
minsym = lookup_minimal_symbol (p, NULL, objfile);
if (minsym)
{
pst->texthigh = SYMBOL_VALUE_ADDRESS (minsym) + (long) MSYMBOL_INFO (minsym);
}
else
{
}
last_function_name = NULL;
}
if (pst->textlow == 0)
pst->textlow = pst->texthigh;
if (pst->textlow)
{
ALL_OBJFILE_PSYMTABS (objfile, p1)
{
if (p1->texthigh == 0 && p1->textlow != 0 && p1 != pst)
{
p1->texthigh = pst->textlow;
if (p1->textlow == 0)
p1->textlow = p1->texthigh;
}
}
}
pst->n_global_syms =
objfile->global_psymbols.next - (objfile->global_psymbols.list + pst->globals_offset);
pst->n_static_syms =
objfile->static_psymbols.next - (objfile->static_psymbols.list + pst->statics_offset);
pst->number_of_dependencies = number_dependencies;
if (number_dependencies)
{
pst->dependencies = (struct partial_symtab **)
obstack_alloc (&objfile->psymbol_obstack,
number_dependencies * sizeof (struct partial_symtab *));
memcpy (pst->dependencies, dependency_list,
number_dependencies * sizeof (struct partial_symtab *));
}
else
pst->dependencies = 0;
for (i = 0; i < num_includes; i++)
{
struct partial_symtab *subpst =
allocate_psymtab (include_list[i], objfile);
subpst->section_offsets = pst->section_offsets;
subpst->read_symtab_private =
(char *) obstack_alloc (&objfile->psymbol_obstack,
sizeof (struct symloc));
LDSYMOFF (subpst) =
LDSYMCNT (subpst) =
subpst->textlow =
subpst->texthigh = 0;
subpst->dependencies = (struct partial_symtab **)
obstack_alloc (&objfile->psymbol_obstack,
sizeof (struct partial_symtab *));
subpst->dependencies[0] = pst;
subpst->number_of_dependencies = 1;
subpst->globals_offset =
subpst->n_global_syms =
subpst->statics_offset =
subpst->n_static_syms = 0;
subpst->readin = 0;
subpst->symtab = 0;
subpst->read_symtab = pst->read_symtab;
}
sort_pst_symbols (pst);
free_named_symtabs (pst->filename);
if (num_includes == 0
&& number_dependencies == 0
&& pst->n_global_syms == 0
&& pst->n_static_syms == 0)
{
discard_psymtab (pst);
pst = (struct partial_symtab *) NULL;
}
return pst;
}
static void
os9k_psymtab_to_symtab_1 (struct partial_symtab *pst)
{
struct cleanup *old_chain;
int i;
if (!pst)
return;
if (pst->readin)
{
fprintf_unfiltered (gdb_stderr, "Psymtab for %s already read in. Shouldn't happen.\n",
pst->filename);
return;
}
for (i = 0; i < pst->number_of_dependencies; i++)
if (!pst->dependencies[i]->readin)
{
if (info_verbose)
{
fputs_filtered (" ", gdb_stdout);
wrap_here ("");
fputs_filtered ("and ", gdb_stdout);
wrap_here ("");
printf_filtered ("%s...", pst->dependencies[i]->filename);
wrap_here ("");
gdb_flush (gdb_stdout);
}
os9k_psymtab_to_symtab_1 (pst->dependencies[i]);
}
if (LDSYMCNT (pst))
{
stabsread_init ();
buildsym_init ();
old_chain = make_cleanup (really_free_pendings, 0);
os9k_read_ofile_symtab (pst);
sort_symtab_syms (pst->symtab);
do_cleanups (old_chain);
}
pst->readin = 1;
}
static void
os9k_psymtab_to_symtab (struct partial_symtab *pst)
{
bfd *sym_bfd;
if (!pst)
return;
if (pst->readin)
{
fprintf_unfiltered (gdb_stderr, "Psymtab for %s already read in. Shouldn't happen.\n",
pst->filename);
return;
}
if (LDSYMCNT (pst) || pst->number_of_dependencies)
{
if (info_verbose)
{
printf_filtered ("Reading in symbols for %s...", pst->filename);
gdb_flush (gdb_stdout);
}
sym_bfd = pst->objfile->obfd;
os9k_psymtab_to_symtab_1 (pst);
scan_file_globals (pst->objfile);
if (info_verbose)
printf_filtered ("done.\n");
}
}
static void
os9k_read_ofile_symtab (struct partial_symtab *pst)
{
register struct internal_symstruct *bufp;
unsigned char type;
unsigned max_symnum;
register bfd *abfd;
struct objfile *objfile;
int sym_offset;
CORE_ADDR text_offset;
int text_size;
FILE *dbg_file;
objfile = pst->objfile;
sym_offset = LDSYMOFF (pst);
max_symnum = LDSYMCNT (pst);
text_offset = pst->textlow;
text_size = pst->texthigh - pst->textlow;
current_objfile = objfile;
subfile_stack = NULL;
last_source_file = NULL;
abfd = objfile->obfd;
dbg_file = objfile->auxf2;
#if 0
if (!processing_acc_compilation && sym_offset >= (int) symbol_size)
{
fseek (objefile->auxf2, sym_offset, SEEK_CUR);
fill_sym (objfile->auxf2, abfd);
bufp = symbuf;
processing_gcc_compilation = 0;
if (bufp->n_type == N_TEXT)
{
if (STREQ (namestring, GCC_COMPILED_FLAG_SYMBOL))
processing_gcc_compilation = 1;
else if (STREQ (namestring, GCC2_COMPILED_FLAG_SYMBOL))
processing_gcc_compilation = 2;
}
if (processing_gcc_compilation)
{
if (AUTO_DEMANGLING)
{
set_demangling_style (GNU_DEMANGLING_STYLE_STRING);
}
}
}
else
{
bfd_seek (symfile_bfd, sym_offset, SEEK_CUR);
processing_gcc_compilation = 0;
}
#endif
fseek (dbg_file, (long) sym_offset, 0);
for (symnum = 0; symnum < max_symnum; symnum++)
{
QUIT;
fill_sym (dbg_file, abfd);
bufp = symbuf;
type = bufp->n_type;
os9k_process_one_symbol ((int) type, (int) bufp->n_desc,
(CORE_ADDR) bufp->n_value, bufp->n_strx, pst->section_offsets, objfile);
#if 0
else
if (type == N_TEXT)
{
if (STREQ (namestring, GCC_COMPILED_FLAG_SYMBOL))
processing_gcc_compilation = 1;
else if (STREQ (namestring, GCC2_COMPILED_FLAG_SYMBOL))
processing_gcc_compilation = 2;
if (AUTO_DEMANGLING)
{
set_demangling_style (GNU_DEMANGLING_STYLE_STRING);
}
}
else if (type & N_EXT || type == (unsigned char) N_TEXT
|| type == (unsigned char) N_NBTEXT
)
{
;
}
#endif
}
current_objfile = NULL;
if (last_source_start_addr == 0)
last_source_start_addr = text_offset;
pst->symtab = end_symtab (text_offset + text_size, objfile, SECT_OFF_TEXT (objfile));
end_stabs ();
}
static void
os9k_process_one_symbol (int type, int desc, CORE_ADDR valu, char *name,
struct section_offsets *section_offsets,
struct objfile *objfile)
{
register struct context_stack *new;
static int function_stab_type = 0;
#if 0
if (last_source_file == NULL && type != (unsigned char) N_SO)
{
return;
}
#endif
switch (type)
{
case N_SYM_LBRAC:
valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
new = push_context (desc, valu);
break;
case N_SYM_RBRAC:
valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
new = pop_context ();
#if !defined (OS9K_VARIABLES_INSIDE_BLOCK)
#define OS9K_VARIABLES_INSIDE_BLOCK(desc, gcc_p) 1
#endif
if (!OS9K_VARIABLES_INSIDE_BLOCK (desc, processing_gcc_compilation))
local_symbols = new->locals;
if (context_stack_depth > 1)
{
if (local_symbols != NULL)
{
if (new->start_addr > valu)
{
complain (&lbrac_rbrac_complaint);
new->start_addr = valu;
}
finish_block (0, &local_symbols, new->old_blocks,
new->start_addr, valu, objfile);
}
}
else
{
if (context_stack_depth == 0)
{
within_function = 0;
finish_block (new->name, &local_symbols, new->old_blocks,
new->start_addr, valu, objfile);
}
else
{
if (!new->locals)
new->locals = local_symbols;
else
{
struct pending *p;
p = new->locals;
while (p->next)
p = p->next;
p->next = local_symbols;
}
}
}
if (OS9K_VARIABLES_INSIDE_BLOCK (desc, processing_gcc_compilation))
local_symbols = new->locals;
break;
case N_SYM_SLINE:
valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
gdb_assert (sizeof (name) <= sizeof (int));
record_line (current_subfile, (int) name, valu);
break;
case N_SYM_SYM:
if (name)
{
char deftype;
char *dirn, *n;
char *p = strchr (name, ':');
if (p == NULL)
deftype = '\0';
else
deftype = p[1];
switch (deftype)
{
case 'S':
valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
n = strrchr (name, '/');
if (n != NULL)
{
*n = '\0';
n++;
dirn = name;
}
else
{
n = name;
dirn = NULL;
}
*p = '\0';
if (symfile_depth++ == 0)
{
if (last_source_file)
{
end_symtab (valu, objfile, SECT_OFF_TEXT (objfile));
end_stabs ();
}
start_stabs ();
os9k_stabs = 1;
start_symtab (n, dirn, valu);
record_debugformat ("OS9");
}
else
{
push_subfile ();
start_subfile (n, dirn != NULL ? dirn : current_subfile->dirname);
}
break;
case 'f':
case 'F':
valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
function_stab_type = type;
within_function = 1;
new = push_context (0, valu);
new->name = define_symbol (valu, name, NULL, desc, type, objfile);
break;
case 'V':
case 'v':
valu += ANOFFSET (section_offsets, SECT_OFF_DATA (objfile));
define_symbol (valu, name, NULL, desc, type, objfile);
break;
default:
define_symbol (valu, name, NULL, desc, type, objfile);
break;
}
}
break;
case N_SYM_SE:
if (--symfile_depth != 0)
start_subfile (pop_subfile (), current_subfile->dirname);
break;
default:
complain (&unknown_symtype_complaint,
local_hex_string ((unsigned long) type));
break;
case N_SYM_CMPLR:
break;
}
previous_stab_code = type;
}
static struct sym_fns os9k_sym_fns =
{
bfd_target_os9k_flavour,
os9k_new_init,
os9k_symfile_init,
os9k_symfile_read,
os9k_symfile_finish,
default_symfile_offsets,
NULL
};
void
_initialize_os9kread (void)
{
add_symtab_fns (&os9k_sym_fns);
}