/* IBM RS/6000 native-dependent code for GDB, the GNU debugger.
- Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc.
+ Copyright 1986, 1987, 1989, 1991, 1992, 1994 Free Software Foundation, Inc.
This file is part of GDB.
#include <sys/ldr.h>
extern int errno;
+
extern struct vmap * map_vmap PARAMS ((bfd *bf, bfd *arch));
extern struct target_ops exec_ops;
extern void
add_text_to_loadinfo PARAMS ((CORE_ADDR textaddr, CORE_ADDR dataaddr));
+extern void
+fixup_breakpoints PARAMS ((CORE_ADDR low, CORE_ADDR high, CORE_ADDR delta));
+
/* Conversion from gdb-to-system special purpose register numbers.. */
static int special_regs[] = {
for (ii=0; ii < 32; ++ii)
ptrace (PT_READ_FPR, inferior_pid,
- (PTRACE_ARG3_TYPE) ®isters [REGISTER_BYTE (FP0_REGNUM+ii)],
+ (PTRACE_ARG3_TYPE) ®isters [REGISTER_BYTE (FP0_REGNUM+ii)],
FPR0+ii, 0);
/* read special registers. */
}
else if (regno <= FPLAST_REGNUM) { /* a FPR */
ptrace (PT_READ_FPR, inferior_pid,
- (PTRACE_ARG3_TYPE) ®isters [REGISTER_BYTE (regno)],
+ (PTRACE_ARG3_TYPE) ®isters [REGISTER_BYTE (regno)],
(regno-FP0_REGNUM+FPR0), 0);
}
else if (regno <= LAST_SP_REGNUM) { /* a special register */
errno = 0;
- if (regno == -1) { /* for all registers.. */
+ if (regno == -1)
+ { /* for all registers.. */
int ii;
/* execute one dummy instruction (which is a breakpoint) in inferior
exec_one_dummy_insn ();
/* write general purpose registers first! */
- for ( ii=GPR0; ii<=GPR31; ++ii) {
- ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) ii,
- *(int*)®isters[REGISTER_BYTE (ii)], 0);
- if ( errno ) {
- perror ("ptrace write_gpr"); errno = 0;
+ for ( ii=GPR0; ii<=GPR31; ++ii)
+ {
+ ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) ii,
+ *(int*)®isters[REGISTER_BYTE (ii)], 0);
+ if (errno)
+ {
+ perror ("ptrace write_gpr");
+ errno = 0;
+ }
}
- }
/* write floating point registers now. */
- for ( ii=0; ii < 32; ++ii) {
- ptrace (PT_WRITE_FPR, inferior_pid,
+ for ( ii=0; ii < 32; ++ii)
+ {
+ ptrace (PT_WRITE_FPR, inferior_pid,
(PTRACE_ARG3_TYPE) ®isters[REGISTER_BYTE (FP0_REGNUM+ii)],
- FPR0+ii, 0);
- if ( errno ) {
- perror ("ptrace write_fpr"); errno = 0;
- }
- }
+ FPR0+ii, 0);
+ if (errno)
+ {
+ perror ("ptrace write_fpr");
+ errno = 0;
+ }
+ }
/* write special registers. */
- for (ii=0; ii <= LAST_SP_REGNUM-FIRST_SP_REGNUM; ++ii) {
- ptrace (PT_WRITE_GPR, inferior_pid,
- (PTRACE_ARG3_TYPE) special_regs[ii],
- *(int*)®isters[REGISTER_BYTE (FIRST_SP_REGNUM+ii)], 0);
- if ( errno ) {
- perror ("ptrace write_gpr"); errno = 0;
+ for (ii=0; ii <= LAST_SP_REGNUM-FIRST_SP_REGNUM; ++ii)
+ {
+ ptrace (PT_WRITE_GPR, inferior_pid,
+ (PTRACE_ARG3_TYPE) special_regs[ii],
+ *(int*)®isters[REGISTER_BYTE (FIRST_SP_REGNUM+ii)], 0);
+ if (errno)
+ {
+ perror ("ptrace write_gpr");
+ errno = 0;
+ }
}
- }
- }
+ }
/* else, a specific register number is given... */
- else if (regno < FP0_REGNUM) { /* a GPR */
-
- ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) regno,
- *(int*)®isters[REGISTER_BYTE (regno)], 0);
- }
-
- else if (regno <= FPLAST_REGNUM) { /* a FPR */
- ptrace (PT_WRITE_FPR, inferior_pid,
- (PTRACE_ARG3_TYPE) ®isters[REGISTER_BYTE (regno)],
- regno-FP0_REGNUM+FPR0, 0);
- }
+ else if (regno < FP0_REGNUM) /* a GPR */
+ {
+ ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) regno,
+ *(int*)®isters[REGISTER_BYTE (regno)], 0);
+ }
- else if (regno <= LAST_SP_REGNUM) { /* a special register */
+ else if (regno <= FPLAST_REGNUM) /* a FPR */
+ {
+ ptrace (PT_WRITE_FPR, inferior_pid,
+ (PTRACE_ARG3_TYPE) ®isters[REGISTER_BYTE (regno)],
+ regno - FP0_REGNUM + FPR0, 0);
+ }
- ptrace (PT_WRITE_GPR, inferior_pid,
- (PTRACE_ARG3_TYPE) special_regs [regno-FIRST_SP_REGNUM],
- *(int*)®isters[REGISTER_BYTE (regno)], 0);
- }
+ else if (regno <= LAST_SP_REGNUM) /* a special register */
+ {
+ ptrace (PT_WRITE_GPR, inferior_pid,
+ (PTRACE_ARG3_TYPE) special_regs [regno-FIRST_SP_REGNUM],
+ *(int*)®isters[REGISTER_BYTE (regno)], 0);
+ }
else
fprintf_unfiltered (gdb_stderr, "Gdb error: register no %d not implemented.\n", regno);
- if ( errno ) {
- perror ("ptrace write"); errno = 0;
- }
+ if (errno)
+ {
+ perror ("ptrace write");
+ errno = 0;
+ }
}
/* Execute one dummy breakpoint instruction. This way we give the kernel
a chance to do some housekeeping and update inferior's internal data,
including u_area. */
+
static void
exec_one_dummy_insn ()
{
#define DUMMY_INSN_ADDR (TEXT_SEGMENT_BASE)+0x200
- unsigned long shadow;
+ char shadow_contents[BREAKPOINT_MAX]; /* Stash old bkpt addr contents */
unsigned int status, pid;
/* We plant one dummy breakpoint into DUMMY_INSN_ADDR address. We assume that
this address will never be executed again by the real code. */
- target_insert_breakpoint (DUMMY_INSN_ADDR, &shadow);
+ target_insert_breakpoint (DUMMY_INSN_ADDR, shadow_contents);
errno = 0;
ptrace (PT_CONTINUE, inferior_pid, (PTRACE_ARG3_TYPE) DUMMY_INSN_ADDR, 0, 0);
pid = wait (&status);
} while (pid != inferior_pid);
- target_remove_breakpoint (DUMMY_INSN_ADDR, &shadow);
+ target_remove_breakpoint (DUMMY_INSN_ADDR, shadow_contents);
}
void
{
/* fetch GPRs and special registers from the first register section
in core bfd. */
- if (which == 0) {
-
- /* copy GPRs first. */
- memcpy (registers, core_reg_sect, 32 * 4);
-
- /* gdb's internal register template and bfd's register section layout
- should share a common include file. FIXMEmgo */
- /* then comes special registes. They are supposed to be in the same
- order in gdb template and bfd `.reg' section. */
- core_reg_sect += (32 * 4);
- memcpy (®isters [REGISTER_BYTE (FIRST_SP_REGNUM)], core_reg_sect,
- (LAST_SP_REGNUM - FIRST_SP_REGNUM + 1) * 4);
- }
+ if (which == 0)
+ {
+ /* copy GPRs first. */
+ memcpy (registers, core_reg_sect, 32 * 4);
+
+ /* gdb's internal register template and bfd's register section layout
+ should share a common include file. FIXMEmgo */
+ /* then comes special registes. They are supposed to be in the same
+ order in gdb template and bfd `.reg' section. */
+ core_reg_sect += (32 * 4);
+ memcpy (®isters [REGISTER_BYTE (FIRST_SP_REGNUM)], core_reg_sect,
+ (LAST_SP_REGNUM - FIRST_SP_REGNUM + 1) * 4);
+ }
/* fetch floating point registers from register section 2 in core bfd. */
else if (which == 2)
fprintf_unfiltered (gdb_stderr, "Gdb error: unknown parameter to fetch_core_registers().\n");
}
\f
-/* vmap_symtab - handle symbol translation on vmapping */
+/* handle symbol translation on vmapping */
static void
vmap_symtab (vp)
}
\f
/* Add symbols for an objfile. */
+
static int
objfile_symbol_add (arg)
char *arg;
{
struct objfile *obj = (struct objfile *) arg;
+
syms_from_objfile (obj, 0, 0, 0);
new_symfile_objfile (obj, 0, 0);
return 1;
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)
+add_vmap (ldi)
register struct ld_info *ldi;
{
- bfd *abfd, *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
- and member names, so we should save them. */
-
- mem = ldi->ldinfo_filename + strlen(ldi->ldinfo_filename) + 1;
- mem = savestring (mem, strlen (mem));
- objname = savestring (ldi->ldinfo_filename, strlen (ldi->ldinfo_filename));
-
- 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. */
- abfd = bfd_openr (objname, gnutarget);
- else
- abfd = bfd_fdopenr(objname, gnutarget, ldi->ldinfo_fd);
- if (!abfd)
- error("Could not open `%s' as an executable file: %s",
- objname, bfd_errmsg(bfd_get_error ()));
-
-
- /* make sure we have an object file */
-
- if (bfd_check_format(abfd, bfd_object))
- vp = map_vmap (abfd, 0);
-
- else if (bfd_check_format(abfd, bfd_archive)) {
- last = 0;
- /*
- * FIXME??? am I tossing BFDs? bfd?
- */
- while (last = bfd_openr_next_archived_file(abfd, last))
- if (STREQ(mem, last->filename))
- break;
-
- if (!last) {
- bfd_close(abfd);
- /* FIXME -- should be error */
- warning("\"%s\": member \"%s\" missing.", abfd->filename, mem);
- return;
- }
-
- if (!bfd_check_format(last, bfd_object)) {
- bfd_close(last); /* XXX??? */
- goto obj_err;
- }
-
- vp = map_vmap (last, abfd);
+ bfd *abfd, *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
+ and member names, so we should save them. */
+
+ mem = ldi->ldinfo_filename + strlen (ldi->ldinfo_filename) + 1;
+ mem = savestring (mem, strlen (mem));
+ objname = savestring (ldi->ldinfo_filename, strlen (ldi->ldinfo_filename));
+
+ 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. */
+ abfd = bfd_openr (objname, gnutarget);
+ else
+ abfd = bfd_fdopenr (objname, gnutarget, ldi->ldinfo_fd);
+ if (!abfd)
+ error ("Could not open `%s' as an executable file: %s",
+ objname, bfd_errmsg (bfd_get_error ()));
+
+ /* make sure we have an object file */
+
+ if (bfd_check_format (abfd, bfd_object))
+ vp = map_vmap (abfd, 0);
+
+ else if (bfd_check_format (abfd, bfd_archive))
+ {
+ last = 0;
+ /* FIXME??? am I tossing BFDs? bfd? */
+ while ((last = bfd_openr_next_archived_file (abfd, last)))
+ if (STREQ (mem, last->filename))
+ break;
+
+ if (!last)
+ {
+ bfd_close (abfd);
+ /* FIXME -- should be error */
+ warning ("\"%s\": member \"%s\" missing.", abfd->filename, mem);
+ return;
}
- else {
- obj_err:
- bfd_close(abfd);
- error ("\"%s\": not in executable format: %s.",
- objname, bfd_errmsg(bfd_get_error ()));
- /*NOTREACHED*/
+
+ if (!bfd_check_format(last, bfd_object))
+ {
+ bfd_close (last); /* XXX??? */
+ goto obj_err;
}
- obj = allocate_objfile (vp->bfd, 0);
- vp->objfile = obj;
+
+ vp = map_vmap (last, abfd);
+ }
+ else
+ {
+ obj_err:
+ bfd_close (abfd);
+ error ("\"%s\": not in executable format: %s.",
+ objname, bfd_errmsg (bfd_get_error ()));
+ /*NOTREACHED*/
+ }
+ obj = allocate_objfile (vp->bfd, 0);
+ vp->objfile = obj;
#ifndef SOLIB_SYMBOLS_MANUAL
- if (catch_errors (objfile_symbol_add, (char *)obj,
- "Error while reading shared library symbols:\n",
- RETURN_MASK_ALL))
- {
- /* Note this is only done if symbol reading was successful. */
- vmap_symtab (vp);
- vp->loaded = 1;
- }
+ if (catch_errors (objfile_symbol_add, (char *)obj,
+ "Error while reading shared library symbols:\n",
+ RETURN_MASK_ALL))
+ {
+ /* Note this is only done if symbol reading was successful. */
+ vmap_symtab (vp);
+ vp->loaded = 1;
+ }
#endif
- return vp;
+ return vp;
}
\f
-/*
- * vmap_ldinfo - update VMAP info with ldinfo() information
- *
- * Input:
- * ldi - ^ to ldinfo() results.
- */
+/* update VMAP info with ldinfo() information
+ Input is ptr to ldinfo() results. */
static void
-vmap_ldinfo(ldi)
+vmap_ldinfo (ldi)
register struct ld_info *ldi;
{
struct stat ii, vi;
register got_one, retried;
CORE_ADDR ostart;
- /*
- * for each *ldi, see if we have a corresponding *vp
- * if so, update the mapping, and symbol table.
- * if not, add an entry and symbol table.
- */
- do {
- char *name = ldi->ldinfo_filename;
- char *memb = name + strlen(name) + 1;
+ /* For each *ldi, see if we have a corresponding *vp.
+ If so, update the mapping, and symbol table.
+ If not, add an entry and symbol table. */
- retried = 0;
+ do {
+ char *name = ldi->ldinfo_filename;
+ char *memb = name + strlen(name) + 1;
- if (fstat(ldi->ldinfo_fd, &ii) < 0)
- fatal("cannot fstat(%d) on %s"
- , ldi->ldinfo_fd
- , name);
-retry:
- for (got_one = 0, vp = vmap; vp; vp = vp->nxt) {
- FILE *io;
+ retried = 0;
- /* First try to find a `vp', which is the same as in ldinfo.
- If not the same, just continue and grep the next `vp'. If same,
- relocate its tstart, tend, dstart, dend values. If no such `vp'
- found, get out of this for loop, add this ldi entry as a new vmap
- (add_vmap) and come back, fins its `vp' and so on... */
+ if (fstat (ldi->ldinfo_fd, &ii) < 0)
+ fatal ("cannot fstat(fd=%d) on %s", ldi->ldinfo_fd, name);
+ retry:
+ for (got_one = 0, vp = vmap; vp; vp = vp->nxt)
+ {
+ FILE *io;
- /* The filenames are not always sufficient to match on. */
+ /* First try to find a `vp', which is the same as in ldinfo.
+ If not the same, just continue and grep the next `vp'. If same,
+ relocate its tstart, tend, dstart, dend values. If no such `vp'
+ found, get out of this for loop, add this ldi entry as a new vmap
+ (add_vmap) and come back, fins its `vp' and so on... */
- if ((name[0] == '/' && !STREQ(name, vp->name))
- || (memb[0] && !STREQ(memb, vp->member)))
- continue;
+ /* The filenames are not always sufficient to match on. */
- io = bfd_cache_lookup(vp->bfd); /* totally opaque! */
- if (!io)
- fatal("cannot find BFD's iostream for %s", vp->name);
+ if ((name[0] == '/' && !STREQ(name, vp->name))
+ || (memb[0] && !STREQ(memb, vp->member)))
+ continue;
- /* see if we are referring to the same file */
+ io = bfd_cache_lookup (vp->bfd); /* totally opaque! */
+ if (!io)
+ fatal ("cannot find BFD's iostream for %s", vp->name);
- if (fstat(fileno(io), &vi) < 0)
- fatal("cannot fstat BFD for %s", vp->name);
+ /* See if we are referring to the same file. */
+ if (fstat (fileno(io), &vi) < 0)
+ fatal ("cannot fstat(fd=%d) the BFD for %s (errno=%d)",
+ fileno(io), vp->name, errno);
- if (ii.st_dev != vi.st_dev || ii.st_ino != vi.st_ino)
- continue;
+ if (ii.st_dev != vi.st_dev || ii.st_ino != vi.st_ino)
+ continue;
- if (!retried)
- close(ldi->ldinfo_fd);
+ if (!retried)
+ close (ldi->ldinfo_fd);
- ++got_one;
+ ++got_one;
- /* found a corresponding VMAP. remap! */
- ostart = vp->tstart;
+ /* found a corresponding VMAP. remap! */
+ ostart = vp->tstart;
- /* We can assume pointer == CORE_ADDR, this code is native only. */
- vp->tstart = (CORE_ADDR) ldi->ldinfo_textorg;
- vp->tend = vp->tstart + ldi->ldinfo_textsize;
- vp->dstart = (CORE_ADDR) ldi->ldinfo_dataorg;
- vp->dend = vp->dstart + ldi->ldinfo_datasize;
+ /* We can assume pointer == CORE_ADDR, this code is native only. */
+ vp->tstart = (CORE_ADDR) ldi->ldinfo_textorg;
+ vp->tend = vp->tstart + ldi->ldinfo_textsize;
+ vp->dstart = (CORE_ADDR) ldi->ldinfo_dataorg;
+ vp->dend = vp->dstart + ldi->ldinfo_datasize;
- if (vp->tadj) {
+ if (vp->tadj)
+ {
vp->tstart += vp->tadj;
vp->tend += vp->tadj;
}
- /* relocate symbol table(s). */
- vmap_symtab (vp);
+ /* relocate symbol table(s). */
+ vmap_symtab (vp);
- /* there may be more, so we don't break out of the loop. */
- }
+ /* there may be more, so we don't break out of the loop. */
+ }
- /* if there was no matching *vp, we must perforce create the sucker(s) */
- if (!got_one && !retried) {
- add_vmap(ldi);
- ++retried;
- goto retry;
- }
+ /* if there was no matching *vp, we must perforce create the sucker(s) */
+ if (!got_one && !retried)
+ {
+ add_vmap (ldi);
+ ++retried;
+ goto retry;
+ }
} while (ldi->ldinfo_next
&& (ldi = (void *) (ldi->ldinfo_next + (char *) ldi)));
/* xcoff_relocate_symtab - hook for symbol table relocation.
also reads shared libraries.. */
+void
xcoff_relocate_symtab (pid)
-unsigned int pid;
+ unsigned int pid;
{
#define MAX_LOAD_SEGS 64 /* maximum number of load segments */
- struct ld_info *ldi;
- int temp;
+ struct ld_info *ldi;
- ldi = (void *) alloca(MAX_LOAD_SEGS * sizeof (*ldi));
+ ldi = (void *) alloca(MAX_LOAD_SEGS * sizeof (*ldi));
- /* According to my humble theory, AIX has some timing problems and
- when the user stack grows, kernel doesn't update stack info in time
- and ptrace calls step on user stack. That is why we sleep here a little,
- and give kernel to update its internals. */
+ /* According to my humble theory, AIX has some timing problems and
+ when the user stack grows, kernel doesn't update stack info in time
+ and ptrace calls step on user stack. That is why we sleep here a little,
+ and give kernel to update its internals. */
- usleep (36000);
+ usleep (36000);
- errno = 0;
- ptrace(PT_LDINFO, pid, (PTRACE_ARG3_TYPE) ldi,
- MAX_LOAD_SEGS * sizeof(*ldi), ldi);
- if (errno) {
- perror_with_name ("ptrace ldinfo");
- return 0;
- }
+ errno = 0;
+ ptrace (PT_LDINFO, pid, (PTRACE_ARG3_TYPE) ldi,
+ MAX_LOAD_SEGS * sizeof(*ldi), ldi);
+ if (errno)
+ perror_with_name ("ptrace ldinfo");
- vmap_ldinfo(ldi);
+ vmap_ldinfo (ldi);
- do {
- /* We are allowed to assume CORE_ADDR == pointer. This code is
- native only. */
- add_text_to_loadinfo ((CORE_ADDR) ldi->ldinfo_textorg,
- (CORE_ADDR) ldi->ldinfo_dataorg);
- } while (ldi->ldinfo_next
- && (ldi = (void *) (ldi->ldinfo_next + (char *) ldi)));
+ do {
+ /* We are allowed to assume CORE_ADDR == pointer. This code is
+ native only. */
+ add_text_to_loadinfo ((CORE_ADDR) ldi->ldinfo_textorg,
+ (CORE_ADDR) ldi->ldinfo_dataorg);
+ } while (ldi->ldinfo_next
+ && (ldi = (void *) (ldi->ldinfo_next + (char *) ldi)));
#if 0
/* Now that we've jumbled things around, re-sort them. */
/* Relocate symtabs and read in shared library info, based on symbols
from the core file. */
+
void
xcoff_relocate_core ()
{
ldinfo_sec = bfd_get_section_by_name (core_bfd, ".ldinfo");
if (ldinfo_sec == NULL)
{
-bfd_err:
+ bfd_err:
fprintf_filtered (gdb_stderr, "Couldn't get ldinfo from core file: %s\n",
bfd_errmsg (bfd_get_error ()));
do_cleanups (old);
++names_found;
} while (names_found < 2);
- ldip = (struct ld_info *)buffer;
+ ldip = (struct ld_info *) buffer;
/* Can't use a file descriptor from the core file; need to open it. */
ldip->ldinfo_fd = -1;
/* Execute AIXcoff files, for GDB.
- Copyright 1988, 1989, 1991, 1992 Free Software Foundation, Inc.
+ Copyright 1988, 1989, 1991, 1992, 1994 Free Software Foundation, Inc.
Derived from exec.c. Modified by IBM Corporation.
Donated by IBM Corporation and Cygnus Support.
#include "target.h"
#include "gdbcmd.h"
#include "gdbcore.h"
+#include "language.h"
#include "symfile.h"
#include "objfiles.h"
/* exec_close - done with exec file, clean up all resources. */
static void
-exec_close(quitting)
+exec_close (quitting)
+int quitting;
{
register struct vmap *vp, *nxt;
- struct objfile *obj;
int need_symtab_cleanup = 0;
- for (nxt = vmap; vp = nxt; )
+ for (nxt = vmap; nxt; )
{
+ vp = nxt;
nxt = vp->nxt;
/* if there is an objfile associated with this bfd,
need_symtab_cleanup = 1;
}
else
- bfd_close(vp->bfd);
+ 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);
+ free_named_symtabs (vp->name);
+ free (vp);
}
vmap = 0;
/* exec_bfd was already closed (the exec file has a vmap entry). */
exec_bfd = NULL;
- if (exec_ops.to_sections) {
- free (exec_ops.to_sections);
- exec_ops.to_sections = NULL;
- exec_ops.to_sections_end = NULL;
- }
+ if (exec_ops.to_sections)
+ {
+ free (exec_ops.to_sections);
+ exec_ops.to_sections = NULL;
+ exec_ops.to_sections_end = NULL;
+ }
if (need_symtab_cleanup)
clear_symtab_users ();
}
-/*
- * exec_file_command - handle the "exec" command, &c.
- */
+/* Process the first arg in ARGS as the new exec file.
+
+ Note that we have to explicitly ignore additional args, since we can
+ be called from file_command(), which also calls symbol_file_command()
+ which can take multiple args. */
+
void
exec_file_command (filename, from_tty)
char *filename;
int from_tty;
{
- target_preopen(from_tty);
+ target_preopen (from_tty);
/* Remove any previous exec file. */
- unpush_target(&exec_ops);
+ unpush_target (&exec_ops);
/* Now open and digest the file the user requested, if any. */
char *scratch_pathname;
int scratch_chan;
- filename = tilde_expand(filename);
+ filename = tilde_expand (filename);
make_cleanup (free, filename);
- scratch_chan = openp(getenv("PATH"), 1, filename,
- write_files? O_RDWR: O_RDONLY, 0,
- &scratch_pathname);
+ scratch_chan = openp (getenv ("PATH"), 1, filename,
+ write_files? O_RDWR: O_RDONLY, 0,
+ &scratch_pathname);
if (scratch_chan < 0)
- perror_with_name(filename);
+ perror_with_name (filename);
- exec_bfd = bfd_fdopenr(scratch_pathname, gnutarget, scratch_chan);
+ exec_bfd = bfd_fdopenr (scratch_pathname, gnutarget, scratch_chan);
if (!exec_bfd)
- error("Could not open `%s' as an executable file: %s",
- scratch_pathname, bfd_errmsg(bfd_get_error ()));
+ error ("Could not open `%s' as an executable file: %s",
+ scratch_pathname, bfd_errmsg(bfd_get_error ()));
/* make sure we have an object file */
- if (!bfd_check_format(exec_bfd, bfd_object))
- error("\"%s\": not in executable format: %s.", scratch_pathname,
- bfd_errmsg(bfd_get_error ()));
+ if (!bfd_check_format (exec_bfd, bfd_object))
+ error ("\"%s\": not in executable format: %s.", scratch_pathname,
+ bfd_errmsg (bfd_get_error ()));
/* setup initial vmap */
map_vmap (exec_bfd, 0);
if (!vmap)
- error("Can't find the file sections in `%s': %s", exec_bfd->filename,
- bfd_errmsg(bfd_get_error ()));
+ error ("Can't find the file sections in `%s': %s", exec_bfd->filename,
+ bfd_errmsg(bfd_get_error ()));
if (build_section_table (exec_bfd, &exec_ops.to_sections,
&exec_ops.to_sections_end))
bfd_errmsg (bfd_get_error ()));
/* make sure core, if present, matches */
- validate_files();
+ validate_files ();
push_target(&exec_ops);
- /* Tell display code(if any) about the changed file name. */
-
+ /* Tell display code (if any) about the changed file name. */
if (exec_file_display_hook)
- (*exec_file_display_hook)(filename);
+ (*exec_file_display_hook) (filename);
}
else
{
- exec_close(0); /* just in case */
+ exec_close (0); /* just in case */
if (from_tty)
- printf_unfiltered("No exec file now.\n");
+ printf_unfiltered ("No exec file now.\n");
}
}
/* Set both the exec file and the symbol file, in one command. What a
- * novelty. Why did GDB go through four major releases before this
- * command was added?
- */
-static void
-file_command(arg, from_tty)
-char *arg; {
+ novelty. Why did GDB go through four major releases before this
+ command was added? */
- exec_file_command(arg, from_tty);
- symbol_file_command(arg, from_tty);
+static void
+file_command (arg, from_tty)
+ char *arg;
+ int from_tty;
+{
+ /* FIXME, if we lose on reading the symbol file, we should revert
+ the exec file, but that's rough. */
+ exec_file_command (arg, from_tty);
+ symbol_file_command (arg, from_tty);
}
/* Locate all mappable sections of a BFD file.
free (*start);
*start = (struct section_table *) xmalloc (count * sizeof (**start));
*end = *start;
- bfd_map_over_sections (some_bfd, add_to_section_table, (char *)end);
+ bfd_map_over_sections (some_bfd, add_to_section_table, (char *) end);
if (*end > *start + count)
fatal ("aborting");
/* We could realloc the table, but it probably loses for most files. */
sec_ptr sect;
PTR arg3;
{
- struct vmap_and_bfd *vmap_bfd = (struct vmap_and_bfd *)arg3;
- register struct vmap *vp, **vpp;
- register struct symtab *syms;
- bfd *arch = vmap_bfd->pbfd;
+ struct vmap_and_bfd *vmap_bfd = (struct vmap_and_bfd *) arg3;
+ register struct vmap *vp;
vp = vmap_bfd->pvmap;
- if ((bfd_get_section_flags(bf, sect) & SEC_LOAD) == 0)
+ if ((bfd_get_section_flags (bf, sect) & SEC_LOAD) == 0)
return;
- if (STREQ(bfd_section_name(bf, sect), ".text"))
+ if (STREQ(bfd_section_name (bf, sect), ".text"))
{
vp->tstart = 0;
- vp->tend = vp->tstart + bfd_section_size(bf, sect);
+ vp->tend = vp->tstart + bfd_section_size (bf, sect);
/* When it comes to this adjustment value, in contrast to our previous
belief shared objects should behave the same as the main load segment.
This is the offset from the beginning of text section to the first
real instruction. */
- vp->tadj = sect->filepos - bfd_section_vma(bf, sect);
+ vp->tadj = sect->filepos - bfd_section_vma (bf, sect);
}
- else if (STREQ(bfd_section_name(bf, sect), ".data"))
+ else if (STREQ(bfd_section_name (bf, sect), ".data"))
{
vp->dstart = 0;
- vp->dend = vp->dstart + bfd_section_size(bf, sect);
+ vp->dend = vp->dstart + bfd_section_size (bf, sect);
}
else if (STREQ(bfd_section_name(bf, sect), ".bss")) /* FIXMEmgo */
printf_unfiltered ("bss section in exec! Don't know what the heck to do!\n");
{
struct vmap_and_bfd vmap_bfd;
struct vmap *vp, **vpp;
- struct objfile *obj;
- vp = (void*) xmalloc (sizeof (*vp));
+ vp = (PTR) xmalloc (sizeof (*vp));
memset (vp, '\0', sizeof (*vp));
vp->nxt = 0;
vp->bfd = bf;
- vp->name = bfd_get_filename(arch ? arch : bf);
- vp->member = arch ? bfd_get_filename(bf) : "";
+ vp->name = bfd_get_filename (arch ? arch : bf);
+ vp->member = arch ? bfd_get_filename (bf) : "";
vmap_bfd.pbfd = arch;
vmap_bfd.pvmap = vp;
static void
exec_files_info (t)
- struct target_ops *t;
+ struct target_ops *t;
{
register struct vmap *vp = vmap;
if (!vp)
return;
- printf_unfiltered("\tMapping info for file `%s'.\n", vp->name);
+ printf_unfiltered ("\tMapping info for file `%s'.\n", vp->name);
- printf_unfiltered("\t %8.8s %8.8s %8.8s %8.8s %8.8s %s\n",
+ printf_unfiltered ("\t %8.8s %8.8s %8.8s %8.8s %8.8s %s\n",
"tstart", "tend", "dstart", "dend", "section", "file(member)");
for (; vp; vp = vp->nxt)
- printf_unfiltered("\t0x%8.8x 0x%8.8x 0x%8.8x 0x%8.8x %s%s%s%s\n",
- vp->tstart,
- vp->tend,
- vp->dstart,
- vp->dend,
- vp->name,
- *vp->member ? "(" : "",
- vp->member,
- *vp->member ? ")" : "");
+ printf_unfiltered ("\t0x%8.8x 0x%8.8x 0x%8.8x 0x%8.8x %s%s%s%s\n",
+ vp->tstart,
+ vp->tend,
+ vp->dstart,
+ vp->dend,
+ vp->name,
+ *vp->member ? "(" : "",
+ vp->member,
+ *vp->member ? ")" : "");
}
#ifdef DAMON
/* Parse out new virtual address */
secaddr = parse_and_eval_address (args);
- for (p = exec_ops.to_sections; p < exec_ops.to_sections_end; p++) {
+ for (p = exec_ops.to_sections; p < exec_ops.to_sections_end; p++)
if (!strncmp (secname, bfd_section_name (exec_bfd, p->the_bfd_section), seclen)
- && bfd_section_name (exec_bfd, p->the_bfd_section)[seclen] == '\0') {
- offset = secaddr - p->addr;
- p->addr += offset;
- p->endaddr += offset;
- if (from_tty)
- exec_files_info(&exec_ops);
- return;
- }
- }
+ && bfd_section_name (exec_bfd, p->the_bfd_section)[seclen] == '\0')
+ {
+ offset = secaddr - p->addr;
+ p->addr += offset;
+ p->endaddr += offset;
+ if (from_tty)
+ exec_files_info (&exec_ops);
+ return;
+ }
+
if (seclen >= sizeof (secprint))
seclen = sizeof (secprint) - 1;
strncpy (secprint, secname, seclen);
projects / binutils-gdb.git / commitdiff