Back to index

cell-binutils  2.17cvs20070401
Classes | Defines | Functions | Variables
pdp11.c File Reference
#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "libaout.h"
#include "aout-target.h"
#include <string.h>
#include "safe-ctype.h"
#include "bfdlink.h"
#include "aout/aout64.h"
#include "aout/stab_gnu.h"
#include "aout/ar.h"

Go to the source code of this file.

Classes

struct  pdp11_external_exec
struct  pdp11_external_nlist
struct  aout_link_includes_entry

Defines

#define BYTES_IN_WORD   2
#define BYTES_IN_LONG   4
#define ARCH_SIZE   16
#define TARGET_PAGE_SIZE   1024
#define SEGMENT__SIZE   TARGET_PAGE_SIZE
#define DEFAULT_ARCH   bfd_arch_pdp11
#define DEFAULT_MID   M_PDP11
#define MY(OP)   CONCAT2 (pdp11_aout_,OP)
#define TARGETNAME   "a.out-pdp11"
#define TEXT_START_ADDR   0
#define N_HEADER_IN_TEXT(x)   0
#define N_SHARED_LIB(x)   0
#define N_FLAGS(exec)   0
#define N_SET_FLAGS(exec, flags)   do { } while (0)
#define N_BADMAG(x)
#define external_exec   pdp11_external_exec
#define EXEC_BYTES_SIZE   (8 * 2)
#define A_MAGIC1   OMAGIC
#define OMAGIC   0407 /* ...object file or impure executable. */
#define A_MAGIC2   NMAGIC
#define NMAGIC   0410 /* Pure executable. */
#define ZMAGIC   0413 /* Demand-paged executable. */
#define A_MAGIC3   0411 /* Separated I&D. */
#define A_MAGIC4   0405 /* Overlay. */
#define A_MAGIC5   0430 /* Auto-overlay (nonseparate). */
#define A_MAGIC6   0431 /* Auto-overlay (separate). */
#define QMAGIC   0
#define BMAGIC   0
#define A_FLAG_RELOC_STRIPPED   0x0001
#define external_nlist   pdp11_external_nlist
#define EXTERNAL_NLIST_SIZE   8
#define N_TXTOFF(x)   (EXEC_BYTES_SIZE)
#define N_DATOFF(x)   (N_TXTOFF(x) + (x).a_text)
#define N_TRELOFF(x)   (N_DATOFF(x) + (x).a_data)
#define N_DRELOFF(x)   (N_TRELOFF(x) + (x).a_trsize)
#define N_SYMOFF(x)   (N_DRELOFF(x) + (x).a_drsize)
#define N_STROFF(x)   (N_SYMOFF(x) + (x).a_syms)
#define WRITE_HEADERS(abfd, execp)   pdp11_aout_write_headers (abfd, execp)
#define SWAP_MAGIC(ext)   bfd_getl16 (ext)
#define MY_entry_is_text_address   1
#define MY_write_object_contents   MY(write_object_contents)
#define MY_text_includes_header   1
#define MY_BFD_TARGET
#define KEEPIT   udata.i
#define N_TYPE   0x1f /* Type mask. */
#define N_UNDF   0x00 /* Undefined. */
#define N_ABS   0x01 /* Absolute. */
#define N_TEXT   0x02 /* Text segment. */
#define N_DATA   0x03 /* Data segment. */
#define N_BSS   0x04 /* Bss segment. */
#define N_REG   0x14 /* Register symbol. */
#define N_FN   0x1f /* File name. */
#define N_EXT   0x20 /* External flag. */
#define RELOC_SIZE   2
#define RELFLG   0x0001 /* PC-relative flag. */
#define RTYPE   0x000e /* Type mask. */
#define RIDXMASK   0xfff0 /* Index mask. */
#define RABS   0x00 /* Absolute. */
#define RTEXT   0x02 /* Text. */
#define RDATA   0x04 /* Data. */
#define RBSS   0x06 /* Bss. */
#define REXT   0x08 /* External. */
#define RINDEX(x)   (((x) & 0xfff0) >> 4)
#define MY_final_link_relocate   _bfd_final_link_relocate
#define MY_relocate_contents   _bfd_relocate_contents
#define TABLE_SIZE(TABLE)   (sizeof(TABLE)/sizeof(TABLE[0]))
#define NAME_swap_exec_header_in   NAME (aout, swap_exec_header_in)
#define MOVE_ADDRESS(ad)
#define MINISYM_THRESHOLD   (1000000 / sizeof (asymbol))
#define BFCI_FREE(x)   if (x != NULL) { free (x); x = NULL; }
#define aout_link_includes_lookup(table, string, create, copy)
#define COERCE32(x)   (((bfd_signed_vma) (x) ^ 0x80000000) - 0x80000000)

Functions

static bfd_boolean MY() write_object_contents (bfd *)
static bfd_boolean aout_link_check_archive_element (bfd *, struct bfd_link_info *, bfd_boolean *)
static bfd_boolean aout_link_add_object_symbols (bfd *, struct bfd_link_info *)
static bfd_boolean aout_link_add_symbols (bfd *, struct bfd_link_info *)
static bfd_boolean aout_link_write_symbols (struct aout_final_link_info *, bfd *)
reloc_howto_type * NAME (aout, reloc_type_lookup)
reloc_howto_type * NAME (aout, reloc_name_lookup)
static int pdp11_aout_write_headers (bfd *abfd, struct internal_exec *execp)
void NAME (aout, swap_exec_header_in)
void NAME (aout, swap_exec_header_out)
bfd_boolean NAME (aout, make_sections)
const bfd_targetNAME (aout, some_aout_object_p)
bfd_boolean NAME (aout, mkobject)
enum machine_type NAME (aout, machine_type)
bfd_boolean NAME (aout, set_arch_mach)
static void adjust_o_magic (bfd *abfd, struct internal_exec *execp)
static void adjust_z_magic (bfd *abfd, struct internal_exec *execp)
static void adjust_n_magic (bfd *abfd, struct internal_exec *execp)
bfd_boolean NAME (aout, adjust_sizes_and_vmas)
bfd_boolean NAME (aout, new_section_hook)
bfd_boolean NAME (aout, set_section_contents)
static bfd_boolean aout_get_external_symbols (bfd *abfd)
static bfd_boolean translate_from_native_sym_flags (bfd *abfd, aout_symbol_type *cache_ptr)
static bfd_boolean translate_to_native_sym_flags (bfd *abfd, asymbol *cache_ptr, struct external_nlist *sym_pointer)
asymbolNAME (aout, make_empty_symbol)
bfd_boolean NAME (aout, translate_symbol_table)
bfd_boolean NAME (aout, slurp_symbol_table)
static INLINE bfd_size_type add_to_stringtab (bfd *abfd, struct bfd_strtab_hash *tab, const char *str, bfd_boolean copy)
static bfd_boolean emit_stringtab (bfd *abfd, struct bfd_strtab_hash *tab)
bfd_boolean NAME (aout, write_syms)
long NAME (aout, canonicalize_symtab)
static void pdp11_aout_swap_reloc_out (bfd *abfd, arelent *g, bfd_byte *natptr)
static void pdp11_aout_swap_reloc_in (bfd *abfd, bfd_byte *bytes, arelent *cache_ptr, bfd_size_type offset, asymbol **symbols, bfd_size_type symcount)
bfd_boolean NAME (aout, slurp_reloc_table)
bfd_boolean NAME (aout, squirt_out_relocs)
long NAME (aout, canonicalize_reloc)
long NAME (aout, get_reloc_upper_bound)
long NAME (aout, get_symtab_upper_bound)
alentNAME (aout, get_lineno)
void NAME (aout, get_symbol_info)
void NAME (aout, print_symbol)
long NAME (aout, read_minisymbols)
asymbolNAME (aout, minisymbol_to_symbol)
bfd_boolean NAME (aout, find_nearest_line)
int NAME (aout, sizeof_headers)
bfd_boolean NAME (aout, bfd_free_cached_info)
struct bfd_hash_entryNAME (aout, link_hash_newfunc)
bfd_boolean NAME (aout, link_hash_table_init)
struct bfd_link_hash_tableNAME (aout, link_hash_table_create)
static bfd_boolean aout_link_free_symbols (bfd *abfd)
bfd_boolean NAME (aout, link_add_symbols)
static bfd_boolean aout_link_check_ar_symbols (bfd *abfd, struct bfd_link_info *info, bfd_boolean *pneeded)
static struct bfd_hash_entryaout_link_includes_newfunc (struct bfd_hash_entry *entry, struct bfd_hash_table *table, const char *string)
static bfd_boolean aout_link_write_other_symbol (struct aout_link_hash_entry *h, void *data)
static bfd_boolean aout_link_reloc_link_order (struct aout_final_link_info *finfo, asection *o, struct bfd_link_order *p)
static asectionaout_reloc_type_to_section (bfd *abfd, int type)
static bfd_boolean pdp11_aout_link_input_section (struct aout_final_link_info *finfo, bfd *input_bfd, asection *input_section, bfd_byte *relocs, bfd_size_type rel_size, bfd_byte *contents)
static bfd_boolean aout_link_input_section (struct aout_final_link_info *finfo, bfd *input_bfd, asection *input_section, file_ptr *reloff_ptr, bfd_size_type rel_size)
static bfd_boolean aout_link_input_bfd (struct aout_final_link_info *finfo, bfd *input_bfd)
bfd_boolean NAME (aout, final_link)
static bfd_vma bfd_getp32 (const void *p)
static bfd_signed_vma bfd_getp_signed_32 (const void *p)
static void bfd_putp32 (bfd_vma data, void *p)
const bfd_target MY (vec)

Variables

reloc_howto_type howto_table_pdp11 []

Class Documentation

struct pdp11_external_exec

Definition at line 76 of file pdp11.c.

Class Members
bfd_byte e_bss
bfd_byte e_data
bfd_byte e_entry
bfd_byte e_flag
bfd_byte e_info
bfd_byte e_relocatable
bfd_byte e_syms
bfd_byte e_text
bfd_byte e_unused
struct pdp11_external_nlist

Definition at line 106 of file pdp11.c.

Class Members
bfd_byte e_ovly
bfd_byte e_strx
bfd_byte e_type
bfd_byte e_unused
bfd_byte e_value
struct aout_link_includes_table

Definition at line 199 of file pdp11.c.

struct aout_link_includes_totals

Definition at line 3420 of file aoutx.h.

Collaboration diagram for aout_link_includes_totals:
Class Members
struct aout_link_includes_totals * next
bfd_vma total
struct aout_link_includes_entry

Definition at line 3428 of file aoutx.h.

Collaboration diagram for aout_link_includes_entry:
Class Members
struct aout_link_includes_totals * totals
struct aout_final_link_info

Definition at line 3444 of file aoutx.h.

Collaboration diagram for aout_final_link_info:
Class Members
bfd_byte * contents
file_ptr dreloff
struct bfd_link_info * info
bfd * output_bfd
struct external_nlist * output_syms
void * relocs
struct bfd_strtab_hash * strtab
int * symbol_map
file_ptr symoff
file_ptr treloff

Define Documentation

#define A_FLAG_RELOC_STRIPPED   0x0001

Definition at line 103 of file pdp11.c.

#define A_MAGIC1   OMAGIC

Definition at line 91 of file pdp11.c.

#define A_MAGIC2   NMAGIC

Definition at line 93 of file pdp11.c.

#define A_MAGIC3   0411 /* Separated I&D. */

Definition at line 96 of file pdp11.c.

#define A_MAGIC4   0405 /* Overlay. */

Definition at line 97 of file pdp11.c.

#define A_MAGIC5   0430 /* Auto-overlay (nonseparate). */

Definition at line 98 of file pdp11.c.

#define A_MAGIC6   0431 /* Auto-overlay (separate). */

Definition at line 99 of file pdp11.c.

#define aout_link_includes_lookup (   table,
  string,
  create,
  copy 
)
Value:
((struct aout_link_includes_entry *) \
   bfd_hash_lookup (&(table)->root, (string), (create), (copy)))

Definition at line 2856 of file pdp11.c.

#define ARCH_SIZE   16

Definition at line 36 of file pdp11.c.

#define BFCI_FREE (   x)    if (x != NULL) { free (x); x = NULL; }
#define BMAGIC   0

Definition at line 101 of file pdp11.c.

#define BYTES_IN_LONG   4

Definition at line 35 of file pdp11.c.

#define BYTES_IN_WORD   2

Definition at line 34 of file pdp11.c.

#define COERCE32 (   x)    (((bfd_signed_vma) (x) ^ 0x80000000) - 0x80000000)

Definition at line 4475 of file pdp11.c.

Definition at line 42 of file pdp11.c.

#define DEFAULT_MID   M_PDP11

Definition at line 43 of file pdp11.c.

#define EXEC_BYTES_SIZE   (8 * 2)

Definition at line 89 of file pdp11.c.

Definition at line 75 of file pdp11.c.

Definition at line 105 of file pdp11.c.

#define EXTERNAL_NLIST_SIZE   8

Definition at line 115 of file pdp11.c.

#define KEEPIT   udata.i

Definition at line 143 of file pdp11.c.

#define MINISYM_THRESHOLD   (1000000 / sizeof (asymbol))

Definition at line 2128 of file pdp11.c.

#define MOVE_ADDRESS (   ad)

Definition at line 1750 of file pdp11.c.

#define MY (   OP)    CONCAT2 (pdp11_aout_,OP)

Definition at line 48 of file pdp11.c.

#define MY_BFD_TARGET

Definition at line 138 of file pdp11.c.

#define MY_entry_is_text_address   1

Definition at line 132 of file pdp11.c.

Definition at line 190 of file pdp11.c.

Definition at line 194 of file pdp11.c.

#define MY_text_includes_header   1

Definition at line 136 of file pdp11.c.

Definition at line 134 of file pdp11.c.

#define N_ABS   0x01 /* Absolute. */

Definition at line 167 of file pdp11.c.

#define N_BADMAG (   x)
Value:
(((x).a_info != OMAGIC)   \
                && ((x).a_info != NMAGIC)   \
                && ((x).a_info != A_MAGIC3) \
                && ((x).a_info != A_MAGIC4) \
                && ((x).a_info != A_MAGIC5) \
                && ((x).a_info != A_MAGIC6))

Definition at line 66 of file pdp11.c.

#define N_BSS   0x04 /* Bss segment. */

Definition at line 170 of file pdp11.c.

#define N_DATA   0x03 /* Data segment. */

Definition at line 169 of file pdp11.c.

#define N_DATOFF (   x)    (N_TXTOFF(x) + (x).a_text)

Definition at line 118 of file pdp11.c.

#define N_DRELOFF (   x)    (N_TRELOFF(x) + (x).a_trsize)

Definition at line 120 of file pdp11.c.

#define N_EXT   0x20 /* External flag. */

Definition at line 173 of file pdp11.c.

#define N_FLAGS (   exec)    0

Definition at line 63 of file pdp11.c.

#define N_FN   0x1f /* File name. */

Definition at line 172 of file pdp11.c.

#define N_HEADER_IN_TEXT (   x)    0

Definition at line 57 of file pdp11.c.

#define N_REG   0x14 /* Register symbol. */

Definition at line 171 of file pdp11.c.

#define N_SET_FLAGS (   exec,
  flags 
)    do { } while (0)

Definition at line 65 of file pdp11.c.

#define N_SHARED_LIB (   x)    0

Definition at line 60 of file pdp11.c.

#define N_STROFF (   x)    (N_SYMOFF(x) + (x).a_syms)

Definition at line 122 of file pdp11.c.

#define N_SYMOFF (   x)    (N_DRELOFF(x) + (x).a_drsize)

Definition at line 121 of file pdp11.c.

#define N_TEXT   0x02 /* Text segment. */

Definition at line 168 of file pdp11.c.

#define N_TRELOFF (   x)    (N_DATOFF(x) + (x).a_data)

Definition at line 119 of file pdp11.c.

#define N_TXTOFF (   x)    (EXEC_BYTES_SIZE)

Definition at line 117 of file pdp11.c.

#define N_TYPE   0x1f /* Type mask. */

Definition at line 165 of file pdp11.c.

#define N_UNDF   0x00 /* Undefined. */

Definition at line 166 of file pdp11.c.

#define NAME_swap_exec_header_in   NAME (aout, swap_exec_header_in)

Definition at line 413 of file pdp11.c.

#define NMAGIC   0410 /* Pure executable. */

Definition at line 94 of file pdp11.c.

#define OMAGIC   0407 /* ...object file or impure executable. */

Definition at line 92 of file pdp11.c.

#define QMAGIC   0

Definition at line 100 of file pdp11.c.

#define RABS   0x00 /* Absolute. */

Definition at line 181 of file pdp11.c.

#define RBSS   0x06 /* Bss. */

Definition at line 184 of file pdp11.c.

#define RDATA   0x04 /* Data. */

Definition at line 183 of file pdp11.c.

#define RELFLG   0x0001 /* PC-relative flag. */

Definition at line 177 of file pdp11.c.

#define RELOC_SIZE   2

Definition at line 175 of file pdp11.c.

#define REXT   0x08 /* External. */

Definition at line 185 of file pdp11.c.

#define RIDXMASK   0xfff0 /* Index mask. */

Definition at line 179 of file pdp11.c.

#define RINDEX (   x)    (((x) & 0xfff0) >> 4)

Definition at line 187 of file pdp11.c.

#define RTEXT   0x02 /* Text. */

Definition at line 182 of file pdp11.c.

#define RTYPE   0x000e /* Type mask. */

Definition at line 178 of file pdp11.c.

Definition at line 40 of file pdp11.c.

#define SWAP_MAGIC (   ext)    bfd_getl16 (ext)

Definition at line 130 of file pdp11.c.

#define TABLE_SIZE (   TABLE)    (sizeof(TABLE)/sizeof(TABLE[0]))

Definition at line 256 of file pdp11.c.

#define TARGET_PAGE_SIZE   1024

Definition at line 39 of file pdp11.c.

#define TARGETNAME   "a.out-pdp11"

Definition at line 51 of file pdp11.c.

#define TEXT_START_ADDR   0

Definition at line 54 of file pdp11.c.

#define WRITE_HEADERS (   abfd,
  execp 
)    pdp11_aout_write_headers (abfd, execp)

Definition at line 124 of file pdp11.c.

#define ZMAGIC   0413 /* Demand-paged executable. */

Definition at line 95 of file pdp11.c.


Function Documentation

static INLINE bfd_size_type add_to_stringtab ( bfd abfd,
struct bfd_strtab_hash tab,
const char *  str,
bfd_boolean  copy 
) [static]

Definition at line 1580 of file pdp11.c.

{
  bfd_boolean hash;
  bfd_size_type index;

  /* An index of 0 always means the empty string.  */
  if (str == 0 || *str == '\0')
    return 0;

  /* Don't hash if BFD_TRADITIONAL_FORMAT is set, because SunOS dbx
     doesn't understand a hashed string table.  */
  hash = TRUE;
  if ((abfd->flags & BFD_TRADITIONAL_FORMAT) != 0)
    hash = FALSE;

  index = _bfd_stringtab_add (tab, str, hash, copy);

  if (index != (bfd_size_type) -1)
    /* Add BYTES_IN_LONG to the return value to account for the
       space taken up by the string table size.  */
    index += BYTES_IN_LONG;

  return index;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void adjust_n_magic ( bfd abfd,
struct internal_exec execp 
) [static]

Definition at line 992 of file pdp11.c.

{
  file_ptr pos = adata(abfd).exec_bytes_size;
  bfd_vma vma = 0;
  int pad;

  /* Text.  */
  obj_textsec(abfd)->filepos = pos;
  if (!obj_textsec(abfd)->user_set_vma)
    obj_textsec(abfd)->vma = vma;
  else
    vma = obj_textsec(abfd)->vma;
  pos += obj_textsec(abfd)->size;
  vma += obj_textsec(abfd)->size;

  /* Data.  */
  obj_datasec(abfd)->filepos = pos;
  if (!obj_datasec(abfd)->user_set_vma)
    obj_datasec(abfd)->vma = BFD_ALIGN (vma, adata(abfd).segment_size);
  vma = obj_datasec(abfd)->vma;

  /* Since BSS follows data immediately, see if it needs alignment.  */
  vma += obj_datasec(abfd)->size;
  pad = align_power (vma, obj_bsssec(abfd)->alignment_power) - vma;
  obj_datasec(abfd)->size += pad;
  pos += obj_datasec(abfd)->size;

  /* BSS.  */
  if (!obj_bsssec(abfd)->user_set_vma)
    obj_bsssec(abfd)->vma = vma;
  else
    vma = obj_bsssec(abfd)->vma;

  /* Fix up exec header.  */
  execp->a_text = obj_textsec(abfd)->size;
  execp->a_data = obj_datasec(abfd)->size;
  execp->a_bss = obj_bsssec(abfd)->size;
  N_SET_MAGIC (*execp, NMAGIC);
}

Here is the caller graph for this function:

static void adjust_o_magic ( bfd abfd,
struct internal_exec execp 
) [static]

Definition at line 819 of file pdp11.c.

{
  file_ptr pos = adata (abfd).exec_bytes_size;
  bfd_vma vma = 0;
  int pad = 0;

  /* Text.  */
  obj_textsec (abfd)->filepos = pos;
  if (! obj_textsec (abfd)->user_set_vma)
    obj_textsec (abfd)->vma = vma;
  else
    vma = obj_textsec (abfd)->vma;

  pos += obj_textsec (abfd)->size;
  vma += obj_textsec (abfd)->size;

  /* Data.  */
  if (!obj_datasec (abfd)->user_set_vma)
    {
      obj_textsec (abfd)->size += pad;
      pos += pad;
      vma += pad;
      obj_datasec (abfd)->vma = vma;
    }
  else
    vma = obj_datasec (abfd)->vma;
  obj_datasec (abfd)->filepos = pos;
  pos += obj_datasec (abfd)->size;
  vma += obj_datasec (abfd)->size;

  /* BSS.  */
  if (! obj_bsssec (abfd)->user_set_vma)
    {
      obj_datasec (abfd)->size += pad;
      pos += pad;
      vma += pad;
      obj_bsssec (abfd)->vma = vma;
    }
  else
    {
      /* The VMA of the .bss section is set by the VMA of the
         .data section plus the size of the .data section.  We may
         need to add padding bytes to make this true.  */
      pad = obj_bsssec (abfd)->vma - vma;
      if (pad > 0)
       {
         obj_datasec (abfd)->size += pad;
         pos += pad;
       }
    }
  obj_bsssec (abfd)->filepos = pos;

  /* Fix up the exec header.  */
  execp->a_text = obj_textsec (abfd)->size;
  execp->a_data = obj_datasec (abfd)->size;
  execp->a_bss  = obj_bsssec (abfd)->size;
  N_SET_MAGIC (*execp, OMAGIC);
}

Here is the caller graph for this function:

static void adjust_z_magic ( bfd abfd,
struct internal_exec execp 
) [static]

Definition at line 879 of file pdp11.c.

{
  bfd_size_type data_pad, text_pad;
  file_ptr text_end;
  const struct aout_backend_data *abdp;
  int ztih;                 /* Nonzero if text includes exec header.  */

  abdp = aout_backend_info (abfd);

  /* Text.  */
  ztih = (abdp != NULL
         && (abdp->text_includes_header
             || obj_aout_subformat (abfd) == q_magic_format));
  obj_textsec(abfd)->filepos = (ztih
                            ? adata(abfd).exec_bytes_size
                            : adata(abfd).zmagic_disk_block_size);
  if (! obj_textsec(abfd)->user_set_vma)
    {
      /* ?? Do we really need to check for relocs here?  */
      obj_textsec(abfd)->vma = ((abfd->flags & HAS_RELOC)
                            ? 0
                            : (ztih
                               ? (abdp->default_text_vma
                                  + adata (abfd).exec_bytes_size)
                               : abdp->default_text_vma));
      text_pad = 0;
    }
  else
    {
      /* The .text section is being loaded at an unusual address.  We
         may need to pad it such that the .data section starts at a page
         boundary.  */
      if (ztih)
       text_pad = ((obj_textsec (abfd)->filepos - obj_textsec (abfd)->vma)
                  & (adata (abfd).page_size - 1));
      else
       text_pad = ((- obj_textsec (abfd)->vma)
                  & (adata (abfd).page_size - 1));
    }

  /* Find start of data.  */
  if (ztih)
    {
      text_end = obj_textsec (abfd)->filepos + obj_textsec (abfd)->size;
      text_pad += BFD_ALIGN (text_end, adata (abfd).page_size) - text_end;
    }
  else
    {
      /* Note that if page_size == zmagic_disk_block_size, then
        filepos == page_size, and this case is the same as the ztih
        case.  */
      text_end = obj_textsec (abfd)->size;
      text_pad += BFD_ALIGN (text_end, adata (abfd).page_size) - text_end;
      text_end += obj_textsec (abfd)->filepos;
    }

  obj_textsec (abfd)->size += text_pad;
  text_end += text_pad;

  /* Data.  */
  if (!obj_datasec(abfd)->user_set_vma)
    {
      bfd_vma vma;
      vma = obj_textsec(abfd)->vma + obj_textsec(abfd)->size;
      obj_datasec(abfd)->vma = BFD_ALIGN (vma, adata(abfd).segment_size);
    }
  if (abdp && abdp->zmagic_mapped_contiguous)
    {
      text_pad = (obj_datasec(abfd)->vma
                - obj_textsec(abfd)->vma
                - obj_textsec(abfd)->size);
      obj_textsec(abfd)->size += text_pad;
    }
  obj_datasec (abfd)->filepos = (obj_textsec (abfd)->filepos
                            + obj_textsec (abfd)->size);

  /* Fix up exec header while we're at it.  */
  execp->a_text = obj_textsec(abfd)->size;
  if (ztih && (!abdp || (abdp && !abdp->exec_header_not_counted)))
    execp->a_text += adata(abfd).exec_bytes_size;
  if (obj_aout_subformat (abfd) == q_magic_format)
    N_SET_MAGIC (*execp, QMAGIC);
  else
    N_SET_MAGIC (*execp, ZMAGIC);

  /* Spec says data section should be rounded up to page boundary.  */
  obj_datasec(abfd)->size
    = align_power (obj_datasec(abfd)->size,
                 obj_bsssec(abfd)->alignment_power);
  execp->a_data = BFD_ALIGN (obj_datasec(abfd)->size,
                          adata(abfd).page_size);
  data_pad = execp->a_data - obj_datasec(abfd)->size;

  /* BSS.  */
  if (!obj_bsssec(abfd)->user_set_vma)
    obj_bsssec(abfd)->vma = (obj_datasec(abfd)->vma
                          + obj_datasec(abfd)->size);
  /* If the BSS immediately follows the data section and extra space
     in the page is left after the data section, fudge data
     in the header so that the bss section looks smaller by that
     amount.  We'll start the bss section there, and lie to the OS.
     (Note that a linker script, as well as the above assignment,
     could have explicitly set the BSS vma to immediately follow
     the data section.)  */
  if (align_power (obj_bsssec(abfd)->vma, obj_bsssec(abfd)->alignment_power)
      == obj_datasec(abfd)->vma + obj_datasec(abfd)->size)
    execp->a_bss = (data_pad > obj_bsssec(abfd)->size) ? 0 :
      obj_bsssec(abfd)->size - data_pad;
  else
    execp->a_bss = obj_bsssec(abfd)->size;
}

Here is the caller graph for this function:

static bfd_boolean aout_get_external_symbols ( bfd abfd) [static]

Definition at line 1198 of file pdp11.c.

{
  if (obj_aout_external_syms (abfd) == NULL)
    {
      bfd_size_type count;
      struct external_nlist *syms;

      count = exec_hdr (abfd)->a_syms / EXTERNAL_NLIST_SIZE;

#ifdef USE_MMAP
      if (! bfd_get_file_window (abfd, obj_sym_filepos (abfd),
                             exec_hdr (abfd)->a_syms,
                             &obj_aout_sym_window (abfd), TRUE))
       return FALSE;
      syms = (struct external_nlist *) obj_aout_sym_window (abfd).data;
#else
      /* We allocate using malloc to make the values easy to free
        later on.  If we put them on the objalloc it might not be
        possible to free them.  */
      syms = bfd_malloc (count * EXTERNAL_NLIST_SIZE);
      if (syms == NULL && count != 0)
       return FALSE;

      if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0
         || (bfd_bread (syms, exec_hdr (abfd)->a_syms, abfd)
             != exec_hdr (abfd)->a_syms))
       {
         free (syms);
         return FALSE;
       }
#endif

      obj_aout_external_syms (abfd) = syms;
      obj_aout_external_sym_count (abfd) = count;
    }

  if (obj_aout_external_strings (abfd) == NULL
      && exec_hdr (abfd)->a_syms != 0)
    {
      unsigned char string_chars[BYTES_IN_LONG];
      bfd_size_type stringsize;
      char *strings;

      /* Get the size of the strings.  */
      if (bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET) != 0
         || (bfd_bread ((void *) string_chars, (bfd_size_type) BYTES_IN_LONG,
                     abfd) != BYTES_IN_LONG))
       return FALSE;
      stringsize = H_GET_32 (abfd, string_chars);

#ifdef USE_MMAP
      if (! bfd_get_file_window (abfd, obj_str_filepos (abfd), stringsize,
                             &obj_aout_string_window (abfd), TRUE))
       return FALSE;
      strings = (char *) obj_aout_string_window (abfd).data;
#else
      strings = bfd_malloc (stringsize + 1);
      if (strings == NULL)
       return FALSE;

      /* Skip space for the string count in the buffer for convenience
        when using indexes.  */
      if (bfd_bread (strings + 4, stringsize - 4, abfd) != stringsize - 4)
       {
         free (strings);
         return FALSE;
       }
#endif
      /* Ensure that a zero index yields an empty string.  */
      strings[0] = '\0';

      strings[stringsize - 1] = 0;

      obj_aout_external_strings (abfd) = strings;
      obj_aout_external_string_size (abfd) = stringsize;
    }

  return TRUE;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean aout_link_add_object_symbols ( bfd abfd,
struct bfd_link_info info 
) [static]

Definition at line 2537 of file pdp11.c.

{
  if (! aout_get_external_symbols (abfd))
    return FALSE;
  if (! aout_link_add_symbols (abfd, info))
    return FALSE;
  if (! info->keep_memory)
    {
      if (! aout_link_free_symbols (abfd))
       return FALSE;
    }
  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean aout_link_add_symbols ( bfd abfd,
struct bfd_link_info info 
) [static]

Definition at line 2720 of file pdp11.c.

{
  bfd_boolean (*add_one_symbol)
    (struct bfd_link_info *, bfd *, const char *, flagword, asection *,
     bfd_vma, const char *, bfd_boolean, bfd_boolean,
     struct bfd_link_hash_entry **);
  struct external_nlist *syms;
  bfd_size_type sym_count;
  char *strings;
  bfd_boolean copy;
  struct aout_link_hash_entry **sym_hash;
  struct external_nlist *p;
  struct external_nlist *pend;

  syms = obj_aout_external_syms (abfd);
  sym_count = obj_aout_external_sym_count (abfd);
  strings = obj_aout_external_strings (abfd);
  if (info->keep_memory)
    copy = FALSE;
  else
    copy = TRUE;

  if (aout_backend_info (abfd)->add_dynamic_symbols != NULL)
    {
      if (! ((*aout_backend_info (abfd)->add_dynamic_symbols)
            (abfd, info, &syms, &sym_count, &strings)))
       return FALSE;
    }

  /* We keep a list of the linker hash table entries that correspond
     to particular symbols.  We could just look them up in the hash
     table, but keeping the list is more efficient.  Perhaps this
     should be conditional on info->keep_memory.  */
  sym_hash = bfd_alloc (abfd,
                     sym_count * sizeof (struct aout_link_hash_entry *));
  if (sym_hash == NULL && sym_count != 0)
    return FALSE;
  obj_aout_sym_hashes (abfd) = sym_hash;

  add_one_symbol = aout_backend_info (abfd)->add_one_symbol;
  if (add_one_symbol == NULL)
    add_one_symbol = _bfd_generic_link_add_one_symbol;

  p = syms;
  pend = p + sym_count;
  for (; p < pend; p++, sym_hash++)
    {
      int type;
      const char *name;
      bfd_vma value;
      asection *section;
      flagword flags;
      const char *string;

      *sym_hash = NULL;

      type = H_GET_8 (abfd, p->e_type);

      name = strings + GET_WORD (abfd, p->e_strx);
      value = GET_WORD (abfd, p->e_value);
      flags = BSF_GLOBAL;
      string = NULL;
      switch (type)
       {
       default:
         abort ();

       case N_UNDF:
       case N_ABS:
       case N_TEXT:
       case N_DATA:
       case N_BSS:
       case N_REG:
       case N_FN:
         /* Ignore symbols that are not externally visible.  */
         continue;

       case N_UNDF | N_EXT:
         if (value == 0)
           {
             section = bfd_und_section_ptr;
             flags = 0;
           }
         else
           section = bfd_com_section_ptr;
         break;
       case N_ABS | N_EXT:
         section = bfd_abs_section_ptr;
         break;
       case N_TEXT | N_EXT:
         section = obj_textsec (abfd);
         value -= bfd_get_section_vma (abfd, section);
         break;
       case N_DATA | N_EXT:
         /* Treat N_SETV symbols as N_DATA symbol; see comment in
            translate_from_native_sym_flags.  */
         section = obj_datasec (abfd);
         value -= bfd_get_section_vma (abfd, section);
         break;
       case N_BSS | N_EXT:
         section = obj_bsssec (abfd);
         value -= bfd_get_section_vma (abfd, section);
         break;
       }

      if (! ((*add_one_symbol)
            (info, abfd, name, flags, section, value, string, copy, FALSE,
             (struct bfd_link_hash_entry **) sym_hash)))
       return FALSE;

      /* Restrict the maximum alignment of a common symbol based on
        the architecture, since a.out has no way to represent
        alignment requirements of a section in a .o file.  FIXME:
        This isn't quite right: it should use the architecture of the
        output file, not the input files.  */
      if ((*sym_hash)->root.type == bfd_link_hash_common
         && ((*sym_hash)->root.u.c.p->alignment_power >
             bfd_get_arch_info (abfd)->section_align_power))
       (*sym_hash)->root.u.c.p->alignment_power =
         bfd_get_arch_info (abfd)->section_align_power;

      /* If this is a set symbol, and we are not building sets, then
        it is possible for the hash entry to not have been set.  In
        such a case, treat the symbol as not globally defined.  */
      if ((*sym_hash)->root.type == bfd_link_hash_new)
       {
         BFD_ASSERT ((flags & BSF_CONSTRUCTOR) != 0);
         *sym_hash = NULL;
       }
    }

  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean aout_link_check_ar_symbols ( bfd abfd,
struct bfd_link_info info,
bfd_boolean pneeded 
) [static]

Definition at line 2559 of file pdp11.c.

{
  struct external_nlist *p;
  struct external_nlist *pend;
  char *strings;

  *pneeded = FALSE;

  /* Look through all the symbols.  */
  p = obj_aout_external_syms (abfd);
  pend = p + obj_aout_external_sym_count (abfd);
  strings = obj_aout_external_strings (abfd);
  for (; p < pend; p++)
    {
      int type = H_GET_8 (abfd, p->e_type);
      const char *name;
      struct bfd_link_hash_entry *h;

      /* Ignore symbols that are not externally visible.  This is an
        optimization only, as we check the type more thoroughly
        below.  */
      if ((type & N_EXT) == 0
         || type == N_FN)
       continue;

      name = strings + GET_WORD (abfd, p->e_strx);
      h = bfd_link_hash_lookup (info->hash, name, FALSE, FALSE, TRUE);

      /* We are only interested in symbols that are currently
        undefined or common.  */
      if (h == NULL
         || (h->type != bfd_link_hash_undefined
             && h->type != bfd_link_hash_common))
       continue;

      if (type == (N_TEXT | N_EXT)
         || type == (N_DATA | N_EXT)
         || type == (N_BSS | N_EXT)
         || type == (N_ABS | N_EXT))
       {
         /* This object file defines this symbol.  We must link it
            in.  This is true regardless of whether the current
            definition of the symbol is undefined or common.  If the
            current definition is common, we have a case in which we
            have already seen an object file including
                int a;
            and this object file from the archive includes
                int a = 5;
            In such a case we must include this object file.

            FIXME: The SunOS 4.1.3 linker will pull in the archive
            element if the symbol is defined in the .data section,
            but not if it is defined in the .text section.  That
            seems a bit crazy to me, and I haven't implemented it.
            However, it might be correct.  */
         if (! (*info->callbacks->add_archive_element) (info, abfd, name))
           return FALSE;
         *pneeded = TRUE;
         return TRUE;
       }

      if (type == (N_UNDF | N_EXT))
       {
         bfd_vma value;

         value = GET_WORD (abfd, p->e_value);
         if (value != 0)
           {
             /* This symbol is common in the object from the archive
               file.  */
             if (h->type == bfd_link_hash_undefined)
              {
                bfd *symbfd;
                unsigned int power;

                symbfd = h->u.undef.abfd;
                if (symbfd == NULL)
                  {
                    /* This symbol was created as undefined from
                      outside BFD.  We assume that we should link
                      in the object file.  This is done for the -u
                      option in the linker.  */
                    if (! (*info->callbacks->add_archive_element)
                       (info, abfd, name))
                     return FALSE;
                    *pneeded = TRUE;
                    return TRUE;
                  }
                /* Turn the current link symbol into a common
                   symbol.  It is already on the undefs list.  */
                h->type = bfd_link_hash_common;
                h->u.c.p = bfd_hash_allocate (&info->hash->table,
                                          sizeof (struct bfd_link_hash_common_entry));
                if (h->u.c.p == NULL)
                  return FALSE;

                h->u.c.size = value;

                /* FIXME: This isn't quite right.  The maximum
                   alignment of a common symbol should be set by the
                   architecture of the output file, not of the input
                   file.  */
                power = bfd_log2 (value);
                if (power > bfd_get_arch_info (abfd)->section_align_power)
                  power = bfd_get_arch_info (abfd)->section_align_power;
                h->u.c.p->alignment_power = power;

                h->u.c.p->section = bfd_make_section_old_way (symbfd,
                                                        "COMMON");
              }
             else
              {
                /* Adjust the size of the common symbol if
                   necessary.  */
                if (value > h->u.c.size)
                  h->u.c.size = value;
              }
           }
       }
    }

  /* We do not need this object file.  */
  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean aout_link_check_archive_element ( bfd abfd,
struct bfd_link_info info,
bfd_boolean pneeded 
) [static]

Definition at line 2692 of file pdp11.c.

{
  if (! aout_get_external_symbols (abfd))
    return FALSE;

  if (! aout_link_check_ar_symbols (abfd, info, pneeded))
    return FALSE;

  if (*pneeded)
    {
      if (! aout_link_add_symbols (abfd, info))
       return FALSE;
    }

  if (! info->keep_memory || ! *pneeded)
    {
      if (! aout_link_free_symbols (abfd))
       return FALSE;
    }

  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean aout_link_free_symbols ( bfd abfd) [static]

Definition at line 2491 of file pdp11.c.

{
  if (obj_aout_external_syms (abfd) != NULL)
    {
#ifdef USE_MMAP
      bfd_free_window (&obj_aout_sym_window (abfd));
#else
      free ((void *) obj_aout_external_syms (abfd));
#endif
      obj_aout_external_syms (abfd) = NULL;
    }

  if (obj_aout_external_strings (abfd) != NULL)
    {
#ifdef USE_MMAP
      bfd_free_window (&obj_aout_string_window (abfd));
#else
      free ((void *) obj_aout_external_strings (abfd));
#endif
      obj_aout_external_strings (abfd) = NULL;
    }
  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static struct bfd_hash_entry* aout_link_includes_newfunc ( struct bfd_hash_entry entry,
struct bfd_hash_table table,
const char *  string 
) [static, read]

Definition at line 2863 of file pdp11.c.

{
  struct aout_link_includes_entry * ret =
    (struct aout_link_includes_entry *) entry;

  /* Allocate the structure if it has not already been allocated by a
     subclass.  */
  if (ret == NULL)
    ret = bfd_hash_allocate (table,
                          sizeof (struct aout_link_includes_entry));
  if (ret == NULL)
    return NULL;

  /* Call the allocation method of the superclass.  */
  ret = ((struct aout_link_includes_entry *)
        bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string));
  if (ret)
    /* Set local fields.  */
    ret->totals = NULL;

  return (struct bfd_hash_entry *) ret;

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean aout_link_input_bfd ( struct aout_final_link_info finfo,
bfd input_bfd 
) [static]

Definition at line 3582 of file pdp11.c.

{
  bfd_size_type sym_count;

  BFD_ASSERT (bfd_get_format (input_bfd) == bfd_object);

  /* If this is a dynamic object, it may need special handling.  */
  if ((input_bfd->flags & DYNAMIC) != 0
      && aout_backend_info (input_bfd)->link_dynamic_object != NULL)
    return ((*aout_backend_info (input_bfd)->link_dynamic_object)
           (finfo->info, input_bfd));

  /* Get the symbols.  We probably have them already, unless
     finfo->info->keep_memory is FALSE.  */
  if (! aout_get_external_symbols (input_bfd))
    return FALSE;

  sym_count = obj_aout_external_sym_count (input_bfd);

  /* Write out the symbols and get a map of the new indices.  The map
     is placed into finfo->symbol_map.  */
  if (! aout_link_write_symbols (finfo, input_bfd))
    return FALSE;

  /* Relocate and write out the sections.  These functions use the
     symbol map created by aout_link_write_symbols.  The linker_mark
     field will be set if these sections are to be included in the
     link, which will normally be the case.  */
  if (obj_textsec (input_bfd)->linker_mark)
    {
      if (! aout_link_input_section (finfo, input_bfd,
                                 obj_textsec (input_bfd),
                                 &finfo->treloff,
                                 exec_hdr (input_bfd)->a_trsize))
       return FALSE;
    }
  if (obj_datasec (input_bfd)->linker_mark)
    {
      if (! aout_link_input_section (finfo, input_bfd,
                                 obj_datasec (input_bfd),
                                 &finfo->dreloff,
                                 exec_hdr (input_bfd)->a_drsize))
       return FALSE;
    }

  /* If we are not keeping memory, we don't need the symbols any
     longer.  We still need them if we are keeping memory, because the
     strings in the hash table point into them.  */
  if (! finfo->info->keep_memory)
    {
      if (! aout_link_free_symbols (input_bfd))
       return FALSE;
    }

  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean aout_link_input_section ( struct aout_final_link_info finfo,
bfd input_bfd,
asection input_section,
file_ptr reloff_ptr,
bfd_size_type  rel_size 
) [static]

Definition at line 3512 of file pdp11.c.

{
  bfd_size_type input_size;
  void * relocs;

  /* Get the section contents.  */
  input_size = input_section->size;
  if (! bfd_get_section_contents (input_bfd, input_section,
                              (void *) finfo->contents,
                              (file_ptr) 0, input_size))
    return FALSE;

  /* Read in the relocs if we haven't already done it.  */
  if (aout_section_data (input_section) != NULL
      && aout_section_data (input_section)->relocs != NULL)
    relocs = aout_section_data (input_section)->relocs;
  else
    {
      relocs = finfo->relocs;
      if (rel_size > 0)
       {
         if (bfd_seek (input_bfd, input_section->rel_filepos, SEEK_SET) != 0
             || bfd_bread (relocs, rel_size, input_bfd) != rel_size)
           return FALSE;
       }
    }

  /* Relocate the section contents.  */
  if (! pdp11_aout_link_input_section (finfo, input_bfd, input_section,
                                   (bfd_byte *) relocs,
                                   rel_size, finfo->contents))
    return FALSE;

  /* Write out the section contents.  */
  if (! bfd_set_section_contents (finfo->output_bfd,
                              input_section->output_section,
                              (void *) finfo->contents,
                              (file_ptr) input_section->output_offset,
                              input_size))
    return FALSE;

  /* If we are producing relocatable output, the relocs were
     modified, and we now write them out.  */
  if (finfo->info->relocatable && rel_size > 0)
    {
      if (bfd_seek (finfo->output_bfd, *reloff_ptr, SEEK_SET) != 0)
       return FALSE;
      if (bfd_bwrite (relocs, rel_size, finfo->output_bfd) != rel_size)
       return FALSE;
      *reloff_ptr += rel_size;

      /* Assert that the relocs have not run into the symbols, and
        that if these are the text relocs they have not run into the
        data relocs.  */
      BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (finfo->output_bfd)
                && (reloff_ptr != &finfo->treloff
                    || (*reloff_ptr
                       <= obj_datasec (finfo->output_bfd)->rel_filepos)));
    }

  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 3007 of file pdp11.c.

{
  struct bfd_link_order_reloc *pr;
  int r_index;
  int r_extern;
  reloc_howto_type *howto;
  file_ptr *reloff_ptr;
  struct reloc_std_external srel;
  void * rel_ptr;
  bfd_size_type rel_size;

  pr = p->u.reloc.p;

  if (p->type == bfd_section_reloc_link_order)
    {
      r_extern = 0;
      if (bfd_is_abs_section (pr->u.section))
       r_index = N_ABS | N_EXT;
      else
       {
         BFD_ASSERT (pr->u.section->owner == finfo->output_bfd);
         r_index = pr->u.section->target_index;
       }
    }
  else
    {
      struct aout_link_hash_entry *h;

      BFD_ASSERT (p->type == bfd_symbol_reloc_link_order);
      r_extern = 1;
      h = ((struct aout_link_hash_entry *)
          bfd_wrapped_link_hash_lookup (finfo->output_bfd, finfo->info,
                                    pr->u.name, FALSE, FALSE, TRUE));
      if (h != NULL
         && h->indx >= 0)
       r_index = h->indx;
      else if (h != NULL)
       {
         /* We decided to strip this symbol, but it turns out that we
            can't.  Note that we lose the other and desc information
            here.  I don't think that will ever matter for a global
            symbol.  */
         h->indx = -2;
         h->written = FALSE;
         if (! aout_link_write_other_symbol (h, (void *) finfo))
           return FALSE;
         r_index = h->indx;
       }
      else
       {
         if (! ((*finfo->info->callbacks->unattached_reloc)
               (finfo->info, pr->u.name, NULL, NULL, (bfd_vma) 0)))
           return FALSE;
         r_index = 0;
       }
    }

  howto = bfd_reloc_type_lookup (finfo->output_bfd, pr->reloc);
  if (howto == 0)
    {
      bfd_set_error (bfd_error_bad_value);
      return FALSE;
    }

  if (o == obj_textsec (finfo->output_bfd))
    reloff_ptr = &finfo->treloff;
  else if (o == obj_datasec (finfo->output_bfd))
    reloff_ptr = &finfo->dreloff;
  else
    abort ();

#ifdef MY_put_reloc
  MY_put_reloc(finfo->output_bfd, r_extern, r_index, p->offset, howto,
              &srel);
#else
  {
    int r_pcrel;
    int r_baserel;
    int r_jmptable;
    int r_relative;
    int r_length;

    fprintf (stderr, "TODO: line %d in bfd/pdp11.c\n", __LINE__);

    r_pcrel = howto->pc_relative;
    r_baserel = (howto->type & 8) != 0;
    r_jmptable = (howto->type & 16) != 0;
    r_relative = (howto->type & 32) != 0;
    r_length = howto->size;

    PUT_WORD (finfo->output_bfd, p->offset, srel.r_address);
    if (bfd_header_big_endian (finfo->output_bfd))
      {
       srel.r_index[0] = r_index >> 16;
       srel.r_index[1] = r_index >> 8;
       srel.r_index[2] = r_index;
       srel.r_type[0] =
         ((r_extern ?     RELOC_STD_BITS_EXTERN_BIG : 0)
          | (r_pcrel ?    RELOC_STD_BITS_PCREL_BIG : 0)
          | (r_baserel ?  RELOC_STD_BITS_BASEREL_BIG : 0)
          | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_BIG : 0)
          | (r_relative ? RELOC_STD_BITS_RELATIVE_BIG : 0)
          | (r_length <<  RELOC_STD_BITS_LENGTH_SH_BIG));
      }
    else
      {
       srel.r_index[2] = r_index >> 16;
       srel.r_index[1] = r_index >> 8;
       srel.r_index[0] = r_index;
       srel.r_type[0] =
         ((r_extern ?     RELOC_STD_BITS_EXTERN_LITTLE : 0)
          | (r_pcrel ?    RELOC_STD_BITS_PCREL_LITTLE : 0)
          | (r_baserel ?  RELOC_STD_BITS_BASEREL_LITTLE : 0)
          | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_LITTLE : 0)
          | (r_relative ? RELOC_STD_BITS_RELATIVE_LITTLE : 0)
          | (r_length <<  RELOC_STD_BITS_LENGTH_SH_LITTLE));
      }
  }
#endif
  rel_ptr = (void *) &srel;

  /* We have to write the addend into the object file, since
     standard a.out relocs are in place.  It would be more
     reliable if we had the current contents of the file here,
     rather than assuming zeroes, but we can't read the file since
     it was opened using bfd_openw.  */
  if (pr->addend != 0)
    {
      bfd_size_type size;
      bfd_reloc_status_type r;
      bfd_byte *buf;
      bfd_boolean ok;

      size = bfd_get_reloc_size (howto);
      buf = bfd_zmalloc (size);
      if (buf == NULL)
       return FALSE;
      r = MY_relocate_contents (howto, finfo->output_bfd,
                            pr->addend, buf);
      switch (r)
       {
       case bfd_reloc_ok:
         break;
       default:
       case bfd_reloc_outofrange:
         abort ();
       case bfd_reloc_overflow:
         if (! ((*finfo->info->callbacks->reloc_overflow)
               (finfo->info, NULL,
                (p->type == bfd_section_reloc_link_order
                 ? bfd_section_name (finfo->output_bfd,
                                   pr->u.section)
                 : pr->u.name),
                howto->name, pr->addend, NULL,
                (asection *) NULL, (bfd_vma) 0)))
           {
             free (buf);
             return FALSE;
           }
         break;
       }
      ok = bfd_set_section_contents (finfo->output_bfd, o,
                                 (void *) buf,
                                 (file_ptr) p->offset,
                                 size);
      free (buf);
      if (! ok)
       return FALSE;
    }

  rel_size = obj_reloc_entry_size (finfo->output_bfd);
  if (bfd_seek (finfo->output_bfd, *reloff_ptr, SEEK_SET) != 0
      || bfd_bwrite (rel_ptr, rel_size, finfo->output_bfd) != rel_size)
    return FALSE;

  *reloff_ptr += rel_size;

  /* Assert that the relocs have not run into the symbols, and that n
     the text relocs have not run into the data relocs.  */
  BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (finfo->output_bfd)
             && (reloff_ptr != &finfo->treloff
                || (*reloff_ptr
                    <= obj_datasec (finfo->output_bfd)->rel_filepos)));

  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean aout_link_write_other_symbol ( struct aout_link_hash_entry h,
void *  data 
) [static]

Definition at line 2889 of file pdp11.c.

{
  struct aout_final_link_info *finfo = (struct aout_final_link_info *) data;
  bfd *output_bfd;
  int type;
  bfd_vma val;
  struct external_nlist outsym;
  bfd_size_type indx;
  bfd_size_type amt;

  if (h->root.type == bfd_link_hash_warning)
    {
      h = (struct aout_link_hash_entry *) h->root.u.i.link;
      if (h->root.type == bfd_link_hash_new)
       return TRUE;
    }

  output_bfd = finfo->output_bfd;

  if (aout_backend_info (output_bfd)->write_dynamic_symbol != NULL)
    {
      if (! ((*aout_backend_info (output_bfd)->write_dynamic_symbol)
            (output_bfd, finfo->info, h)))
       {
         /* FIXME: No way to handle errors.  */
         abort ();
       }
    }

  if (h->written)
    return TRUE;

  h->written = TRUE;

  /* An indx of -2 means the symbol must be written.  */
  if (h->indx != -2
      && (finfo->info->strip == strip_all
         || (finfo->info->strip == strip_some
             && bfd_hash_lookup (finfo->info->keep_hash, h->root.root.string,
                              FALSE, FALSE) == NULL)))
    return TRUE;

  switch (h->root.type)
    {
    default:
      abort ();
      /* Avoid variable not initialized warnings.  */
      return TRUE;
    case bfd_link_hash_new:
      /* This can happen for set symbols when sets are not being
         built.  */
      return TRUE;
    case bfd_link_hash_undefined:
      type = N_UNDF | N_EXT;
      val = 0;
      break;
    case bfd_link_hash_defined:
    case bfd_link_hash_defweak:
      {
       asection *sec;

       sec = h->root.u.def.section->output_section;
       BFD_ASSERT (bfd_is_abs_section (sec)
                  || sec->owner == output_bfd);
       if (sec == obj_textsec (output_bfd))
         type = h->root.type == bfd_link_hash_defined ? N_TEXT : N_WEAKT;
       else if (sec == obj_datasec (output_bfd))
         type = h->root.type == bfd_link_hash_defined ? N_DATA : N_WEAKD;
       else if (sec == obj_bsssec (output_bfd))
         type = h->root.type == bfd_link_hash_defined ? N_BSS : N_WEAKB;
       else
         type = h->root.type == bfd_link_hash_defined ? N_ABS : N_WEAKA;
       type |= N_EXT;
       val = (h->root.u.def.value
              + sec->vma
              + h->root.u.def.section->output_offset);
      }
      break;
    case bfd_link_hash_common:
      type = N_UNDF | N_EXT;
      val = h->root.u.c.size;
      break;
    case bfd_link_hash_undefweak:
      type = N_WEAKU;
      val = 0;
    case bfd_link_hash_indirect:
    case bfd_link_hash_warning:
      /* FIXME: Ignore these for now.  The circumstances under which
        they should be written out are not clear to me.  */
      return TRUE;
    }

  H_PUT_8 (output_bfd, type, outsym.e_type);
  indx = add_to_stringtab (output_bfd, finfo->strtab, h->root.root.string,
                        FALSE);
  if (indx == (bfd_size_type) -1)
    /* FIXME: No way to handle errors.  */
    abort ();

  PUT_WORD (output_bfd, indx, outsym.e_strx);
  PUT_WORD (output_bfd, val, outsym.e_value);

  amt = EXTERNAL_NLIST_SIZE;
  if (bfd_seek (output_bfd, finfo->symoff, SEEK_SET) != 0
      || bfd_bwrite ((void *) &outsym, amt, output_bfd) != amt)
    /* FIXME: No way to handle errors.  */
    abort ();

  finfo->symoff += amt;
  h->indx = obj_aout_external_sym_count (output_bfd);
  ++obj_aout_external_sym_count (output_bfd);

  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean aout_link_write_symbols ( struct aout_final_link_info finfo,
bfd input_bfd 
) [static]

Definition at line 3984 of file pdp11.c.

{
  bfd *output_bfd;
  bfd_size_type sym_count;
  char *strings;
  enum bfd_link_strip strip;
  enum bfd_link_discard discard;
  struct external_nlist *outsym;
  bfd_size_type strtab_index;
  struct external_nlist *sym;
  struct external_nlist *sym_end;
  struct aout_link_hash_entry **sym_hash;
  int *symbol_map;
  bfd_boolean pass;
  bfd_boolean skip_next;

  output_bfd = finfo->output_bfd;
  sym_count = obj_aout_external_sym_count (input_bfd);
  strings = obj_aout_external_strings (input_bfd);
  strip = finfo->info->strip;
  discard = finfo->info->discard;
  outsym = finfo->output_syms;

  /* First write out a symbol for this object file, unless we are
     discarding such symbols.  */
  if (strip != strip_all
      && (strip != strip_some
         || bfd_hash_lookup (finfo->info->keep_hash, input_bfd->filename,
                           FALSE, FALSE) != NULL)
      && discard != discard_all)
    {
      H_PUT_8 (output_bfd, N_TEXT, outsym->e_type);
      strtab_index = add_to_stringtab (output_bfd, finfo->strtab,
                                   input_bfd->filename, FALSE);
      if (strtab_index == (bfd_size_type) -1)
       return FALSE;
      PUT_WORD (output_bfd, strtab_index, outsym->e_strx);
      PUT_WORD (output_bfd,
              (bfd_get_section_vma (output_bfd,
                                  obj_textsec (input_bfd)->output_section)
               + obj_textsec (input_bfd)->output_offset),
              outsym->e_value);
      ++obj_aout_external_sym_count (output_bfd);
      ++outsym;
    }

  pass = FALSE;
  skip_next = FALSE;
  sym = obj_aout_external_syms (input_bfd);
  sym_end = sym + sym_count;
  sym_hash = obj_aout_sym_hashes (input_bfd);
  symbol_map = finfo->symbol_map;
  memset (symbol_map, 0, (size_t) sym_count * sizeof *symbol_map);
  for (; sym < sym_end; sym++, sym_hash++, symbol_map++)
    {
      const char *name;
      int type;
      struct aout_link_hash_entry *h;
      bfd_boolean skip;
      asection *symsec;
      bfd_vma val = 0;
      bfd_boolean copy;

      /* We set *symbol_map to 0 above for all symbols.  If it has
         already been set to -1 for this symbol, it means that we are
         discarding it because it appears in a duplicate header file.
         See the N_BINCL code below.  */
      if (*symbol_map == -1)
       continue;

      /* Initialize *symbol_map to -1, which means that the symbol was
         not copied into the output file.  We will change it later if
         we do copy the symbol over.  */
      *symbol_map = -1;

      type = H_GET_8 (input_bfd, sym->e_type);
      name = strings + GET_WORD (input_bfd, sym->e_strx);

      h = NULL;

      if (pass)
       {
         /* Pass this symbol through.  It is the target of an
            indirect or warning symbol.  */
         val = GET_WORD (input_bfd, sym->e_value);
         pass = FALSE;
       }
      else if (skip_next)
       {
         /* Skip this symbol, which is the target of an indirect
            symbol that we have changed to no longer be an indirect
            symbol.  */
         skip_next = FALSE;
         continue;
       }
      else
       {
         struct aout_link_hash_entry *hresolve;

         /* We have saved the hash table entry for this symbol, if
            there is one.  Note that we could just look it up again
            in the hash table, provided we first check that it is an
            external symbol. */
         h = *sym_hash;

         /* Use the name from the hash table, in case the symbol was
             wrapped.  */
         if (h != NULL)
           name = h->root.root.string;

         /* If this is an indirect or warning symbol, then change
            hresolve to the base symbol.  We also change *sym_hash so
            that the relocation routines relocate against the real
            symbol.  */
         hresolve = h;
         if (h != NULL
             && (h->root.type == bfd_link_hash_indirect
                || h->root.type == bfd_link_hash_warning))
           {
             hresolve = (struct aout_link_hash_entry *) h->root.u.i.link;
             while (hresolve->root.type == bfd_link_hash_indirect
                   || hresolve->root.type == bfd_link_hash_warning)
              hresolve = ((struct aout_link_hash_entry *)
                         hresolve->root.u.i.link);
             *sym_hash = hresolve;
           }

         /* If the symbol has already been written out, skip it.  */
         if (h != NULL
             && h->root.type != bfd_link_hash_warning
             && h->written)
           {
             if ((type & N_TYPE) == N_INDR
                || type == N_WARNING)
              skip_next = TRUE;
             *symbol_map = h->indx;
             continue;
           }

         /* See if we are stripping this symbol.  */
         skip = FALSE;
         switch (strip)
           {
           case strip_none:
             break;
           case strip_debugger:
             if ((type & N_STAB) != 0)
              skip = TRUE;
             break;
           case strip_some:
             if (bfd_hash_lookup (finfo->info->keep_hash, name, FALSE, FALSE)
                == NULL)
              skip = TRUE;
             break;
           case strip_all:
             skip = TRUE;
             break;
           }
         if (skip)
           {
             if (h != NULL)
              h->written = TRUE;
             continue;
           }

         /* Get the value of the symbol.  */
         if ((type & N_TYPE) == N_TEXT
             || type == N_WEAKT)
           symsec = obj_textsec (input_bfd);
         else if ((type & N_TYPE) == N_DATA
                 || type == N_WEAKD)
           symsec = obj_datasec (input_bfd);
         else if ((type & N_TYPE) == N_BSS
                 || type == N_WEAKB)
           symsec = obj_bsssec (input_bfd);
         else if ((type & N_TYPE) == N_ABS
                 || type == N_WEAKA)
           symsec = bfd_abs_section_ptr;
         else if (((type & N_TYPE) == N_INDR
                  && (hresolve == NULL
                     || (hresolve->root.type != bfd_link_hash_defined
                         && hresolve->root.type != bfd_link_hash_defweak
                         && hresolve->root.type != bfd_link_hash_common)))
                 || type == N_WARNING)
           {
             /* Pass the next symbol through unchanged.  The
               condition above for indirect symbols is so that if
               the indirect symbol was defined, we output it with
               the correct definition so the debugger will
               understand it.  */
             pass = TRUE;
             val = GET_WORD (input_bfd, sym->e_value);
             symsec = NULL;
           }
         else if ((type & N_STAB) != 0)
           {
             val = GET_WORD (input_bfd, sym->e_value);
             symsec = NULL;
           }
         else
           {
             /* If we get here with an indirect symbol, it means that
               we are outputting it with a real definition.  In such
               a case we do not want to output the next symbol,
               which is the target of the indirection.  */
             if ((type & N_TYPE) == N_INDR)
              skip_next = TRUE;

             symsec = NULL;

             /* We need to get the value from the hash table.  We use
               hresolve so that if we have defined an indirect
               symbol we output the final definition.  */
             if (h == NULL)
              {
                switch (type & N_TYPE)
                  {
                  case N_SETT:
                    symsec = obj_textsec (input_bfd);
                    break;
                  case N_SETD:
                    symsec = obj_datasec (input_bfd);
                    break;
                  case N_SETB:
                    symsec = obj_bsssec (input_bfd);
                    break;
                  case N_SETA:
                    symsec = bfd_abs_section_ptr;
                    break;
                  default:
                    val = 0;
                    break;
                  }
              }
             else if (hresolve->root.type == bfd_link_hash_defined
                     || hresolve->root.type == bfd_link_hash_defweak)
              {
                asection *input_section;
                asection *output_section;

                /* This case usually means a common symbol which was
                   turned into a defined symbol.  */
                input_section = hresolve->root.u.def.section;
                output_section = input_section->output_section;
                BFD_ASSERT (bfd_is_abs_section (output_section)
                           || output_section->owner == output_bfd);
                val = (hresolve->root.u.def.value
                      + bfd_get_section_vma (output_bfd, output_section)
                      + input_section->output_offset);

                /* Get the correct type based on the section.  If
                   this is a constructed set, force it to be
                   globally visible.  */
                if (type == N_SETT
                    || type == N_SETD
                    || type == N_SETB
                    || type == N_SETA)
                  type |= N_EXT;

                type &=~ N_TYPE;

                if (output_section == obj_textsec (output_bfd))
                  type |= (hresolve->root.type == bfd_link_hash_defined
                          ? N_TEXT
                          : N_WEAKT);
                else if (output_section == obj_datasec (output_bfd))
                  type |= (hresolve->root.type == bfd_link_hash_defined
                          ? N_DATA
                          : N_WEAKD);
                else if (output_section == obj_bsssec (output_bfd))
                  type |= (hresolve->root.type == bfd_link_hash_defined
                          ? N_BSS
                          : N_WEAKB);
                else
                  type |= (hresolve->root.type == bfd_link_hash_defined
                          ? N_ABS
                          : N_WEAKA);
              }
             else if (hresolve->root.type == bfd_link_hash_common)
              val = hresolve->root.u.c.size;
             else if (hresolve->root.type == bfd_link_hash_undefweak)
              {
                val = 0;
                type = N_WEAKU;
              }
             else
              val = 0;
           }
         if (symsec != NULL)
           val = (symsec->output_section->vma
                 + symsec->output_offset
                 + (GET_WORD (input_bfd, sym->e_value)
                    - symsec->vma));

         /* If this is a global symbol set the written flag, and if
            it is a local symbol see if we should discard it.  */
         if (h != NULL)
           {
             h->written = TRUE;
             h->indx = obj_aout_external_sym_count (output_bfd);
           }
         else if ((type & N_TYPE) != N_SETT
                 && (type & N_TYPE) != N_SETD
                 && (type & N_TYPE) != N_SETB
                 && (type & N_TYPE) != N_SETA)
           {
             switch (discard)
              {
              case discard_none:
              case discard_sec_merge:
                break;
              case discard_l:
                if ((type & N_STAB) == 0
                    && bfd_is_local_label_name (input_bfd, name))
                  skip = TRUE;
                break;
              case discard_all:
                skip = TRUE;
                break;
              }
             if (skip)
              {
                pass = FALSE;
                continue;
              }
           }

         /* An N_BINCL symbol indicates the start of the stabs
            entries for a header file.  We need to scan ahead to the
            next N_EINCL symbol, ignoring nesting, adding up all the
            characters in the symbol names, not including the file
            numbers in types (the first number after an open
            parenthesis).  */
         if (type == N_BINCL)
           {
             struct external_nlist *incl_sym;
             int nest;
             struct aout_link_includes_entry *incl_entry;
             struct aout_link_includes_totals *t;

             val = 0;
             nest = 0;
             for (incl_sym = sym + 1; incl_sym < sym_end; incl_sym++)
              {
                int incl_type;

                incl_type = H_GET_8 (input_bfd, incl_sym->e_type);
                if (incl_type == N_EINCL)
                  {
                    if (nest == 0)
                     break;
                    --nest;
                  }
                else if (incl_type == N_BINCL)
                  ++nest;
                else if (nest == 0)
                  {
                    const char *s;

                    s = strings + GET_WORD (input_bfd, incl_sym->e_strx);
                    for (; *s != '\0'; s++)
                     {
                       val += *s;
                       if (*s == '(')
                         {
                           /* Skip the file number.  */
                           ++s;
                           while (ISDIGIT (*s))
                            ++s;
                           --s;
                         }
                     }
                  }
              }

             /* If we have already included a header file with the
                 same value, then replace this one with an N_EXCL
                 symbol.  */
             copy = ! finfo->info->keep_memory;
             incl_entry = aout_link_includes_lookup (&finfo->includes,
                                                name, TRUE, copy);
             if (incl_entry == NULL)
              return FALSE;
             for (t = incl_entry->totals; t != NULL; t = t->next)
              if (t->total == val)
                break;
             if (t == NULL)
              {
                /* This is the first time we have seen this header
                     file with this set of stabs strings.  */
                t = bfd_hash_allocate (&finfo->includes.root,
                                    sizeof *t);
                if (t == NULL)
                  return FALSE;
                t->total = val;
                t->next = incl_entry->totals;
                incl_entry->totals = t;
              }
             else
              {
                int *incl_map;

                /* This is a duplicate header file.  We must change
                     it to be an N_EXCL entry, and mark all the
                     included symbols to prevent outputting them.  */
                type = N_EXCL;

                nest = 0;
                for (incl_sym = sym + 1, incl_map = symbol_map + 1;
                     incl_sym < sym_end;
                     incl_sym++, incl_map++)
                  {
                    int incl_type;

                    incl_type = H_GET_8 (input_bfd, incl_sym->e_type);
                    if (incl_type == N_EINCL)
                     {
                       if (nest == 0)
                         {
                           *incl_map = -1;
                           break;
                         }
                       --nest;
                     }
                    else if (incl_type == N_BINCL)
                     ++nest;
                    else if (nest == 0)
                     *incl_map = -1;
                  }
              }
           }
       }

      /* Copy this symbol into the list of symbols we are going to
        write out.  */
      H_PUT_8 (output_bfd, type, outsym->e_type);
      copy = FALSE;
      if (! finfo->info->keep_memory)
       {
         /* name points into a string table which we are going to
            free.  If there is a hash table entry, use that string.
            Otherwise, copy name into memory.  */
         if (h != NULL)
           name = h->root.root.string;
         else
           copy = TRUE;
       }
      strtab_index = add_to_stringtab (output_bfd, finfo->strtab,
                                   name, copy);
      if (strtab_index == (bfd_size_type) -1)
       return FALSE;
      PUT_WORD (output_bfd, strtab_index, outsym->e_strx);
      PUT_WORD (output_bfd, val, outsym->e_value);
      *symbol_map = obj_aout_external_sym_count (output_bfd);
      ++obj_aout_external_sym_count (output_bfd);
      ++outsym;
    }

  /* Write out the output symbols we have just constructed.  */
  if (outsym > finfo->output_syms)
    {
      bfd_size_type size;

      if (bfd_seek (output_bfd, finfo->symoff, SEEK_SET) != 0)
       return FALSE;
      size = outsym - finfo->output_syms;
      size *= EXTERNAL_NLIST_SIZE;
      if (bfd_bwrite ((void *) finfo->output_syms, size, output_bfd) != size)
       return FALSE;
      finfo->symoff += size;
    }

  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static asection* aout_reloc_type_to_section ( bfd abfd,
int  type 
) [inline, static]

Definition at line 3199 of file pdp11.c.

{
  switch (type)
    {
    case RTEXT:      return obj_textsec (abfd);
    case RDATA: return obj_datasec (abfd);
    case RBSS:  return obj_bsssec (abfd);
    case RABS:  return bfd_abs_section_ptr;
    case REXT:  return bfd_und_section_ptr;
    default:    abort ();
    }

Here is the caller graph for this function:

static bfd_vma bfd_getp32 ( const void *  p) [static]

Definition at line 4463 of file pdp11.c.

{
  const bfd_byte *addr = p;
  unsigned long v;

  v = (unsigned long) addr[1] << 24;
  v |= (unsigned long) addr[0] << 16;
  v |= (unsigned long) addr[3] << 8;
  v |= (unsigned long) addr[2];
  return v;

Here is the call graph for this function:

static bfd_signed_vma bfd_getp_signed_32 ( const void *  p) [static]

Definition at line 4478 of file pdp11.c.

{
  const bfd_byte *addr = p;
  unsigned long v;

  v = (unsigned long) addr[1] << 24;
  v |= (unsigned long) addr[0] << 16;
  v |= (unsigned long) addr[3] << 8;
  v |= (unsigned long) addr[2];
  return COERCE32 (v);

Here is the call graph for this function:

static void bfd_putp32 ( bfd_vma  data,
void *  p 
) [static]

Definition at line 4491 of file pdp11.c.

{
  bfd_byte *addr = p;

  addr[0] = (data >> 16) & 0xff;
  addr[1] = (data >> 24) & 0xff;
  addr[2] = (data >> 0) & 0xff;
  addr[3] = (data >> 8) & 0xff;

Here is the call graph for this function:

static bfd_boolean emit_stringtab ( bfd abfd,
struct bfd_strtab_hash tab 
) [static]

Definition at line 1612 of file pdp11.c.

{
  bfd_byte buffer[BYTES_IN_LONG];

  /* The string table starts with the size.  */
  H_PUT_32 (abfd, _bfd_stringtab_size (tab) + BYTES_IN_LONG, buffer);
  if (bfd_bwrite ((void *) buffer, (bfd_size_type) BYTES_IN_LONG, abfd)
      != BYTES_IN_LONG)
    return FALSE;

  return _bfd_stringtab_emit (abfd, tab);
}

Here is the call graph for this function:

Here is the caller graph for this function:

const bfd_target MY ( vec  )
reloc_howto_type* NAME ( aout  ,
reloc_type_lookup   
)

Definition at line 266 of file pdp11.c.

{
  switch (code)
    {
    case BFD_RELOC_16:
      return &howto_table_pdp11[0];
    case BFD_RELOC_16_PCREL:
      return &howto_table_pdp11[1];
    default:
      return NULL;
    }
}
reloc_howto_type* NAME ( aout  ,
reloc_name_lookup   
)

Definition at line 281 of file pdp11.c.

{
  unsigned int i;

  for (i = 0;
       i < sizeof (howto_table_pdp11) / sizeof (howto_table_pdp11[0]);
       i++)
    if (howto_table_pdp11[i].name != NULL
       && strcasecmp (howto_table_pdp11[i].name, r_name) == 0)
      return &howto_table_pdp11[i];

  return NULL;
}

Here is the call graph for this function:

void NAME ( aout  ,
swap_exec_header_in   
)

Definition at line 385 of file pdp11.c.

{
  /* The internal_exec structure has some fields that are unused in this
     configuration (IE for i960), so ensure that all such uninitialized
     fields are zero'd out.  There are places where two of these structs
     are memcmp'd, and thus the contents do matter.  */
  memset ((void *) execp, 0, sizeof (struct internal_exec));
  /* Now fill in fields in the execp, from the bytes in the raw data.  */
  execp->a_info   = GET_MAGIC (abfd, bytes->e_info);
  execp->a_text   = GET_WORD (abfd, bytes->e_text);
  execp->a_data   = GET_WORD (abfd, bytes->e_data);
  execp->a_bss    = GET_WORD (abfd, bytes->e_bss);
  execp->a_syms   = GET_WORD (abfd, bytes->e_syms);
  execp->a_entry  = GET_WORD (abfd, bytes->e_entry);

  if (GET_WORD (abfd, bytes->e_flag) & A_FLAG_RELOC_STRIPPED)
    {
      execp->a_trsize = 0;
      execp->a_drsize = 0;
    }
  else
    {
      execp->a_trsize = execp->a_text;
      execp->a_drsize = execp->a_data;
    }
}

Here is the call graph for this function:

void NAME ( aout  ,
swap_exec_header_out   
)

Definition at line 419 of file pdp11.c.

{
  /* Now fill in fields in the raw data, from the fields in the exec struct.  */
  PUT_MAGIC (abfd, execp->a_info,         bytes->e_info);
  PUT_WORD (abfd, execp->a_text,          bytes->e_text);
  PUT_WORD (abfd, execp->a_data,          bytes->e_data);
  PUT_WORD (abfd, execp->a_bss,                  bytes->e_bss);
  PUT_WORD (abfd, execp->a_syms,          bytes->e_syms);
  PUT_WORD (abfd, execp->a_entry,         bytes->e_entry);
  PUT_WORD (abfd, 0,                      bytes->e_unused);

  if ((execp->a_trsize == 0 || execp->a_text == 0)
      && (execp->a_drsize == 0 || execp->a_data == 0))
    PUT_WORD (abfd, A_FLAG_RELOC_STRIPPED, bytes->e_flag);
  else if (execp->a_trsize == execp->a_text
          && execp->a_drsize == execp->a_data)
    PUT_WORD (abfd, 0, bytes->e_flag);
  else
    {
      /* TODO: print a proper warning message.  */
      fprintf (stderr, "BFD:%s:%d: internal error\n", __FILE__, __LINE__);
      PUT_WORD (abfd, 0,                  bytes->e_flag);
    }
}

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
make_sections   
)

Definition at line 449 of file pdp11.c.

{
  if (obj_textsec (abfd) == NULL && bfd_make_section (abfd, ".text") == NULL)
    return FALSE;
  if (obj_datasec (abfd) == NULL && bfd_make_section (abfd, ".data") == NULL)
    return FALSE;
  if (obj_bsssec (abfd) == NULL  && bfd_make_section (abfd, ".bss") == NULL)
    return FALSE;
  return TRUE;
}

Here is the call graph for this function:

const bfd_target* NAME ( aout  ,
some_aout_object_p   
)

Definition at line 467 of file pdp11.c.

{
  struct aout_data_struct *rawptr, *oldrawptr;
  const bfd_target *result;
  bfd_size_type amt = sizeof (struct aout_data_struct);

  rawptr = bfd_zalloc (abfd, amt);
  if (rawptr == NULL)
    return 0;

  oldrawptr = abfd->tdata.aout_data;
  abfd->tdata.aout_data = rawptr;

  /* Copy the contents of the old tdata struct.
     In particular, we want the subformat, since for hpux it was set in
     hp300hpux.c:swap_exec_header_in and will be used in
     hp300hpux.c:callback.  */
  if (oldrawptr != NULL)
    *abfd->tdata.aout_data = *oldrawptr;

  abfd->tdata.aout_data->a.hdr = &rawptr->e;
  *(abfd->tdata.aout_data->a.hdr) = *execp;      /* Copy in the internal_exec struct.  */
  execp = abfd->tdata.aout_data->a.hdr;

  /* Set the file flags.  */
  abfd->flags = BFD_NO_FLAGS;
  if (execp->a_drsize || execp->a_trsize)
    abfd->flags |= HAS_RELOC;
  /* Setting of EXEC_P has been deferred to the bottom of this function.  */
  if (execp->a_syms)
    abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS;
  if (N_DYNAMIC(*execp))
    abfd->flags |= DYNAMIC;

  if (N_MAGIC (*execp) == ZMAGIC)
    {
      abfd->flags |= D_PAGED | WP_TEXT;
      adata (abfd).magic = z_magic;
    }
  else if (N_MAGIC (*execp) == QMAGIC)
    {
      abfd->flags |= D_PAGED | WP_TEXT;
      adata (abfd).magic = z_magic;
      adata (abfd).subformat = q_magic_format;
    }
  else if (N_MAGIC (*execp) == NMAGIC)
    {
      abfd->flags |= WP_TEXT;
      adata (abfd).magic = n_magic;
    }
  else if (N_MAGIC (*execp) == OMAGIC
          || N_MAGIC (*execp) == BMAGIC)
    adata (abfd).magic = o_magic;
  else
    {
      /* Should have been checked with N_BADMAG before this routine
        was called.  */
      abort ();
    }

  bfd_get_start_address (abfd) = execp->a_entry;

  obj_aout_symbols (abfd) = NULL;
  bfd_get_symcount (abfd) = execp->a_syms / sizeof (struct external_nlist);

  /* The default relocation entry size is that of traditional V7 Unix.  */
  obj_reloc_entry_size (abfd) = RELOC_SIZE;

  /* The default symbol entry size is that of traditional Unix.  */
  obj_symbol_entry_size (abfd) = EXTERNAL_NLIST_SIZE;

#ifdef USE_MMAP
  bfd_init_window (&obj_aout_sym_window (abfd));
  bfd_init_window (&obj_aout_string_window (abfd));
#endif

  obj_aout_external_syms (abfd) = NULL;
  obj_aout_external_strings (abfd) = NULL;
  obj_aout_sym_hashes (abfd) = NULL;

  if (! NAME (aout, make_sections) (abfd))
    return NULL;

  obj_datasec (abfd)->size = execp->a_data;
  obj_bsssec (abfd)->size = execp->a_bss;

  obj_textsec (abfd)->flags =
    (execp->a_trsize != 0
     ? (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS | SEC_RELOC)
     : (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS));
  obj_datasec (abfd)->flags =
    (execp->a_drsize != 0
     ? (SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_HAS_CONTENTS | SEC_RELOC)
     : (SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_HAS_CONTENTS));
  obj_bsssec (abfd)->flags = SEC_ALLOC;

#ifdef THIS_IS_ONLY_DOCUMENTATION
  /* The common code can't fill in these things because they depend
     on either the start address of the text segment, the rounding
     up of virtual addresses between segments, or the starting file
     position of the text segment -- all of which varies among different
     versions of a.out.  */

  /* Call back to the format-dependent code to fill in the rest of the
     fields and do any further cleanup.  Things that should be filled
     in by the callback:  */
  struct exec *execp = exec_hdr (abfd);

  obj_textsec (abfd)->size = N_TXTSIZE(*execp);
  /* Data and bss are already filled in since they're so standard.  */

  /* The virtual memory addresses of the sections.  */
  obj_textsec (abfd)->vma = N_TXTADDR(*execp);
  obj_datasec (abfd)->vma = N_DATADDR(*execp);
  obj_bsssec  (abfd)->vma = N_BSSADDR(*execp);

  /* The file offsets of the sections.  */
  obj_textsec (abfd)->filepos = N_TXTOFF(*execp);
  obj_datasec (abfd)->filepos = N_DATOFF(*execp);

  /* The file offsets of the relocation info.  */
  obj_textsec (abfd)->rel_filepos = N_TRELOFF(*execp);
  obj_datasec (abfd)->rel_filepos = N_DRELOFF(*execp);

  /* The file offsets of the string table and symbol table.  */
  obj_str_filepos (abfd) = N_STROFF (*execp);
  obj_sym_filepos (abfd) = N_SYMOFF (*execp);

  /* Determine the architecture and machine type of the object file.  */
  abfd->obj_arch = bfd_arch_obscure;

  adata(abfd)->page_size = TARGET_PAGE_SIZE;
  adata(abfd)->segment_size = SEGMENT_SIZE;
  adata(abfd)->exec_bytes_size = EXEC_BYTES_SIZE;

  return abfd->xvec;

  /* The architecture is encoded in various ways in various a.out variants,
     or is not encoded at all in some of them.  The relocation size depends
     on the architecture and the a.out variant.  Finally, the return value
     is the bfd_target vector in use.  If an error occurs, return zero and
     set bfd_error to the appropriate error code.

     Formats such as b.out, which have additional fields in the a.out
     header, should cope with them in this callback as well.  */
#endif /* DOCUMENTATION */

  result = (*callback_to_real_object_p)(abfd);

  /* Now that the segment addresses have been worked out, take a better
     guess at whether the file is executable.  If the entry point
     is within the text segment, assume it is.  (This makes files
     executable even if their entry point address is 0, as long as
     their text starts at zero.).

     This test had to be changed to deal with systems where the text segment
     runs at a different location than the default.  The problem is that the
     entry address can appear to be outside the text segment, thus causing an
     erroneous conclusion that the file isn't executable.

     To fix this, we now accept any non-zero entry point as an indication of
     executability.  This will work most of the time, since only the linker
     sets the entry point, and that is likely to be non-zero for most systems. */

  if (execp->a_entry != 0
      || (execp->a_entry >= obj_textsec(abfd)->vma
         && execp->a_entry < obj_textsec(abfd)->vma + obj_textsec(abfd)->size))
    abfd->flags |= EXEC_P;
#ifdef STAT_FOR_EXEC
  else
    {
      struct stat stat_buf;

      /* The original heuristic doesn't work in some important cases.
        The a.out file has no information about the text start
        address.  For files (like kernels) linked to non-standard
        addresses (ld -Ttext nnn) the entry point may not be between
        the default text start (obj_textsec(abfd)->vma) and
        (obj_textsec(abfd)->vma) + text size.  This is not just a mach
        issue.  Many kernels are loaded at non standard addresses.  */
      if (abfd->iostream != NULL
         && (abfd->flags & BFD_IN_MEMORY) == 0
         && (fstat(fileno((FILE *) (abfd->iostream)), &stat_buf) == 0)
         && ((stat_buf.st_mode & 0111) != 0))
       abfd->flags |= EXEC_P;
    }
#endif /* STAT_FOR_EXEC */

  if (!result)
    {
      free (rawptr);
      abfd->tdata.aout_data = oldrawptr;
    }
  return result;
}

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
mkobject   
)

Definition at line 668 of file pdp11.c.

{
  struct aout_data_struct  *rawptr;
  bfd_size_type amt = sizeof (struct aout_data_struct);

  bfd_set_error (bfd_error_system_call);

  /* Use an intermediate variable for clarity.  */
  rawptr = bfd_zalloc (abfd, amt);

  if (rawptr == NULL)
    return FALSE;

  abfd->tdata.aout_data = rawptr;
  exec_hdr (abfd) = &(rawptr->e);

  obj_textsec (abfd) = NULL;
  obj_datasec (abfd) = NULL;
  obj_bsssec (abfd)  = NULL;

  return TRUE;
}

Here is the call graph for this function:

enum machine_type NAME ( aout  ,
machine_type   
)

Definition at line 700 of file pdp11.c.

{
  enum machine_type arch_flags;

  arch_flags = M_UNKNOWN;
  *unknown = TRUE;

  switch (arch)
    {
    case bfd_arch_sparc:
      if (machine == 0
         || machine == bfd_mach_sparc
         || machine == bfd_mach_sparc_sparclite
         || machine == bfd_mach_sparc_v9)
       arch_flags = M_SPARC;
      else if (machine == bfd_mach_sparc_sparclet)
       arch_flags = M_SPARCLET;
      break;

    case bfd_arch_m68k:
      switch (machine)
       {
       case 0:                    arch_flags = M_68010; break;
       case bfd_mach_m68000: arch_flags = M_UNKNOWN; *unknown = FALSE; break;
       case bfd_mach_m68010: arch_flags = M_68010; break;
       case bfd_mach_m68020: arch_flags = M_68020; break;
       default:            arch_flags = M_UNKNOWN; break;
       }
      break;

    case bfd_arch_i386:
      if (machine == 0
         || machine == bfd_mach_i386_i386
         || machine == bfd_mach_i386_i386_intel_syntax)
       arch_flags = M_386;
      break;

    case bfd_arch_arm:
      if (machine == 0)     arch_flags = M_ARM;
      break;

    case bfd_arch_mips:
      switch (machine)
       {
       case 0:
       case 2000:
       case bfd_mach_mips3000:
          arch_flags = M_MIPS1;
         break;
       case bfd_mach_mips4000: /* MIPS3 */
       case bfd_mach_mips4400:
       case bfd_mach_mips8000: /* MIPS4 */
       case bfd_mach_mips6000: /* Real MIPS2: */
          arch_flags = M_MIPS2;
         break;
       default:
         arch_flags = M_UNKNOWN;
         break;
       }
      break;

    case bfd_arch_ns32k:
      switch (machine)
       {
       case 0:              arch_flags = M_NS32532; break;
       case 32032:          arch_flags = M_NS32032; break;
       case 32532:          arch_flags = M_NS32532; break;
       default:             arch_flags = M_UNKNOWN; break;
       }
      break;

    case bfd_arch_pdp11:
      /* TODO: arch_flags = M_PDP11; */
      *unknown = FALSE;
      break;

    case bfd_arch_vax:
      *unknown = FALSE;
      break;

    default:
      arch_flags = M_UNKNOWN;
    }

  if (arch_flags != M_UNKNOWN)
    *unknown = FALSE;

  return arch_flags;
}
bfd_boolean NAME ( aout  ,
set_arch_mach   
)

Definition at line 797 of file pdp11.c.

{
  if (! bfd_default_set_arch_mach (abfd, arch, machine))
    return FALSE;

  if (arch != bfd_arch_unknown)
    {
      bfd_boolean unknown;

      NAME (aout, machine_type) (arch, machine, &unknown);
      if (unknown)
       return FALSE;
    }

  obj_reloc_entry_size (abfd) = RELOC_SIZE;

  return (*aout_backend_info(abfd)->set_sizes) (abfd);
}

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
adjust_sizes_and_vmas   
)

Definition at line 1033 of file pdp11.c.

{
  struct internal_exec *execp = exec_hdr (abfd);

  if (! NAME (aout, make_sections) (abfd))
    return FALSE;

  if (adata(abfd).magic != undecided_magic)
    return TRUE;

  obj_textsec(abfd)->size =
    align_power(obj_textsec(abfd)->size,
              obj_textsec(abfd)->alignment_power);

  *text_size = obj_textsec (abfd)->size;
  /* Rule (heuristic) for when to pad to a new page.  Note that there
     are (at least) two ways demand-paged (ZMAGIC) files have been
     handled.  Most Berkeley-based systems start the text segment at
     (TARGET_PAGE_SIZE).  However, newer versions of SUNOS start the text
     segment right after the exec header; the latter is counted in the
     text segment size, and is paged in by the kernel with the rest of
     the text. */

  /* This perhaps isn't the right way to do this, but made it simpler for me
     to understand enough to implement it.  Better would probably be to go
     right from BFD flags to alignment/positioning characteristics.  But the
     old code was sloppy enough about handling the flags, and had enough
     other magic, that it was a little hard for me to understand.  I think
     I understand it better now, but I haven't time to do the cleanup this
     minute.  */

  if (abfd->flags & WP_TEXT)
    adata(abfd).magic = n_magic;
  else
    adata(abfd).magic = o_magic;

#ifdef BFD_AOUT_DEBUG /* requires gcc2 */
#if __GNUC__ >= 2
  fprintf (stderr, "%s text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x,%x>\n",
          ({ char *str;
             switch (adata(abfd).magic) {
             case n_magic: str = "NMAGIC"; break;
             case o_magic: str = "OMAGIC"; break;
             case z_magic: str = "ZMAGIC"; break;
             default: abort ();
             }
             str;
           }),
          obj_textsec(abfd)->vma, obj_textsec(abfd)->size,
              obj_textsec(abfd)->alignment_power,
          obj_datasec(abfd)->vma, obj_datasec(abfd)->size,
              obj_datasec(abfd)->alignment_power,
          obj_bsssec(abfd)->vma, obj_bsssec(abfd)->size,
              obj_bsssec(abfd)->alignment_power);
#endif
#endif

  switch (adata(abfd).magic)
    {
    case o_magic:
      adjust_o_magic (abfd, execp);
      break;
    case z_magic:
      adjust_z_magic (abfd, execp);
      break;
    case n_magic:
      adjust_n_magic (abfd, execp);
      break;
    default:
      abort ();
    }

#ifdef BFD_AOUT_DEBUG
  fprintf (stderr, "       text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x>\n",
          obj_textsec(abfd)->vma, obj_textsec(abfd)->size,
              obj_textsec(abfd)->filepos,
          obj_datasec(abfd)->vma, obj_datasec(abfd)->size,
              obj_datasec(abfd)->filepos,
          obj_bsssec(abfd)->vma, obj_bsssec(abfd)->size);
#endif

  return TRUE;
}

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
new_section_hook   
)

Definition at line 1122 of file pdp11.c.

{
  /* Align to double at least.  */
  newsect->alignment_power = bfd_get_arch_info(abfd)->section_align_power;

  if (bfd_get_format (abfd) == bfd_object)
    {
      if (obj_textsec (abfd) == NULL
         && !strcmp (newsect->name, ".text"))
       {
         obj_textsec(abfd)= newsect;
         newsect->target_index = N_TEXT;
       }
      else if (obj_datasec (abfd) == NULL
              && !strcmp (newsect->name, ".data"))
       {
         obj_datasec (abfd) = newsect;
         newsect->target_index = N_DATA;
       }
      else if (obj_bsssec (abfd) == NULL
              && !strcmp (newsect->name, ".bss"))
       {
         obj_bsssec (abfd) = newsect;
         newsect->target_index = N_BSS;
       }
    }

  /* We allow more than three sections internally.  */
  return _bfd_generic_new_section_hook (abfd, newsect);
}

Here is the call graph for this function:

Definition at line 1154 of file pdp11.c.

{
  file_ptr text_end;
  bfd_size_type text_size;

  if (! abfd->output_has_begun)
    {
      if (! NAME (aout, adjust_sizes_and_vmas) (abfd, & text_size, & text_end))
       return FALSE;
    }

  if (section == obj_bsssec (abfd))
    {
      bfd_set_error (bfd_error_no_contents);
      return FALSE;
    }

  if (section != obj_textsec (abfd)
      && section != obj_datasec (abfd))
    {
      (*_bfd_error_handler)
       ("%s: can not represent section `%s' in a.out object file format",
        bfd_get_filename (abfd), bfd_get_section_name (abfd, section));
      bfd_set_error (bfd_error_nonrepresentable_section);
      return FALSE;
    }

  if (count != 0)
    {
      if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0
         || bfd_bwrite (location, count, abfd) != count)
       return FALSE;
    }

  return TRUE;
}

Here is the call graph for this function:

asymbol* NAME ( aout  ,
make_empty_symbol   
)

Definition at line 1444 of file pdp11.c.

{
  bfd_size_type amt = sizeof (aout_symbol_type);
  aout_symbol_type *new = bfd_zalloc (abfd, amt);

  if (!new)
    return NULL;
  new->symbol.the_bfd = abfd;

  return &new->symbol;
}

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
translate_symbol_table   
)

Definition at line 1459 of file pdp11.c.

{
  struct external_nlist *ext_end;

  ext_end = ext + count;
  for (; ext < ext_end; ext++, in++)
    {
      bfd_vma x;

      x = GET_WORD (abfd, ext->e_strx);
      in->symbol.the_bfd = abfd;

      /* For the normal symbols, the zero index points at the number
        of bytes in the string table but is to be interpreted as the
        null string.  For the dynamic symbols, the number of bytes in
        the string table is stored in the __DYNAMIC structure and the
        zero index points at an actual string.  */
      if (x == 0 && ! dynamic)
       in->symbol.name = "";
      else if (x < strsize)
       in->symbol.name = str + x;
      else
       return FALSE;

      in->symbol.value = GET_SWORD (abfd,  ext->e_value);
      /* TODO: is 0 a safe value here?  */
      in->desc = 0;
      in->other = 0;
      in->type = H_GET_8 (abfd,  ext->e_type);
      in->symbol.udata.p = NULL;

      if (! translate_from_native_sym_flags (abfd, in))
       return FALSE;

      if (dynamic)
       in->symbol.flags |= BSF_DYNAMIC;
    }

  return TRUE;
}

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
slurp_symbol_table   
)

Definition at line 1511 of file pdp11.c.

{
  struct external_nlist *old_external_syms;
  aout_symbol_type *cached;
  bfd_size_type cached_size;

  /* If there's no work to be done, don't do any.  */
  if (obj_aout_symbols (abfd) != NULL)
    return TRUE;

  old_external_syms = obj_aout_external_syms (abfd);

  if (! aout_get_external_symbols (abfd))
    return FALSE;

  cached_size = obj_aout_external_sym_count (abfd);
  cached_size *= sizeof (aout_symbol_type);
  cached = bfd_zmalloc (cached_size);
  if (cached == NULL && cached_size != 0)
    return FALSE;

  /* Convert from external symbol information to internal.  */
  if (! (NAME (aout, translate_symbol_table)
        (abfd, cached,
         obj_aout_external_syms (abfd),
         obj_aout_external_sym_count (abfd),
         obj_aout_external_strings (abfd),
         obj_aout_external_string_size (abfd),
         FALSE)))
    {
      free (cached);
      return FALSE;
    }

  bfd_get_symcount (abfd) = obj_aout_external_sym_count (abfd);

  obj_aout_symbols (abfd) = cached;

  /* It is very likely that anybody who calls this function will not
     want the external symbol information, so if it was allocated
     because of our call to aout_get_external_symbols, we free it up
     right away to save space.  */
  if (old_external_syms == NULL
      && obj_aout_external_syms (abfd) != NULL)
    {
#ifdef USE_MMAP
      bfd_free_window (&obj_aout_sym_window (abfd));
#else
      free (obj_aout_external_syms (abfd));
#endif
      obj_aout_external_syms (abfd) = NULL;
    }

  return TRUE;
}

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
write_syms   
)

Definition at line 1626 of file pdp11.c.

{
  unsigned int count ;
  asymbol **generic = bfd_get_outsymbols (abfd);
  struct bfd_strtab_hash *strtab;

  strtab = _bfd_stringtab_init ();
  if (strtab == NULL)
    return FALSE;

  for (count = 0; count < bfd_get_symcount (abfd); count++)
    {
      asymbol *g = generic[count];
      bfd_size_type indx;
      struct external_nlist nsp;

      PUT_WORD (abfd, 0, nsp.e_unused);

      indx = add_to_stringtab (abfd, strtab, g->name, FALSE);
      if (indx == (bfd_size_type) -1)
       goto error_return;
      PUT_WORD (abfd, indx, nsp.e_strx);

      if (bfd_asymbol_flavour(g) == abfd->xvec->flavour)
       H_PUT_8 (abfd, aout_symbol(g)->type,  nsp.e_type);
      else
       H_PUT_8 (abfd, 0, nsp.e_type);

      if (! translate_to_native_sym_flags (abfd, g, &nsp))
       goto error_return;

      H_PUT_8 (abfd, 0, nsp.e_ovly);

      if (bfd_bwrite ((void *)&nsp, (bfd_size_type) EXTERNAL_NLIST_SIZE, abfd)
         != EXTERNAL_NLIST_SIZE)
       goto error_return;

      /* NB: `KEEPIT' currently overlays `udata.p', so set this only
        here, at the end.  */
      g->KEEPIT = count;
    }

  if (! emit_stringtab (abfd, strtab))
    goto error_return;

  _bfd_stringtab_free (strtab);

  return TRUE;

error_return:
  _bfd_stringtab_free (strtab);
  return FALSE;
}

Here is the call graph for this function:

long NAME ( aout  ,
canonicalize_symtab   
)

Definition at line 1682 of file pdp11.c.

{
  unsigned int counter = 0;
  aout_symbol_type *symbase;

  if (!NAME (aout, slurp_symbol_table) (abfd))
    return -1;

  for (symbase = obj_aout_symbols (abfd); counter++ < bfd_get_symcount (abfd);)
    *(location++) = (asymbol *)(symbase++);
  *location++ =0;
  return bfd_get_symcount (abfd);
}

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
slurp_reloc_table   
)

Definition at line 1830 of file pdp11.c.

{
  bfd_byte *rptr;
  bfd_size_type count;
  bfd_size_type reloc_size;
  void * relocs;
  arelent *reloc_cache;
  size_t each_size;
  unsigned int counter = 0;
  arelent *cache_ptr;

  if (asect->relocation)
    return TRUE;

  if (asect->flags & SEC_CONSTRUCTOR)
    return TRUE;

  if (asect == obj_datasec (abfd))
    reloc_size = exec_hdr(abfd)->a_drsize;
  else if (asect == obj_textsec (abfd))
    reloc_size = exec_hdr(abfd)->a_trsize;
  else if (asect == obj_bsssec (abfd))
    reloc_size = 0;
  else
    {
      bfd_set_error (bfd_error_invalid_operation);
      return FALSE;
    }

  if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0)
    return FALSE;

  each_size = obj_reloc_entry_size (abfd);

  relocs = bfd_malloc (reloc_size);
  if (relocs == NULL && reloc_size != 0)
    return FALSE;

  if (bfd_bread (relocs, reloc_size, abfd) != reloc_size)
    {
      free (relocs);
      return FALSE;
    }

  count = reloc_size / each_size;

  /* Count the number of NON-ZERO relocs, this is the count we want.  */
  {
    unsigned int real_count = 0;

    for (counter = 0; counter < count; counter++)
      {
       int x;

       x = GET_WORD (abfd, (char *) relocs + each_size * counter);
       if (x != 0)
         real_count++;
      }

    count = real_count;
  }

  reloc_cache = bfd_zmalloc (count * sizeof (arelent));
  if (reloc_cache == NULL && count != 0)
    return FALSE;

  cache_ptr = reloc_cache;

  rptr = relocs;
  for (counter = 0;
       counter < count;
       counter++, rptr += RELOC_SIZE, cache_ptr++)
    {
      while (GET_WORD (abfd, (void *) rptr) == 0)
       {
         rptr += RELOC_SIZE;
         if ((char *) rptr >= (char *) relocs + reloc_size)
           goto done;
       }

      pdp11_aout_swap_reloc_in (abfd, rptr, cache_ptr,
                            (bfd_size_type) ((char *) rptr - (char *) relocs),
                            symbols,
                            (bfd_size_type) bfd_get_symcount (abfd));
    }
 done:
  /* Just in case, if rptr >= relocs + reloc_size should happen
     too early.  */
  BFD_ASSERT (counter == count);

  free (relocs);

  asect->relocation = reloc_cache;
  asect->reloc_count = cache_ptr - reloc_cache;

  return TRUE;

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
squirt_out_relocs   
)

Definition at line 1931 of file pdp11.c.

{
  arelent **generic;
  unsigned char *native;
  unsigned int count = section->reloc_count;
  bfd_size_type natsize;

  natsize = section->size;
  native = bfd_zalloc (abfd, natsize);
  if (!native)
    return FALSE;

  generic = section->orelocation;
  if (generic != NULL)
    {
      while (count > 0)
       {
         bfd_byte *r;

         r = native + (*generic)->address;
         pdp11_aout_swap_reloc_out (abfd, *generic, r);
         count--;
         generic++;
       }
    }

  if (bfd_bwrite ((void *) native, natsize, abfd) != natsize)
    {
      bfd_release (abfd, native);
      return FALSE;
    }

  bfd_release (abfd, native);
  return TRUE;

Here is the call graph for this function:

long NAME ( aout  ,
canonicalize_reloc   
)

Definition at line 1970 of file pdp11.c.

{
  arelent *tblptr = section->relocation;
  unsigned int count;

  if (section == obj_bsssec (abfd))
    {
      *relptr = NULL;
      return 0;
    }

  if (!(tblptr || NAME (aout, slurp_reloc_table)(abfd, section, symbols)))
    return -1;

  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;

      for (count = 0; count++ < section->reloc_count;)
       *relptr++ = tblptr++;
    }

  *relptr = 0;

  return section->reloc_count;

Here is the call graph for this function:

long NAME ( aout  ,
get_reloc_upper_bound   
)

Definition at line 2011 of file pdp11.c.

{
  if (bfd_get_format (abfd) != bfd_object)
    {
      bfd_set_error (bfd_error_invalid_operation);
      return -1;
    }

  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 / obj_reloc_entry_size (abfd))
              + 1));

  if (asect == obj_textsec (abfd))
    return (sizeof (arelent *)
           * ((exec_hdr (abfd)->a_trsize / obj_reloc_entry_size (abfd))
              + 1));

  /* TODO: why are there two if statements for obj_bsssec()? */

  if (asect == obj_bsssec (abfd))
    return sizeof (arelent *);

  if (asect == obj_bsssec (abfd))
    return 0;

  bfd_set_error (bfd_error_invalid_operation);
  return -1;

Here is the call graph for this function:

long NAME ( aout  ,
get_symtab_upper_bound   
)

Definition at line 2046 of file pdp11.c.

{
  if (!NAME (aout, slurp_symbol_table) (abfd))
    return -1;

  return (bfd_get_symcount (abfd) + 1) * (sizeof (aout_symbol_type *));

Here is the call graph for this function:

alent* NAME ( aout  ,
get_lineno   
)

Definition at line 2055 of file pdp11.c.

{
  return NULL;
void NAME ( aout  ,
get_symbol_info   
)

Definition at line 2062 of file pdp11.c.

{
  bfd_symbol_info (symbol, ret);

  if (ret->type == '?')
    {
      int type_code = aout_symbol(symbol)->type & 0xff;
      const char *stab_name = bfd_get_stab_name (type_code);
      static char buf[10];

      if (stab_name == NULL)
       {
         sprintf(buf, "(%d)", type_code);
         stab_name = buf;
       }
      ret->type = '-';
      ret->stab_type  = type_code;
      ret->stab_other = (unsigned) (aout_symbol(symbol)->other & 0xff);
      ret->stab_desc  = (unsigned) (aout_symbol(symbol)->desc & 0xffff);
      ret->stab_name  = stab_name;
    }

Here is the call graph for this function:

void NAME ( aout  ,
print_symbol   
)

Definition at line 2088 of file pdp11.c.

{
  FILE *file = (FILE *) afile;

  switch (how)
    {
    case bfd_print_symbol_name:
      if (symbol->name)
       fprintf(file,"%s", symbol->name);
      break;
    case bfd_print_symbol_more:
      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:
      {
       const char *section_name = symbol->section->name;

       bfd_print_symbol_vandf (abfd, (void *) file, symbol);

       fprintf (file," %-5s %04x %02x %02x",
               section_name,
               (unsigned) (aout_symbol (symbol)->desc & 0xffff),
               (unsigned) (aout_symbol (symbol)->other & 0xff),
               (unsigned) (aout_symbol (symbol)->type  & 0xff));
       if (symbol->name)
         fprintf(file," %s", symbol->name);
      }
      break;
    }

Here is the call graph for this function:

long NAME ( aout  ,
read_minisymbols   
)

Definition at line 2135 of file pdp11.c.

{
  if (dynamic)
    /* We could handle the dynamic symbols here as well, but it's
       easier to hand them off.  */
    return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);

  if (! aout_get_external_symbols (abfd))
    return -1;

  if (obj_aout_external_sym_count (abfd) < MINISYM_THRESHOLD)
    return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);

  *minisymsp = (void *) obj_aout_external_syms (abfd);

  /* By passing the external symbols back from this routine, we are
     giving up control over the memory block.  Clear
     obj_aout_external_syms, so that we do not try to free it
     ourselves.  */
  obj_aout_external_syms (abfd) = NULL;

  *sizep = EXTERNAL_NLIST_SIZE;
  return obj_aout_external_sym_count (abfd);

Here is the call graph for this function:

asymbol* NAME ( aout  ,
minisymbol_to_symbol   
)

Definition at line 2168 of file pdp11.c.

{
  if (dynamic
      || obj_aout_external_sym_count (abfd) < MINISYM_THRESHOLD)
    return _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym);

  memset (sym, 0, sizeof (aout_symbol_type));

  /* We call translate_symbol_table to translate a single symbol.  */
  if (! (NAME (aout, translate_symbol_table)
        (abfd,
         (aout_symbol_type *) sym,
         (struct external_nlist *) minisym,
         (bfd_size_type) 1,
         obj_aout_external_strings (abfd),
         obj_aout_external_string_size (abfd),
         FALSE)))
    return NULL;

  return sym;

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
find_nearest_line   
)

Definition at line 2198 of file pdp11.c.

{
  /* Run down the file looking for the filename, function and linenumber.  */
  asymbol **p;
  const char *directory_name = NULL;
  const char *main_file_name = NULL;
  const char *current_file_name = NULL;
  const char *line_file_name = NULL; /* Value of current_file_name at line number.  */
  bfd_vma low_line_vma = 0;
  bfd_vma low_func_vma = 0;
  asymbol *func = 0;
  size_t filelen, funclen;
  char *buf;

  *filename_ptr = abfd->filename;
  *functionname_ptr = 0;
  *line_ptr = 0;

  if (symbols != NULL)
    {
      for (p = symbols; *p; p++)
       {
         aout_symbol_type  *q = (aout_symbol_type *)(*p);
       next:
         switch (q->type)
           {
           case N_TEXT:
             /* If this looks like a file name symbol, and it comes after
               the line number we have found so far, but before the
               offset, then we have probably not found the right line
               number.  */
             if (q->symbol.value <= offset
                && ((q->symbol.value > low_line_vma
                     && (line_file_name != NULL
                        || *line_ptr != 0))
                    || (q->symbol.value > low_func_vma
                       && func != NULL)))
              {
                const char * symname;

                symname = q->symbol.name;
                if (strcmp (symname + strlen (symname) - 2, ".o") == 0)
                  {
                    if (q->symbol.value > low_line_vma)
                     {
                       *line_ptr = 0;
                       line_file_name = NULL;
                     }
                    if (q->symbol.value > low_func_vma)
                     func = NULL;
                  }
              }
             break;

           case N_SO:
             /* If this symbol is less than the offset, but greater than
               the line number we have found so far, then we have not
               found the right line number.  */
             if (q->symbol.value <= offset)
              {
                if (q->symbol.value > low_line_vma)
                  {
                    *line_ptr = 0;
                    line_file_name = NULL;
                  }
                if (q->symbol.value > low_func_vma)
                  func = NULL;
              }

             main_file_name = current_file_name = q->symbol.name;
             /* Look ahead to next symbol to check if that too is an N_SO.  */
             p++;
             if (*p == NULL)
              break;
             q = (aout_symbol_type *)(*p);
             if (q->type != (int) N_SO)
              goto next;

             /* Found a second N_SO  First is directory; second is filename.  */
             directory_name = current_file_name;
             main_file_name = current_file_name = q->symbol.name;
             if (obj_textsec(abfd) != section)
              goto done;
             break;
           case N_SOL:
             current_file_name = q->symbol.name;
             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 >= low_line_vma
                && q->symbol.value <= offset)
              {
                *line_ptr = q->desc;
                low_line_vma = q->symbol.value;
                line_file_name = current_file_name;
              }
             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;
                }
              else if (q->symbol.value > offset)
                goto done;
             }
             break;
           }
       }
    }

 done:
  if (*line_ptr != 0)
    main_file_name = line_file_name;

  if (main_file_name == NULL
      || main_file_name[0] == '/'
      || directory_name == NULL)
    filelen = 0;
  else
    filelen = strlen (directory_name) + strlen (main_file_name);
  if (func == NULL)
    funclen = 0;
  else
    funclen = strlen (bfd_asymbol_name (func));

  if (adata (abfd).line_buf != NULL)
    free (adata (abfd).line_buf);
  if (filelen + funclen == 0)
    adata (abfd).line_buf = buf = NULL;
  else
    {
      buf = bfd_malloc ((bfd_size_type) filelen + funclen + 3);
      adata (abfd).line_buf = buf;
      if (buf == NULL)
       return FALSE;
    }

  if (main_file_name != NULL)
    {
      if (main_file_name[0] == '/' || directory_name == NULL)
       *filename_ptr = main_file_name;
      else
       {
         sprintf (buf, "%s%s", directory_name, main_file_name);
         *filename_ptr = buf;
         buf += filelen + 1;
       }
    }

  if (func)
    {
      const char *function = func->name;
      char *colon;

      /* The caller expects a symbol name.  We actually have a
        function name, without the leading underscore.  Put the
        underscore back in, so that the caller gets a symbol name.  */
      if (bfd_get_symbol_leading_char (abfd) == '\0')
       strcpy (buf, function);
      else
       {
         buf[0] = bfd_get_symbol_leading_char (abfd);
         strcpy (buf + 1, function);
       }

      /* Have to remove : stuff.  */
      colon = strchr (buf, ':');
      if (colon != NULL)
       *colon = '\0';
      *functionname_ptr = buf;
    }

  return TRUE;

Here is the call graph for this function:

int NAME ( aout  ,
sizeof_headers   
)

Definition at line 2389 of file pdp11.c.

{
  return adata (abfd).exec_bytes_size;

Definition at line 2399 of file pdp11.c.

{
  asection *o;

  if (bfd_get_format (abfd) != bfd_object)
    return TRUE;

#define BFCI_FREE(x) if (x != NULL) { free (x); x = NULL; }
  BFCI_FREE (obj_aout_symbols (abfd));

#ifdef USE_MMAP
  obj_aout_external_syms (abfd) = 0;
  bfd_free_window (&obj_aout_sym_window (abfd));
  bfd_free_window (&obj_aout_string_window (abfd));
  obj_aout_external_strings (abfd) = 0;
#else
  BFCI_FREE (obj_aout_external_syms (abfd));
  BFCI_FREE (obj_aout_external_strings (abfd));
#endif
  for (o = abfd->sections; o != NULL; o = o->next)
    BFCI_FREE (o->relocation);
#undef BFCI_FREE

  return TRUE;

Here is the call graph for this function:

struct bfd_hash_entry* NAME ( aout  ,
link_hash_newfunc   
) [read]

Definition at line 2428 of file pdp11.c.

{
  struct aout_link_hash_entry *ret = (struct aout_link_hash_entry *) entry;

  /* Allocate the structure if it has not already been allocated by a
     subclass.  */
  if (ret == NULL)
    ret = bfd_hash_allocate (table, sizeof (* ret));
  if (ret == NULL)
    return NULL;

  /* Call the allocation method of the superclass.  */
  ret = (struct aout_link_hash_entry *)
        _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret, table, string);
  if (ret)
    {
      /* Set local fields.  */
      ret->written = FALSE;
      ret->indx = -1;
    }

  return (struct bfd_hash_entry *) ret;

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
link_hash_table_init   
)

Definition at line 2457 of file pdp11.c.

{
  return _bfd_link_hash_table_init (&table->root, abfd, newfunc, entsize);

Here is the call graph for this function:

struct bfd_link_hash_table* NAME ( aout  ,
link_hash_table_create   
) [read]

Definition at line 2470 of file pdp11.c.

{
  struct aout_link_hash_table *ret;
  bfd_size_type amt = sizeof (struct aout_link_hash_table);

  ret = bfd_alloc (abfd, amt);
  if (ret == NULL)
    return NULL;
  if (! NAME (aout, link_hash_table_init) (ret, abfd,
                                      NAME (aout, link_hash_newfunc),
                                      sizeof (struct aout_link_hash_entry)))
    {
      free (ret);
      return NULL;
    }
  return &ret->root;

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
link_add_symbols   
)

Definition at line 2519 of file pdp11.c.

Here is the call graph for this function:

bfd_boolean NAME ( aout  ,
final_link   
)

Definition at line 3647 of file pdp11.c.

{
  struct aout_final_link_info aout_info;
  bfd_boolean includes_hash_initialized = FALSE;
  bfd *sub;
  bfd_size_type trsize, drsize;
  bfd_size_type max_contents_size;
  bfd_size_type max_relocs_size;
  bfd_size_type max_sym_count;
  bfd_size_type text_size;
  file_ptr text_end;
  struct bfd_link_order *p;
  asection *o;
  bfd_boolean have_link_order_relocs;

  if (info->shared)
    abfd->flags |= DYNAMIC;

  aout_info.info = info;
  aout_info.output_bfd = abfd;
  aout_info.contents = NULL;
  aout_info.relocs = NULL;
  aout_info.symbol_map = NULL;
  aout_info.output_syms = NULL;

  if (!bfd_hash_table_init_n (&aout_info.includes.root,
                           aout_link_includes_newfunc,
                           sizeof (struct aout_link_includes_entry),
                           251))
    goto error_return;
  includes_hash_initialized = TRUE;

  /* Figure out the largest section size.  Also, if generating
     relocatable output, count the relocs.  */
  trsize = 0;
  drsize = 0;
  max_contents_size = 0;
  max_relocs_size = 0;
  max_sym_count = 0;
  for (sub = info->input_bfds; sub != NULL; sub = sub->link_next)
    {
      size_t sz;

      if (info->relocatable)
       {
         if (bfd_get_flavour (sub) == bfd_target_aout_flavour)
           {
             trsize += exec_hdr (sub)->a_trsize;
             drsize += exec_hdr (sub)->a_drsize;
           }
         else
           {
             /* FIXME: We need to identify the .text and .data sections
               and call get_reloc_upper_bound and canonicalize_reloc to
               work out the number of relocs needed, and then multiply
               by the reloc size.  */
             (*_bfd_error_handler)
              ("%s: relocatable link from %s to %s not supported",
               bfd_get_filename (abfd),
               sub->xvec->name, abfd->xvec->name);
             bfd_set_error (bfd_error_invalid_operation);
             goto error_return;
           }
       }

      if (bfd_get_flavour (sub) == bfd_target_aout_flavour)
       {
         sz = obj_textsec (sub)->size;
         if (sz > max_contents_size)
           max_contents_size = sz;
         sz = obj_datasec (sub)->size;
         if (sz > max_contents_size)
           max_contents_size = sz;

         sz = exec_hdr (sub)->a_trsize;
         if (sz > max_relocs_size)
           max_relocs_size = sz;
         sz = exec_hdr (sub)->a_drsize;
         if (sz > max_relocs_size)
           max_relocs_size = sz;

         sz = obj_aout_external_sym_count (sub);
         if (sz > max_sym_count)
           max_sym_count = sz;
       }
    }

  if (info->relocatable)
    {
      if (obj_textsec (abfd) != NULL)
       trsize += (_bfd_count_link_order_relocs (obj_textsec (abfd)
                                           ->map_head.link_order)
                 * obj_reloc_entry_size (abfd));
      if (obj_datasec (abfd) != NULL)
       drsize += (_bfd_count_link_order_relocs (obj_datasec (abfd)
                                           ->map_head.link_order)
                 * obj_reloc_entry_size (abfd));
    }

  exec_hdr (abfd)->a_trsize = trsize;
  exec_hdr (abfd)->a_drsize = drsize;
  exec_hdr (abfd)->a_entry = bfd_get_start_address (abfd);

  /* Adjust the section sizes and vmas according to the magic number.
     This sets a_text, a_data and a_bss in the exec_hdr and sets the
     filepos for each section.  */
  if (! NAME (aout, adjust_sizes_and_vmas) (abfd, &text_size, &text_end))
    goto error_return;

  /* The relocation and symbol file positions differ among a.out
     targets.  We are passed a callback routine from the backend
     specific code to handle this.
     FIXME: At this point we do not know how much space the symbol
     table will require.  This will not work for any (nonstandard)
     a.out target that needs to know the symbol table size before it
     can compute the relocation file positions.  This may or may not
     be the case for the hp300hpux target, for example.  */
  (*callback) (abfd, &aout_info.treloff, &aout_info.dreloff,
              &aout_info.symoff);
  obj_textsec (abfd)->rel_filepos = aout_info.treloff;
  obj_datasec (abfd)->rel_filepos = aout_info.dreloff;
  obj_sym_filepos (abfd) = aout_info.symoff;

  /* We keep a count of the symbols as we output them.  */
  obj_aout_external_sym_count (abfd) = 0;

  /* We accumulate the string table as we write out the symbols.  */
  aout_info.strtab = _bfd_stringtab_init ();
  if (aout_info.strtab == NULL)
    goto error_return;

  /* Allocate buffers to hold section contents and relocs.  */
  aout_info.contents = bfd_malloc (max_contents_size);
  aout_info.relocs = bfd_malloc (max_relocs_size);
  aout_info.symbol_map = bfd_malloc (max_sym_count * sizeof (int *));
  aout_info.output_syms = bfd_malloc ((max_sym_count + 1)
                                  * sizeof (struct external_nlist));
  if ((aout_info.contents == NULL && max_contents_size != 0)
      || (aout_info.relocs == NULL && max_relocs_size != 0)
      || (aout_info.symbol_map == NULL && max_sym_count != 0)
      || aout_info.output_syms == NULL)
    goto error_return;

  /* If we have a symbol named __DYNAMIC, force it out now.  This is
     required by SunOS.  Doing this here rather than in sunos.c is a
     hack, but it's easier than exporting everything which would be
     needed.  */
  {
    struct aout_link_hash_entry *h;

    h = aout_link_hash_lookup (aout_hash_table (info), "__DYNAMIC",
                            FALSE, FALSE, FALSE);
    if (h != NULL)
      aout_link_write_other_symbol (h, &aout_info);
  }

  /* The most time efficient way to do the link would be to read all
     the input object files into memory and then sort out the
     information into the output file.  Unfortunately, that will
     probably use too much memory.  Another method would be to step
     through everything that composes the text section and write it
     out, and then everything that composes the data section and write
     it out, and then write out the relocs, and then write out the
     symbols.  Unfortunately, that requires reading stuff from each
     input file several times, and we will not be able to keep all the
     input files open simultaneously, and reopening them will be slow.

     What we do is basically process one input file at a time.  We do
     everything we need to do with an input file once--copy over the
     section contents, handle the relocation information, and write
     out the symbols--and then we throw away the information we read
     from it.  This approach requires a lot of lseeks of the output
     file, which is unfortunate but still faster than reopening a lot
     of files.

     We use the output_has_begun field of the input BFDs to see
     whether we have already handled it.  */
  for (sub = info->input_bfds; sub != NULL; sub = sub->link_next)
    sub->output_has_begun = FALSE;

  /* Mark all sections which are to be included in the link.  This
     will normally be every section.  We need to do this so that we
     can identify any sections which the linker has decided to not
     include.  */
  for (o = abfd->sections; o != NULL; o = o->next)
    {
      for (p = o->map_head.link_order; p != NULL; p = p->next)
       if (p->type == bfd_indirect_link_order)
         p->u.indirect.section->linker_mark = TRUE;
    }

  have_link_order_relocs = FALSE;
  for (o = abfd->sections; o != NULL; o = o->next)
    {
      for (p = o->map_head.link_order;
          p != NULL;
          p = p->next)
       {
         if (p->type == bfd_indirect_link_order
             && (bfd_get_flavour (p->u.indirect.section->owner)
                == bfd_target_aout_flavour))
           {
             bfd *input_bfd;

             input_bfd = p->u.indirect.section->owner;
             if (! input_bfd->output_has_begun)
              {
                if (! aout_link_input_bfd (&aout_info, input_bfd))
                  goto error_return;
                input_bfd->output_has_begun = TRUE;
              }
           }
         else if (p->type == bfd_section_reloc_link_order
                 || p->type == bfd_symbol_reloc_link_order)
           /* These are handled below.  */
           have_link_order_relocs = TRUE;
         else
           {
             if (! _bfd_default_link_order (abfd, info, o, p))
              goto error_return;
           }
       }
    }

  /* Write out any symbols that we have not already written out.  */
  aout_link_hash_traverse (aout_hash_table (info),
                        aout_link_write_other_symbol,
                        (void *) &aout_info);

  /* Now handle any relocs we were asked to create by the linker.
     These did not come from any input file.  We must do these after
     we have written out all the symbols, so that we know the symbol
     indices to use.  */
  if (have_link_order_relocs)
    {
      for (o = abfd->sections; o != NULL; o = o->next)
       {
         for (p = o->map_head.link_order;
              p != NULL;
              p = p->next)
           {
             if (p->type == bfd_section_reloc_link_order
                || p->type == bfd_symbol_reloc_link_order)
              {
                if (! aout_link_reloc_link_order (&aout_info, o, p))
                  goto error_return;
              }
           }
       }
    }

  if (aout_info.contents != NULL)
    {
      free (aout_info.contents);
      aout_info.contents = NULL;
    }
  if (aout_info.relocs != NULL)
    {
      free (aout_info.relocs);
      aout_info.relocs = NULL;
    }
  if (aout_info.symbol_map != NULL)
    {
      free (aout_info.symbol_map);
      aout_info.symbol_map = NULL;
    }
  if (aout_info.output_syms != NULL)
    {
      free (aout_info.output_syms);
      aout_info.output_syms = NULL;
    }
  if (includes_hash_initialized)
    {
      bfd_hash_table_free (&aout_info.includes.root);
      includes_hash_initialized = FALSE;
    }

  /* Finish up any dynamic linking we may be doing.  */
  if (aout_backend_info (abfd)->finish_dynamic_link != NULL)
    {
      if (! (*aout_backend_info (abfd)->finish_dynamic_link) (abfd, info))
       goto error_return;
    }

  /* Update the header information.  */
  abfd->symcount = obj_aout_external_sym_count (abfd);
  exec_hdr (abfd)->a_syms = abfd->symcount * EXTERNAL_NLIST_SIZE;
  obj_str_filepos (abfd) = obj_sym_filepos (abfd) + exec_hdr (abfd)->a_syms;
  obj_textsec (abfd)->reloc_count =
    exec_hdr (abfd)->a_trsize / obj_reloc_entry_size (abfd);
  obj_datasec (abfd)->reloc_count =
    exec_hdr (abfd)->a_drsize / obj_reloc_entry_size (abfd);

  /* Write out the string table, unless there are no symbols.  */
  if (abfd->symcount > 0)
    {
      if (bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET) != 0
         || ! emit_stringtab (abfd, aout_info.strtab))
       goto error_return;
    }
  else if (obj_textsec (abfd)->reloc_count == 0
          && obj_datasec (abfd)->reloc_count == 0)
    {
      bfd_byte b;

      b = 0;
      if (bfd_seek (abfd,
                  (file_ptr) (obj_datasec (abfd)->filepos
                            + exec_hdr (abfd)->a_data
                            - 1),
                  SEEK_SET) != 0
         || bfd_bwrite (&b, (bfd_size_type) 1, abfd) != 1)
       goto error_return;
    }

  return TRUE;

 error_return:
  if (aout_info.contents != NULL)
    free (aout_info.contents);
  if (aout_info.relocs != NULL)
    free (aout_info.relocs);
  if (aout_info.symbol_map != NULL)
    free (aout_info.symbol_map);
  if (aout_info.output_syms != NULL)
    free (aout_info.output_syms);
  if (includes_hash_initialized)
    bfd_hash_table_free (&aout_info.includes.root);
  return FALSE;

Here is the call graph for this function:

static bfd_boolean pdp11_aout_link_input_section ( struct aout_final_link_info finfo,
bfd input_bfd,
asection input_section,
bfd_byte relocs,
bfd_size_type  rel_size,
bfd_byte contents 
) [static]

Definition at line 3213 of file pdp11.c.

{
  bfd_boolean (*check_dynamic_reloc)
    (struct bfd_link_info *, bfd *, asection *,
     struct aout_link_hash_entry *, void *, bfd_byte *, bfd_boolean *,
     bfd_vma *);
  bfd *output_bfd;
  bfd_boolean relocatable;
  struct external_nlist *syms;
  char *strings;
  struct aout_link_hash_entry **sym_hashes;
  int *symbol_map;
  bfd_size_type reloc_count;
  bfd_byte *rel;
  bfd_byte *rel_end;

  output_bfd = finfo->output_bfd;
  check_dynamic_reloc = aout_backend_info (output_bfd)->check_dynamic_reloc;

  BFD_ASSERT (obj_reloc_entry_size (input_bfd) == RELOC_SIZE);
  BFD_ASSERT (input_bfd->xvec->header_byteorder
             == output_bfd->xvec->header_byteorder);

  relocatable = finfo->info->relocatable;
  syms = obj_aout_external_syms (input_bfd);
  strings = obj_aout_external_strings (input_bfd);
  sym_hashes = obj_aout_sym_hashes (input_bfd);
  symbol_map = finfo->symbol_map;

  reloc_count = rel_size / RELOC_SIZE;
  rel = relocs;
  rel_end = rel + rel_size;
  for (; rel < rel_end; rel += RELOC_SIZE)
    {
      bfd_vma r_addr;
      int r_index;
      int r_type;
      int r_pcrel;
      int r_extern;
      reloc_howto_type *howto;
      struct aout_link_hash_entry *h = NULL;
      bfd_vma relocation;
      bfd_reloc_status_type r;
      int reloc_entry;

      reloc_entry = GET_WORD (input_bfd, (void *) rel);
      if (reloc_entry == 0)
       continue;

      {
       unsigned int howto_idx;

       r_index = (reloc_entry & RIDXMASK) >> 4;
       r_type = reloc_entry & RTYPE;
       r_pcrel = reloc_entry & RELFLG;
       r_addr = (char *) rel - (char *) relocs;

       r_extern = (r_type == REXT);

       howto_idx = r_pcrel;
       BFD_ASSERT (howto_idx < TABLE_SIZE (howto_table_pdp11));
       howto = howto_table_pdp11 + howto_idx;
      }

      if (relocatable)
       {
         /* We are generating a relocatable output file, and must
            modify the reloc accordingly.  */
         if (r_extern)
           {
             /* If we know the symbol this relocation is against,
               convert it into a relocation against a section.  This
               is what the native linker does.  */
             h = sym_hashes[r_index];
             if (h != NULL
                && (h->root.type == bfd_link_hash_defined
                    || h->root.type == bfd_link_hash_defweak))
              {
                asection *output_section;

                /* Compute a new r_index.  */
                output_section = h->root.u.def.section->output_section;
                if (output_section == obj_textsec (output_bfd))
                  r_type = N_TEXT;
                else if (output_section == obj_datasec (output_bfd))
                  r_type = N_DATA;
                else if (output_section == obj_bsssec (output_bfd))
                  r_type = N_BSS;
                else
                  r_type = N_ABS;

                /* Add the symbol value and the section VMA to the
                   addend stored in the contents.  */
                relocation = (h->root.u.def.value
                            + output_section->vma
                            + h->root.u.def.section->output_offset);
              }
             else
              {
                /* We must change r_index according to the symbol
                   map.  */
                r_index = symbol_map[r_index];

                if (r_index == -1)
                  {
                    if (h != NULL)
                     {
                       /* We decided to strip this symbol, but it
                             turns out that we can't.  Note that we
                             lose the other and desc information here.
                             I don't think that will ever matter for a
                             global symbol.  */
                       if (h->indx < 0)
                         {
                           h->indx = -2;
                           h->written = FALSE;
                           if (! aout_link_write_other_symbol (h,
                                                          (void *) finfo))
                            return FALSE;
                         }
                       r_index = h->indx;
                     }
                    else
                     {
                       const char *name;

                       name = strings + GET_WORD (input_bfd,
                                               syms[r_index].e_strx);
                       if (! ((*finfo->info->callbacks->unattached_reloc)
                             (finfo->info, name, input_bfd, input_section,
                              r_addr)))
                         return FALSE;
                       r_index = 0;
                     }
                  }

                relocation = 0;
              }

             /* Write out the new r_index value.  */
             reloc_entry = GET_WORD (input_bfd, rel);
             reloc_entry &= RIDXMASK;
             reloc_entry |= r_index << 4;
             PUT_WORD (input_bfd, reloc_entry, rel);
           }
         else
           {
             asection *section;

             /* This is a relocation against a section.  We must
               adjust by the amount that the section moved.  */
             section = aout_reloc_type_to_section (input_bfd, r_type);
             relocation = (section->output_section->vma
                         + section->output_offset
                         - section->vma);
           }

         /* Change the address of the relocation.  */
         fprintf (stderr, "TODO: change the address of the relocation\n");

         /* Adjust a PC relative relocation by removing the reference
            to the original address in the section and including the
            reference to the new address.  */
         if (r_pcrel)
           relocation -= (input_section->output_section->vma
                        + input_section->output_offset
                        - input_section->vma);

#ifdef MY_relocatable_reloc
         MY_relocatable_reloc (howto, output_bfd, rel, relocation, r_addr);
#endif

         if (relocation == 0)
           r = bfd_reloc_ok;
         else
           r = MY_relocate_contents (howto,
                                  input_bfd, relocation,
                                  contents + r_addr);
       }
      else
       {
         bfd_boolean hundef;

         /* We are generating an executable, and must do a full
            relocation.  */
         hundef = FALSE;
         if (r_extern)
           {
             h = sym_hashes[r_index];

             if (h != NULL
                && (h->root.type == bfd_link_hash_defined
                    || h->root.type == bfd_link_hash_defweak))
              {
                relocation = (h->root.u.def.value
                            + h->root.u.def.section->output_section->vma
                            + h->root.u.def.section->output_offset);
              }
             else if (h != NULL
                     && h->root.type == bfd_link_hash_undefweak)
              relocation = 0;
             else
              {
                hundef = TRUE;
                relocation = 0;
              }
           }
         else
           {
             asection *section;

             section = aout_reloc_type_to_section (input_bfd, r_type);
             relocation = (section->output_section->vma
                         + section->output_offset
                         - section->vma);
             if (r_pcrel)
              relocation += input_section->vma;
           }

         if (check_dynamic_reloc != NULL)
           {
             bfd_boolean skip;

             if (! ((*check_dynamic_reloc)
                   (finfo->info, input_bfd, input_section, h,
                    (void *) rel, contents, &skip, &relocation)))
              return FALSE;
             if (skip)
              continue;
           }

         /* Now warn if a global symbol is undefined.  We could not
             do this earlier, because check_dynamic_reloc might want
             to skip this reloc.  */
         if (hundef && ! finfo->info->shared)
           {
             const char *name;

             if (h != NULL)
              name = h->root.root.string;
             else
              name = strings + GET_WORD (input_bfd, syms[r_index].e_strx);
             if (! ((*finfo->info->callbacks->undefined_symbol)
                   (finfo->info, name, input_bfd, input_section,
                    r_addr, TRUE)))
              return FALSE;
           }

         r = MY_final_link_relocate (howto,
                                  input_bfd, input_section,
                                  contents, r_addr, relocation,
                                  (bfd_vma) 0);
       }

      if (r != bfd_reloc_ok)
       {
         switch (r)
           {
           default:
           case bfd_reloc_outofrange:
             abort ();
           case bfd_reloc_overflow:
             {
              const char *name;

              if (h != NULL)
                name = NULL;
              else if (r_extern)
                name = strings + GET_WORD (input_bfd,
                                        syms[r_index].e_strx);
              else
                {
                  asection *s;

                  s = aout_reloc_type_to_section (input_bfd, r_type);
                  name = bfd_section_name (input_bfd, s);
                }
              if (! ((*finfo->info->callbacks->reloc_overflow)
                     (finfo->info, (h ? &h->root : NULL), name,
                     howto->name, (bfd_vma) 0, input_bfd,
                     input_section, r_addr)))
                return FALSE;
             }
             break;
           }
       }
    }

  return TRUE;

Here is the call graph for this function:

Here is the caller graph for this function:

static void pdp11_aout_swap_reloc_in ( bfd abfd,
bfd_byte bytes,
arelent cache_ptr,
bfd_size_type  offset,
asymbol **  symbols,
bfd_size_type  symcount 
) [static]

Definition at line 1787 of file pdp11.c.

{
  struct aoutdata *su = &(abfd->tdata.aout_data->a);
  unsigned int r_index;
  int reloc_entry;
  int r_extern;
  int r_pcrel;

  reloc_entry = GET_WORD (abfd, (void *) bytes);

  r_pcrel = reloc_entry & RELFLG;

  cache_ptr->address = offset;
  cache_ptr->howto = howto_table_pdp11 + (r_pcrel ? 1 : 0);

  if ((reloc_entry & RTYPE) == RABS)
    r_index = N_ABS;
  else
    r_index = RINDEX (reloc_entry);

  /* r_extern reflects whether the symbol the reloc is against is
     local or global.  */
  r_extern = (reloc_entry & RTYPE) == REXT;

  if (r_extern && r_index > symcount)
    {
      /* We could arrange to return an error, but it might be useful
         to see the file even if it is bad.  */
      r_extern = 0;
      r_index = N_ABS;
    }

  MOVE_ADDRESS(0);

Here is the caller graph for this function:

static void pdp11_aout_swap_reloc_out ( bfd abfd,
arelent g,
bfd_byte natptr 
) [static]

Definition at line 1700 of file pdp11.c.

{
  int r_index;
  int r_pcrel;
  int reloc_entry;
  int r_type;
  asymbol *sym = *(g->sym_ptr_ptr);
  asection *output_section = sym->section->output_section;

  if (g->addend != 0)
    fprintf (stderr, "BFD: can't do this reloc addend stuff\n");

  r_pcrel = g->howto->pc_relative;

  if (bfd_is_abs_section (output_section))
    r_type = RABS;
  else if (output_section == obj_textsec (abfd))
    r_type = RTEXT;
  else if (output_section == obj_datasec (abfd))
    r_type = RDATA;
  else if (output_section == obj_bsssec (abfd))
    r_type = RBSS;
  else if (bfd_is_und_section (output_section))
    r_type = REXT;
  else if (bfd_is_com_section (output_section))
    r_type = REXT;
  else
    r_type = -1;

  BFD_ASSERT (r_type != -1);

  if (r_type == RABS)
    r_index = 0;
  else
    r_index = (*(g->sym_ptr_ptr))->KEEPIT;

  reloc_entry = r_index << 4 | r_type | r_pcrel;

  PUT_WORD (abfd, reloc_entry, natptr);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int pdp11_aout_write_headers ( bfd abfd,
struct internal_exec execp 
) [static]

Definition at line 297 of file pdp11.c.

{
  struct external_exec exec_bytes;
  bfd_size_type text_size;
  file_ptr text_end;

  if (adata(abfd).magic == undecided_magic)
    NAME (aout, adjust_sizes_and_vmas) (abfd, &text_size, &text_end);

  execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;
  execp->a_entry = bfd_get_start_address (abfd);

  if (obj_textsec (abfd)->reloc_count > 0
      || obj_datasec (abfd)->reloc_count > 0)
    {
      execp->a_trsize = execp->a_text;
      execp->a_drsize = execp->a_data;
    }
  else
    {
      execp->a_trsize = 0;
      execp->a_drsize = 0;
    }

  NAME (aout, swap_exec_header_out) (abfd, execp, & exec_bytes);

  if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
    return FALSE;

  if (bfd_bwrite ((void *) &exec_bytes, (bfd_size_type) EXEC_BYTES_SIZE, abfd)
      != EXEC_BYTES_SIZE)
    return FALSE;

  /* Now write out reloc info, followed by syms and strings.  */
  if (bfd_get_outsymbols (abfd) != NULL
      && bfd_get_symcount (abfd) != 0)
    {
      if (bfd_seek (abfd, (file_ptr) (N_SYMOFF(*execp)), SEEK_SET) != 0)
       return FALSE;

      if (! NAME (aout, write_syms) (abfd))
       return FALSE;
    }

  if (obj_textsec (abfd)->reloc_count > 0
      || obj_datasec (abfd)->reloc_count > 0)
    {
      if (bfd_seek (abfd, (file_ptr) (N_TRELOFF(*execp)), SEEK_SET) != 0
         || !NAME (aout, squirt_out_relocs) (abfd, obj_textsec (abfd))
         || bfd_seek (abfd, (file_ptr) (N_DRELOFF(*execp)), SEEK_SET) != 0
         || !NAME (aout, squirt_out_relocs) (abfd, obj_datasec (abfd)))  
       return FALSE;
    }

  return TRUE;
}

Here is the call graph for this function:

static bfd_boolean translate_from_native_sym_flags ( bfd abfd,
aout_symbol_type cache_ptr 
) [static]

Definition at line 1284 of file pdp11.c.

{
  flagword visible;

  if (cache_ptr->type == N_FN)
    {
      asection *sec;

      /* This is a debugging symbol.  */
      cache_ptr->symbol.flags = BSF_DEBUGGING;

      /* Work out the symbol section.  */
      switch (cache_ptr->type & N_TYPE)
       {
       case N_TEXT:
       case N_FN:
         sec = obj_textsec (abfd);
         break;
       case N_DATA:
         sec = obj_datasec (abfd);
         break;
       case N_BSS:
         sec = obj_bsssec (abfd);
         break;
       default:
       case N_ABS:
         sec = bfd_abs_section_ptr;
         break;
       }

      cache_ptr->symbol.section = sec;
      cache_ptr->symbol.value -= sec->vma;

      return TRUE;
    }

  /* Get the default visibility.  This does not apply to all types, so
     we just hold it in a local variable to use if wanted.  */
  if ((cache_ptr->type & N_EXT) == 0)
    visible = BSF_LOCAL;
  else
    visible = BSF_GLOBAL;

  switch (cache_ptr->type)
    {
    default:
    case N_ABS: case N_ABS | N_EXT:
      cache_ptr->symbol.section = bfd_abs_section_ptr;
      cache_ptr->symbol.flags = visible;
      break;

    case N_UNDF | N_EXT:
      if (cache_ptr->symbol.value != 0)
       {
         /* This is a common symbol.  */
         cache_ptr->symbol.flags = BSF_GLOBAL;
         cache_ptr->symbol.section = bfd_com_section_ptr;
       }
      else
       {
         cache_ptr->symbol.flags = 0;
         cache_ptr->symbol.section = bfd_und_section_ptr;
       }
      break;

    case N_TEXT: case N_TEXT | N_EXT:
      cache_ptr->symbol.section = obj_textsec (abfd);
      cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
      cache_ptr->symbol.flags = visible;
      break;

    case N_DATA: case N_DATA | N_EXT:
      cache_ptr->symbol.section = obj_datasec (abfd);
      cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
      cache_ptr->symbol.flags = visible;
      break;

    case N_BSS: case N_BSS | N_EXT:
      cache_ptr->symbol.section = obj_bsssec (abfd);
      cache_ptr->symbol.value -= cache_ptr->symbol.section->vma;
      cache_ptr->symbol.flags = visible;
      break;
    }

  return TRUE;
}

Here is the caller graph for this function:

static bfd_boolean translate_to_native_sym_flags ( bfd abfd,
asymbol cache_ptr,
struct external_nlist sym_pointer 
) [static]

Definition at line 1375 of file pdp11.c.

{
  bfd_vma value = cache_ptr->value;
  asection *sec;
  bfd_vma off;

  /* Mask out any existing type bits in case copying from one section
     to another.  */
  sym_pointer->e_type[0] &= ~N_TYPE;

  sec = bfd_get_section (cache_ptr);
  off = 0;

  if (sec == NULL)
    {
      /* This case occurs, e.g., for the *DEBUG* section of a COFF
        file.  */
      (*_bfd_error_handler)
       ("%B: can not represent section for symbol `%s' in a.out object file format",
        abfd, cache_ptr->name != NULL ? cache_ptr->name : "*unknown*");
      bfd_set_error (bfd_error_nonrepresentable_section);
      return FALSE;
    }

  if (sec->output_section != NULL)
    {
      off = sec->output_offset;
      sec = sec->output_section;
    }

  if (bfd_is_abs_section (sec))
    sym_pointer->e_type[0] |= N_ABS;
  else if (sec == obj_textsec (abfd))
    sym_pointer->e_type[0] |= N_TEXT;
  else if (sec == obj_datasec (abfd))
    sym_pointer->e_type[0] |= N_DATA;
  else if (sec == obj_bsssec (abfd))
    sym_pointer->e_type[0] |= N_BSS;
  else if (bfd_is_und_section (sec))
    sym_pointer->e_type[0] = N_UNDF | N_EXT;
  else if (bfd_is_com_section (sec))
    sym_pointer->e_type[0] = N_UNDF | N_EXT;
  else
    {
      (*_bfd_error_handler)
       ("%B: can not represent section `%A' in a.out object file format",
        abfd, sec);
      bfd_set_error (bfd_error_nonrepresentable_section);
      return FALSE;
    }

  /* Turn the symbol from section relative to absolute again */
  value += sec->vma + off;

  if ((cache_ptr->flags & BSF_DEBUGGING) != 0)
    sym_pointer->e_type[0] = ((aout_symbol_type *) cache_ptr)->type;
  else if ((cache_ptr->flags & BSF_GLOBAL) != 0)
    sym_pointer->e_type[0] |= N_EXT;

  PUT_WORD(abfd, value, sym_pointer->e_value);

  return TRUE;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static bfd_boolean MY() write_object_contents ( bfd abfd) [static]

Variable Documentation

reloc_howto_type howto_table_pdp11[]
Initial value:
{
  
HOWTO( 0,            0,  1,  16,  FALSE, 0, complain_overflow_signed,0,"16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
HOWTO( 1,            0,  1,  16,  TRUE,  0, complain_overflow_signed,0,"DISP16",    TRUE, 0x0000ffff,0x0000ffff, FALSE),
}

Definition at line 249 of file pdp11.c.