From ed9f8d9414e4d2b4e7927d96ea28412fba4fd044 Mon Sep 17 00:00:00 2001 From: Ian Lance Taylor Date: Wed, 9 Dec 1998 03:23:25 +0000 Subject: [PATCH] SCO Open Server Release 5 core file support, from Jouke Numan : * sco5-core.c: New file. * configure.in (i[3456]86-*-sco3.2v5*): Use sco5-core.lo. (sco5-core.lo): Define SCO5_CORE in COREFLAG. * Makefile.am: Rebuild dependencies. (OPTIONAL_BACKENDS): Add sco5-core.lo. (OPTIONAL_BACKENDS_CFILES): Add sco5-core.c. * bfd.c (struct _bfd): Add sco5_core_data field to tdata. * targets.c (sco5_core_vec): Add to target list if SCO5_CORE. * bfd-in2.h, configure, Makefile.in: Rebuild. --- bfd/.Sanitize | 1 + bfd/ChangeLog | 14 ++ bfd/bfd-in2.h | 1 + bfd/sco5-core.c | 429 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ bfd/targets.c | 24 +++- 5 files changed, 462 insertions(+), 7 deletions(-) create mode 100644 bfd/sco5-core.c diff --git a/bfd/.Sanitize b/bfd/.Sanitize index 1ca8df1..814730e 100644 --- a/bfd/.Sanitize +++ b/bfd/.Sanitize @@ -261,6 +261,7 @@ reloc.c reloc16.c riscix.c rs6000-core.c +sco5-core.c section.c som.c som.h diff --git a/bfd/ChangeLog b/bfd/ChangeLog index 298f257..8a204b4 100644 --- a/bfd/ChangeLog +++ b/bfd/ChangeLog @@ -1,3 +1,17 @@ +Tue Dec 8 22:15:48 1998 Ian Lance Taylor + + SCO Open Server Release 5 core file support, from Jouke Numan + : + * sco5-core.c: New file. + * configure.in (i[3456]86-*-sco3.2v5*): Use sco5-core.lo. + (sco5-core.lo): Define SCO5_CORE in COREFLAG. + * Makefile.am: Rebuild dependencies. + (OPTIONAL_BACKENDS): Add sco5-core.lo. + (OPTIONAL_BACKENDS_CFILES): Add sco5-core.c. + * bfd.c (struct _bfd): Add sco5_core_data field to tdata. + * targets.c (sco5_core_vec): Add to target list if SCO5_CORE. + * bfd-in2.h, configure, Makefile.in: Rebuild. + Tue Dec 8 19:38:42 1998 Mark Klein * config.bfd (hppa*-*-mpeix*): New target. diff --git a/bfd/bfd-in2.h b/bfd/bfd-in2.h index b829418..3fa4b78 100644 --- a/bfd/bfd-in2.h +++ b/bfd/bfd-in2.h @@ -2511,6 +2511,7 @@ struct _bfd struct nlm_obj_tdata *nlm_obj_data; struct bout_data_struct *bout_data; struct sun_core_struct *sun_core_data; + struct sco5_core_struct *sco5_core_data; struct trad_core_struct *trad_core_data; struct som_data_struct *som_data; struct hpux_core_struct *hpux_core_data; diff --git a/bfd/sco5-core.c b/bfd/sco5-core.c new file mode 100644 index 0000000..f10c8f1 --- /dev/null +++ b/bfd/sco5-core.c @@ -0,0 +1,429 @@ +/* BFD back end for SCO5 core files (U-area and raw sections) + Copyright 1998 Free Software Foundation, Inc. + Written by Jouke Numan + +This file is part of BFD, the Binary File Descriptor library. + +This program is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +#include "bfd.h" +#include "sysdep.h" +#include "libbfd.h" +#include "libaout.h" /* BFD a.out internal data structures */ + +#include +#include +#include +#include +#include + +#include /* After a.out.h */ +#include +#include + +struct sco5_core_struct +{ + struct user u; +}; + +/* forward declarations */ + +static asection * +make_bfd_asection PARAMS ((bfd *, const char *, flagword, bfd_size_type, + bfd_vma, file_ptr)); +static asymbol *sco5_core_make_empty_symbol PARAMS ((bfd *)); +static struct user *read_uarea PARAMS ((bfd *, int)); +const bfd_target *sco5_core_file_p PARAMS ((bfd *abfd)); +char *sco5_core_file_failing_command PARAMS ((bfd *abfd)); +int sco5_core_file_failing_signal PARAMS ((bfd *abfd)); +boolean sco5_core_file_matches_executable_p PARAMS ((bfd *core_bfd, + bfd *exec_bfd)); +static void swap_abort PARAMS ((void)); + +static asection * +make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos) + bfd *abfd; + const char *name; + flagword flags; + bfd_size_type _raw_size; + bfd_vma vma; + file_ptr filepos; +{ + asection *asect; + + asect = bfd_make_section_anyway (abfd, name); + if (!asect) + return NULL; + asect->flags = flags; + asect->_raw_size = _raw_size; + asect->vma = vma; + asect->filepos = filepos; + asect->alignment_power = 2; + + return asect; +} + +static asymbol * +sco5_core_make_empty_symbol (abfd) + bfd *abfd; +{ + asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol)); + if (new) + new->the_bfd = abfd; + return new; +} + +static struct user * +read_uarea(abfd, filepos) + bfd *abfd; + int filepos; + +{ + struct sco5_core_struct *rawptr; + + rawptr = ((struct sco5_core_struct *) + bfd_zmalloc (sizeof (struct sco5_core_struct))); + if (rawptr == NULL) + return NULL; + + abfd->tdata.sco5_core_data = rawptr; + + if ((bfd_seek (abfd, filepos, SEEK_SET) != 0) + || (bfd_read ((void *)&rawptr->u, 1, sizeof rawptr->u, abfd) + != sizeof rawptr->u)) + { + bfd_set_error (bfd_error_wrong_format); + return NULL; + } + + /* Sanity check perhaps??? */ + if (rawptr->u.u_dsize > 0x1000000) /* Remember, it's in pages... */ + { + bfd_set_error (bfd_error_wrong_format); + return NULL; + } + if (rawptr->u.u_ssize > 0x1000000) + { + bfd_set_error (bfd_error_wrong_format); + return NULL; + } + return &rawptr->u; +} + +/* ARGSUSED */ +const bfd_target * +sco5_core_file_p (abfd) + bfd *abfd; +{ + int coffset_siz, val, nsecs, cheadoffs; + int coresize; + struct user *u; + struct coreoffsets coffsets; + struct coresecthead chead; + char *secname; + flagword flags; + + /* Read coreoffsets region at end of core (see core(FP)) */ + + { + FILE *stream = bfd_cache_lookup (abfd); + struct stat statbuf; + if (stream == NULL) + return NULL; + if (fstat (fileno (stream), &statbuf) < 0) + { + bfd_set_error (bfd_error_system_call); + return NULL; + } + coresize = statbuf.st_size; + } + /* Last long in core is sizeof struct coreoffsets, read it */ + if ((bfd_seek (abfd, coresize-sizeof coffset_siz, SEEK_SET) != 0) + || (bfd_read ((void *)&coffset_siz, 1, sizeof coffset_siz, abfd) + != sizeof coffset_siz) ) + { + bfd_set_error (bfd_error_wrong_format); + return NULL; + } + + /* Use it to seek start of coreoffsets region, read it and determine + validity */ + if ((bfd_seek (abfd, coresize-coffset_siz, SEEK_SET) != 0) + || (bfd_read ((void *)&coffsets, 1, sizeof coffsets, abfd) + != sizeof coffsets) + || ((coffsets.u_info != 1) && (coffsets.u_info != C_VERSION))) + { + bfd_set_error (bfd_error_wrong_format); + return NULL; + } + + + if (coffsets.u_info == 1) + { + /* Old version, no section heads, read info from user struct */ + + u = read_uarea(abfd, coffsets.u_user); + if (! u) + return NULL; + + if (!make_bfd_asection (abfd, ".reg", SEC_HAS_CONTENTS, + (bfd_size_type) coffsets.u_usize, + 0 - (bfd_vma) u->u_ar0, + (file_ptr) coffsets.u_user)) + return NULL; + + if (!make_bfd_asection (abfd, ".data", + SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS, + ((bfd_size_type) u->u_exdata.ux_dsize + + u->u_exdata.ux_bsize), + (bfd_vma) u->u_exdata.ux_datorg, + (file_ptr) coffsets.u_data)) + return NULL; + + if (!make_bfd_asection (abfd, ".stack", + SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS, + (bfd_size_type) u->u_ssize * NBPC, + (bfd_vma) u->u_sub, + (file_ptr) coffsets.u_stack)) + return NULL; + + return abfd->xvec; /* Done for version 1 */ + } + + /* Immediately before coreoffsets region is a long with offset in core + to first coresecthead (CORES_OFFSETS), the long before this is the + number of section heads in the list. Read both longs and read the + coresecthead and check its validity */ + + if ((bfd_seek (abfd, + coresize - coffset_siz - 2 * sizeof coffset_siz, + SEEK_SET) != 0) + || (bfd_read ((void *)&nsecs, 1, sizeof nsecs, abfd) != sizeof nsecs) + || (bfd_read ((void *)&cheadoffs, 1, sizeof cheadoffs, abfd) + != sizeof cheadoffs) + || (bfd_seek (abfd, cheadoffs, SEEK_SET) != 0) + || (bfd_read ((void *)&chead, 1, sizeof chead, abfd) != sizeof chead) + || (chead.cs_stype != CORES_OFFSETS) + || (chead.cs_x.csx_magic != COREMAGIC_NUMBER)) + { + bfd_set_error (bfd_error_wrong_format); + return NULL; + } + + /* OK, we believe you. You're a core file (sure, sure). */ + + /* Now loop over all regions and map them */ + nsecs--; /* We've seen CORES_OFFSETS already */ + for (; nsecs; nsecs--) + { + if ((bfd_seek (abfd, chead.cs_hseek, SEEK_SET) != 0) + || bfd_read ((void *)&chead, 1, sizeof chead, abfd) != sizeof chead) + { + bfd_set_error (bfd_error_wrong_format); + return NULL; + } + + switch (chead.cs_stype) + { + case CORES_MAGIC: /* Core header, check magic */ + if (chead.cs_x.csx_magic != COREMAGIC_NUMBER) + { + bfd_set_error (bfd_error_wrong_format); + return NULL; + } + secname = NULL; + nsecs++; /* MAGIC not in section cnt!*/ + break; + case CORES_UAREA: /* U-area, read in tdata */ + u = read_uarea(abfd, chead.cs_sseek); + if (! u) + return NULL; + + /* This is tricky. As the "register section", we give them + the entire upage and stack. u.u_ar0 points to where + "register 0" is stored. There are two tricks with this, + though. One is that the rest of the registers might be + at positive or negative (or both) displacements from + *u_ar0. The other is that u_ar0 is sometimes an absolute + address in kernel memory, and on other systems it is an + offset from the beginning of the `struct user'. + + As a practical matter, we don't know where the registers + actually are, so we have to pass the whole area to GDB. + We encode the value of u_ar0 by setting the .regs section + up so that its virtual memory address 0 is at the place + pointed to by u_ar0 (by setting the vma of the start of + the section to -u_ar0). GDB uses this info to locate the + regs, using minor trickery to get around the + offset-or-absolute-addr problem. */ + + chead.cs_vaddr = 0 - (bfd_vma) u->u_ar0; + + + secname = ".reg"; + flags = SEC_HAS_CONTENTS; + + break; + case CORES_PREGION: /* A program region, map it */ + switch (chead.cs_x.csx_preg.csxp_rtyp) + { + case PT_DATA: + secname = ".data"; /* Data region. */ + break; + case PT_STACK: + secname = ".stack"; /* Stack region. */ + break; + case PT_SHMEM: + secname = ".shmem"; /* Shared memory */ + break; + case PT_LIBDAT: + secname = ".libdat"; /* Shared library data */ + break; + case PT_V86: + secname = ".virt86"; /* Virtual 8086 mode */ + break; + case PT_SHFIL: + secname = ".mmfile"; /* Memory mapped file */ + break; + case PT_XDATA0: + secname = ".Xdat0"; /* XENIX data region, virtual 0 */ + break; + default: + secname = ""; + } + flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS; + break; + case CORES_PROC: /* struct proc */ + case CORES_ITIMER: /* interval timers */ + case CORES_SCOUTSNAME: /* struct scoutsname */ + secname = NULL; /* Ignore these */ + break; + default: + (*_bfd_error_handler) ("Unhandled SCO core file section type %d\n", + chead.cs_stype); + continue; + } + + if (secname + && !make_bfd_asection (abfd, secname, flags, + (bfd_size_type) chead.cs_vsize, + (bfd_vma) chead.cs_vaddr, + (file_ptr) chead.cs_sseek)) + return NULL; + + } + + return abfd->xvec; + +} + +char * +sco5_core_file_failing_command (abfd) + bfd *abfd; +{ + char *com = abfd->tdata.sco5_core_data->u.u_comm; + if (*com) + return com; + else + return NULL; +} + +/* ARGSUSED */ +int +sco5_core_file_failing_signal (ignore_abfd) + bfd *ignore_abfd; +{ + return ((ignore_abfd->tdata.sco5_core_data->u.u_sysabort != 0) + ? ignore_abfd->tdata.sco5_core_data->u.u_sysabort + : -1); +} + +/* ARGSUSED */ +boolean +sco5_core_file_matches_executable_p (core_bfd, exec_bfd) + bfd *core_bfd, *exec_bfd; +{ + return true; /* FIXME, We have no way of telling at this point */ +} + +#define sco5_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound +#define sco5_core_get_symtab _bfd_nosymbols_get_symtab +#define sco5_core_print_symbol _bfd_nosymbols_print_symbol +#define sco5_core_get_symbol_info _bfd_nosymbols_get_symbol_info +#define sco5_core_bfd_is_local_label_name _bfd_nosymbols_bfd_is_local_label_name +#define sco5_core_get_lineno _bfd_nosymbols_get_lineno +#define sco5_core_find_nearest_line _bfd_nosymbols_find_nearest_line +#define sco5_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol +#define sco5_core_read_minisymbols _bfd_nosymbols_read_minisymbols +#define sco5_core_minisymbol_to_symbol _bfd_nosymbols_minisymbol_to_symbol + +/* If somebody calls any byte-swapping routines, shoot them. */ +static void +swap_abort() +{ + abort(); /* This way doesn't require any declaration for ANSI to fuck up */ +} +#define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort ) +#define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort ) +#define NO_SIGNED_GET \ + ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort ) + +const bfd_target sco5_core_vec = + { + "sco5-core", + bfd_target_unknown_flavour, + BFD_ENDIAN_LITTLE, /* target byte order */ + BFD_ENDIAN_LITTLE, /* target headers byte order */ + (HAS_RELOC | EXEC_P | /* object flags */ + HAS_LINENO | HAS_DEBUG | + HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), + (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ + 0, /* symbol prefix */ + ' ', /* ar_pad_char */ + 16, /* ar_max_namelen */ + NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */ + NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */ + NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */ + NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */ + NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */ + NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */ + + { /* bfd_check_format */ + _bfd_dummy_target, /* unknown format */ + _bfd_dummy_target, /* object file */ + _bfd_dummy_target, /* archive */ + sco5_core_file_p /* a core file */ + }, + { /* bfd_set_format */ + bfd_false, bfd_false, + bfd_false, bfd_false + }, + { /* bfd_write_contents */ + bfd_false, bfd_false, + bfd_false, bfd_false + }, + + BFD_JUMP_TABLE_GENERIC (_bfd_generic), + BFD_JUMP_TABLE_COPY (_bfd_generic), + BFD_JUMP_TABLE_CORE (sco5), + BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), + BFD_JUMP_TABLE_SYMBOLS (sco5_core), + BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), + BFD_JUMP_TABLE_WRITE (_bfd_generic), + BFD_JUMP_TABLE_LINK (_bfd_nolink), + BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), + + (PTR) 0 /* backend_data */ +}; diff --git a/bfd/targets.c b/bfd/targets.c index e0ba35a..1f10264 100644 --- a/bfd/targets.c +++ b/bfd/targets.c @@ -152,6 +152,7 @@ DESCRIPTION . bfd_target_os9k_flavour, . bfd_target_versados_flavour, . bfd_target_msdos_flavour, +. bfd_target_ovax_flavour, . bfd_target_evax_flavour .}; . @@ -489,14 +490,14 @@ extern const bfd_target b_out_vec_big_host; extern const bfd_target b_out_vec_little_host; extern const bfd_target bfd_elf64_alpha_vec; extern const bfd_target bfd_elf32_bigarc_vec; +extern const bfd_target bfd_elf32_bigarm_vec; extern const bfd_target bfd_elf32_littlearc_vec; +extern const bfd_target bfd_elf32_littlearm_vec; extern const bfd_target bfd_elf32_big_generic_vec; extern const bfd_target bfd_elf32_bigmips_vec; extern const bfd_target bfd_elf64_bigmips_vec; extern const bfd_target bfd_elf32_d10v_vec; -/* start-sanitize-d30v */ extern const bfd_target bfd_elf32_d30v_vec; -/* end-sanitize-d30v */ extern const bfd_target bfd_elf32_hppa_vec; extern const bfd_target bfd_elf32_i386_vec; extern const bfd_target bfd_elf32_i860_vec; @@ -514,6 +515,7 @@ extern const bfd_target bfd_elf32_sh_vec; extern const bfd_target bfd_elf32_shl_vec; extern const bfd_target bfd_elf32_sparc_vec; extern const bfd_target bfd_elf32_v850_vec; +extern const bfd_target bfd_elf32_fr30_vec; extern const bfd_target bfd_elf64_big_generic_vec; extern const bfd_target bfd_elf64_little_generic_vec; extern const bfd_target bfd_elf64_sparc_vec; @@ -522,7 +524,6 @@ extern const bfd_target ecoff_big_vec; extern const bfd_target ecoff_little_vec; extern const bfd_target ecoff_biglittle_vec; extern const bfd_target ecoffalpha_little_vec; -extern const bfd_target evax_alpha_vec; extern const bfd_target h8300coff_vec; extern const bfd_target h8500coff_vec; extern const bfd_target host_aout_vec; @@ -595,6 +596,8 @@ extern const bfd_target tic80coff_vec; /* end-sanitize-tic80 */ extern const bfd_target vaxnetbsd_vec; extern const bfd_target versados_vec; +extern const bfd_target vms_alpha_vec; +extern const bfd_target vms_vax_vec; extern const bfd_target we32kcoff_vec; extern const bfd_target w65_vec; extern const bfd_target z8kcoff_vec; @@ -617,7 +620,7 @@ extern const bfd_target hppabsd_core_vec; extern const bfd_target irix_core_vec; extern const bfd_target netbsd_core_vec; extern const bfd_target osf_core_vec; -extern const bfd_target sco_core_vec; +extern const bfd_target sco5_core_vec; extern const bfd_target trad_core_vec; extern const bfd_target ptrace_core_vec; @@ -656,19 +659,19 @@ const bfd_target * const bfd_target_vector[] = { &bfd_elf64_alpha_vec, #endif &bfd_elf32_bigarc_vec, + &bfd_elf32_bigarm_vec, &bfd_elf32_bigmips_vec, #ifdef BFD64 &bfd_elf64_bigmips_vec, #endif &bfd_elf32_d10v_vec, -/* start-sanitize-d30v */ &bfd_elf32_d30v_vec, -/* end-sanitize-d30v */ &bfd_elf32_hppa_vec, &bfd_elf32_i386_vec, &bfd_elf32_i860_vec, &bfd_elf32_little_generic_vec, &bfd_elf32_littlearc_vec, + &bfd_elf32_littlearm_vec, &bfd_elf32_littlemips_vec, #ifdef BFD64 &bfd_elf64_littlemips_vec, @@ -682,6 +685,7 @@ const bfd_target * const bfd_target_vector[] = { &bfd_elf32_powerpc_vec, &bfd_elf32_powerpcle_vec, &bfd_elf32_v850_vec, + &bfd_elf32_fr30_vec, #ifdef BFD64 /* No one seems to use this. */ &bfd_elf64_big_generic_vec, &bfd_elf64_little_generic_vec, @@ -700,7 +704,6 @@ const bfd_target * const bfd_target_vector[] = { &ecoff_biglittle_vec, #ifdef BFD64 &ecoffalpha_little_vec, - &evax_alpha_vec, #endif &h8300coff_vec, &h8500coff_vec, @@ -812,6 +815,10 @@ const bfd_target * const bfd_target_vector[] = { /* end-sanitize-tic80 */ &vaxnetbsd_vec, &versados_vec, +#ifdef BFD64 + &vms_alpha_vec, +#endif + &vms_vax_vec, &we32kcoff_vec, &z8kcoff_vec, @@ -847,6 +854,9 @@ const bfd_target * const bfd_target_vector[] = { #ifdef OSF_CORE &osf_core_vec, #endif +#ifdef SCO5_CORE + &sco5_core_vec, +#endif #ifdef TRAD_CORE &trad_core_vec, #endif -- 2.7.4