diff options
author | David Henkel-Wallace <gumby@cygnus> | 1991-03-21 21:11:25 +0000 |
---|---|---|
committer | David Henkel-Wallace <gumby@cygnus> | 1991-03-21 21:11:25 +0000 |
commit | 4a81b56152631cda9dc351cb4d2f61f395ee4414 (patch) | |
tree | 562bc9b14bcf414b6c301b769d4ce528c51d4703 /bfd/sunos.c | |
parent | 907621824e31daf6504860009535f03676afee4d (diff) | |
download | fsf-binutils-gdb-4a81b56152631cda9dc351cb4d2f61f395ee4414.zip fsf-binutils-gdb-4a81b56152631cda9dc351cb4d2f61f395ee4414.tar.gz fsf-binutils-gdb-4a81b56152631cda9dc351cb4d2f61f395ee4414.tar.bz2 |
Initial revision
Diffstat (limited to 'bfd/sunos.c')
-rw-r--r-- | bfd/sunos.c | 1904 |
1 files changed, 1904 insertions, 0 deletions
diff --git a/bfd/sunos.c b/bfd/sunos.c new file mode 100644 index 0000000..f857897 --- /dev/null +++ b/bfd/sunos.c @@ -0,0 +1,1904 @@ +/*** bfd backend for sunos binaries */ + +/* Copyright (C) 1990, 1991 Free Software Foundation, Inc. + +This file is part of BFD, the Binary File Diddler. + +BFD 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 1, or (at your option) +any later version. + +BFD 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 BFD; see the file COPYING. If not, write to +the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ + +/* $Id$ + * $Log$ + * Revision 1.1 1991/03/21 21:11:23 gumby + * Initial revision + * + * Revision 1.2 1991/03/15 18:16:52 rich + * *** empty log message *** + * + * Revision 1.12 1991/03/10 19:11:41 rich + * Modified Files: + * bfd.c coff-code.h libbfd.c libbfd.h srec.c sunos.c + * + * Working bugs out of coff support. + * + * Revision 1.11 1991/03/09 03:40:04 rich + * Modified Files: + * Makefile b.out.c liba.out.h libbfd.c sunos.c sysdep.h + * + * Changes dictated by porting binutils. + * + * Revision 1.10 1991/03/08 07:52:02 sac + * Reinstalled things which went away after latest merge from Intel. + * + * Fixed a couple of problems in symbol handling too. + * + * Revision 1.9 1991/03/08 04:18:16 rich + * *** empty log message *** + * + * Revision 1.8 1991/03/07 21:57:26 sac + * Moved type info out of the asymbol into the private space. + * Cleaned up C++ stuff + * + * Revision 1.7 1991/03/06 21:49:02 sac + * Modified bfd_find_filename to return name of function too. + * + * Revision 1.6 1991/03/06 02:19:36 sac + * Moved howto table, added support for constructor sections and provided + * sunos4_find_nearest_line + * + * Revision 1.5 1991/03/05 16:25:44 sac + * Modified howto vector to include inplace and mask fields. + * + */ + +#define TARGET_BYTE_ORDER_BIG_P 1 +#define TARGET TARGET_SPARC + +#include "sysdep.h" +#include "bfd.h" +#include "libbfd.h" +#include <stdio.h> + + +/*SUPPRESS558*/ +/*SUPPRESS529*/ + + + + +typedef void generic_symbol_type; +/* These values are correct for the SPARC. I dunno about anything else */ +#define PAGE_SIZE 0x02000 +#define SEGMENT_SIZE PAGE_SIZE +#define TEXT_START_ADDR PAGE_SIZE +#include "a.out.gnu.h" +#include "stab.gnu.h" +#include "ar.h" +#include "liba.out.h" /* BFD a.out internal data structures */ + +#include "a.out.sun4.h" + +#define CTOR_TABLE_RELOC_IDX 2 +static reloc_howto_type howto_table[] = +{ + /* type rs size bsz pcrel bitpos abs ovrf sf name partial inplace mask*/ +{ (unsigned int) RELOC_8, 0, 0, 8, false, 0, true, true,0,"8", false, 0x000000ff}, +{ (unsigned int) RELOC_16, 0, 1, 16, false, 0, true, true,0,"16", false, 0x0000ffff}, +{ (unsigned int) RELOC_32, 0, 2, 32, false, 0, true, true,0,"32", false, 0xffffffff}, +{ (unsigned int) RELOC_DISP8, 0, 0, 8, true, 0, false, true,0,"DISP8", false, 0x000000ff}, +{ (unsigned int) RELOC_DISP16, 0, 1, 16, true, 0, false, true,0,"DISP16", false, 0x0000ffff}, +{ (unsigned int) RELOC_DISP32, 0, 2, 32, true, 0, false, true,0,"DISP32", false, 0xffffffff}, +{ (unsigned int) RELOC_WDISP30,2, 2, 30, true, 0, false, true,0,"WDISP30", false, 0x3fffffff}, +{ (unsigned int) RELOC_WDISP22,2, 2, 22, true, 0, false, true,0,"WDISP22", false, 0x003fffff}, +{ (unsigned int) RELOC_HI22, 10, 2, 22, false, 0, false, true,0,"HI22", false, 0x003fffff}, +{ (unsigned int) RELOC_22, 0, 2, 22, false, 0, false, true,0,"22", false, 0x003fffff}, +{ (unsigned int) RELOC_13, 0, 2, 13, false, 0, false, true,0,"13", false, 0x00001fff}, +{ (unsigned int) RELOC_LO10, 0, 2, 10, false, 0, false, true,0,"LO10", false, 0x000003ff}, +{ (unsigned int) RELOC_SFA_BASE,0, 2, 32, false, 0, false, true,0,"SFA_BASE", false, 0xffffffff}, +{ (unsigned int) RELOC_SFA_OFF13,0,2, 32, false, 0, false, true,0,"SFA_OFF13",false, 0xffffffff}, +{ (unsigned int) RELOC_BASE10, 0, 2, 16, false, 0, false, true,0,"BASE10", false, 0x0000ffff}, +{ (unsigned int) RELOC_BASE13, 0, 2, 13, false, 0, false, true,0,"BASE13", false, 0x00001fff}, +{ (unsigned int) RELOC_BASE22, 0, 2, 0, false, 0, false, true,0,"BASE22", false, 0x00000000}, +{ (unsigned int) RELOC_PC10, 0, 2, 10, false, 0, false, true,0,"PC10", false, 0x000003ff}, +{ (unsigned int) RELOC_PC22, 0, 2, 22, false, 0, false, true,0,"PC22", false, 0x003fffff}, +{ (unsigned int) RELOC_JMP_TBL,0, 2, 32, false, 0, false, true,0,"JMP_TBL", false, 0xffffffff}, +{ (unsigned int) RELOC_SEGOFF16,0, 2, 0, false, 0, false, true,0,"SEGOFF16", false, 0x00000000}, +{ (unsigned int) RELOC_GLOB_DAT,0, 2, 0, false, 0, false, true,0,"GLOB_DAT", false, 0x00000000}, +{ (unsigned int) RELOC_JMP_SLOT,0, 2, 0, false, 0, false, true,0,"JMP_SLOT", false, 0x00000000}, +{ (unsigned int) RELOC_RELATIVE,0, 2, 0, false, 0, false, true,0,"RELATIVE", false, 0x00000000}, +{ (unsigned int) RELOC_JUMPTARG,2, 13, 16, true, 0, false, true,0,"JUMPTARG", false, 0x0000ffff}, +{ (unsigned int) RELOC_CONST, 0, 13, 16, false, 0, false, true,0,"CONST", false, 0x0000ffff}, +{ (unsigned int) RELOC_CONSTH, 16, 13, 16, false, 0, false, true,0,"CONSTH", false, 0x0000ffff}, +}; + +/** a.out files */ + +PROTO (static void, swap_exec_header, (bfd *abfd, struct exec *execp)); +PROTO (void , sunos4_write_syms, ()); +PROTO (static boolean,sunos4_squirt_out_relocs,(bfd *abfd, asection *section)); + +/* Steve wants some way to frob this stuff from Saber while he's debugging + ld, so we have these funny shadow functions */ +/* ZMAGIC's start at 0 (making the exec part of the text section), + other formats start after the exec +*/ +unsigned int n_txtoff(ptr) +struct exec *ptr; +{return N_MAGIC(*ptr)== ZMAGIC ? 0: sizeof(struct exec);} + +unsigned int n_datoff(ptr) +struct exec *ptr; +{return n_txtoff(ptr) + ptr->a_text;} + +unsigned int n_treloff(ptr) +struct exec *ptr; +{return n_datoff(ptr) + ptr->a_data;} + +unsigned int n_dreloff(ptr) +struct exec *ptr; +{return n_treloff(ptr) + ptr->a_trsize;} + +unsigned int n_symoff(ptr) +struct exec *ptr; +{return n_dreloff(ptr) + ptr->a_drsize;} + +unsigned int n_stroff(ptr) +struct exec *ptr; +{return n_symoff(ptr) + ptr->a_syms;} + +unsigned int n_badmag(ptr) + struct exec *ptr; +{ + switch (N_MAGIC(*ptr)) { + case OMAGIC: case NMAGIC: case ZMAGIC: return 0; + default: return 1; + } +} + + +bfd_target * +sunos4_object_p (abfd) + bfd *abfd; +{ + unsigned long magic; + struct exec anexec; /* save consing when you don't have to. */ + struct exec *execp = &anexec; + void *rawptr; + + bfd_error = system_call_error; + + if (bfd_read ((void *)&magic, 1, sizeof (magic), abfd) != sizeof (magic)) + return 0; + magic = bfd_h_getlong (abfd, &magic); + + /* Baroque syntax to mask deficiencies of the Sun compiler */ + /* if (N_BADMAG (*((struct exec *) &magic))) return 0; */ + if (n_badmag ((struct exec *) &magic)) return 0; + + if (bfd_seek (abfd, 0L, SEEK_SET) < 0) return 0; + + if (bfd_read ((void *) execp, 1, sizeof (struct exec), abfd) + != sizeof (struct exec)) { + bfd_error = wrong_format; + return 0; + } + + /* Use an intermediate variable for clarity */ + rawptr = (void *) zalloc (sizeof (struct sunexdata) + sizeof (struct exec)); + + if (rawptr == NULL) { + bfd_error = no_memory; + return 0; + } + + abfd->tdata =(void *)( (struct sunexdata *) rawptr); + exec_hdr (abfd) = + (struct exec *) ((char *)rawptr + sizeof (struct sunexdata)); + + swap_exec_header (abfd, execp); + memcpy (exec_hdr (abfd), execp, sizeof (struct exec)); + + /* Set the file flags */ + abfd->flags = NO_FLAGS; + if (execp->a_drsize || execp->a_trsize) + abfd->flags |= HAS_RELOC; + if (execp->a_entry) + abfd->flags |= EXEC_P; + if (execp->a_syms) + abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS; + + + if (N_MAGIC (anexec) == ZMAGIC) abfd->flags |= D_PAGED; + if (N_MAGIC (anexec) == NMAGIC) abfd->flags |= WP_TEXT; + + /* Determine the architecture and machine type of the object file. */ + abfd->obj_arch = bfd_arch_unknown; /* Default values */ + abfd->obj_machine = 0; + switch (N_MACHTYPE (anexec)) { + + case M_UNKNOWN: + break; + + case M_68010: + abfd->obj_arch = bfd_arch_m68k; + abfd->obj_machine = 68010; + break; + + case M_68020: + abfd->obj_arch = bfd_arch_m68k; + abfd->obj_machine = 68020; + break; + + case M_SPARC: + abfd->obj_arch = bfd_arch_sparc; + break; + + case M_386: + abfd->obj_arch = bfd_arch_i386; + break; + + case M_29K: + abfd->obj_arch = bfd_arch_a29k; + break; + + default: + abfd->obj_arch = bfd_arch_obscure; + break; + } + + bfd_get_start_address (abfd) = execp->a_entry; + + /* Remember the positions of the string table and symbol table. */ + obj_str_filepos (abfd) = n_stroff (&anexec); + obj_sym_filepos (abfd) = n_symoff (&anexec); + + /* create the sections. This is raunchy, but bfd_close wants to reclaim + them */ + obj_textsec (abfd) = (asection *)NULL; + obj_datasec (abfd) = (asection *)NULL; + obj_bsssec (abfd) = (asection *)NULL; + obj_aout_symbols(abfd) = (aout_symbol_type *)NULL; + (void)bfd_make_section(abfd, ".text"); + (void)bfd_make_section(abfd, ".data"); + (void)bfd_make_section(abfd, ".bss"); + + obj_datasec (abfd)->size = execp->a_data; + obj_bsssec (abfd)->size = execp->a_bss; + obj_textsec (abfd)->size = execp->a_text; + obj_datasec (abfd)->vma = N_DATADDR(anexec); + obj_bsssec (abfd)->vma = N_BSSADDR(anexec); + obj_textsec (abfd)->vma = N_TXTADDR(anexec); + + obj_textsec (abfd)->filepos = n_txtoff(&anexec); + obj_datasec (abfd)->filepos = n_datoff(&anexec); + + obj_textsec (abfd)->rel_filepos = n_treloff(&anexec); + obj_datasec (abfd)->rel_filepos = n_dreloff(&anexec); + + obj_textsec (abfd)->flags = + (execp->a_trsize != 0 ? + (SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_HAS_CONTENTS) : + (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS)); + obj_datasec (abfd)->flags = + (execp->a_drsize != 0 ? + (SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_HAS_CONTENTS) : + (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS)); + obj_bsssec (abfd)->flags = SEC_ALLOC; + + abfd->sections = obj_textsec (abfd); + obj_textsec (abfd)->next = obj_datasec (abfd); + obj_datasec (abfd)->next = obj_bsssec (abfd); + return abfd->xvec; +} + + +boolean +sunos4_mkobject (abfd) + bfd *abfd; +{ + char *rawptr; + + bfd_error = system_call_error; + + /* Use an intermediate variable for clarity */ + rawptr = zalloc (sizeof (struct sunexdata) + sizeof (struct exec)); + + if (rawptr == NULL) { + bfd_error = no_memory; + return false; + } + + abfd->tdata = (void *)((struct sunexdata *) rawptr); + exec_hdr (abfd) = (struct exec *) (rawptr + sizeof (struct sunexdata)); + + /* For simplicity's sake we just make all the sections right here. */ + + obj_textsec (abfd) = (asection *)NULL; + obj_datasec (abfd) = (asection *)NULL; + obj_bsssec (abfd) = (asection *)NULL; + bfd_make_section (abfd, ".text"); + bfd_make_section (abfd, ".data"); + bfd_make_section (abfd, ".bss"); + + return true; +} + +/* Keep track of machine architecture and machine type for a.out's. + Return the machine_type for a particular arch&machine, or M_UNKNOWN + if that exact arch&machine can't be represented in a.out format. + + If the architecture is understood, machine type 0 (default) should + always be understood. */ + +static enum machine_type +aout_machine_type (arch, machine) + enum bfd_architecture arch; + unsigned long machine; +{ + enum machine_type arch_flags; + + arch_flags = M_UNKNOWN; + + switch (arch) { + case bfd_arch_sparc: + if (machine == 0) arch_flags = M_SPARC; + break; + + case bfd_arch_m68k: + switch (machine) { + case 0: arch_flags = M_UNKNOWN; break; + case 68000: arch_flags = M_UNKNOWN; break; + case 68010: arch_flags = M_68010; break; + case 68020: arch_flags = M_68020; break; + default: arch_flags = M_UNKNOWN; break; + } + break; + + case bfd_arch_i386: + if (machine == 0) arch_flags = M_386; + break; + + case bfd_arch_a29k: + if (machine == 0) arch_flags = M_29K; + break; + + default: + arch_flags = M_UNKNOWN; + break; + } + return arch_flags; +} + +boolean +sunos4_set_arch_mach (abfd, arch, machine) + bfd *abfd; + enum bfd_architecture arch; + unsigned long machine; +{ + abfd->obj_arch = arch; + abfd->obj_machine = machine; + if (arch != bfd_arch_unknown && + aout_machine_type (arch, machine) == M_UNKNOWN) + return false; /* We can't represent this type */ + return true; /* We're easy ... */ +} + +boolean +sunos4_write_object_contents (abfd) + bfd *abfd; +{ + int data_pad = 0; + struct exec *execp = exec_hdr (abfd); + + + + /* Magic number, maestro, please! */ + switch (bfd_get_architecture(abfd)) { + case bfd_arch_m68k: + switch (bfd_get_machine(abfd)) { + case 68010: + N_SET_MACHTYPE(*execp, M_68010); + break; + default: + case 68020: + N_SET_MACHTYPE(*execp, M_68020); + break; + } + break; + case bfd_arch_sparc: + N_SET_MACHTYPE(*execp, M_SPARC); + break; + case bfd_arch_i386: + N_SET_MACHTYPE(*execp, M_386); + break; + case bfd_arch_a29k: + N_SET_MACHTYPE(*execp, M_29K); + break; + default: + N_SET_MACHTYPE(*execp, M_UNKNOWN); + } + execp->a_text = obj_textsec (abfd)->size; + N_SET_MAGIC (*execp, OMAGIC); + if (abfd->flags & D_PAGED) { + execp->a_text = obj_textsec (abfd)->size + sizeof(struct exec); + N_SET_MAGIC (*execp, ZMAGIC); + } else if (abfd->flags & WP_TEXT) { + N_SET_MAGIC (*execp, NMAGIC); + } + N_SET_FLAGS (*execp, 0x1); /* copied from ld.c; who the hell knows? */ + + if (abfd->flags & D_PAGED) + { + data_pad = ((obj_datasec(abfd)->size + PAGE_SIZE -1) + & (- PAGE_SIZE)) - obj_datasec(abfd)->size; + + if (data_pad > obj_bsssec(abfd)->size) + execp->a_bss = 0; + else + execp->a_bss = obj_bsssec(abfd)->size - data_pad; + execp->a_data = obj_datasec(abfd)->size + data_pad; + + } + else { + execp->a_data = obj_datasec (abfd)->size; + execp->a_bss = obj_bsssec (abfd)->size; + } + + execp->a_syms = bfd_get_symcount (abfd) * sizeof (struct nlist); + execp->a_entry = bfd_get_start_address (abfd); + execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * + sizeof (struct reloc_info_extended)); + execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * + sizeof (struct reloc_info_extended));; + + swap_exec_header (abfd, execp); + + bfd_seek (abfd, 0L, SEEK_SET); + bfd_write ((void *) execp, 1, sizeof (struct exec), abfd); + + /* Now write out reloc info, followed by syms and strings */ + + if (bfd_get_symcount (abfd) != 0) + { + bfd_seek (abfd, + (long)(N_SYMOFF(*execp)), SEEK_SET); + + sunos4_write_syms (abfd); + + bfd_seek (abfd, (long)(N_TROFF(*execp)), SEEK_SET); + + if (!sunos4_squirt_out_relocs (abfd, obj_textsec (abfd))) return false; + bfd_seek (abfd, (long)(N_DROFF(*execp)), SEEK_SET); + + if (!sunos4_squirt_out_relocs (abfd, obj_datasec (abfd))) return false; + } + return true; +} + +static void +swap_exec_header (abfd, execp) +bfd *abfd; + struct exec *execp; +{ + if (bfd_header_twiddle_required(abfd)) { + /* execp->a_info = bfd_h_getlong (abfd, &execp->a_info); */ + *(unsigned long *) execp = + bfd_h_getlong (abfd, (unsigned long *) execp); + execp->a_text = bfd_h_getlong (abfd, &execp->a_text); + execp->a_data = bfd_h_getlong (abfd, &execp->a_data); + execp->a_bss = bfd_h_getlong (abfd, &execp->a_bss); + execp->a_syms = bfd_h_getlong (abfd, &execp->a_syms); + execp->a_entry = bfd_h_getlong (abfd, &execp->a_entry); + execp->a_trsize = bfd_h_getlong (abfd, &execp->a_trsize); + execp->a_drsize = bfd_h_getlong (abfd, &execp->a_drsize); + } +} /* swap_exec_header() */ + +/** core files */ + +#define CORE_MAGIC 0x080456 +#define CORE_NAMELEN 16 + +/* The core structure is taken from the Sun documentation. + Unfortunately, they don't document the FPA structure, or at least I + can't find it easily. Fortunately the core header contains its own + length. So this shouldn't cause problems, except for c_ucode, which + so far we don't use but is easy to find with a little arithmetic. */ + +/* But the reg structure can be gotten from the SPARC processor handbook. + This really should be in a GNU include file though so that gdb can use + the same info. */ +struct regs { + int r_psr; + int r_pc; + int r_npc; + int r_y; + int r_g1; + int r_g2; + int r_g3; + int r_g4; + int r_g5; + int r_g6; + int r_g7; + int r_o0; + int r_o1; + int r_o2; + int r_o3; + int r_o4; + int r_o5; + int r_o6; + int r_o7; +}; + +/* Taken from Sun documentation: */ + +struct core { + int c_magic; /* Corefile magic number */ + int c_len; /* Sizeof (struct core) */ + struct regs c_regs; /* General purpose registers */ + struct exec c_aouthdr; /* A.out header */ + int c_signo; /* Killing signal, if any */ + int c_tsize; /* Text size (bytes) */ + int c_dsize; /* Data size (bytes) */ + int c_ssize; /* Stack size (bytes) */ + char c_cmdname[CORE_NAMELEN + 1]; /* Command name */ + double fp_stuff[1]; /* external FPU state (size unknown by us) */ + /* The type "double" is critical here, for alignment. + SunOS declares a struct here, but the struct's + alignment is double since it contains doubles. */ + int c_ucode; /* Exception no. from u_code */ + /* (this member not accessible by name since we don't + portably know the size of fp_stuff.) */ +}; + +/* Supposedly the user stack grows downward from the bottom of kernel memory. + Presuming that this remains true, this definition will work. */ +#define USRSTACK (-(128*1024*1024)) + +PROTO (static void, swapcore, (bfd *abfd, struct core *core)); + +/* need this cast b/c ptr is really void * */ +#define core_hdr(bfd) (((struct suncordata *) (bfd->tdata))->hdr) +#define core_datasec(bfd) (((struct suncordata *) ((bfd)->tdata))->data_section) +#define core_stacksec(bfd) (((struct suncordata*)((bfd)->tdata))->stack_section) +#define core_regsec(bfd) (((struct suncordata *) ((bfd)->tdata))->reg_section) +#define core_regsec2(bfd) (((struct suncordata *) ((bfd)->tdata))->reg2_section) + +/* These are stored in the bfd's tdata */ +struct suncordata { + struct core *hdr; /* core file header */ + asection *data_section; + asection *stack_section; + asection *reg_section; + asection *reg2_section; +}; + +bfd_target * +sunos4_core_file_p (abfd) + bfd *abfd; +{ + /* includes redundent variables for code clarity */ + int core_size; + int core_mag; + struct core *core; + char *rawptr; + + bfd_error = system_call_error; + + if (bfd_read ((void *)&core_mag, 1, sizeof (int), abfd) != sizeof (int)) + return 0; + core_mag = bfd_h_getlong(abfd, &core_mag); + + if (core_mag != CORE_MAGIC) return 0; + + /* SunOS core headers can vary in length; second word is size; */ + if (bfd_read ((void *)&core_size, 1, sizeof (int), abfd) != sizeof (int)) + return 0; + core_size = bfd_h_getlong(abfd, &core_size); + + if (bfd_seek (abfd, 0L, SEEK_SET) < 0) return 0; + + rawptr = zalloc (core_size + sizeof (struct suncordata)); + if (rawptr == NULL) { + bfd_error = no_memory; + return 0; + } + + core = (struct core *) (rawptr + sizeof (struct suncordata)); + + if ((bfd_read ((void *) core, 1, core_size, abfd)) != core_size) { + bfd_error = system_call_error; + free ((void *)rawptr); + return 0; + } + + swapcore (abfd, core); + abfd->tdata = (void *)((struct suncordata *) rawptr); + core_hdr (abfd) = core; + + /* create the sections. This is raunchy, but bfd_close wants to reclaim + them */ + core_stacksec (abfd) = (asection *) zalloc (sizeof (asection)); + if (core_stacksec (abfd) == NULL) { + loser: + bfd_error = no_memory; + free ((void *)rawptr); + return 0; + } + core_datasec (abfd) = (asection *) zalloc (sizeof (asection)); + if (core_datasec (abfd) == NULL) { + loser1: + free ((void *)core_stacksec (abfd)); + goto loser; + } + core_regsec (abfd) = (asection *) zalloc (sizeof (asection)); + if (core_regsec (abfd) == NULL) { + loser2: + free ((void *)core_datasec (abfd)); + goto loser1; + } + core_regsec2 (abfd) = (asection *) zalloc (sizeof (asection)); + if (core_regsec2 (abfd) == NULL) { + free ((void *)core_regsec (abfd)); + goto loser2; + } + + core_stacksec (abfd)->name = ".stack"; + core_datasec (abfd)->name = ".data"; + core_regsec (abfd)->name = ".reg"; + core_regsec2 (abfd)->name = ".reg2"; + + core_stacksec (abfd)->flags = SEC_ALLOC + SEC_LOAD; + core_datasec (abfd)->flags = SEC_ALLOC + SEC_LOAD; + core_regsec (abfd)->flags = SEC_ALLOC; + core_regsec2 (abfd)->flags = SEC_ALLOC; + + core_stacksec (abfd)->size = core->c_ssize; + core_datasec (abfd)->size = core->c_dsize; + core_regsec (abfd)->size = (sizeof core->c_regs); + /* Float regs take up end of struct, except c_ucode. */ + core_regsec2 (abfd)->size = core_size - (sizeof core->c_ucode) - + (file_ptr)(((struct core *)0)->fp_stuff); + + core_stacksec (abfd)->vma = (USRSTACK - core->c_ssize); + core_datasec (abfd)->vma = N_DATADDR(core->c_aouthdr); + core_regsec (abfd)->vma = -1; + core_regsec2 (abfd)->vma = -1; + + core_stacksec (abfd)->filepos = core->c_len + core->c_dsize; + core_datasec (abfd)->filepos = core->c_len; + /* In file header: */ + core_regsec (abfd)->filepos = (file_ptr)(&((struct core *)0)->c_regs); + core_regsec2 (abfd)->filepos = (file_ptr)(((struct core *)0)->fp_stuff); + + /* Align to word at least */ + core_stacksec (abfd)->alignment_power = 2; + core_datasec (abfd)->alignment_power = 2; + core_regsec (abfd)->alignment_power = 2; + core_regsec2 (abfd)->alignment_power = 2; + + abfd->sections = core_stacksec (abfd); + core_stacksec (abfd)->next = core_datasec (abfd); + core_datasec (abfd)->next = core_regsec (abfd); + core_regsec (abfd)->next = core_regsec2 (abfd); + + abfd->section_count = 4; + + return abfd->xvec; +} + +char * +sunos4_core_file_failing_command (abfd) + bfd *abfd; +{ + return core_hdr (abfd)->c_cmdname; +} + +int +sunos4_core_file_failing_signal (abfd) + bfd *abfd; +{ + return core_hdr (abfd)->c_signo; +} + +boolean +sunos4_core_file_matches_executable_p (core_bfd, exec_bfd) + bfd *core_bfd, *exec_bfd; +{ + if (core_bfd->xvec != exec_bfd->xvec) { + bfd_error = system_call_error; + return false; + } + + return (bcmp (&core_hdr (core_bfd), &exec_hdr (exec_bfd), + sizeof (struct exec)) == 0) ? true : false; +} + +/* byte-swap core structure */ +static void +swapcore (abfd, core) +bfd *abfd; + struct core *core; +{ + if (bfd_header_twiddle_required(abfd)) { + core->c_magic = bfd_h_getlong (abfd, &core->c_magic); + core->c_len = bfd_h_getlong (abfd, &core->c_len); + /* regs */ + swap_exec_header (abfd, &(core->c_aouthdr)); + core->c_signo = bfd_h_getlong (abfd, &core->c_signo); + core->c_tsize = bfd_h_getlong (abfd, &core->c_tsize); + core->c_dsize = bfd_h_getlong (abfd, &core->c_dsize); + core->c_ssize = bfd_h_getlong (abfd, &core->c_ssize); + core->c_ucode = bfd_h_getlong (abfd, &core->c_ucode); + /* I don't understand how to swap an FP register */ + } +} + +/** exec and core file sections */ + +boolean +sunos4_new_section_hook (abfd, newsect) + bfd *abfd; + asection *newsect; +{ + /* align to double at least */ + newsect->alignment_power = 3; + + if (bfd_get_format (abfd) == bfd_object) { + if (obj_textsec(abfd) == NULL && !strcmp(newsect->name, ".text")) { + obj_textsec(abfd)= newsect; + return true; + } + + if (obj_datasec(abfd) == NULL && !strcmp(newsect->name, ".data")) { + obj_datasec(abfd) = newsect; + return true; + } + + if (obj_bsssec(abfd) == NULL && !strcmp(newsect->name, ".bss")) { + obj_bsssec(abfd) = newsect; + return true; + } + } + +#if 0 /* FIXME -- this is temporary for steve */ + bfd_error = invalid_operation; + + return false; +#endif + + /* We allow more than three sections internally */ + return true; +} + +boolean +sunos4_set_section_contents (abfd, section, location, offset, count) + bfd *abfd; + sec_ptr section; + unsigned char *location; + file_ptr offset; + int count; +{ + if (abfd->output_has_begun == false) + { /* set by bfd.c handler */ + if ((obj_textsec (abfd) == NULL) || (obj_datasec (abfd) == NULL) + + /*|| + (obj_textsec (abfd)->size == 0) || (obj_datasec (abfd)->size= + 0)*/ + ) + { + bfd_error = invalid_operation; + return false; + } + + +#if 0 + if (abfd->flags & D_PAGED) + { + obj_textsec (abfd)->filepos = sizeof(struct exec); + obj_datasec(abfd)->filepos = obj_textsec (abfd)->size; + } + else +#endif +{ + obj_textsec (abfd)->filepos = sizeof(struct exec); + obj_datasec(abfd)->filepos = obj_textsec(abfd)->filepos + obj_textsec (abfd)->size; + + } + } + /* regardless, once we know what we're doing, we might as well get going */ + + bfd_seek (abfd, section->filepos + offset, SEEK_SET); + + if (count) { + return (bfd_write ((void *)location, 1, count, abfd) == count) ? true : false; + } + return false; +} +boolean +sunos4_get_section_contents (abfd, section, location, offset, count) + bfd *abfd; + sec_ptr section; + void *location; + file_ptr offset; + int count; +{ + if (count) { + if (offset >= section->size) return false; + + bfd_seek (abfd, section->filepos + offset, SEEK_SET); + + return (bfd_read (location, 1, count, abfd) == count) ? true:false; + } + else return true; +} + + +/* Classify stabs symbols */ + + +#define sym_in_text_section(sym) \ + (((sym)->n_type & (N_ABS | N_TEXT | N_DATA | N_BSS))== N_TEXT) + +#define sym_in_data_section(sym) \ + (((sym)->n_type & (N_ABS | N_TEXT | N_DATA | N_BSS))== N_DATA) + +#define sym_in_bss_section(sym) \ + (((sym)->n_type & (N_ABS | N_TEXT | N_DATA | N_BSS))== N_BSS) + +/* Symbol is undefined if type is N_UNDF|N_EXT and if it has + zero in the "value" field. Nonzeroes there are fortrancommon + symbols. */ +#define sym_is_undefined(sym) \ + ((sym)->n_type == (N_UNDF | N_EXT) && (sym)->n_value == 0) + +/* Symbol is a global definition if N_EXT is on and if it has + a nonzero type field. */ +#define sym_is_global_defn(sym) \ + (((sym)->n_type & N_EXT) && (sym)->n_type & N_TYPE) + +/* Symbol is debugger info if any bits outside N_TYPE or N_EXT + are on. */ +#define sym_is_debugger_info(sym) \ + ((sym)->n_type & ~(N_EXT | N_TYPE)) + +#define sym_is_fortrancommon(sym) \ + (((sym)->n_type == (N_EXT)) && (sym)->n_value != 0) + +/* Symbol is absolute if it has N_ABS set */ +#define sym_is_absolute(sym) \ + (((sym)->n_type & N_TYPE)== N_ABS) + + +#define sym_is_indirect(sym) \ + (((sym)->n_type & N_ABS)== N_ABS) + +/* Only in their own functions for ease of debugging; when sym flags have + stabilised these should be inlined into their (single) caller */ + +static void +translate_from_native_sym_flags (sym_pointer, cache_ptr, abfd) + struct nlist *sym_pointer; + aout_symbol_type *cache_ptr; + bfd *abfd; +{ + switch (cache_ptr->type & N_TYPE) { + case N_SETA: + case N_SETT: + case N_SETD: + case N_SETB: + { + asection *section = bfd_make_section(abfd, + cache_ptr->symbol.name); + arelent_chain *reloc = (arelent_chain *)malloc(sizeof(arelent_chain)); + + switch ( (cache_ptr->type & N_TYPE) ) { + case N_SETA: + reloc->relent.section = (asection *)NULL; + cache_ptr->symbol.section = (asection *)NULL; + break; + case N_SETT: + reloc->relent.section = (asection *)obj_textsec(abfd); + cache_ptr->symbol.value -= reloc->relent.section->vma; + break; + case N_SETD: + reloc->relent.section = (asection *)obj_datasec(abfd); + cache_ptr->symbol.value -= reloc->relent.section->vma; + break; + case N_SETB: + reloc->relent.section = (asection *)obj_bsssec(abfd); + cache_ptr->symbol.value -= reloc->relent.section->vma; + break; + } + cache_ptr->symbol.section = reloc->relent.section; + reloc->relent.addend = cache_ptr->symbol.value ; + /* + We modify the symbol to belong to a section depending upon the + name of the symbol - probably __CTOR__ or __DTOR__ but we don't + really care, and add to the size of the section to contain a + pointer to the symbol. Build a reloc entry to relocate to this + symbol attached to this section. + */ + + + section->flags = SEC_CONSTRUCTOR; + section->reloc_count++; + section->alignment_power = 2; + reloc->relent.sym_ptr_ptr = (asymbol **)NULL; + reloc->next = section->constructor_chain; + section->constructor_chain = reloc; + reloc->relent.address = section->size; + section->size += sizeof(int *); + + reloc->relent.howto = howto_table +CTOR_TABLE_RELOC_IDX; + cache_ptr->symbol.flags |= BSF_DEBUGGING ; + } + break; + default: + + if (sym_is_debugger_info (sym_pointer)) { + cache_ptr->symbol.flags = BSF_DEBUGGING ; + /* Work out the section correct for this symbol */ + switch (sym_pointer->n_type & N_TYPE) + { + case N_TEXT: + case N_FN: + cache_ptr->symbol.section = obj_textsec (abfd); + cache_ptr->symbol.value -= obj_textsec(abfd)->vma; + break; + case N_DATA: + cache_ptr->symbol.value -= obj_datasec(abfd)->vma; + cache_ptr->symbol.section = obj_datasec (abfd); + break; + case N_BSS : + cache_ptr->symbol.section = obj_bsssec (abfd); + cache_ptr->symbol.value -= obj_bsssec(abfd)->vma; + break; + case N_ABS: + default: + cache_ptr->symbol.section = 0; + break; + } + } + else { + if (sym_is_fortrancommon (sym_pointer)) + { + cache_ptr->symbol.flags = BSF_FORT_COMM; + cache_ptr->symbol.section = (asection *)NULL; + } + else { + if (sym_is_undefined (sym_pointer)) { + cache_ptr->symbol.flags = BSF_UNDEFINED; + } + else if (sym_is_global_defn (sym_pointer)) { + cache_ptr->symbol.flags = BSF_GLOBAL | BSF_EXPORT; + } + + else if (sym_is_absolute (sym_pointer)) { + cache_ptr->symbol.flags = BSF_ABSOLUTE; + } + else { + cache_ptr->symbol.flags = BSF_LOCAL; + } + + /* In a.out, the value of a symbol is always relative to the + * start of the file, if this is a data symbol we'll subtract + * the size of the text section to get the section relative + * value. If this is a bss symbol (which would be strange) + * we'll subtract the size of the previous two sections + * to find the section relative address. + */ + + if (sym_in_text_section (sym_pointer)) { + cache_ptr->symbol.value -= obj_textsec(abfd)->vma; + cache_ptr->symbol.section = obj_textsec (abfd); + } + else if (sym_in_data_section (sym_pointer)){ + cache_ptr->symbol.value -= obj_datasec(abfd)->vma; + cache_ptr->symbol.section = obj_datasec (abfd); + } + else if (sym_in_bss_section(sym_pointer)) { + cache_ptr->symbol.section = obj_bsssec (abfd); + cache_ptr->symbol.value -= obj_bsssec(abfd)->vma; + } + else { + cache_ptr->symbol.section = (asection *)NULL; + cache_ptr->symbol.flags |= BSF_ABSOLUTE; + } + } + } + } +} +void +translate_to_native_sym_flags (sym_pointer, cache_ptr_g, abfd) + struct nlist *sym_pointer; + generic_symbol_type *cache_ptr_g; + bfd *abfd; +{ + asymbol *cache_ptr = (asymbol *)cache_ptr_g; + + /* FIXME check for wrigin bss */ + if (bfd_get_section(cache_ptr)) { + if (bfd_get_output_section(cache_ptr) == obj_bsssec (abfd)) { + sym_pointer->n_type |= N_BSS; + } + else if (bfd_get_output_section(cache_ptr) == obj_datasec (abfd)) { + sym_pointer->n_type |= N_DATA; + } + else if (bfd_get_output_section(cache_ptr) == obj_textsec (abfd)) { + sym_pointer->n_type |= N_TEXT; + } + else { + BFD_ASSERT(0); + } + /* Turn the symbol from section relative to absolute again */ + sym_pointer->n_value += + cache_ptr->section->output_section->vma + + cache_ptr->section->output_offset ; + } + else { + sym_pointer->n_type |= N_ABS; + } + + if (cache_ptr->flags & (BSF_FORT_COMM | BSF_UNDEFINED)) { + sym_pointer->n_type = (N_UNDF | N_EXT); + return; + } + + if (cache_ptr->flags & BSF_ABSOLUTE) { + sym_pointer->n_type |= N_ABS; + } + + if (cache_ptr->flags & (BSF_GLOBAL | BSF_EXPORT)) { + sym_pointer->n_type |= N_EXT; + } + if (cache_ptr->flags & BSF_DEBUGGING) { + sym_pointer->n_type = ((aout_symbol_type *)cache_ptr)->type; + } + +} + +/* Native-level interface to symbols. */ + +/* We read the symbols into a buffer, which is discarded when this + function exits. We read the strings into a buffer large enough to + hold them all plus all the cached symbol entries. */ + +asymbol * +sunos4_make_empty_symbol (abfd) +bfd *abfd; +{ + aout_symbol_type *new = + (aout_symbol_type *)zalloc (sizeof (aout_symbol_type)); + new->symbol.the_bfd = abfd; + + return &new->symbol; +} + +boolean +sunos4_slurp_symbol_table (abfd) + bfd *abfd; +{ + unsigned int symbol_count; + size_t symbol_size; + size_t string_size; + struct nlist *syms; + char *strings; + aout_symbol_type *cached; + + /* If there's no work to be done, don't do any */ + if (obj_aout_symbols (abfd) != (aout_symbol_type *)NULL) return true; + symbol_size = exec_hdr(abfd)->a_syms; + if (symbol_size == 0) { + bfd_error = no_symbols; + return false; + } + + bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET); + if (bfd_read ((void *)&string_size, 4, 1, abfd) != 4) + return false; + string_size = bfd_h_getlong (abfd, (unsigned char *)&string_size); + + symbol_count = symbol_size / sizeof (struct nlist); + + /* Malloc (should alloca) space for native symbols, and + malloc space for string table and symbol cache. */ + + syms = (struct nlist *) zalloc (symbol_size); + if (syms == NULL) { + bfd_error = no_memory; + return false; + } + + cached = (aout_symbol_type *) zalloc ((size_t)(string_size + 1 + + (symbol_count * sizeof (aout_symbol_type)))); + if (cached == NULL) { + bfd_error = no_memory; + free ((void *)syms); + return false; + } + + strings = ((char *) cached) + (symbol_count * sizeof (aout_symbol_type)); + + bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET); + if (bfd_read ((void *)syms, 1, symbol_size, abfd) != symbol_size) { + bailout: + free ((void *)cached); + free ((void*)syms); + return false; + } + + bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET); + if (bfd_read ((void *)strings, 1, string_size, abfd) != string_size) { + goto bailout; + } + + /* OK, now walk the new symtable, cacheing symbol properties */ + { + register struct nlist *sym_pointer; + register struct nlist *sym_end = syms + symbol_count; + register aout_symbol_type *cache_ptr = cached; + + if (bfd_header_twiddle_required (abfd) == true) { + /* run through the table and byte swap if needed */ + for (sym_pointer = syms; sym_pointer < sym_end; sym_pointer++) { + sym_pointer->n_un.n_strx = + bfd_h_get_x (abfd, &sym_pointer->n_un.n_strx); + sym_pointer->n_desc = + bfd_h_get_x (abfd, &sym_pointer->n_desc); + sym_pointer->n_value = + bfd_h_get_x (abfd, &sym_pointer->n_value); + sym_pointer->n_other = (char) + bfd_h_get_x(abfd, &sym_pointer->n_other); + sym_pointer->n_type = (char) + bfd_h_get_x(abfd, &sym_pointer->n_type); + + } + } + /* Run through table and copy values */ + for (sym_pointer = syms, cache_ptr = cached; + sym_pointer < sym_end; sym_pointer++, cache_ptr++) + { + cache_ptr->symbol.the_bfd = abfd; + if (sym_pointer->n_un.n_strx) + cache_ptr->symbol.name = sym_pointer->n_un.n_strx + strings; + else + cache_ptr->symbol.name = (char *)NULL; + cache_ptr->symbol.value = sym_pointer->n_value; + cache_ptr->desc = sym_pointer->n_desc; + cache_ptr->other = sym_pointer->n_other; + cache_ptr->type = sym_pointer->n_type; + cache_ptr->symbol.udata = 0; + translate_from_native_sym_flags (sym_pointer, cache_ptr, abfd); + + } + } + + obj_aout_symbols (abfd) = cached; + bfd_get_symcount (abfd) = symbol_count; + free ((void *)syms); + + return true; +} + + +void +sunos4_write_syms (abfd) + bfd *abfd; +{ + unsigned int count ; + asymbol **generic = bfd_get_outsymbols (abfd); + + unsigned int stindex = sizeof(stindex); /* initial string length */ + + for (count = 0; count < bfd_get_symcount (abfd); count++) { + asymbol *g = generic[count]; + struct nlist nsp; + + if (g->name) { + unsigned int length = strlen(g->name) +1; + bfd_h_putlong (abfd, stindex, (unsigned char *)&nsp.n_un.n_strx); + stindex += length; + } + else { + bfd_h_putlong (abfd, 0, (unsigned char *)&nsp.n_un.n_strx); + } + + if (g->the_bfd->xvec->flavour == abfd->xvec->flavour) + { + nsp.n_desc = aout_symbol( g)->desc; + nsp.n_other = aout_symbol(g)->other; + nsp.n_type = aout_symbol(g)->type; + } + else + { + nsp.n_desc = 0; + nsp.n_other = 0; + nsp.n_type = 0; + } + + + nsp.n_value = g->value; + translate_to_native_sym_flags (&nsp, (generic_symbol_type *)g, abfd); + + + bfd_h_putshort (abfd, nsp.n_desc, (unsigned char *)&nsp.n_desc); + bfd_h_putlong (abfd, nsp.n_value, (unsigned char *)&nsp.n_value); + bfd_write((void *)&nsp,1, sizeof(nsp), abfd); + } + + + /* Now output the strings. Be sure to put string length into correct + * byte ordering before writing it. + */ + bfd_h_putlong (abfd, stindex, (unsigned char *)&stindex); + + bfd_write((void *)&stindex, 1, sizeof(stindex), abfd); + + generic = bfd_get_outsymbols(abfd); + for (count = 0; count < bfd_get_symcount(abfd); count++) + { + asymbol *g = *(generic++); + + if (g->name != (char *)NULL) + { + size_t length = strlen(g->name)+1; + bfd_write((void *)g->name, 1, length, abfd); + } + if ((g->flags & BSF_FAKE)==0) { + g->name = itos(count); /* smash the generic symbol */ + } + } +} + + +void +sunos4_reclaim_symbol_table (abfd) + bfd *abfd; +{ + asection *section; + + if (!bfd_get_symcount (abfd)) return; + + for (section = abfd->sections; + section != (asection *) NULL; + section = section->next) + if (section->relocation) { + free ((void *)section->relocation); + section->relocation = NULL; + section->reloc_count = 0; + } + + bfd_get_symcount (abfd) = 0; + free ((void *)obj_aout_symbols (abfd)); + obj_aout_symbols (abfd) = (aout_symbol_type *)NULL; +} + +unsigned int +sunos4_get_symtab_upper_bound (abfd) + bfd *abfd; +{ + if (!sunos4_slurp_symbol_table (abfd)) return 0; + + return (bfd_get_symcount (abfd)+1) * (sizeof (aout_symbol_type *)); +} + +unsigned int +sunos4_get_symtab (abfd, location) + bfd *abfd; + asymbol **location; +{ + unsigned int counter = 0; + aout_symbol_type *symbase; + + if (!sunos4_slurp_symbol_table (abfd)) return 0; + + for (symbase = obj_aout_symbols(abfd); counter++ < bfd_get_symcount (abfd);) + *(location++) = (asymbol *)( symbase++); + *location++ =0; + return bfd_get_symcount(abfd); +} + + +/* Obsolete procedural interface; better to look at the cache directly */ + +/* User should have checked the file flags; perhaps we should return + BFD_NO_MORE_SYMBOLS if there are none? */ + +int +sunos4_get_symcount_upper_bound (abfd) + bfd *abfd; +{ + /* In case we're doing an output file or something...? */ + if (bfd_get_symcount (abfd)) return bfd_get_symcount (abfd); + + return (exec_hdr (abfd)->a_syms) / (sizeof (struct nlist)); +} + +symindex +sunos4_get_first_symbol (ignore_abfd) + bfd * ignore_abfd; +{ + return 0; +} + +symindex +sunos4_get_next_symbol (abfd, oidx) + bfd *abfd; + symindex oidx; +{ + if (oidx == BFD_NO_MORE_SYMBOLS) return BFD_NO_MORE_SYMBOLS; + return ++oidx >= bfd_get_symcount (abfd) ? BFD_NO_MORE_SYMBOLS : oidx; +} + +char * +sunos4_symbol_name (abfd, idx) + bfd *abfd; + symindex idx; +{ + return (obj_aout_symbols (abfd) + idx)->symbol.name; +} + +long +sunos4_symbol_value (abfd, idx) + bfd *abfd; + symindex idx; +{ + return (obj_aout_symbols (abfd) + idx)->symbol.value; +} + +symclass +sunos4_classify_symbol (abfd, idx) + bfd *abfd; + symindex idx; +{ + aout_symbol_type *sym = obj_aout_symbols (abfd) + idx; + + if ((sym->symbol.flags & BSF_FORT_COMM) != 0) return bfd_symclass_fcommon; + if ((sym->symbol.flags & BSF_GLOBAL) != 0) return bfd_symclass_global; + if ((sym->symbol.flags & BSF_DEBUGGING) != 0) return bfd_symclass_debugger; + if ((sym->symbol.flags & BSF_UNDEFINED) != 0) return bfd_symclass_undefined; + + return bfd_symclass_unknown; +} + +boolean +sunos4_symbol_hasclass (abfd, idx, class) + bfd *abfd; + symindex idx; + symclass class; +{ + aout_symbol_type *sym = obj_aout_symbols (abfd) + idx; + switch (class) { + case bfd_symclass_fcommon: + return (sym->symbol.flags & BSF_FORT_COMM) ? true :false; + case bfd_symclass_global: + return (sym->symbol.flags & BSF_GLOBAL) ? true:false; + case bfd_symclass_debugger: + return (sym->symbol.flags & BSF_DEBUGGING) ? true:false;; + case bfd_symclass_undefined: + return (sym->symbol.flags & BSF_UNDEFINED) ? true:false;; + default: return false; + } +} + +/** Some reloc hackery */ + + +boolean +sunos4_slurp_reloc_table (abfd, asect, symbols) + bfd *abfd; + sec_ptr asect; + asymbol **symbols; +{ + unsigned int count; + size_t reloc_size; + struct reloc_info_extended *relocs; + arelent *reloc_cache; + + if (asect->relocation) return true; + + if (asect->flags & SEC_CONSTRUCTOR) return true; + + if (asect == obj_datasec (abfd)) { + reloc_size = exec_hdr(abfd)->a_drsize; + goto doit; + } + + if (asect == obj_textsec (abfd)) { + reloc_size = exec_hdr(abfd)->a_trsize; + goto doit; + } + + bfd_error = invalid_operation; + return false; + + doit: + bfd_seek (abfd, asect->rel_filepos, SEEK_SET); + count = reloc_size / sizeof (struct reloc_info_extended); + + relocs = (struct reloc_info_extended *) malloc (reloc_size); + if (!relocs) { + bfd_error = no_memory; + return false; + } + reloc_cache = (arelent *) zalloc ((size_t)(count * sizeof (arelent))); + if (reloc_cache == (arelent *)NULL) { + free ((void *)relocs); + bfd_error = no_memory; + return false; + } + + if (bfd_read ((void*) relocs, 1, reloc_size, abfd) != reloc_size) { + bfd_error = system_call_error; + free (reloc_cache); + free (relocs); + return false; + } + + { + register struct reloc_info_extended *rptr = relocs; + unsigned int counter = 0; + arelent *cache_ptr = reloc_cache; + + for (; counter < count; counter++, rptr++, cache_ptr++) { + /* john's old swap_reloc was a hell of a lot hairier... */ + /* FIXME, it needs to be!!! */ + rptr->r_address = bfd_h_getlong (abfd, &rptr->r_address); + /* FIXME NOW! + * The following can't be done because r_index is a bit field: + * + * rptr->r_index = bfd_h_getlong (abfd, &rptr->r_index); + */ + rptr->r_addend = bfd_h_getlong (abfd, &rptr->r_addend); + if (rptr->r_extern) { + /* If this bit is set then the r_index is a index into the symbol table + * if the bit is not set then r_index contains a section map. + * We either fill in the sym entry with a pointer to the symbol, + * or point to the correct section + */ + + cache_ptr->sym_ptr_ptr = symbols + rptr->r_index; + cache_ptr->addend = rptr->r_addend; + cache_ptr->section = (asection *)NULL; + } + else + { + /* Remember that in a.out symbols are relative to the + beginning of the file rather than sections ? (look in + translate_from_native_sym_flags) The reloc entry addend + has added to it the offset into the file of the data, so + subtract the base to make the reloc section relative */ + + cache_ptr->sym_ptr_ptr = (asymbol **)NULL; + switch (rptr->r_index) { + case N_TEXT: + case N_TEXT | N_EXT: + cache_ptr->section = obj_textsec(abfd); + cache_ptr->addend = rptr->r_addend - obj_textsec(abfd)->vma ; + break; + case N_DATA: + case N_DATA | N_EXT: + cache_ptr->section = obj_datasec(abfd); + cache_ptr->addend = rptr->r_addend - obj_datasec(abfd)->vma ; + break; + case N_BSS: + case N_BSS | N_EXT: + cache_ptr->section = obj_bsssec(abfd); + cache_ptr->addend = rptr->r_addend - obj_bsssec(abfd)->vma; + break; + case N_ABS: + case N_ABS | N_EXT: + BFD_ASSERT(1); + break; + default: + BFD_ASSERT(1); + break; + } + + } + + cache_ptr->address = rptr->r_address; + cache_ptr->howto = howto_table + (unsigned int)( rptr->r_type); + } + } + + free (relocs); + asect->relocation = reloc_cache; + asect->reloc_count = count; + return true; +} + +static boolean +sunos4_squirt_out_relocs (abfd, section) + bfd *abfd; + asection *section; +{ + arelent **generic; + + unsigned int count = section->reloc_count; + struct reloc_info_extended *native, *natptr; + size_t natsize = count * sizeof (struct reloc_info_extended); + + if (count == 0) return true; + generic = section->orelocation; + native = ((struct reloc_info_extended *) zalloc (natsize)); + if (!native) { + bfd_error = no_memory; + return false; + } + + for (natptr = native; count != 0; --count, ++natptr, ++generic) + { + arelent *g = *generic; + + natptr->r_address = g->address; + /* Find a type in the output format which matches the input howto - + * at the moment we assume input format == output format FIXME!! + */ + natptr->r_type = (enum reloc_type) g->howto->type; + /* name clobbered by sunos4_write_syms to be symbol index*/ + + if (g->sym_ptr_ptr != (asymbol **)NULL) + { + if ((*(g->sym_ptr_ptr))->section) { + /* replace the section offset into the addent */ + g->addend += (*(g->sym_ptr_ptr))->section->vma; + } + + natptr->r_index = stoi((*(g->sym_ptr_ptr))->name); + BFD_ASSERT(natptr->r_index < 0xfff); + natptr->r_extern = 1; + natptr->r_addend = g->addend; + } + else { + natptr->r_extern = 0; + if (g->section == (asection *)NULL) { + BFD_ASSERT(0); + natptr->r_index = N_ABS | N_EXT; + natptr->r_addend = g->addend; + } + else if(g->section->output_section == obj_textsec(abfd)) { + natptr->r_index = N_TEXT | N_EXT; + natptr->r_addend = g->addend + obj_textsec(abfd)->vma; + } + else if (g->section->output_section == obj_datasec(abfd)) { + natptr->r_index = N_DATA | N_EXT; + natptr->r_addend = g->addend + obj_datasec(abfd)->vma; + } + else if (g->section->output_section == obj_bsssec(abfd)) { + natptr->r_index = N_BSS | N_EXT ; + natptr->r_addend = g->addend + obj_bsssec(abfd)->vma; + + } + else { + BFD_ASSERT(0); + } + } + + if ( bfd_header_twiddle_required(abfd) ){ + bfd_h_putlong ( abfd, natptr->r_address, &natptr->r_address ); + + /* FIXME -- NOW! + * + * I came through here as part of my campaign to make compile-time + * definition of host and target byte orders unnecessary. The new + * code won't even compile because but r_index is a bit field. + * But the simple-minded byte swap that was here before wasn't going + * to work on a bit field anyway. + * + * The old code used to be #ifdef'd on + * TARGET_BYTE_ORDER_BIG_P != HOST_BYTE_ORDER_BIG_P + * Apparently, it was never tested in such a condition: the + * macro invocations here (of swapoutlong) had the wrong number + * of arguments and would never have compiled. + * Chris + bfd_h_putlong ( abfd, natptr->r_index, &natptr->r_index ); + */ + + bfd_h_putlong ( abfd, natptr->r_addend, &natptr->r_addend ); + } + + } + + if ( bfd_write ((void *) native, 1, natsize, abfd) != natsize) { + free(native); + return false; + } + free (native); + + return true; +} + +/* This is stupid. This function should be a boolean predicate */ +unsigned int +sunos4_canonicalize_reloc (abfd, section, relptr, symbols) + bfd *abfd; + sec_ptr section; + arelent **relptr; + asymbol **symbols; +{ + arelent *tblptr = section->relocation; + unsigned int count; + + if (!(tblptr || sunos4_slurp_reloc_table (abfd, section, symbols))) + return 0; + + if (section->flags & SEC_CONSTRUCTOR) { + arelent_chain *chain = section->constructor_chain; + for (count = 0; count < section->reloc_count; count ++) { + *relptr ++ = &chain->relent; + chain = chain->next; + } + } + else { + tblptr = section->relocation; + if (!tblptr) return 0; + + for (count = 0; count++ < section->reloc_count;) + { + *relptr++ = tblptr++; + } + } + *relptr = 0; + + return section->reloc_count; +} + +unsigned int +sunos4_get_reloc_upper_bound (abfd, asect) + bfd *abfd; + sec_ptr asect; +{ + if (bfd_get_format (abfd) != bfd_object) { + bfd_error = invalid_operation; + return 0; + } + if (asect->flags & SEC_CONSTRUCTOR) { + return (sizeof (arelent *) * (asect->reloc_count+1)); + } + + if (asect == obj_datasec (abfd)) + return (sizeof (arelent *) * + ((exec_hdr(abfd)->a_drsize / sizeof (struct reloc_info_extended)) + +1)); + + if (asect == obj_textsec (abfd)) + return (sizeof (arelent *) * + ((exec_hdr(abfd)->a_trsize / sizeof (struct reloc_info_extended)) + +1)); + + bfd_error = invalid_operation; + return 0; +} + +void +sunos4_reclaim_reloc (ignore_abfd, section) + bfd *ignore_abfd; + sec_ptr section; +{ + if (section->relocation) { + free (section->relocation); + section->relocation = NULL; + section->reloc_count = 0; + } +} + + +alent * +sunos4_get_lineno(ignore_abfd, ignore_symbol) +bfd *ignore_abfd; +generic_symbol_type *ignore_symbol; +{ +return (alent *)NULL; +} + +void +sunos4_print_symbol(ignore_abfd, file, symbol, how) +bfd *ignore_abfd; +FILE *file; +asymbol *symbol; +bfd_print_symbol_enum_type how; +{ + switch (how) { + case bfd_print_symbol_name_enum: + fprintf(file,"%s", symbol->name); + break; + case bfd_print_symbol_type_enum: + fprintf(file,"%4x %2x %2x",(unsigned)(aout_symbol(symbol)->desc & 0xffff), + (unsigned)( aout_symbol(symbol)->other & 0xff), + (unsigned)(aout_symbol(symbol)->type)); + break; + case bfd_print_symbol_all_enum: + { + char *section_name = symbol->section == (asection *)NULL ? + "*abs" : symbol->section->name; + + bfd_print_symbol_vandf((void *)file,symbol); + + fprintf(file," %-5s %04x %02x %02x %s", + section_name, + (unsigned)(aout_symbol(symbol)->desc & 0xffff), + (unsigned)(aout_symbol(symbol)->other & 0xff), + (unsigned)(aout_symbol(symbol)->type & 0xff), + symbol->name); + } + break; + } +} +/* Once we know all the stuff that could be consed, we know how to clean + it up. So why don't we? */ + +boolean +sunos4_close_and_cleanup (abfd) + bfd *abfd; +{ + if (!bfd_read_p (abfd)) + switch (abfd->format) { + case bfd_archive: + if (!_bfd_write_archive_contents (abfd)) return false; break; + case bfd_object: + if (!sunos4_write_object_contents (abfd)) return false; break; + default: bfd_error = invalid_operation; return false; + } + +#define cleaner(ptr) if (abfd->ptr) free (abfd->ptr) + cleaner (tdata); + + if (abfd->my_archive) + cleaner (filename); + +#undef cleaner + return true; +} + +/* + provided a bfd, a section and an offset into the section, calculate + and return the name of the source file and the line nearest to the + wanted location. +*/ + +boolean +sunos4_find_nearest_line(abfd, + section, + symbols, + offset, + filename_ptr, + functionname_ptr, + line_ptr) +bfd *abfd; +asection *section; +asymbol **symbols; +bfd_vma offset; +char **filename_ptr; +char **functionname_ptr; +unsigned int *line_ptr; +{ + /* Run down the file looking for the filename, function and linenumber */ + asymbol **p; + static char buffer[100]; + bfd_vma high_line_vma = ~0; + bfd_vma low_func_vma = 0; + asymbol *func = 0; + *filename_ptr = abfd->filename; + *functionname_ptr = 0; + *line_ptr = 0; + if (symbols != (asymbol **)NULL) { + for (p = symbols; *p; p++) { + aout_symbol_type *q = (aout_symbol_type *)(*p); + switch (q->type){ + case N_SO: + *filename_ptr = q->symbol.name; + if (obj_textsec(abfd) != section) { + return true; + } + break; + case N_SLINE: + + case N_DSLINE: + case N_BSLINE: + /* We'll keep this if it resolves nearer than the one we have already */ + if (q->symbol.value >= offset && + q->symbol.value < high_line_vma) { + *line_ptr = q->desc; + high_line_vma = q->symbol.value; + } + break; + case N_FUN: + { + /* We'll keep this if it is nearer than the one we have already */ + if (q->symbol.value >= low_func_vma && + q->symbol.value <= offset) { + low_func_vma = q->symbol.value; + func = (asymbol *)q; + } + if (*line_ptr && func) { + char *function = func->name; + char *p; + strncpy(buffer, function, sizeof(buffer)-1); + buffer[sizeof(buffer)-1] = 0; + /* Have to remove : stuff */ + p = strchr(buffer,':'); + if (p != NULL) {*p = NULL; } + *functionname_ptr = buffer; + return true; + + } + } + break; + } + } + } + + return true; + +} + +bfd_target aoutvec = +{ + "a.out-generic-big", /* name */ + bfd_target_aout_flavour_enum, + true, /* target byte order */ + true, /* target headers byte order */ + (HAS_RELOC | EXEC_P | /* object flags */ + HAS_LINENO | HAS_DEBUG | + HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), + (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ + 0, /* valid reloc types */ + ' ', /* ar_pad_char */ + 16, /* ar_max_namelen */ + sunos4_close_and_cleanup, /* _close_and_cleanup */ + sunos4_set_section_contents, /* bfd_set_section_contents */ + sunos4_get_section_contents, /* bfd_get_section_contents */ + sunos4_new_section_hook, /* new_section_hook */ + sunos4_core_file_failing_command, /* _core_file_failing_command */ + sunos4_core_file_failing_signal, /* _core_file_failing_signal */ + sunos4_core_file_matches_executable_p, /* _core_file_matches_ex...p */ + + bfd_slurp_bsd_armap, /* bfd_slurp_armap */ + bfd_true, /* bfd_slurp_extended_name_table */ + bfd_bsd_truncate_arname, /* bfd_truncate_arname */ + + sunos4_get_symtab_upper_bound, /* get_symtab_upper_bound */ + sunos4_get_symtab, /* canonicalize_symtab */ + sunos4_reclaim_symbol_table, /* bfd_reclaim_symbol_table */ + sunos4_get_reloc_upper_bound, /* get_reloc_upper_bound */ + sunos4_canonicalize_reloc, /* bfd_canonicalize_reloc */ + sunos4_reclaim_reloc, /* bfd_reclaim_reloc */ + sunos4_get_symcount_upper_bound, /* bfd_get_symcount_upper_bound */ + sunos4_get_first_symbol, /* bfd_get_first_symbol */ + sunos4_get_next_symbol, /* bfd_get_next_symbol */ + sunos4_classify_symbol, /* bfd_classify_symbol */ + sunos4_symbol_hasclass, /* bfd_symbol_hasclass */ + sunos4_symbol_name, /* bfd_symbol_name */ + sunos4_symbol_value, /* bfd_symbol_value */ + + _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* data */ + _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */ + + {_bfd_dummy_target, sunos4_object_p, /* bfd_check_format */ + bfd_generic_archive_p, sunos4_core_file_p}, + {bfd_false, sunos4_mkobject, /* bfd_zxset_format */ + _bfd_generic_mkarchive, bfd_false}, + sunos4_make_empty_symbol, + sunos4_print_symbol, + sunos4_get_lineno, + sunos4_set_arch_mach, + bsd_write_armap, + bfd_generic_openr_next_archived_file, + sunos4_find_nearest_line, /* bfd_find_nearest_line */ + bfd_generic_stat_arch_elt /* bfd_stat_arch_elt */ + }; + |