* rs6000-core.c (rs6000coff_core_p): Don't check the core file
size for full core dumps. Copy core file header to private data. (rs6000coff_core_file_failing_command, rs6000coff_core_file_failing_signal): New functions to extract the file name and terminating signal from the core file. * coff-rs6000.c: Use them.
This commit is contained in:
parent
8dd03673bf
commit
138b9b81e3
|
@ -1,3 +1,12 @@
|
||||||
|
Sat Sep 23 01:22:23 1995 Peter Schauer (pes@regent.e-technik.tu-muenchen.de)
|
||||||
|
|
||||||
|
* rs6000-core.c (rs6000coff_core_p): Don't check the core file
|
||||||
|
size for full core dumps. Copy core file header to private data.
|
||||||
|
(rs6000coff_core_file_failing_command,
|
||||||
|
rs6000coff_core_file_failing_signal): New functions to extract
|
||||||
|
the file name and terminating signal from the core file.
|
||||||
|
* coff-rs6000.c: Use them.
|
||||||
|
|
||||||
Fri Sep 22 17:44:47 1995 Ian Lance Taylor <ian@cygnus.com>
|
Fri Sep 22 17:44:47 1995 Ian Lance Taylor <ian@cygnus.com>
|
||||||
|
|
||||||
Change arch info to be const, initialized at compile time.
|
Change arch info to be const, initialized at compile time.
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
/* IBM RS/6000 "XCOFF" back-end for BFD.
|
/* IBM RS/6000 "XCOFF" back-end for BFD.
|
||||||
Copyright (C) 1990, 1991 Free Software Foundation, Inc.
|
Copyright (C) 1990, 1991, 1995 Free Software Foundation, Inc.
|
||||||
FIXME: Can someone provide a transliteration of this name into ASCII?
|
FIXME: Can someone provide a transliteration of this name into ASCII?
|
||||||
Using the following chars caused a compiler warning on HIUX (so I replaced
|
Using the following chars caused a compiler warning on HIUX (so I replaced
|
||||||
them with octal escapes), and isn't useful without an understanding of what
|
them with octal escapes), and isn't useful without an understanding of what
|
||||||
|
@ -23,7 +23,7 @@ GNU General Public License for more details.
|
||||||
|
|
||||||
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
||||||
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
||||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||||||
|
|
||||||
/* This port currently only handles reading object files, except when
|
/* This port currently only handles reading object files, except when
|
||||||
compiled on an RS/6000 host. -- no archive support, no core files.
|
compiled on an RS/6000 host. -- no archive support, no core files.
|
||||||
|
@ -42,7 +42,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
#include "sysdep.h"
|
#include "sysdep.h"
|
||||||
#include "libbfd.h"
|
#include "libbfd.h"
|
||||||
|
|
||||||
#ifdef HOST_AIX
|
#ifdef AIX_CORE
|
||||||
|
|
||||||
/* AOUTHDR is defined by the above. We need another defn of it, from the
|
/* AOUTHDR is defined by the above. We need another defn of it, from the
|
||||||
system include files. Punt the old one and get us a new name for the
|
system include files. Punt the old one and get us a new name for the
|
||||||
|
@ -69,7 +69,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
the macros in sys/reg.h. FIXMEmgo. */
|
the macros in sys/reg.h. FIXMEmgo. */
|
||||||
|
|
||||||
#define NUM_OF_SPEC_REGS 7
|
#define NUM_OF_SPEC_REGS 7
|
||||||
#define STACK_END_ADDR 0x2ff80000
|
|
||||||
|
|
||||||
#define core_hdr(bfd) (((Rs6kCorData*)(bfd->tdata.any))->hdr)
|
#define core_hdr(bfd) (((Rs6kCorData*)(bfd->tdata.any))->hdr)
|
||||||
#define core_datasec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->data_section)
|
#define core_datasec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->data_section)
|
||||||
|
@ -77,9 +76,27 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
#define core_regsec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->reg_section)
|
#define core_regsec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->reg_section)
|
||||||
#define core_reg2sec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->reg2_section)
|
#define core_reg2sec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->reg2_section)
|
||||||
|
|
||||||
|
/* AIX 4.1 Changed the names and locations of a few items in the core file,
|
||||||
|
this seems to be the quickest easiet way to deal with it.
|
||||||
|
|
||||||
|
Note however that encoding magic addresses (STACK_END_ADDR) is going
|
||||||
|
to be _very_ fragile. But I don't see any easy way to get that info
|
||||||
|
right now. */
|
||||||
|
#ifdef ALTERNATE_AIX_CORE_FORMAT
|
||||||
|
#define CORE_DATA_SIZE_FIELD c_u.U_dsize
|
||||||
|
#define CORE_COMM_FIELD c_u.U_comm
|
||||||
|
#define SAVE_FIELD c_mst
|
||||||
|
#define STACK_END_ADDR 0x2ff23000
|
||||||
|
#else
|
||||||
|
#define CORE_DATA_SIZE_FIELD c_u.u_dsize
|
||||||
|
#define CORE_COMM_FIELD c_u.u_comm
|
||||||
|
#define SAVE_FIELD c_u.u_save
|
||||||
|
#define STACK_END_ADDR 0x2ff80000
|
||||||
|
#endif
|
||||||
|
|
||||||
/* These are stored in the bfd's tdata */
|
/* These are stored in the bfd's tdata */
|
||||||
typedef struct {
|
typedef struct {
|
||||||
struct core *hdr; /* core file header */
|
struct core_dump hdr; /* core file header */
|
||||||
asection *data_section,
|
asection *data_section,
|
||||||
*stack_section,
|
*stack_section,
|
||||||
*reg_section, /* section for GPRs and special registers. */
|
*reg_section, /* section for GPRs and special registers. */
|
||||||
|
@ -95,7 +112,7 @@ typedef struct {
|
||||||
/* Decide if a given bfd represents a `core' file or not. There really is no
|
/* Decide if a given bfd represents a `core' file or not. There really is no
|
||||||
magic number or anything like, in rs6000coff. */
|
magic number or anything like, in rs6000coff. */
|
||||||
|
|
||||||
bfd_target *
|
const bfd_target *
|
||||||
rs6000coff_core_p (abfd)
|
rs6000coff_core_p (abfd)
|
||||||
bfd *abfd;
|
bfd *abfd;
|
||||||
{
|
{
|
||||||
|
@ -108,27 +125,27 @@ rs6000coff_core_p (abfd)
|
||||||
fd = open (abfd->filename, O_RDONLY);
|
fd = open (abfd->filename, O_RDONLY);
|
||||||
if (fd < 0)
|
if (fd < 0)
|
||||||
{
|
{
|
||||||
bfd_error = system_call_error;
|
bfd_set_error (bfd_error_system_call);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (fstat (fd, &statbuf) < 0)
|
if (fstat (fd, &statbuf) < 0)
|
||||||
{
|
{
|
||||||
bfd_error = system_call_error;
|
bfd_set_error (bfd_error_system_call);
|
||||||
close (fd);
|
close (fd);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
if (read (fd, &coredata, sizeof (struct core_dump))
|
if (read (fd, &coredata, sizeof (struct core_dump))
|
||||||
!= sizeof (struct core_dump))
|
!= sizeof (struct core_dump))
|
||||||
{
|
{
|
||||||
bfd_error = wrong_format;
|
bfd_set_error (bfd_error_wrong_format);
|
||||||
close (fd);
|
close (fd);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (close (fd) < 0)
|
if (close (fd) < 0)
|
||||||
{
|
{
|
||||||
bfd_error = system_call_error;
|
bfd_set_error (bfd_error_system_call);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -151,23 +168,24 @@ rs6000coff_core_p (abfd)
|
||||||
if (!(coredata.c_flag & UBLOCK_VALID)
|
if (!(coredata.c_flag & UBLOCK_VALID)
|
||||||
|| !(coredata.c_flag & LE_VALID))
|
|| !(coredata.c_flag & LE_VALID))
|
||||||
{
|
{
|
||||||
bfd_error = wrong_format;
|
bfd_set_error (bfd_error_wrong_format);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
if ((coredata.c_flag & CORE_TRUNC)
|
if ((coredata.c_flag & CORE_TRUNC)
|
||||||
|| !(coredata.c_flag & USTACK_VALID))
|
|| !(coredata.c_flag & USTACK_VALID))
|
||||||
{
|
{
|
||||||
bfd_error = file_truncated;
|
bfd_set_error (bfd_error_file_truncated);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (((bfd_vma)coredata.c_stack + coredata.c_size
|
/* Don't check the core file size for a full core, AIX 4.1 includes
|
||||||
+ ((coredata.c_flag & FULL_CORE) ? coredata.c_u.u_dsize : 0))
|
additional shared library sections in a full core. */
|
||||||
!= statbuf.st_size)
|
if (!(coredata.c_flag & FULL_CORE)
|
||||||
|
&& ((bfd_vma)coredata.c_stack + coredata.c_size) != statbuf.st_size)
|
||||||
{
|
{
|
||||||
/* If the size is wrong, it means we're misinterpreting something. */
|
/* If the size is wrong, it means we're misinterpreting something. */
|
||||||
bfd_error = wrong_format;
|
bfd_set_error (bfd_error_wrong_format);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -176,7 +194,7 @@ rs6000coff_core_p (abfd)
|
||||||
(u_long) coredata.c_tab >= statbuf.st_size ||
|
(u_long) coredata.c_tab >= statbuf.st_size ||
|
||||||
(long) coredata.c_tab >= (long)coredata.c_stack)
|
(long) coredata.c_tab >= (long)coredata.c_stack)
|
||||||
{
|
{
|
||||||
bfd_error = wrong_format;
|
bfd_set_error (bfd_error_wrong_format);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -184,21 +202,24 @@ rs6000coff_core_p (abfd)
|
||||||
tmpptr = (char*)bfd_zalloc (abfd, sizeof (Rs6kCorData));
|
tmpptr = (char*)bfd_zalloc (abfd, sizeof (Rs6kCorData));
|
||||||
if (!tmpptr)
|
if (!tmpptr)
|
||||||
{
|
{
|
||||||
bfd_error = no_memory;
|
bfd_set_error (bfd_error_no_memory);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
set_tdata (abfd, tmpptr);
|
set_tdata (abfd, tmpptr);
|
||||||
|
|
||||||
|
/* Copy core file header. */
|
||||||
|
core_hdr (abfd) = coredata;
|
||||||
|
|
||||||
/* .stack section. */
|
/* .stack section. */
|
||||||
if ((core_stacksec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection)))
|
if ((core_stacksec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection)))
|
||||||
== NULL) {
|
== NULL) {
|
||||||
bfd_error = no_memory;
|
bfd_set_error (bfd_error_no_memory);
|
||||||
/* bfd_release (abfd, ???? ) */
|
/* bfd_release (abfd, ???? ) */
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
core_stacksec (abfd)->name = ".stack";
|
core_stacksec (abfd)->name = ".stack";
|
||||||
core_stacksec (abfd)->flags = SEC_ALLOC + SEC_LOAD;
|
core_stacksec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS;
|
||||||
core_stacksec (abfd)->_raw_size = coredata.c_size;
|
core_stacksec (abfd)->_raw_size = coredata.c_size;
|
||||||
core_stacksec (abfd)->vma = STACK_END_ADDR - coredata.c_size;
|
core_stacksec (abfd)->vma = STACK_END_ADDR - coredata.c_size;
|
||||||
core_stacksec (abfd)->filepos = (int)coredata.c_stack; /*???? */
|
core_stacksec (abfd)->filepos = (int)coredata.c_stack; /*???? */
|
||||||
|
@ -206,46 +227,46 @@ rs6000coff_core_p (abfd)
|
||||||
/* .reg section for GPRs and special registers. */
|
/* .reg section for GPRs and special registers. */
|
||||||
if ((core_regsec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection)))
|
if ((core_regsec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection)))
|
||||||
== NULL) {
|
== NULL) {
|
||||||
bfd_error = no_memory;
|
bfd_set_error (bfd_error_no_memory);
|
||||||
/* bfd_release (abfd, ???? ) */
|
/* bfd_release (abfd, ???? ) */
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
core_regsec (abfd)->name = ".reg";
|
core_regsec (abfd)->name = ".reg";
|
||||||
core_regsec (abfd)->flags = SEC_ALLOC;
|
core_regsec (abfd)->flags = SEC_HAS_CONTENTS;
|
||||||
core_regsec (abfd)->_raw_size = (32 + NUM_OF_SPEC_REGS) * 4;
|
core_regsec (abfd)->_raw_size = (32 + NUM_OF_SPEC_REGS) * 4;
|
||||||
core_regsec (abfd)->vma = 0; /* not used?? */
|
core_regsec (abfd)->vma = 0; /* not used?? */
|
||||||
core_regsec (abfd)->filepos =
|
core_regsec (abfd)->filepos =
|
||||||
(char*)&coredata.c_u.u_save - (char*)&coredata;
|
(char*)&coredata.SAVE_FIELD - (char*)&coredata;
|
||||||
|
|
||||||
/* .reg2 section for FPRs (floating point registers). */
|
/* .reg2 section for FPRs (floating point registers). */
|
||||||
if ((core_reg2sec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection)))
|
if ((core_reg2sec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection)))
|
||||||
== NULL) {
|
== NULL) {
|
||||||
bfd_error = no_memory;
|
bfd_set_error (bfd_error_no_memory);
|
||||||
/* bfd_release (abfd, ???? ) */
|
/* bfd_release (abfd, ???? ) */
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
core_reg2sec (abfd)->name = ".reg2";
|
core_reg2sec (abfd)->name = ".reg2";
|
||||||
core_reg2sec (abfd)->flags = SEC_ALLOC;
|
core_reg2sec (abfd)->flags = SEC_HAS_CONTENTS;
|
||||||
core_reg2sec (abfd)->_raw_size = 8 * 32; /* 32 FPRs. */
|
core_reg2sec (abfd)->_raw_size = 8 * 32; /* 32 FPRs. */
|
||||||
core_reg2sec (abfd)->vma = 0; /* not used?? */
|
core_reg2sec (abfd)->vma = 0; /* not used?? */
|
||||||
core_reg2sec (abfd)->filepos =
|
core_reg2sec (abfd)->filepos =
|
||||||
(char*)&coredata.c_u.u_save.fpr[0] - (char*)&coredata;
|
(char*)&coredata.SAVE_FIELD.fpr[0] - (char*)&coredata;
|
||||||
|
|
||||||
if ((core_ldinfosec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection)))
|
if ((core_ldinfosec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection)))
|
||||||
== NULL) {
|
== NULL) {
|
||||||
bfd_error = no_memory;
|
bfd_set_error (bfd_error_no_memory);
|
||||||
/* bfd_release (abfd, ???? ) */
|
/* bfd_release (abfd, ???? ) */
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
core_ldinfosec (abfd)->name = ".ldinfo";
|
core_ldinfosec (abfd)->name = ".ldinfo";
|
||||||
core_ldinfosec (abfd)->flags = SEC_ALLOC + SEC_LOAD;
|
core_ldinfosec (abfd)->flags = SEC_HAS_CONTENTS;
|
||||||
/* To actually find out how long this section is in this particular
|
/* To actually find out how long this section is in this particular
|
||||||
core dump would require going down the whole list of struct ld_info's.
|
core dump would require going down the whole list of struct ld_info's.
|
||||||
See if we can just fake it. */
|
See if we can just fake it. */
|
||||||
core_ldinfosec (abfd)->_raw_size = 0x7fffffff;
|
core_ldinfosec (abfd)->_raw_size = 0x7fffffff;
|
||||||
/* Not relevant for ldinfo section. */
|
/* Not relevant for ldinfo section. */
|
||||||
core_ldinfosec (abfd)->vma = 0;
|
core_ldinfosec (abfd)->vma = 0;
|
||||||
core_ldinfosec (abfd)->filepos = coredata.c_tab;
|
core_ldinfosec (abfd)->filepos = (file_ptr) coredata.c_tab;
|
||||||
|
|
||||||
/* set up section chain here. */
|
/* set up section chain here. */
|
||||||
abfd->section_count = 4;
|
abfd->section_count = 4;
|
||||||
|
@ -260,13 +281,13 @@ rs6000coff_core_p (abfd)
|
||||||
asection *sec = (asection *) bfd_zalloc (abfd, sizeof (asection));
|
asection *sec = (asection *) bfd_zalloc (abfd, sizeof (asection));
|
||||||
if (sec == NULL)
|
if (sec == NULL)
|
||||||
{
|
{
|
||||||
bfd_error = no_memory;
|
bfd_set_error (bfd_error_no_memory);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
sec->name = ".data";
|
sec->name = ".data";
|
||||||
sec->flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS;
|
sec->flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS;
|
||||||
sec->_raw_size = coredata.c_u.u_dsize;
|
sec->_raw_size = coredata.CORE_DATA_SIZE_FIELD;
|
||||||
sec->vma = CDATA_ADDR (coredata.c_u.u_dsize);
|
sec->vma = CDATA_ADDR (coredata.CORE_DATA_SIZE_FIELD);
|
||||||
sec->filepos = (int)coredata.c_stack + coredata.c_size;
|
sec->filepos = (int)coredata.c_stack + coredata.c_size;
|
||||||
|
|
||||||
sec->next = abfd->sections;
|
sec->next = abfd->sections;
|
||||||
|
@ -289,7 +310,7 @@ rs6000coff_core_file_matches_executable_p (core_bfd, exec_bfd)
|
||||||
struct core_dump coredata;
|
struct core_dump coredata;
|
||||||
struct ld_info ldinfo;
|
struct ld_info ldinfo;
|
||||||
char pathname [1024];
|
char pathname [1024];
|
||||||
char *str1, *str2;
|
const char *str1, *str2;
|
||||||
|
|
||||||
/* Use bfd_xxx routines, rather than O/S primitives, do error checking!!
|
/* Use bfd_xxx routines, rather than O/S primitives, do error checking!!
|
||||||
FIXMEmgo */
|
FIXMEmgo */
|
||||||
|
@ -314,6 +335,24 @@ rs6000coff_core_file_matches_executable_p (core_bfd, exec_bfd)
|
||||||
return strcmp (str1, str2) == 0;
|
return strcmp (str1, str2) == 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
char *
|
||||||
|
rs6000coff_core_file_failing_command (abfd)
|
||||||
|
bfd *abfd;
|
||||||
|
{
|
||||||
|
char *com = core_hdr (abfd).CORE_COMM_FIELD;
|
||||||
|
if (*com)
|
||||||
|
return com;
|
||||||
|
else
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
rs6000coff_core_file_failing_signal (abfd)
|
||||||
|
bfd *abfd;
|
||||||
|
{
|
||||||
|
return core_hdr (abfd).c_signo;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
boolean
|
boolean
|
||||||
rs6000coff_get_section_contents (abfd, section, location, offset, count)
|
rs6000coff_get_section_contents (abfd, section, location, offset, count)
|
||||||
|
@ -367,8 +406,8 @@ rs6000coff_get_section_contents (abfd, section, location, offset, count)
|
||||||
|
|
||||||
/* else, use default bfd section content transfer. */
|
/* else, use default bfd section content transfer. */
|
||||||
else
|
else
|
||||||
return bfd_generic_get_section_contents
|
return _bfd_generic_get_section_contents
|
||||||
(abfd, section, location, offset, count);
|
(abfd, section, location, offset, count);
|
||||||
}
|
}
|
||||||
|
|
||||||
#endif /* HOST_AIX */
|
#endif /* AIX_CORE */
|
||||||
|
|
Loading…
Reference in New Issue