mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-11-24 12:39:59 +00:00
Fri Mar 12 09:33:23 1993 Jim Kingdon (kingdon@cygnus.com)
* xcoffread.c (retrieve_tracebackinfo): Move assignment out of while condition. * xcoffread.c (enter_line_range): complain() on bad endoffset. xcoffread.c: Doc fixes. Tue Mar 9 09:56:12 1993 Jim Kingdon (kingdon@cygnus.com) * tm-rs6000.h (CORE_NEEDS_RELOCATION): Just call xcoff_relocate_core. xcoffexec.c (xcoff_relocate_core): New function. (text_adjustment): Removed. (add_vmap): Return the vmap. rs6000-tdep.c (add_text_to_loadinfo): No longer static. Fri Mar 5 05:22:46 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffsolib.h: Add objfile member to struct vmap. xcoff{exec,solib}.c: Use it, not lookup_objfile_bfd. xcoffexec.c (add_vmap): Allocate objfiles here.
This commit is contained in:
Jim Kingdon
parent
2e0e34505d
commit
2aefe6e4ae
@ -23,6 +23,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
#include "symtab.h"
|
||||
#include "target.h"
|
||||
|
||||
#include "xcoffsolib.h"
|
||||
|
||||
#include <sys/param.h>
|
||||
#include <sys/dir.h>
|
||||
#include <sys/user.h>
|
||||
@ -53,9 +55,6 @@ static struct sstep_breaks {
|
||||
|
||||
/* Static function prototypes */
|
||||
|
||||
static void
|
||||
add_text_to_loadinfo PARAMS ((CORE_ADDR textaddr, CORE_ADDR dataaddr));
|
||||
|
||||
static CORE_ADDR
|
||||
find_toc_address PARAMS ((CORE_ADDR pc));
|
||||
|
||||
@ -1179,7 +1178,7 @@ xcoff_add_toc_to_loadinfo (unsigned long tocoff)
|
||||
}
|
||||
|
||||
|
||||
static void
|
||||
void
|
||||
add_text_to_loadinfo (textaddr, dataaddr)
|
||||
CORE_ADDR textaddr;
|
||||
CORE_ADDR dataaddr;
|
||||
|
||||
@ -29,8 +29,9 @@ extern int symtab_relocated;
|
||||
if symbol table relocation wasn't done yet. */
|
||||
|
||||
#define CORE_NEEDS_RELOCATION(PC) \
|
||||
if (!symtab_relocated && !inferior_pid && (PC) > TEXT_SEGMENT_BASE) \
|
||||
(PC) -= ( TEXT_SEGMENT_BASE + text_adjustment (exec_bfd));
|
||||
if (!symtab_relocated && !inferior_pid) \
|
||||
xcoff_relocate_core ();
|
||||
extern void xcoff_relocate_core PARAMS ((void));
|
||||
|
||||
/* Load segment of a given pc value. */
|
||||
|
||||
|
||||
315
gdb/xcoffexec.c
315
gdb/xcoffexec.c
@ -40,6 +40,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
#include "objfiles.h"
|
||||
|
||||
#include "libbfd.h" /* BFD internals (sigh!) FIXME */
|
||||
#include "bfd.h"
|
||||
#include "xcoffsolib.h"
|
||||
|
||||
/* Prototypes for local functions */
|
||||
@ -50,6 +51,9 @@ file_command PARAMS ((char *, int));
|
||||
static void
|
||||
exec_close PARAMS ((int));
|
||||
|
||||
static struct vmap *
|
||||
map_vmap PARAMS ((bfd *, bfd *));
|
||||
|
||||
struct section_table *exec_sections, *exec_sections_end;
|
||||
|
||||
/* Whether to open exec and core files read-only or read-write. */
|
||||
@ -64,38 +68,6 @@ extern char *getenv();
|
||||
extern void add_syms_addr_command ();
|
||||
extern void symbol_file_command ();
|
||||
static void exec_files_info();
|
||||
extern struct objfile *lookup_objfile_bfd ();
|
||||
|
||||
#if 0
|
||||
/*
|
||||
* the vmap struct is used to describe the virtual address space of
|
||||
* the target we are manipulating. The first entry is always the "exec"
|
||||
* file. Subsequent entries correspond to other objects that are
|
||||
* mapped into the address space of a process created from the "exec" file.
|
||||
* These are either in response to exec()ing the file, in which case all
|
||||
* shared libraries are loaded, or a "load" system call, followed by the
|
||||
* user's issuance of a "load" command.
|
||||
*/
|
||||
struct vmap {
|
||||
struct vmap *nxt; /* ^ to next in chain */
|
||||
bfd *bfd; /* BFD for mappable object library */
|
||||
char *name; /* ^ to object file name */
|
||||
char *member; /* ^ to member name */
|
||||
CORE_ADDR tstart; /* virtual addr where member is mapped */
|
||||
CORE_ADDR tend; /* virtual upper bound of member */
|
||||
CORE_ADDR tadj; /* heuristically derived adjustment */
|
||||
CORE_ADDR dstart; /* virtual address of data start */
|
||||
CORE_ADDR dend; /* vitrual address of data end */
|
||||
};
|
||||
|
||||
|
||||
struct vmap_and_bfd {
|
||||
bfd *pbfd;
|
||||
struct vmap *pvmap;
|
||||
};
|
||||
|
||||
static struct vmap *vmap; /* current vmap */
|
||||
#endif /* 0 */
|
||||
|
||||
struct vmap *vmap; /* current vmap */
|
||||
|
||||
@ -117,11 +89,14 @@ exec_close(quitting)
|
||||
/* if there is an objfile associated with this bfd,
|
||||
free_objfile() will do proper cleanup of objfile *and* bfd. */
|
||||
|
||||
if (obj = lookup_objfile_bfd (vp->bfd))
|
||||
free_objfile (obj);
|
||||
if (vp->objfile)
|
||||
free_objfile (vp->objfile);
|
||||
else
|
||||
bfd_close(vp->bfd);
|
||||
|
||||
|
||||
/* FIXME: This routine is #if 0'd in symfile.c. What should we
|
||||
be doing here? Should we just free everything in
|
||||
vp->objfile->symtabs? Should free_objfile do that? */
|
||||
free_named_symtabs(vp->name);
|
||||
free(vp);
|
||||
}
|
||||
@ -265,21 +240,7 @@ build_section_table (some_bfd, start, end)
|
||||
/* We could realloc the table, but it probably loses for most files. */
|
||||
return 0;
|
||||
}
|
||||
|
||||
/*
|
||||
* lookup_symtab_bfd - find if we currently have any symbol tables from bfd
|
||||
*/
|
||||
struct objfile *
|
||||
lookup_objfile_bfd(bfd *bfd) {
|
||||
register struct objfile *s;
|
||||
|
||||
for (s = object_files; s; s = s->next)
|
||||
if (s->obfd == bfd)
|
||||
return s;
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
void
|
||||
sex_to_vmap(bfd *bf, sec_ptr sex, struct vmap_and_bfd *vmap_bfd)
|
||||
{
|
||||
@ -313,8 +274,8 @@ sex_to_vmap(bfd *bf, sec_ptr sex, struct vmap_and_bfd *vmap_bfd)
|
||||
}
|
||||
|
||||
/* Make a vmap for the BFD "bf", which might be a member of the archive
|
||||
BFD "arch". If we have not yet read in symbols for this file, do so. */
|
||||
|
||||
BFD "arch". Return the new vmap. */
|
||||
struct vmap *
|
||||
map_vmap (bfd *bf, bfd *arch)
|
||||
{
|
||||
struct vmap_and_bfd vmap_bfd;
|
||||
@ -332,24 +293,12 @@ map_vmap (bfd *bf, bfd *arch)
|
||||
vmap_bfd.pvmap = vp;
|
||||
bfd_map_over_sections (bf, sex_to_vmap, &vmap_bfd);
|
||||
|
||||
#if 0
|
||||
/* This is only needed if we want to load shared libraries no matter what.
|
||||
Since we provide the choice of incremental loading of shared objects
|
||||
now, we do not have to load them as default anymore. */
|
||||
|
||||
obj = lookup_objfile_bfd (bf);
|
||||
if (exec_bfd && !obj) {
|
||||
obj = allocate_objfile (bf, 0);
|
||||
|
||||
syms_from_objfile (obj, 0, 0, 0);
|
||||
new_symfile_objfile (obj, 0, 0);
|
||||
}
|
||||
#endif
|
||||
|
||||
/* find the end of the list, and append. */
|
||||
for (vpp = &vmap; *vpp; vpp = &(*vpp)->nxt)
|
||||
;
|
||||
*vpp = vp;
|
||||
|
||||
return vp;
|
||||
}
|
||||
|
||||
|
||||
@ -369,48 +318,18 @@ struct stat *vip;
|
||||
register struct objfile *objfile;
|
||||
register struct minimal_symbol *msymbol;
|
||||
|
||||
/*
|
||||
* for each symbol table generated from the vp->bfd
|
||||
*/
|
||||
ALL_OBJFILES (objfile)
|
||||
objfile = vp->objfile;
|
||||
if (objfile == NULL)
|
||||
{
|
||||
for (s = objfile -> symtabs; s != NULL; s = s -> next) {
|
||||
|
||||
/* skip over if this is not relocatable and doesn't have a line table */
|
||||
if (s->nonreloc && !LINETABLE (s))
|
||||
continue;
|
||||
|
||||
/* matching the symbol table's BFD and the *vp's BFD is hairy.
|
||||
exec_file creates a seperate BFD for possibly the
|
||||
same file as symbol_file.FIXME ALL THIS MUST BE RECTIFIED. */
|
||||
|
||||
if (objfile->obfd == vp->bfd) {
|
||||
/* if they match, we luck out. */
|
||||
;
|
||||
} else if (vp->member[0]) {
|
||||
/* no match, and member present, not this one. */
|
||||
continue;
|
||||
} else if (vip) {
|
||||
/* No match, and no member. need to be sure.
|
||||
If we were given a stat structure, see if the open file
|
||||
underlying this BFD matches. */
|
||||
struct stat si;
|
||||
FILE *io;
|
||||
|
||||
io = bfd_cache_lookup(objfile->obfd);
|
||||
if (!io)
|
||||
fatal("cannot find BFD's iostream for sym");
|
||||
/* OK, it's not an objfile we opened ourselves.
|
||||
Currently, that can only happen with the exec file, so
|
||||
relocate the symbols for the symfile. */
|
||||
if (symfile_objfile == NULL)
|
||||
return;
|
||||
objfile = symfile_objfile;
|
||||
}
|
||||
|
||||
/* see if we are referring to the same file */
|
||||
if (fstat(fileno(io), &si) < 0)
|
||||
fatal("cannot fstat BFD for sym");
|
||||
|
||||
if ((si.st_dev != vip->st_dev
|
||||
|| si.st_ino != vip->st_ino))
|
||||
continue;
|
||||
} else {
|
||||
continue; /* No stat struct: no way to match it */
|
||||
}
|
||||
s = objfile->symtabs;
|
||||
|
||||
if (vp->tstart != old_start) {
|
||||
|
||||
@ -422,12 +341,16 @@ struct stat *vip;
|
||||
if (!s->nonreloc || LINETABLE(s))
|
||||
vmap_symtab_1(s, vp, old_start);
|
||||
|
||||
#if 0
|
||||
#if 1
|
||||
/* I believe trampoline entries now have a name like
|
||||
<trampoline>. In any event, if something needs to be changed,
|
||||
it should be changed in ALL_MSYMBOLS, so it works everywhere. */
|
||||
/*
|
||||
Himm.., recently we nullified trampoline entry names in order not
|
||||
to confuse them with real symbols. Appearently this turned into a
|
||||
problem, and msymbol vector did not get relocated properly. If
|
||||
msymbols have to have non-null names, then we should name
|
||||
trampoline entries with empty strings.
|
||||
trampoline entries with empty strings. */
|
||||
|
||||
ALL_MSYMBOLS (objfile, msymbol)
|
||||
#else
|
||||
@ -438,10 +361,7 @@ struct stat *vip;
|
||||
if (SYMBOL_VALUE_ADDRESS (msymbol) < TEXT_SEGMENT_BASE)
|
||||
SYMBOL_VALUE_ADDRESS (msymbol) += vp->tstart - old_start;
|
||||
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (vp->tstart != old_start) {
|
||||
/* breakpoints need to be relocated as well. */
|
||||
@ -545,13 +465,22 @@ CORE_ADDR old_start;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* add_vmap - add a new vmap entry based on ldinfo() information
|
||||
*/
|
||||
static struct vmap *add_vmap PARAMS ((struct ld_info *));
|
||||
|
||||
/* Add a new vmap entry based on ldinfo() information.
|
||||
|
||||
If ldi->ldinfo_fd is not valid (e.g. this struct ld_info is from a
|
||||
core file), the caller should set it to -1, and we will open the file.
|
||||
|
||||
Return the vmap new entry. */
|
||||
static struct vmap *
|
||||
add_vmap(ldi)
|
||||
register struct ld_info *ldi; {
|
||||
register struct ld_info *ldi;
|
||||
{
|
||||
bfd *bfd, *last;
|
||||
register char *mem, *objname;
|
||||
struct objfile *obj;
|
||||
struct vmap *vp;
|
||||
|
||||
/* This ldi structure was allocated using alloca() in
|
||||
xcoff_relocate_symtab(). Now we need to have persistent object
|
||||
@ -561,7 +490,12 @@ register struct ld_info *ldi; {
|
||||
mem = savestring (mem, strlen (mem));
|
||||
objname = savestring (ldi->ldinfo_filename, strlen (ldi->ldinfo_filename));
|
||||
|
||||
bfd = bfd_fdopenr(objname, NULL, ldi->ldinfo_fd);
|
||||
if (ldi->ldinfo_fd < 0)
|
||||
/* Note that this opens it once for every member; a possible
|
||||
enhancement would be to only open it once for every object. */
|
||||
bfd = bfd_openr (objname, NULL);
|
||||
else
|
||||
bfd = bfd_fdopenr(objname, NULL, ldi->ldinfo_fd);
|
||||
if (!bfd)
|
||||
error("Could not open `%s' as an executable file: %s",
|
||||
objname, bfd_errmsg(bfd_error));
|
||||
@ -570,7 +504,7 @@ register struct ld_info *ldi; {
|
||||
/* make sure we have an object file */
|
||||
|
||||
if (bfd_check_format(bfd, bfd_object))
|
||||
map_vmap (bfd, 0);
|
||||
vp = map_vmap (bfd, 0);
|
||||
|
||||
else if (bfd_check_format(bfd, bfd_archive)) {
|
||||
last = 0;
|
||||
@ -593,16 +527,25 @@ register struct ld_info *ldi; {
|
||||
goto obj_err;
|
||||
}
|
||||
|
||||
map_vmap (last, bfd);
|
||||
vp = map_vmap (last, bfd);
|
||||
}
|
||||
else {
|
||||
obj_err:
|
||||
bfd_close(bfd);
|
||||
/* FIXME -- should be error */
|
||||
warning("\"%s\": not in executable format: %s."
|
||||
, objname, bfd_errmsg(bfd_error));
|
||||
return;
|
||||
error ("\"%s\": not in executable format: %s.",
|
||||
objname, bfd_errmsg(bfd_error));
|
||||
/*NOTREACHED*/
|
||||
}
|
||||
obj = allocate_objfile (vp->bfd, 0);
|
||||
vp->objfile = obj;
|
||||
|
||||
#ifndef SOLIB_SYMBOLS_MANUAL
|
||||
syms_from_objfile (obj, 0, 0, 0);
|
||||
new_symfile_objfile (obj, 0, 0);
|
||||
vmap_symtab (vp, 0, 0);
|
||||
vp->loaded = 1;
|
||||
#endif
|
||||
return vp;
|
||||
}
|
||||
|
||||
|
||||
@ -643,7 +586,8 @@ vmap_exec ()
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
#if 0
|
||||
/* This was for the old, half-assed, core file support. */
|
||||
int
|
||||
text_adjustment (abfd)
|
||||
bfd *abfd;
|
||||
@ -663,7 +607,7 @@ bfd *abfd;
|
||||
|
||||
return adjustment;
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
/*
|
||||
* vmap_ldinfo - update VMAP info with ldinfo() information
|
||||
@ -1005,7 +949,130 @@ Specify the filename of the executable file.",
|
||||
0, 0, /* section pointers */
|
||||
OPS_MAGIC, /* Always the last thing */
|
||||
};
|
||||
|
||||
/* Core file stuff. */
|
||||
|
||||
/* Relocate symtabs and read in shared library info, based on symbols
|
||||
from the core file. */
|
||||
void
|
||||
xcoff_relocate_core ()
|
||||
{
|
||||
/* Offset of member MEMBER in a struct of type TYPE. */
|
||||
#ifndef offsetof
|
||||
#define offsetof(TYPE, MEMBER) ((int) &((TYPE *)0)->MEMBER)
|
||||
#endif
|
||||
|
||||
/* Size of a struct ld_info except for the variable-length filename. */
|
||||
#define LDINFO_SIZE (offsetof (struct ld_info, ldinfo_filename))
|
||||
|
||||
sec_ptr ldinfo_sec;
|
||||
int offset = 0;
|
||||
struct ld_info *ldip;
|
||||
struct vmap *vp;
|
||||
|
||||
/* Allocated size of buffer. */
|
||||
int buffer_size = LDINFO_SIZE;
|
||||
char *buffer = xmalloc (buffer_size);
|
||||
struct cleanup *old = make_cleanup (free_current_contents, &buffer);
|
||||
|
||||
ldinfo_sec = bfd_get_section_by_name (core_bfd, ".ldinfo");
|
||||
if (ldinfo_sec == NULL)
|
||||
{
|
||||
bfd_err:
|
||||
fprintf_filtered (stderr, "Couldn't get ldinfo from core file: %s\n",
|
||||
bfd_errmsg (bfd_error));
|
||||
do_cleanups (old);
|
||||
return;
|
||||
}
|
||||
do
|
||||
{
|
||||
int i;
|
||||
int names_found = 0;
|
||||
|
||||
/* Read in everything but the name. */
|
||||
if (bfd_get_section_contents (core_bfd, ldinfo_sec, buffer,
|
||||
offset, LDINFO_SIZE) == 0)
|
||||
goto bfd_err;
|
||||
|
||||
/* Now the name. */
|
||||
i = LDINFO_SIZE;
|
||||
do
|
||||
{
|
||||
if (i == buffer_size)
|
||||
{
|
||||
buffer_size *= 2;
|
||||
buffer = xrealloc (buffer, buffer_size);
|
||||
}
|
||||
if (bfd_get_section_contents (core_bfd, ldinfo_sec, &buffer[i],
|
||||
offset + i, 1) == 0)
|
||||
goto bfd_err;
|
||||
if (buffer[i++] == '\0')
|
||||
++names_found;
|
||||
} while (names_found < 2);
|
||||
|
||||
ldip = (struct ld_info *)buffer;
|
||||
|
||||
/* Can't use a file descriptor from the core file; need to open it. */
|
||||
ldip->ldinfo_fd = -1;
|
||||
|
||||
/* The first ldinfo is for the exec file, allocated elsewhere. */
|
||||
if (offset == 0)
|
||||
vp = vmap;
|
||||
else
|
||||
vp = add_vmap (ldip);
|
||||
|
||||
offset += ldip->ldinfo_next;
|
||||
|
||||
vp->tstart = ldip->ldinfo_textorg;
|
||||
vp->tend = vp->tstart + ldip->ldinfo_textsize;
|
||||
vp->dstart = ldip->ldinfo_dataorg;
|
||||
vp->dend = vp->dstart + ldip->ldinfo_datasize;
|
||||
|
||||
if (vp->tadj != 0) {
|
||||
vp->tstart += vp->tadj;
|
||||
vp->tend += vp->tadj;
|
||||
}
|
||||
|
||||
/* Unless this is the exec file,
|
||||
add our sections to the section table for the core target. */
|
||||
if (vp != vmap)
|
||||
{
|
||||
int count;
|
||||
struct section_table *stp;
|
||||
|
||||
count = core_ops.to_sections_end - core_ops.to_sections;
|
||||
count += 2;
|
||||
core_ops.to_sections = (struct section_table *)
|
||||
xrealloc (core_ops.to_sections,
|
||||
sizeof (struct section_table) * count);
|
||||
core_ops.to_sections_end = core_ops.to_sections + count;
|
||||
stp = core_ops.to_sections_end - 2;
|
||||
|
||||
/* "Why do we add bfd_section_vma?", I hear you cry.
|
||||
Well, the start of the section in the file is actually
|
||||
that far into the section as the struct vmap understands it.
|
||||
So for text sections, bfd_section_vma tends to be 0x200,
|
||||
and if vp->tstart is 0xd0002000, then the first byte of
|
||||
the text section on disk corresponds to address 0xd0002200. */
|
||||
stp->bfd = vp->bfd;
|
||||
stp->sec_ptr = bfd_get_section_by_name (stp->bfd, ".text");
|
||||
stp->addr = bfd_section_vma (stp->bfd, stp->sec_ptr) + vp->tstart;
|
||||
stp->endaddr = bfd_section_vma (stp->bfd, stp->sec_ptr) + vp->tend;
|
||||
stp++;
|
||||
|
||||
stp->bfd = vp->bfd;
|
||||
stp->sec_ptr = bfd_get_section_by_name (stp->bfd, ".data");
|
||||
stp->addr = bfd_section_vma (stp->bfd, stp->sec_ptr) + vp->dstart;
|
||||
stp->endaddr = bfd_section_vma (stp->bfd, stp->sec_ptr) + vp->dend;
|
||||
}
|
||||
|
||||
vmap_symtab (vp, 0, 0);
|
||||
|
||||
add_text_to_loadinfo (ldip->ldinfo_textorg, ldip->ldinfo_dataorg);
|
||||
} while (ldip->ldinfo_next != 0);
|
||||
vmap_exec ();
|
||||
do_cleanups (old);
|
||||
}
|
||||
|
||||
void
|
||||
_initialize_exec()
|
||||
|
||||
@ -438,7 +438,11 @@ static unsigned first_fun_bf;
|
||||
|
||||
typedef struct _inclTable {
|
||||
char *name; /* include filename */
|
||||
int begin, end; /* offsets to the line table */
|
||||
|
||||
/* Offsets to the line table. end points to the last entry which is
|
||||
part of this include file. */
|
||||
int begin, end;
|
||||
|
||||
struct subfile *subfile;
|
||||
unsigned funStartLine; /* start line # of its function */
|
||||
} InclTable;
|
||||
@ -670,7 +674,10 @@ aix_process_linenos ()
|
||||
/* Enter a given range of lines into the line vector.
|
||||
can be called in the following two ways:
|
||||
enter_line_range (subfile, beginoffset, endoffset, startaddr, 0, firstLine) or
|
||||
enter_line_range (subfile, beginoffset, 0, startaddr, endaddr, firstLine) */
|
||||
enter_line_range (subfile, beginoffset, 0, startaddr, endaddr, firstLine)
|
||||
|
||||
endoffset points to the last line table entry that we should pay
|
||||
attention to. */
|
||||
|
||||
static void
|
||||
enter_line_range (subfile, beginoffset, endoffset, startaddr, endaddr, firstLine)
|
||||
@ -688,6 +695,13 @@ enter_line_range (subfile, beginoffset, endoffset, startaddr, endaddr, firstLine
|
||||
#define P_LINESYM(PP) (*(long*)((struct external_lineno*)(PP))->l_addr.l_symndx)
|
||||
|
||||
pp = &linetab [beginoffset - linetab_offset];
|
||||
if (endoffset != 0 && endoffset - linetab_offset >= linetab_size)
|
||||
{
|
||||
static struct complaint msg =
|
||||
{"Bad line table offset in C_EINCL directive", 0, 0};
|
||||
complain (&msg);
|
||||
return;
|
||||
}
|
||||
limit = endoffset ? &linetab [endoffset - linetab_offset]
|
||||
: &linetab [linetab_size -1];
|
||||
|
||||
@ -732,9 +746,10 @@ retrieve_tracebackinfo (abfd, textsec, cs)
|
||||
struct coff_symbol *cs;
|
||||
{
|
||||
#define TBTABLE_BUFSIZ 2000
|
||||
#define MIN_TBTABSIZ 50 /* minimum buffer size to hold a
|
||||
traceback table. */
|
||||
|
||||
/* Minimum buffer size to hold a traceback table. */
|
||||
#define MIN_TBTABSIZ 50
|
||||
|
||||
static TracebackInfo tbInfo;
|
||||
struct tbtable *ptb;
|
||||
|
||||
@ -751,13 +766,16 @@ retrieve_tracebackinfo (abfd, textsec, cs)
|
||||
/* keep reading blocks of data from the text section, until finding a zero
|
||||
word and a traceback table. */
|
||||
|
||||
while (
|
||||
bufferbytes = (
|
||||
(TBTABLE_BUFSIZ < (textsec->_raw_size - functionstart - bytesread)) ?
|
||||
TBTABLE_BUFSIZ : (textsec->_raw_size - functionstart - bytesread))
|
||||
|
||||
&& bfd_get_section_contents (abfd, textsec, buffer,
|
||||
(file_ptr)(functionstart + bytesread), bufferbytes))
|
||||
/* Note: The logical thing way to write this code would be to assign
|
||||
to bufferbytes within the while condition. But that triggers a
|
||||
compiler (xlc in AIX 3.2) bug, so simplify it... */
|
||||
bufferbytes =
|
||||
(TBTABLE_BUFSIZ < (textsec->_raw_size - functionstart - bytesread) ?
|
||||
TBTABLE_BUFSIZ : (textsec->_raw_size - functionstart - bytesread));
|
||||
while (bufferbytes
|
||||
&& (bfd_get_section_contents
|
||||
(abfd, textsec, buffer,
|
||||
(file_ptr)(functionstart + bytesread), bufferbytes)))
|
||||
{
|
||||
bytesread += bufferbytes;
|
||||
pinsn = (int*) buffer;
|
||||
@ -796,6 +814,7 @@ retrieve_tracebackinfo (abfd, textsec, cs)
|
||||
|
||||
if (!tbInfo.framesize)
|
||||
return NULL;
|
||||
|
||||
}
|
||||
|
||||
/* look for a zero word. */
|
||||
@ -839,6 +858,9 @@ retrieve_tracebackinfo (abfd, textsec, cs)
|
||||
tbInfo.parminfo = ptb->tb_ext.parminfo;
|
||||
return &tbInfo;
|
||||
}
|
||||
bufferbytes =
|
||||
(TBTABLE_BUFSIZ < (textsec->_raw_size - functionstart - bytesread) ?
|
||||
TBTABLE_BUFSIZ : (textsec->_raw_size - functionstart - bytesread));
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
@ -1918,7 +1940,9 @@ process_xcoff_symbol (cs, objfile)
|
||||
return sym2;
|
||||
}
|
||||
|
||||
|
||||
/* FIXME: Somewhere in here we should check to see that symno is a
|
||||
valid number, so that we can print an error message on corrupt input
|
||||
files rather than dumping core. */
|
||||
static int
|
||||
read_symbol_nvalue (symtable, symno)
|
||||
char *symtable;
|
||||
|
||||
@ -25,6 +25,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
#include "bfd.h"
|
||||
#include "xcoffsolib.h"
|
||||
|
||||
#ifdef SOLIB_SYMBOLS_MANUAL
|
||||
|
||||
extern struct symtab *current_source_symtab;
|
||||
extern int current_source_line;
|
||||
|
||||
@ -87,6 +89,9 @@ solib_add (arg_string, from_tty, target)
|
||||
vp->name);
|
||||
fflush (stdout);
|
||||
|
||||
/* This is gross and doesn't work. If this code is re-enabled,
|
||||
just stick a objfile member into the struct vmap; that's the
|
||||
way solib.c (for SunOS/SVR4) does it. */
|
||||
obj = lookup_objfile_bfd (vp->bfd);
|
||||
if (!obj) {
|
||||
warning ("\nObj structure for the shared object not found. Loading failed.");
|
||||
@ -115,7 +120,7 @@ solib_add (arg_string, from_tty, target)
|
||||
else if (!matched)
|
||||
printf ("No matching shared object found.\n");
|
||||
}
|
||||
|
||||
#endif /* SOLIB_SYMBOLS_MANUAL */
|
||||
|
||||
/* Return the module name of a given text address. Note that returned buffer
|
||||
is not persistent. */
|
||||
@ -172,7 +177,7 @@ Text Range Data Range Syms Shared Object Library\n");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
#ifdef SOLIB_SYMBOLS_MANUAL
|
||||
void
|
||||
sharedlibrary_command (args, from_tty)
|
||||
char *args;
|
||||
@ -181,13 +186,16 @@ sharedlibrary_command (args, from_tty)
|
||||
dont_repeat();
|
||||
solib_add (args, from_tty, (struct target_ops *)0);
|
||||
}
|
||||
#endif /* SOLIB_SYMBOLS_MANUAL */
|
||||
|
||||
void
|
||||
_initialize_solib()
|
||||
{
|
||||
|
||||
#ifdef SOLIB_SYMBOLS_MANUAL
|
||||
add_com("sharedlibrary", class_files, sharedlibrary_command,
|
||||
"Load shared object library symbols for files matching REGEXP.");
|
||||
#endif
|
||||
add_info("sharedlibrary", solib_info,
|
||||
"Status of loaded shared object libraries");
|
||||
}
|
||||
|
||||
@ -37,6 +37,9 @@ struct vmap {
|
||||
CORE_ADDR dstart; /* virtual address of data start */
|
||||
CORE_ADDR dend; /* vitrual address of data end */
|
||||
|
||||
/* This is NULL for the exec-file. */
|
||||
struct objfile *objfile;
|
||||
|
||||
CORE_ADDR ostart; /* objext start ??? */
|
||||
unsigned loaded:1; /* True if symbols are loaded */
|
||||
unsigned reloced:1; /* True, if symbols relocated */
|
||||
@ -50,3 +53,7 @@ struct vmap_and_bfd {
|
||||
};
|
||||
|
||||
extern struct vmap *vmap;
|
||||
|
||||
void
|
||||
add_text_to_loadinfo PARAMS ((CORE_ADDR textaddr, CORE_ADDR dataaddr));
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user