/* vms.c -- BFD back-end for VAX (openVMS/VAX) and
|
/* vms.c -- BFD back-end for VAX (openVMS/VAX) and
|
EVAX (openVMS/Alpha) files.
|
EVAX (openVMS/Alpha) files.
|
Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
|
Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
|
2006, 2007, 2008, 2009 Free Software Foundation, Inc.
|
2006, 2007, 2008, 2009 Free Software Foundation, Inc.
|
|
|
Main file.
|
Main file.
|
|
|
Written by Klaus K"ampf (kkaempf@rmi.de)
|
Written by Klaus K"ampf (kkaempf@rmi.de)
|
|
|
This program is free software; you can redistribute it and/or modify
|
This program is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
MA 02110-1301, USA. */
|
MA 02110-1301, USA. */
|
|
|
#ifdef VMS
|
#ifdef VMS
|
#include <rms.h>
|
#include <rms.h>
|
#include <unixlib.h>
|
#include <unixlib.h>
|
#include <starlet.h>
|
#include <starlet.h>
|
#define RME$C_SETRFM 0x00000001
|
#define RME$C_SETRFM 0x00000001
|
#include <unistd.h>
|
#include <unistd.h>
|
#endif
|
#endif
|
|
|
#include "sysdep.h"
|
#include "sysdep.h"
|
#include "bfd.h"
|
#include "bfd.h"
|
#include "bfdlink.h"
|
#include "bfdlink.h"
|
#include "libbfd.h"
|
#include "libbfd.h"
|
|
|
#include "vms.h"
|
#include "vms.h"
|
|
|
static bfd_boolean vms_initialize (bfd *);
|
static bfd_boolean vms_initialize (bfd *);
|
static bfd_boolean fill_section_ptr (struct bfd_hash_entry *, PTR);
|
static bfd_boolean fill_section_ptr (struct bfd_hash_entry *, PTR);
|
static bfd_boolean vms_fixup_sections (bfd *);
|
static bfd_boolean vms_fixup_sections (bfd *);
|
static bfd_boolean copy_symbols (struct bfd_hash_entry *, PTR);
|
static bfd_boolean copy_symbols (struct bfd_hash_entry *, PTR);
|
static bfd_reloc_status_type reloc_nil (bfd *, arelent *, asymbol *, PTR,
|
static bfd_reloc_status_type reloc_nil (bfd *, arelent *, asymbol *, PTR,
|
asection *, bfd *, char **);
|
asection *, bfd *, char **);
|
static int vms_slurp_module (bfd *abfd);
|
static int vms_slurp_module (bfd *abfd);
|
static int vms_slurp_image (bfd *abfd);
|
static int vms_slurp_image (bfd *abfd);
|
static const struct bfd_target *vms_object_p (bfd *abfd);
|
static const struct bfd_target *vms_object_p (bfd *abfd);
|
static bfd_boolean vms_mkobject (bfd *abfd);
|
static bfd_boolean vms_mkobject (bfd *abfd);
|
static bfd_boolean vms_write_object_contents (bfd *abfd);
|
static bfd_boolean vms_write_object_contents (bfd *abfd);
|
static void free_reloc_stream (bfd *abfd, asection *section, void *data);
|
static void free_reloc_stream (bfd *abfd, asection *section, void *data);
|
static bfd_boolean vms_close_and_cleanup (bfd *abfd);
|
static bfd_boolean vms_close_and_cleanup (bfd *abfd);
|
static bfd_boolean vms_new_section_hook (bfd *abfd, asection *section);
|
static bfd_boolean vms_new_section_hook (bfd *abfd, asection *section);
|
static bfd_boolean vms_get_section_contents
|
static bfd_boolean vms_get_section_contents
|
(bfd *abfd, asection *section, PTR x1, file_ptr x2, bfd_size_type x3);
|
(bfd *abfd, asection *section, PTR x1, file_ptr x2, bfd_size_type x3);
|
static long vms_get_symtab_upper_bound (bfd *abfd);
|
static long vms_get_symtab_upper_bound (bfd *abfd);
|
static long vms_canonicalize_symtab (bfd *abfd, asymbol **symbols);
|
static long vms_canonicalize_symtab (bfd *abfd, asymbol **symbols);
|
static void vms_print_symbol (bfd *abfd, PTR file, asymbol *symbol,
|
static void vms_print_symbol (bfd *abfd, PTR file, asymbol *symbol,
|
bfd_print_symbol_type how);
|
bfd_print_symbol_type how);
|
static void vms_get_symbol_info (bfd *abfd, asymbol *symbol, symbol_info *ret);
|
static void vms_get_symbol_info (bfd *abfd, asymbol *symbol, symbol_info *ret);
|
static bfd_boolean vms_bfd_is_local_label_name (bfd *abfd, const char *);
|
static bfd_boolean vms_bfd_is_local_label_name (bfd *abfd, const char *);
|
static bfd_boolean vms_find_nearest_line
|
static bfd_boolean vms_find_nearest_line
|
(bfd *abfd, asection *section, asymbol **symbols, bfd_vma offset,
|
(bfd *abfd, asection *section, asymbol **symbols, bfd_vma offset,
|
const char **file, const char **func, unsigned int *line);
|
const char **file, const char **func, unsigned int *line);
|
static void alloc_reloc_stream (bfd *abfd, asection *section,
|
static void alloc_reloc_stream (bfd *abfd, asection *section,
|
void *alloc_error);
|
void *alloc_error);
|
static bfd_boolean vms_slurp_reloc_table (bfd *abfd, asection *section,
|
static bfd_boolean vms_slurp_reloc_table (bfd *abfd, asection *section,
|
asymbol **symbols);
|
asymbol **symbols);
|
static long vms_get_reloc_upper_bound (bfd *abfd, asection *sect);
|
static long vms_get_reloc_upper_bound (bfd *abfd, asection *sect);
|
static long vms_canonicalize_reloc (bfd *abfd, asection *srcsec,
|
static long vms_canonicalize_reloc (bfd *abfd, asection *srcsec,
|
arelent **location, asymbol **symbols);
|
arelent **location, asymbol **symbols);
|
static const struct reloc_howto_struct *vms_bfd_reloc_type_lookup
|
static const struct reloc_howto_struct *vms_bfd_reloc_type_lookup
|
(bfd *abfd, bfd_reloc_code_real_type code);
|
(bfd *abfd, bfd_reloc_code_real_type code);
|
static bfd_boolean vms_set_arch_mach
|
static bfd_boolean vms_set_arch_mach
|
(bfd *abfd, enum bfd_architecture arch, unsigned long mach);
|
(bfd *abfd, enum bfd_architecture arch, unsigned long mach);
|
static bfd_boolean vms_set_section_contents
|
static bfd_boolean vms_set_section_contents
|
(bfd *abfd, asection *section, const PTR location, file_ptr offset,
|
(bfd *abfd, asection *section, const PTR location, file_ptr offset,
|
bfd_size_type count);
|
bfd_size_type count);
|
|
|
#define vms_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
|
#define vms_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
|
#define vms_make_empty_symbol _bfd_generic_make_empty_symbol
|
#define vms_make_empty_symbol _bfd_generic_make_empty_symbol
|
#define vms_bfd_link_just_syms _bfd_generic_link_just_syms
|
#define vms_bfd_link_just_syms _bfd_generic_link_just_syms
|
#define vms_bfd_copy_link_hash_symbol_type \
|
#define vms_bfd_copy_link_hash_symbol_type \
|
_bfd_generic_copy_link_hash_symbol_type
|
_bfd_generic_copy_link_hash_symbol_type
|
#define vms_bfd_is_group_section bfd_generic_is_group_section
|
#define vms_bfd_is_group_section bfd_generic_is_group_section
|
#define vms_bfd_discard_group bfd_generic_discard_group
|
#define vms_bfd_discard_group bfd_generic_discard_group
|
#define vms_section_already_linked _bfd_generic_section_already_linked
|
#define vms_section_already_linked _bfd_generic_section_already_linked
|
#define vms_bfd_define_common_symbol bfd_generic_define_common_symbol
|
#define vms_bfd_define_common_symbol bfd_generic_define_common_symbol
|
#define vms_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
|
#define vms_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
|
#define vms_get_synthetic_symtab _bfd_nodynamic_get_synthetic_symtab
|
#define vms_get_synthetic_symtab _bfd_nodynamic_get_synthetic_symtab
|
|
|
#define vms_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
|
#define vms_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
|
#define vms_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
|
#define vms_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
|
#define vms_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data
|
#define vms_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data
|
#define vms_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
|
#define vms_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
|
#define vms_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
|
#define vms_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
|
#define vms_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
|
#define vms_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
|
#define vms_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
|
#define vms_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
|
#define vms_read_minisymbols _bfd_generic_read_minisymbols
|
#define vms_read_minisymbols _bfd_generic_read_minisymbols
|
#define vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
|
#define vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
|
#define vms_get_lineno _bfd_nosymbols_get_lineno
|
#define vms_get_lineno _bfd_nosymbols_get_lineno
|
#define vms_find_inliner_info _bfd_nosymbols_find_inliner_info
|
#define vms_find_inliner_info _bfd_nosymbols_find_inliner_info
|
#define vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
|
#define vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
|
|
|
#ifdef VMS_DEBUG
|
#ifdef VMS_DEBUG
|
/* Cause debug info to be emitted for the structure. */
|
/* Cause debug info to be emitted for the structure. */
|
struct vms_private_data_struct _vms_private_data_struct_dummy;
|
struct vms_private_data_struct _vms_private_data_struct_dummy;
|
struct vms_section_data_struct _vms_section_data_struct_dummy;
|
struct vms_section_data_struct _vms_section_data_struct_dummy;
|
#endif
|
#endif
|
|
|
extern const bfd_target vms_vax_vec;
|
extern const bfd_target vms_vax_vec;
|
extern const bfd_target vms_alpha_vec;
|
extern const bfd_target vms_alpha_vec;
|
|
|
/* Initialize private data */
|
/* Initialize private data */
|
static bfd_boolean
|
static bfd_boolean
|
vms_initialize (bfd * abfd)
|
vms_initialize (bfd * abfd)
|
{
|
{
|
bfd_size_type amt;
|
bfd_size_type amt;
|
|
|
bfd_set_start_address (abfd, (bfd_vma) -1);
|
bfd_set_start_address (abfd, (bfd_vma) -1);
|
|
|
amt = sizeof (struct vms_private_data_struct);
|
amt = sizeof (struct vms_private_data_struct);
|
abfd->tdata.any = bfd_zalloc (abfd, amt);
|
abfd->tdata.any = bfd_zalloc (abfd, amt);
|
if (abfd->tdata.any == NULL)
|
if (abfd->tdata.any == NULL)
|
return FALSE;
|
return FALSE;
|
|
|
if (bfd_get_flavour (abfd) == bfd_target_ovax_flavour)
|
if (bfd_get_flavour (abfd) == bfd_target_ovax_flavour)
|
PRIV (is_vax) = TRUE;
|
PRIV (is_vax) = TRUE;
|
|
|
PRIV (file_format) = FF_UNKNOWN;
|
PRIV (file_format) = FF_UNKNOWN;
|
|
|
amt = sizeof (struct stack_struct) * STACKSIZE;
|
amt = sizeof (struct stack_struct) * STACKSIZE;
|
PRIV (stack) = bfd_alloc (abfd, amt);
|
PRIV (stack) = bfd_alloc (abfd, amt);
|
if (PRIV (stack) == NULL)
|
if (PRIV (stack) == NULL)
|
goto error_ret1;
|
goto error_ret1;
|
|
|
amt = sizeof (struct bfd_hash_table);
|
amt = sizeof (struct bfd_hash_table);
|
PRIV (vms_symbol_table) = bfd_alloc (abfd, amt);
|
PRIV (vms_symbol_table) = bfd_alloc (abfd, amt);
|
if (PRIV (vms_symbol_table) == NULL)
|
if (PRIV (vms_symbol_table) == NULL)
|
goto error_ret1;
|
goto error_ret1;
|
|
|
if (!bfd_hash_table_init (PRIV (vms_symbol_table), _bfd_vms_hash_newfunc,
|
if (!bfd_hash_table_init (PRIV (vms_symbol_table), _bfd_vms_hash_newfunc,
|
sizeof (vms_symbol_entry)))
|
sizeof (vms_symbol_entry)))
|
goto error_ret1;
|
goto error_ret1;
|
|
|
amt = MAX_OUTREC_SIZE;
|
amt = MAX_OUTREC_SIZE;
|
PRIV (output_buf) = bfd_alloc (abfd, amt);
|
PRIV (output_buf) = bfd_alloc (abfd, amt);
|
if (PRIV (output_buf) == NULL)
|
if (PRIV (output_buf) == NULL)
|
goto error_ret2;
|
goto error_ret2;
|
|
|
PRIV (length_pos) = 2;
|
PRIV (length_pos) = 2;
|
|
|
return TRUE;
|
return TRUE;
|
|
|
error_ret2:
|
error_ret2:
|
bfd_hash_table_free (PRIV (vms_symbol_table));
|
bfd_hash_table_free (PRIV (vms_symbol_table));
|
error_ret1:
|
error_ret1:
|
bfd_release (abfd, abfd->tdata.any);
|
bfd_release (abfd, abfd->tdata.any);
|
abfd->tdata.any = NULL;
|
abfd->tdata.any = NULL;
|
return FALSE;
|
return FALSE;
|
}
|
}
|
|
|
struct pair
|
struct pair
|
{
|
{
|
unsigned int section_count;
|
unsigned int section_count;
|
asection **sections;
|
asection **sections;
|
};
|
};
|
|
|
/* Fill symbol->section with section pointer.
|
/* Fill symbol->section with section pointer.
|
|
|
symbol->section is filled with the section index for defined symbols
|
symbol->section is filled with the section index for defined symbols
|
during reading the GSD/EGSD section. But we need the pointer to the
|
during reading the GSD/EGSD section. But we need the pointer to the
|
bfd section later.
|
bfd section later.
|
|
|
It has the correct value for referenced (undefined section) symbols.
|
It has the correct value for referenced (undefined section) symbols.
|
|
|
Called from bfd_hash_traverse in vms_fixup_sections. */
|
Called from bfd_hash_traverse in vms_fixup_sections. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
fill_section_ptr (struct bfd_hash_entry *entry, void *sections)
|
fill_section_ptr (struct bfd_hash_entry *entry, void *sections)
|
{
|
{
|
asymbol *sym = ((vms_symbol_entry *)entry)->symbol;
|
asymbol *sym = ((vms_symbol_entry *)entry)->symbol;
|
struct pair *data = (struct pair *)sections;
|
struct pair *data = (struct pair *)sections;
|
unsigned long sec = (unsigned long)sym->section;
|
unsigned long sec = (unsigned long)sym->section;
|
|
|
vms_debug2 ((6, "fill_section_ptr: sym %p, sec %lu\n", sym, sec));
|
vms_debug2 ((6, "fill_section_ptr: sym %p, sec %lu\n", sym, sec));
|
|
|
if (sec < data->section_count)
|
if (sec < data->section_count)
|
{
|
{
|
sym->section = data->sections[sec];
|
sym->section = data->sections[sec];
|
|
|
if (strcmp (sym->name, sym->section->name) == 0)
|
if (strcmp (sym->name, sym->section->name) == 0)
|
sym->flags |= BSF_SECTION_SYM;
|
sym->flags |= BSF_SECTION_SYM;
|
}
|
}
|
else if (sec == (unsigned long)-1)
|
else if (sec == (unsigned long)-1)
|
sym->section = &bfd_und_section;
|
sym->section = &bfd_und_section;
|
|
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* Fixup section pointers in symbols. */
|
/* Fixup section pointers in symbols. */
|
static bfd_boolean
|
static bfd_boolean
|
vms_fixup_sections (bfd * abfd)
|
vms_fixup_sections (bfd * abfd)
|
{
|
{
|
struct pair data;
|
struct pair data;
|
|
|
if (PRIV (fixup_done))
|
if (PRIV (fixup_done))
|
return TRUE;
|
return TRUE;
|
|
|
data.section_count = PRIV (section_count);
|
data.section_count = PRIV (section_count);
|
data.sections = PRIV (sections);
|
data.sections = PRIV (sections);
|
bfd_hash_traverse (PRIV (vms_symbol_table), fill_section_ptr, &data);
|
bfd_hash_traverse (PRIV (vms_symbol_table), fill_section_ptr, &data);
|
|
|
PRIV (fixup_done) = TRUE;
|
PRIV (fixup_done) = TRUE;
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* Slurp an ordered set of VMS object records. */
|
/* Slurp an ordered set of VMS object records. */
|
int
|
int
|
_bfd_vms_slurp_object_records (bfd * abfd)
|
_bfd_vms_slurp_object_records (bfd * abfd)
|
{
|
{
|
int err, new_type, type = -1;
|
int err, new_type, type = -1;
|
|
|
do
|
do
|
{
|
{
|
vms_debug2 ((7, "reading at %08lx\n", bfd_tell (abfd)));
|
vms_debug2 ((7, "reading at %08lx\n", bfd_tell (abfd)));
|
|
|
new_type = _bfd_vms_get_object_record (abfd);
|
new_type = _bfd_vms_get_object_record (abfd);
|
if (new_type < 0)
|
if (new_type < 0)
|
{
|
{
|
vms_debug2 ((2, "next_record failed\n"));
|
vms_debug2 ((2, "next_record failed\n"));
|
return -1;
|
return -1;
|
}
|
}
|
|
|
if (type == EOBJ_S_C_EGSD && new_type != EOBJ_S_C_EGSD)
|
if (type == EOBJ_S_C_EGSD && new_type != EOBJ_S_C_EGSD)
|
{
|
{
|
if (! vms_fixup_sections (abfd))
|
if (! vms_fixup_sections (abfd))
|
{
|
{
|
vms_debug2 ((2, "vms_fixup_sections failed\n"));
|
vms_debug2 ((2, "vms_fixup_sections failed\n"));
|
return -1;
|
return -1;
|
}
|
}
|
}
|
}
|
|
|
type = new_type;
|
type = new_type;
|
|
|
switch (type)
|
switch (type)
|
{
|
{
|
case OBJ_S_C_HDR:
|
case OBJ_S_C_HDR:
|
case EOBJ_S_C_EMH:
|
case EOBJ_S_C_EMH:
|
err = _bfd_vms_slurp_hdr (abfd, type);
|
err = _bfd_vms_slurp_hdr (abfd, type);
|
break;
|
break;
|
case OBJ_S_C_EOM:
|
case OBJ_S_C_EOM:
|
case OBJ_S_C_EOMW:
|
case OBJ_S_C_EOMW:
|
case EOBJ_S_C_EEOM:
|
case EOBJ_S_C_EEOM:
|
err = _bfd_vms_slurp_eom (abfd, type);
|
err = _bfd_vms_slurp_eom (abfd, type);
|
break;
|
break;
|
case OBJ_S_C_GSD:
|
case OBJ_S_C_GSD:
|
case EOBJ_S_C_EGSD:
|
case EOBJ_S_C_EGSD:
|
err = _bfd_vms_slurp_gsd (abfd, type);
|
err = _bfd_vms_slurp_gsd (abfd, type);
|
break;
|
break;
|
case OBJ_S_C_TIR:
|
case OBJ_S_C_TIR:
|
case EOBJ_S_C_ETIR:
|
case EOBJ_S_C_ETIR:
|
err = _bfd_vms_slurp_tir (abfd, type);
|
err = _bfd_vms_slurp_tir (abfd, type);
|
break;
|
break;
|
case OBJ_S_C_DBG:
|
case OBJ_S_C_DBG:
|
case EOBJ_S_C_EDBG:
|
case EOBJ_S_C_EDBG:
|
err = _bfd_vms_slurp_dbg (abfd, type);
|
err = _bfd_vms_slurp_dbg (abfd, type);
|
PRIV (dst_ptr_end) = PRIV (image_ptr);
|
PRIV (dst_ptr_end) = PRIV (image_ptr);
|
break;
|
break;
|
case OBJ_S_C_TBT:
|
case OBJ_S_C_TBT:
|
case EOBJ_S_C_ETBT:
|
case EOBJ_S_C_ETBT:
|
err = _bfd_vms_slurp_tbt (abfd, type);
|
err = _bfd_vms_slurp_tbt (abfd, type);
|
PRIV (dst_ptr_end) = PRIV (image_ptr);
|
PRIV (dst_ptr_end) = PRIV (image_ptr);
|
break;
|
break;
|
case OBJ_S_C_LNK:
|
case OBJ_S_C_LNK:
|
err = _bfd_vms_slurp_lnk (abfd, type);
|
err = _bfd_vms_slurp_lnk (abfd, type);
|
break;
|
break;
|
default:
|
default:
|
err = -1;
|
err = -1;
|
}
|
}
|
if (err != 0)
|
if (err != 0)
|
{
|
{
|
vms_debug2 ((2, "slurp type %d failed with %d\n", type, err));
|
vms_debug2 ((2, "slurp type %d failed with %d\n", type, err));
|
return err;
|
return err;
|
}
|
}
|
}
|
}
|
while (type != EOBJ_S_C_EEOM && type != OBJ_S_C_EOM && type != OBJ_S_C_EOMW);
|
while (type != EOBJ_S_C_EEOM && type != OBJ_S_C_EOM && type != OBJ_S_C_EOMW);
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Slurp a VMS module and return an error status. */
|
/* Slurp a VMS module and return an error status. */
|
|
|
static int
|
static int
|
vms_slurp_module (bfd *abfd)
|
vms_slurp_module (bfd *abfd)
|
{
|
{
|
int type, err;
|
int type, err;
|
|
|
if (PRIV (is_vax))
|
if (PRIV (is_vax))
|
type = PRIV (vms_rec)[0];
|
type = PRIV (vms_rec)[0];
|
else
|
else
|
type = bfd_getl16 (PRIV (vms_rec));
|
type = bfd_getl16 (PRIV (vms_rec));
|
|
|
err = _bfd_vms_slurp_hdr (abfd, type);
|
err = _bfd_vms_slurp_hdr (abfd, type);
|
if (err != 0)
|
if (err != 0)
|
{
|
{
|
bfd_set_error (bfd_error_wrong_format);
|
bfd_set_error (bfd_error_wrong_format);
|
return err;
|
return err;
|
}
|
}
|
|
|
return _bfd_vms_slurp_object_records (abfd);
|
return _bfd_vms_slurp_object_records (abfd);
|
}
|
}
|
|
|
/* Slurp a VMS image and return an error status. */
|
/* Slurp a VMS image and return an error status. */
|
|
|
static int
|
static int
|
vms_slurp_image (bfd *abfd)
|
vms_slurp_image (bfd *abfd)
|
{
|
{
|
unsigned int isd_offset, ihs_offset;
|
unsigned int isd_offset, ihs_offset;
|
int err;
|
int err;
|
|
|
err = _bfd_vms_slurp_ihd (abfd, &isd_offset, &ihs_offset);
|
err = _bfd_vms_slurp_ihd (abfd, &isd_offset, &ihs_offset);
|
if (err != 0)
|
if (err != 0)
|
{
|
{
|
bfd_set_error (bfd_error_wrong_format);
|
bfd_set_error (bfd_error_wrong_format);
|
return err;
|
return err;
|
}
|
}
|
|
|
err = _bfd_vms_slurp_isd (abfd, isd_offset);
|
err = _bfd_vms_slurp_isd (abfd, isd_offset);
|
if (err != 0)
|
if (err != 0)
|
{
|
{
|
bfd_set_error (bfd_error_wrong_format);
|
bfd_set_error (bfd_error_wrong_format);
|
return err;
|
return err;
|
}
|
}
|
|
|
return _bfd_vms_slurp_ihs (abfd, ihs_offset);
|
return _bfd_vms_slurp_ihs (abfd, ihs_offset);
|
}
|
}
|
|
|
/* Check the format for a file being read.
|
/* Check the format for a file being read.
|
Return a (bfd_target *) if it's an object file or zero if not. */
|
Return a (bfd_target *) if it's an object file or zero if not. */
|
|
|
static const struct bfd_target *
|
static const struct bfd_target *
|
vms_object_p (bfd *abfd)
|
vms_object_p (bfd *abfd)
|
{
|
{
|
const struct bfd_target *target_vector;
|
const struct bfd_target *target_vector;
|
const bfd_arch_info_type *arch;
|
const bfd_arch_info_type *arch;
|
PTR tdata_save = abfd->tdata.any;
|
PTR tdata_save = abfd->tdata.any;
|
bfd_vma saddr_save = bfd_get_start_address (abfd);
|
bfd_vma saddr_save = bfd_get_start_address (abfd);
|
int err = 0;
|
int err = 0;
|
|
|
vms_debug2 ((1, "vms_object_p(%p)\n", abfd));
|
vms_debug2 ((1, "vms_object_p(%p)\n", abfd));
|
|
|
if (!vms_initialize (abfd))
|
if (!vms_initialize (abfd))
|
goto error_ret;
|
goto error_ret;
|
|
|
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET))
|
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET))
|
goto err_wrong_format;
|
goto err_wrong_format;
|
|
|
switch (_bfd_vms_get_first_record (abfd))
|
switch (_bfd_vms_get_first_record (abfd))
|
{
|
{
|
case FT_UNKNOWN:
|
case FT_UNKNOWN:
|
default:
|
default:
|
err = -1;
|
err = -1;
|
break;
|
break;
|
|
|
case FT_MODULE:
|
case FT_MODULE:
|
err = vms_slurp_module (abfd);
|
err = vms_slurp_module (abfd);
|
break;
|
break;
|
|
|
case FT_IMAGE:
|
case FT_IMAGE:
|
err = vms_slurp_image (abfd);
|
err = vms_slurp_image (abfd);
|
break;
|
break;
|
}
|
}
|
|
|
if (err != 0)
|
if (err != 0)
|
goto err_wrong_format;
|
goto err_wrong_format;
|
|
|
if (PRIV (is_vax))
|
if (PRIV (is_vax))
|
{
|
{
|
if (! vms_fixup_sections (abfd))
|
if (! vms_fixup_sections (abfd))
|
{
|
{
|
vms_debug2 ((2, "vms_fixup_sections failed\n"));
|
vms_debug2 ((2, "vms_fixup_sections failed\n"));
|
goto err_wrong_format;
|
goto err_wrong_format;
|
}
|
}
|
|
|
target_vector = &vms_vax_vec;
|
target_vector = &vms_vax_vec;
|
arch = bfd_scan_arch ("vax");
|
arch = bfd_scan_arch ("vax");
|
|
|
vms_debug2 ((2, "arch is vax\n"));
|
vms_debug2 ((2, "arch is vax\n"));
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Set arch_info to alpha. */
|
/* Set arch_info to alpha. */
|
target_vector = &vms_alpha_vec;
|
target_vector = &vms_alpha_vec;
|
arch = bfd_scan_arch ("alpha");
|
arch = bfd_scan_arch ("alpha");
|
vms_debug2 ((2, "arch is alpha\n"));
|
vms_debug2 ((2, "arch is alpha\n"));
|
}
|
}
|
|
|
abfd->arch_info = arch;
|
abfd->arch_info = arch;
|
return target_vector;
|
return target_vector;
|
|
|
err_wrong_format:
|
err_wrong_format:
|
bfd_set_error (bfd_error_wrong_format);
|
bfd_set_error (bfd_error_wrong_format);
|
|
|
error_ret:
|
error_ret:
|
if (abfd->tdata.any != tdata_save && abfd->tdata.any != NULL)
|
if (abfd->tdata.any != tdata_save && abfd->tdata.any != NULL)
|
bfd_release (abfd, abfd->tdata.any);
|
bfd_release (abfd, abfd->tdata.any);
|
abfd->tdata.any = tdata_save;
|
abfd->tdata.any = tdata_save;
|
bfd_set_start_address (abfd, saddr_save);
|
bfd_set_start_address (abfd, saddr_save);
|
return NULL;
|
return NULL;
|
}
|
}
|
|
|
/* Set the format of a file being written. */
|
/* Set the format of a file being written. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_mkobject (bfd * abfd)
|
vms_mkobject (bfd * abfd)
|
{
|
{
|
const bfd_arch_info_type *arch;
|
const bfd_arch_info_type *arch;
|
|
|
vms_debug2 ((1, "vms_mkobject (%p)\n", abfd));
|
vms_debug2 ((1, "vms_mkobject (%p)\n", abfd));
|
|
|
if (!vms_initialize (abfd))
|
if (!vms_initialize (abfd))
|
return FALSE;
|
return FALSE;
|
|
|
if (PRIV (is_vax))
|
if (PRIV (is_vax))
|
arch = bfd_scan_arch ("vax");
|
arch = bfd_scan_arch ("vax");
|
else
|
else
|
arch = bfd_scan_arch ("alpha");
|
arch = bfd_scan_arch ("alpha");
|
|
|
if (arch == 0)
|
if (arch == 0)
|
{
|
{
|
bfd_set_error(bfd_error_wrong_format);
|
bfd_set_error(bfd_error_wrong_format);
|
return FALSE;
|
return FALSE;
|
}
|
}
|
|
|
abfd->arch_info = arch;
|
abfd->arch_info = arch;
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* Write cached information into a file being written, at bfd_close. */
|
/* Write cached information into a file being written, at bfd_close. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_write_object_contents (bfd * abfd)
|
vms_write_object_contents (bfd * abfd)
|
{
|
{
|
vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd));
|
vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd));
|
|
|
if (abfd->section_count > 0) /* we have sections */
|
if (abfd->section_count > 0) /* we have sections */
|
{
|
{
|
if (PRIV (is_vax))
|
if (PRIV (is_vax))
|
{
|
{
|
if (_bfd_vms_write_hdr (abfd, OBJ_S_C_HDR) != 0)
|
if (_bfd_vms_write_hdr (abfd, OBJ_S_C_HDR) != 0)
|
return FALSE;
|
return FALSE;
|
if (_bfd_vms_write_gsd (abfd, OBJ_S_C_GSD) != 0)
|
if (_bfd_vms_write_gsd (abfd, OBJ_S_C_GSD) != 0)
|
return FALSE;
|
return FALSE;
|
if (_bfd_vms_write_tir (abfd, OBJ_S_C_TIR) != 0)
|
if (_bfd_vms_write_tir (abfd, OBJ_S_C_TIR) != 0)
|
return FALSE;
|
return FALSE;
|
if (_bfd_vms_write_tbt (abfd, OBJ_S_C_TBT) != 0)
|
if (_bfd_vms_write_tbt (abfd, OBJ_S_C_TBT) != 0)
|
return FALSE;
|
return FALSE;
|
if (_bfd_vms_write_dbg (abfd, OBJ_S_C_DBG) != 0)
|
if (_bfd_vms_write_dbg (abfd, OBJ_S_C_DBG) != 0)
|
return FALSE;
|
return FALSE;
|
if (abfd->section_count > 255)
|
if (abfd->section_count > 255)
|
{
|
{
|
if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOMW) != 0)
|
if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOMW) != 0)
|
return FALSE;
|
return FALSE;
|
}
|
}
|
else
|
else
|
{
|
{
|
if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOM) != 0)
|
if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOM) != 0)
|
return FALSE;
|
return FALSE;
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
if (_bfd_vms_write_hdr (abfd, EOBJ_S_C_EMH) != 0)
|
if (_bfd_vms_write_hdr (abfd, EOBJ_S_C_EMH) != 0)
|
return FALSE;
|
return FALSE;
|
if (_bfd_vms_write_gsd (abfd, EOBJ_S_C_EGSD) != 0)
|
if (_bfd_vms_write_gsd (abfd, EOBJ_S_C_EGSD) != 0)
|
return FALSE;
|
return FALSE;
|
if (_bfd_vms_write_tir (abfd, EOBJ_S_C_ETIR) != 0)
|
if (_bfd_vms_write_tir (abfd, EOBJ_S_C_ETIR) != 0)
|
return FALSE;
|
return FALSE;
|
if (_bfd_vms_write_tbt (abfd, EOBJ_S_C_ETBT) != 0)
|
if (_bfd_vms_write_tbt (abfd, EOBJ_S_C_ETBT) != 0)
|
return FALSE;
|
return FALSE;
|
if (_bfd_vms_write_dbg (abfd, EOBJ_S_C_EDBG) != 0)
|
if (_bfd_vms_write_dbg (abfd, EOBJ_S_C_EDBG) != 0)
|
return FALSE;
|
return FALSE;
|
if (_bfd_vms_write_eom (abfd, EOBJ_S_C_EEOM) != 0)
|
if (_bfd_vms_write_eom (abfd, EOBJ_S_C_EEOM) != 0)
|
return FALSE;
|
return FALSE;
|
}
|
}
|
}
|
}
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* 4.1, generic. */
|
/* 4.1, generic. */
|
|
|
/* Free the reloc buffer for the specified section. */
|
/* Free the reloc buffer for the specified section. */
|
|
|
static void
|
static void
|
free_reloc_stream (bfd *abfd ATTRIBUTE_UNUSED, asection *section,
|
free_reloc_stream (bfd *abfd ATTRIBUTE_UNUSED, asection *section,
|
void *data ATTRIBUTE_UNUSED)
|
void *data ATTRIBUTE_UNUSED)
|
{
|
{
|
if (vms_section_data (section)->reloc_stream)
|
if (vms_section_data (section)->reloc_stream)
|
free (vms_section_data (section)->reloc_stream);
|
free (vms_section_data (section)->reloc_stream);
|
}
|
}
|
|
|
#ifdef VMS
|
#ifdef VMS
|
/* Convert the file to variable record length format. This is done
|
/* Convert the file to variable record length format. This is done
|
using undocumented system call sys$modify().
|
using undocumented system call sys$modify().
|
Pure VMS version. */
|
Pure VMS version. */
|
|
|
static void
|
static void
|
vms_convert_to_var (char *vms_filename)
|
vms_convert_to_var (char *vms_filename)
|
{
|
{
|
struct FAB fab = cc$rms_fab;
|
struct FAB fab = cc$rms_fab;
|
|
|
fab.fab$l_fna = vms_filename;
|
fab.fab$l_fna = vms_filename;
|
fab.fab$b_fns = strlen (vms_filename);
|
fab.fab$b_fns = strlen (vms_filename);
|
fab.fab$b_fac = FAB$M_PUT;
|
fab.fab$b_fac = FAB$M_PUT;
|
fab.fab$l_fop = FAB$M_ESC;
|
fab.fab$l_fop = FAB$M_ESC;
|
fab.fab$l_ctx = RME$C_SETRFM;
|
fab.fab$l_ctx = RME$C_SETRFM;
|
|
|
sys$open (&fab);
|
sys$open (&fab);
|
|
|
fab.fab$b_rfm = FAB$C_VAR;
|
fab.fab$b_rfm = FAB$C_VAR;
|
|
|
sys$modify (&fab);
|
sys$modify (&fab);
|
sys$close (&fab);
|
sys$close (&fab);
|
}
|
}
|
|
|
static int
|
static int
|
vms_convert_to_var_1 (char *filename, int type)
|
vms_convert_to_var_1 (char *filename, int type)
|
{
|
{
|
if (type != DECC$K_FILE)
|
if (type != DECC$K_FILE)
|
return FALSE;
|
return FALSE;
|
vms_convert_to_var (filename);
|
vms_convert_to_var (filename);
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* Convert the file to variable record length format. This is done
|
/* Convert the file to variable record length format. This is done
|
using undocumented system call sys$modify().
|
using undocumented system call sys$modify().
|
Unix filename version. */
|
Unix filename version. */
|
|
|
static int
|
static int
|
vms_convert_to_var_unix_filename (const char *unix_filename)
|
vms_convert_to_var_unix_filename (const char *unix_filename)
|
{
|
{
|
if (decc$to_vms (unix_filename, &vms_convert_to_var_1, 0, 1) != 1)
|
if (decc$to_vms (unix_filename, &vms_convert_to_var_1, 0, 1) != 1)
|
return FALSE;
|
return FALSE;
|
return TRUE;
|
return TRUE;
|
}
|
}
|
#endif /* VMS */
|
#endif /* VMS */
|
|
|
/* Called when the BFD is being closed to do any necessary cleanup. */
|
/* Called when the BFD is being closed to do any necessary cleanup. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_close_and_cleanup (bfd * abfd)
|
vms_close_and_cleanup (bfd * abfd)
|
{
|
{
|
vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd));
|
vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd));
|
|
|
if (abfd == NULL || abfd->tdata.any == NULL)
|
if (abfd == NULL || abfd->tdata.any == NULL)
|
return TRUE;
|
return TRUE;
|
|
|
if (PRIV (vms_buf) != NULL)
|
if (PRIV (vms_buf) != NULL)
|
free (PRIV (vms_buf));
|
free (PRIV (vms_buf));
|
|
|
if (PRIV (sections) != NULL)
|
if (PRIV (sections) != NULL)
|
free (PRIV (sections));
|
free (PRIV (sections));
|
|
|
if (PRIV (vms_symbol_table))
|
if (PRIV (vms_symbol_table))
|
bfd_hash_table_free (PRIV (vms_symbol_table));
|
bfd_hash_table_free (PRIV (vms_symbol_table));
|
|
|
bfd_map_over_sections (abfd, free_reloc_stream, NULL);
|
bfd_map_over_sections (abfd, free_reloc_stream, NULL);
|
|
|
bfd_release (abfd, abfd->tdata.any);
|
bfd_release (abfd, abfd->tdata.any);
|
abfd->tdata.any = NULL;
|
abfd->tdata.any = NULL;
|
|
|
#ifdef VMS
|
#ifdef VMS
|
if (abfd->direction == write_direction)
|
if (abfd->direction == write_direction)
|
{
|
{
|
/* Last step on VMS is to convert the file to variable record length
|
/* Last step on VMS is to convert the file to variable record length
|
format. */
|
format. */
|
if (bfd_cache_close (abfd) != TRUE)
|
if (bfd_cache_close (abfd) != TRUE)
|
return FALSE;
|
return FALSE;
|
if (vms_convert_to_var_unix_filename (abfd->filename) != TRUE)
|
if (vms_convert_to_var_unix_filename (abfd->filename) != TRUE)
|
return FALSE;
|
return FALSE;
|
}
|
}
|
#endif
|
#endif
|
|
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* Called when a new section is created. */
|
/* Called when a new section is created. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_new_section_hook (bfd * abfd, asection *section)
|
vms_new_section_hook (bfd * abfd, asection *section)
|
{
|
{
|
bfd_size_type amt;
|
bfd_size_type amt;
|
|
|
/* Count hasn't been incremented yet. */
|
/* Count hasn't been incremented yet. */
|
unsigned int section_count = abfd->section_count + 1;
|
unsigned int section_count = abfd->section_count + 1;
|
|
|
vms_debug2 ((1, "vms_new_section_hook (%p, [%d]%s), count %d\n",
|
vms_debug2 ((1, "vms_new_section_hook (%p, [%d]%s), count %d\n",
|
abfd, section->index, section->name, section_count));
|
abfd, section->index, section->name, section_count));
|
|
|
bfd_set_section_alignment (abfd, section, 0);
|
bfd_set_section_alignment (abfd, section, 0);
|
|
|
if (section_count > PRIV (section_count))
|
if (section_count > PRIV (section_count))
|
{
|
{
|
amt = section_count;
|
amt = section_count;
|
amt *= sizeof (asection *);
|
amt *= sizeof (asection *);
|
PRIV (sections) = bfd_realloc_or_free (PRIV (sections), amt);
|
PRIV (sections) = bfd_realloc_or_free (PRIV (sections), amt);
|
if (PRIV (sections) == NULL)
|
if (PRIV (sections) == NULL)
|
return FALSE;
|
return FALSE;
|
PRIV (section_count) = section_count;
|
PRIV (section_count) = section_count;
|
}
|
}
|
|
|
vms_debug2 ((6, "section_count: %d\n", PRIV (section_count)));
|
vms_debug2 ((6, "section_count: %d\n", PRIV (section_count)));
|
|
|
PRIV (sections)[section->index] = section;
|
PRIV (sections)[section->index] = section;
|
|
|
vms_debug2 ((7, "%d: %s\n", section->index, section->name));
|
vms_debug2 ((7, "%d: %s\n", section->index, section->name));
|
|
|
amt = sizeof (struct vms_section_data_struct);
|
amt = sizeof (struct vms_section_data_struct);
|
section->used_by_bfd = (PTR) bfd_zalloc (abfd, amt);
|
section->used_by_bfd = (PTR) bfd_zalloc (abfd, amt);
|
if (section->used_by_bfd == NULL)
|
if (section->used_by_bfd == NULL)
|
return FALSE;
|
return FALSE;
|
|
|
return _bfd_generic_new_section_hook (abfd, section);
|
return _bfd_generic_new_section_hook (abfd, section);
|
}
|
}
|
|
|
/* Read the contents of a section.
|
/* Read the contents of a section.
|
buf points to a buffer of buf_size bytes to be filled with
|
buf points to a buffer of buf_size bytes to be filled with
|
section data (starting at offset into section) */
|
section data (starting at offset into section) */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_get_section_contents (bfd * abfd ATTRIBUTE_UNUSED,
|
vms_get_section_contents (bfd * abfd ATTRIBUTE_UNUSED,
|
asection *section ATTRIBUTE_UNUSED,
|
asection *section ATTRIBUTE_UNUSED,
|
void * buf ATTRIBUTE_UNUSED,
|
void * buf ATTRIBUTE_UNUSED,
|
file_ptr offset ATTRIBUTE_UNUSED,
|
file_ptr offset ATTRIBUTE_UNUSED,
|
bfd_size_type buf_size ATTRIBUTE_UNUSED)
|
bfd_size_type buf_size ATTRIBUTE_UNUSED)
|
{
|
{
|
bfd_size_type size = section->size;
|
bfd_size_type size = section->size;
|
|
|
vms_debug2 ((1, "vms_get_section_contents (%p, %s, %p, off %ld, size %d)\n",
|
vms_debug2 ((1, "vms_get_section_contents (%p, %s, %p, off %ld, size %d)\n",
|
abfd, section->name, buf, offset, (int)buf_size));
|
abfd, section->name, buf, offset, (int)buf_size));
|
|
|
if (section->contents)
|
if (section->contents)
|
abort ();
|
abort ();
|
|
|
section->contents = (unsigned char *) bfd_malloc (size);
|
section->contents = (unsigned char *) bfd_malloc (size);
|
|
|
if (section->contents == NULL)
|
if (section->contents == NULL)
|
{
|
{
|
bfd_set_error (bfd_error_no_memory);
|
bfd_set_error (bfd_error_no_memory);
|
return FALSE;
|
return FALSE;
|
}
|
}
|
|
|
if (bfd_seek (abfd, section->filepos, SEEK_SET))
|
if (bfd_seek (abfd, section->filepos, SEEK_SET))
|
{
|
{
|
bfd_set_error (bfd_error_file_truncated);
|
bfd_set_error (bfd_error_file_truncated);
|
return FALSE;
|
return FALSE;
|
}
|
}
|
|
|
if (bfd_bread (section->contents, size, abfd) != size)
|
if (bfd_bread (section->contents, size, abfd) != size)
|
{
|
{
|
bfd_set_error (bfd_error_file_truncated);
|
bfd_set_error (bfd_error_file_truncated);
|
return FALSE;
|
return FALSE;
|
}
|
}
|
|
|
section->flags |= SEC_IN_MEMORY;
|
section->flags |= SEC_IN_MEMORY;
|
|
|
if (buf)
|
if (buf)
|
memcpy (buf, section->contents + offset, (size_t) buf_size);
|
memcpy (buf, section->contents + offset, (size_t) buf_size);
|
|
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* Part 4.5, symbols. */
|
/* Part 4.5, symbols. */
|
|
|
/* Return the number of bytes required to store a vector of pointers
|
/* Return the number of bytes required to store a vector of pointers
|
to asymbols for all the symbols in the BFD abfd, including a
|
to asymbols for all the symbols in the BFD abfd, including a
|
terminal NULL pointer. If there are no symbols in the BFD,
|
terminal NULL pointer. If there are no symbols in the BFD,
|
then return 0. If an error occurs, return -1. */
|
then return 0. If an error occurs, return -1. */
|
|
|
static long
|
static long
|
vms_get_symtab_upper_bound (bfd * abfd)
|
vms_get_symtab_upper_bound (bfd * abfd)
|
{
|
{
|
vms_debug2 ((1, "vms_get_symtab_upper_bound (%p), %d symbols\n",
|
vms_debug2 ((1, "vms_get_symtab_upper_bound (%p), %d symbols\n",
|
abfd, PRIV (gsd_sym_count)));
|
abfd, PRIV (gsd_sym_count)));
|
|
|
return (PRIV (gsd_sym_count) + 1) * sizeof (asymbol *);
|
return (PRIV (gsd_sym_count) + 1) * sizeof (asymbol *);
|
}
|
}
|
|
|
/* Copy symbols from hash table to symbol vector
|
/* Copy symbols from hash table to symbol vector
|
|
|
called from bfd_hash_traverse in vms_canonicalize_symtab
|
called from bfd_hash_traverse in vms_canonicalize_symtab
|
init counter to 0 if entry == 0. */
|
init counter to 0 if entry == 0. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
copy_symbols (struct bfd_hash_entry *entry, void * arg)
|
copy_symbols (struct bfd_hash_entry *entry, void * arg)
|
{
|
{
|
bfd * abfd = (bfd *) arg;
|
bfd * abfd = (bfd *) arg;
|
|
|
if (entry == NULL) /* Init counter. */
|
if (entry == NULL) /* Init counter. */
|
PRIV (symnum) = 0;
|
PRIV (symnum) = 0;
|
else /* Fill vector, inc counter. */
|
else /* Fill vector, inc counter. */
|
PRIV (symcache)[PRIV (symnum)++] = ((vms_symbol_entry *)entry)->symbol;
|
PRIV (symcache)[PRIV (symnum)++] = ((vms_symbol_entry *)entry)->symbol;
|
|
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* Read the symbols from the BFD abfd, and fills in the vector
|
/* Read the symbols from the BFD abfd, and fills in the vector
|
location with pointers to the symbols and a trailing NULL.
|
location with pointers to the symbols and a trailing NULL.
|
|
|
Return number of symbols read. */
|
Return number of symbols read. */
|
|
|
static long
|
static long
|
vms_canonicalize_symtab (bfd * abfd, asymbol **symbols)
|
vms_canonicalize_symtab (bfd * abfd, asymbol **symbols)
|
{
|
{
|
vms_debug2 ((1, "vms_canonicalize_symtab (%p, <ret>)\n", abfd));
|
vms_debug2 ((1, "vms_canonicalize_symtab (%p, <ret>)\n", abfd));
|
|
|
/* Init counter. */
|
/* Init counter. */
|
copy_symbols (NULL, abfd);
|
copy_symbols (NULL, abfd);
|
|
|
/* Traverse table and fill symbols vector. */
|
/* Traverse table and fill symbols vector. */
|
PRIV (symcache) = symbols;
|
PRIV (symcache) = symbols;
|
bfd_hash_traverse (PRIV (vms_symbol_table), copy_symbols, abfd);
|
bfd_hash_traverse (PRIV (vms_symbol_table), copy_symbols, abfd);
|
|
|
symbols[PRIV (gsd_sym_count)] = NULL;
|
symbols[PRIV (gsd_sym_count)] = NULL;
|
|
|
return PRIV (gsd_sym_count);
|
return PRIV (gsd_sym_count);
|
}
|
}
|
|
|
/* Print symbol to file according to how. how is one of
|
/* Print symbol to file according to how. how is one of
|
bfd_print_symbol_name just print the name
|
bfd_print_symbol_name just print the name
|
bfd_print_symbol_more print more (???)
|
bfd_print_symbol_more print more (???)
|
bfd_print_symbol_all print all we know, which is not much right now :-). */
|
bfd_print_symbol_all print all we know, which is not much right now :-). */
|
|
|
static void
|
static void
|
vms_print_symbol (bfd * abfd,
|
vms_print_symbol (bfd * abfd,
|
void * file,
|
void * file,
|
asymbol *symbol,
|
asymbol *symbol,
|
bfd_print_symbol_type how)
|
bfd_print_symbol_type how)
|
{
|
{
|
vms_debug2 ((1, "vms_print_symbol (%p, %p, %p, %d)\n",
|
vms_debug2 ((1, "vms_print_symbol (%p, %p, %p, %d)\n",
|
abfd, file, symbol, how));
|
abfd, file, symbol, how));
|
|
|
switch (how)
|
switch (how)
|
{
|
{
|
case bfd_print_symbol_name:
|
case bfd_print_symbol_name:
|
case bfd_print_symbol_more:
|
case bfd_print_symbol_more:
|
fprintf ((FILE *)file," %s", symbol->name);
|
fprintf ((FILE *)file," %s", symbol->name);
|
break;
|
break;
|
|
|
case bfd_print_symbol_all:
|
case bfd_print_symbol_all:
|
{
|
{
|
const char *section_name = symbol->section->name;
|
const char *section_name = symbol->section->name;
|
|
|
bfd_print_symbol_vandf (abfd, file, symbol);
|
bfd_print_symbol_vandf (abfd, file, symbol);
|
|
|
fprintf ((FILE *) file," %-8s %s", section_name, symbol->name);
|
fprintf ((FILE *) file," %-8s %s", section_name, symbol->name);
|
}
|
}
|
break;
|
break;
|
}
|
}
|
}
|
}
|
|
|
/* Return information about symbol in ret.
|
/* Return information about symbol in ret.
|
|
|
fill type, value and name
|
fill type, value and name
|
type:
|
type:
|
A absolute
|
A absolute
|
B bss segment symbol
|
B bss segment symbol
|
C common symbol
|
C common symbol
|
D data segment symbol
|
D data segment symbol
|
f filename
|
f filename
|
t a static function symbol
|
t a static function symbol
|
T text segment symbol
|
T text segment symbol
|
U undefined
|
U undefined
|
- debug. */
|
- debug. */
|
|
|
static void
|
static void
|
vms_get_symbol_info (bfd * abfd ATTRIBUTE_UNUSED,
|
vms_get_symbol_info (bfd * abfd ATTRIBUTE_UNUSED,
|
asymbol *symbol,
|
asymbol *symbol,
|
symbol_info *ret)
|
symbol_info *ret)
|
{
|
{
|
asection *sec;
|
asection *sec;
|
|
|
vms_debug2 ((1, "vms_get_symbol_info (%p, %p, %p)\n", abfd, symbol, ret));
|
vms_debug2 ((1, "vms_get_symbol_info (%p, %p, %p)\n", abfd, symbol, ret));
|
|
|
sec = symbol->section;
|
sec = symbol->section;
|
|
|
if (ret == NULL)
|
if (ret == NULL)
|
return;
|
return;
|
|
|
if (sec == 0)
|
if (sec == 0)
|
ret->type = 'U';
|
ret->type = 'U';
|
else if (bfd_is_com_section (sec))
|
else if (bfd_is_com_section (sec))
|
ret->type = 'C';
|
ret->type = 'C';
|
else if (bfd_is_abs_section (sec))
|
else if (bfd_is_abs_section (sec))
|
ret->type = 'A';
|
ret->type = 'A';
|
else if (bfd_is_und_section (sec))
|
else if (bfd_is_und_section (sec))
|
ret->type = 'U';
|
ret->type = 'U';
|
else if (bfd_is_ind_section (sec))
|
else if (bfd_is_ind_section (sec))
|
ret->type = 'I';
|
ret->type = 'I';
|
else if (bfd_get_section_flags (abfd, sec) & SEC_CODE)
|
else if (bfd_get_section_flags (abfd, sec) & SEC_CODE)
|
ret->type = 'T';
|
ret->type = 'T';
|
else if (bfd_get_section_flags (abfd, sec) & SEC_DATA)
|
else if (bfd_get_section_flags (abfd, sec) & SEC_DATA)
|
ret->type = 'D';
|
ret->type = 'D';
|
else if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
|
else if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
|
ret->type = 'B';
|
ret->type = 'B';
|
else
|
else
|
ret->type = '-';
|
ret->type = '-';
|
|
|
if (ret->type != 'U')
|
if (ret->type != 'U')
|
ret->value = symbol->value + symbol->section->vma;
|
ret->value = symbol->value + symbol->section->vma;
|
else
|
else
|
ret->value = 0;
|
ret->value = 0;
|
ret->name = symbol->name;
|
ret->name = symbol->name;
|
}
|
}
|
|
|
/* Return TRUE if the given symbol sym in the BFD abfd is
|
/* Return TRUE if the given symbol sym in the BFD abfd is
|
a compiler generated local label, else return FALSE. */
|
a compiler generated local label, else return FALSE. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_bfd_is_local_label_name (bfd * abfd ATTRIBUTE_UNUSED,
|
vms_bfd_is_local_label_name (bfd * abfd ATTRIBUTE_UNUSED,
|
const char *name)
|
const char *name)
|
{
|
{
|
vms_debug2 ((1, "vms_bfd_is_local_label_name (%p, %s)\n", abfd, name));
|
vms_debug2 ((1, "vms_bfd_is_local_label_name (%p, %s)\n", abfd, name));
|
return name[0] == '$';
|
return name[0] == '$';
|
}
|
}
|
|
|
/* Provided a BFD, a section and an offset into the section, calculate and
|
/* Provided a BFD, a section and an offset into the section, calculate and
|
return the name of the source file and the line nearest to the wanted
|
return the name of the source file and the line nearest to the wanted
|
location. */
|
location. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_find_nearest_line (bfd * abfd ATTRIBUTE_UNUSED,
|
vms_find_nearest_line (bfd * abfd ATTRIBUTE_UNUSED,
|
asection *section ATTRIBUTE_UNUSED,
|
asection *section ATTRIBUTE_UNUSED,
|
asymbol **symbols ATTRIBUTE_UNUSED,
|
asymbol **symbols ATTRIBUTE_UNUSED,
|
bfd_vma offset ATTRIBUTE_UNUSED,
|
bfd_vma offset ATTRIBUTE_UNUSED,
|
const char **file ATTRIBUTE_UNUSED,
|
const char **file ATTRIBUTE_UNUSED,
|
const char **func ATTRIBUTE_UNUSED,
|
const char **func ATTRIBUTE_UNUSED,
|
unsigned int *line ATTRIBUTE_UNUSED)
|
unsigned int *line ATTRIBUTE_UNUSED)
|
{
|
{
|
vms_debug2 ((1, "vms_find_nearest_line (%p, %s, %p, %ld, ...)\n",
|
vms_debug2 ((1, "vms_find_nearest_line (%p, %s, %p, %ld, ...)\n",
|
abfd, section->name, symbols, (long int)offset));
|
abfd, section->name, symbols, (long int)offset));
|
return _bfd_vms_find_nearest_dst_line (abfd, section, symbols, offset, file, func, line);
|
return _bfd_vms_find_nearest_dst_line (abfd, section, symbols, offset, file, func, line);
|
}
|
}
|
|
|
/* Part 4.6, relocations. */
|
/* Part 4.6, relocations. */
|
|
|
/* Allocate the reloc buffer for the specified section. */
|
/* Allocate the reloc buffer for the specified section. */
|
|
|
static void
|
static void
|
alloc_reloc_stream (bfd *abfd ATTRIBUTE_UNUSED, asection *section,
|
alloc_reloc_stream (bfd *abfd ATTRIBUTE_UNUSED, asection *section,
|
void *alloc_error)
|
void *alloc_error)
|
{
|
{
|
unsigned char *ptr;
|
unsigned char *ptr;
|
|
|
/* If there were no relocations, there is nothing to do. */
|
/* If there were no relocations, there is nothing to do. */
|
if (section->reloc_count == 0)
|
if (section->reloc_count == 0)
|
return;
|
return;
|
|
|
ptr = bfd_malloc (vms_section_data (section)->reloc_size);
|
ptr = bfd_malloc (vms_section_data (section)->reloc_size);
|
if (ptr == NULL)
|
if (ptr == NULL)
|
{
|
{
|
*(bfd_boolean *)alloc_error = TRUE;
|
*(bfd_boolean *)alloc_error = TRUE;
|
return;
|
return;
|
}
|
}
|
|
|
vms_section_data (section)->reloc_stream = ptr;
|
vms_section_data (section)->reloc_stream = ptr;
|
}
|
}
|
|
|
/* Read in the relocs for the specified section and internalize them.
|
/* Read in the relocs for the specified section and internalize them.
|
|
|
The implementation is loosely based on the SOM code and made up
|
The implementation is loosely based on the SOM code and made up
|
of 3 distinct phases:
|
of 3 distinct phases:
|
|
|
1. When the VMS object is opened and parsed, the number and the size
|
1. When the VMS object is opened and parsed, the number and the size
|
of the relocations are computed for all sections. This makes it
|
of the relocations are computed for all sections. This makes it
|
possible to know upfront both which sections have no relocs and
|
possible to know upfront both which sections have no relocs and
|
the size of the reloc buffers for the other sections, at virtually
|
the size of the reloc buffers for the other sections, at virtually
|
no cost for consumers that don't care about relocs at all.
|
no cost for consumers that don't care about relocs at all.
|
|
|
2. When vms_slurp_reloc_table is invoked for the first time on a section
|
2. When vms_slurp_reloc_table is invoked for the first time on a section
|
with relocs, the object is traversed and all the reloc information
|
with relocs, the object is traversed and all the reloc information
|
is saved in per-section reloc buffers. It would be very inefficient
|
is saved in per-section reloc buffers. It would be very inefficient
|
to scan the whole file on each invocation, so we slurp for all the
|
to scan the whole file on each invocation, so we slurp for all the
|
sections at once.
|
sections at once.
|
|
|
3. On subsequent invocations of vms_slurp_reloc_table, the relocs for the
|
3. On subsequent invocations of vms_slurp_reloc_table, the relocs for the
|
specified section are fetched from the buffer, decoded and internalized.
|
specified section are fetched from the buffer, decoded and internalized.
|
The buffer is then freed since the internalized relocs are attached to
|
The buffer is then freed since the internalized relocs are attached to
|
the section, turning additional invocations of vms_slurp_reloc_table
|
the section, turning additional invocations of vms_slurp_reloc_table
|
on the same section into no-ops.
|
on the same section into no-ops.
|
|
|
Since VMS objects have very few sections, it could be profitable to merge
|
Since VMS objects have very few sections, it could be profitable to merge
|
phase #2 and phase #3, i.e. to decode and internalize the relocs for all
|
phase #2 and phase #3, i.e. to decode and internalize the relocs for all
|
the sections at once. The current implementation is more elegant. */
|
the sections at once. The current implementation is more elegant. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_slurp_reloc_table (bfd *abfd, asection *section, asymbol **symbols)
|
vms_slurp_reloc_table (bfd *abfd, asection *section, asymbol **symbols)
|
{
|
{
|
arelent *internal_relocs;
|
arelent *internal_relocs;
|
bfd_size_type amt;
|
bfd_size_type amt;
|
int err;
|
int err;
|
|
|
/* If there were no relocations, there is nothing to do. */
|
/* If there were no relocations, there is nothing to do. */
|
if (section->reloc_count == 0)
|
if (section->reloc_count == 0)
|
return TRUE;
|
return TRUE;
|
|
|
/* Return saved information about the relocations if it is available. */
|
/* Return saved information about the relocations if it is available. */
|
if (section->relocation != NULL)
|
if (section->relocation != NULL)
|
return TRUE;
|
return TRUE;
|
|
|
/* If the relocation stream has not been slurped, do it now. */
|
/* If the relocation stream has not been slurped, do it now. */
|
if (vms_section_data (section)->reloc_stream == NULL)
|
if (vms_section_data (section)->reloc_stream == NULL)
|
{
|
{
|
bfd_boolean alloc_error = FALSE;
|
bfd_boolean alloc_error = FALSE;
|
int type;
|
int type;
|
|
|
/* Size the reloc buffer for each section. */
|
/* Size the reloc buffer for each section. */
|
bfd_map_over_sections (abfd, alloc_reloc_stream, &alloc_error);
|
bfd_map_over_sections (abfd, alloc_reloc_stream, &alloc_error);
|
if (alloc_error)
|
if (alloc_error)
|
return FALSE;
|
return FALSE;
|
|
|
if (bfd_seek (abfd, 0, SEEK_SET) != 0)
|
if (bfd_seek (abfd, 0, SEEK_SET) != 0)
|
return FALSE;
|
return FALSE;
|
|
|
/* Reset section pointer. */
|
/* Reset section pointer. */
|
PRIV (image_section) = NULL;
|
PRIV (image_section) = NULL;
|
|
|
do
|
do
|
{
|
{
|
type = _bfd_vms_get_object_record (abfd);
|
type = _bfd_vms_get_object_record (abfd);
|
if (type != EOBJ_S_C_ETIR
|
if (type != EOBJ_S_C_ETIR
|
&& type != EOBJ_S_C_EDBG
|
&& type != EOBJ_S_C_EDBG
|
&& type != EOBJ_S_C_ETBT)
|
&& type != EOBJ_S_C_ETBT)
|
continue;
|
continue;
|
err = _bfd_vms_slurp_relocs (abfd);
|
err = _bfd_vms_slurp_relocs (abfd);
|
if (err != 0)
|
if (err != 0)
|
{
|
{
|
vms_debug2 ((2, "slurp relocs failed with %d\n", err));
|
vms_debug2 ((2, "slurp relocs failed with %d\n", err));
|
return FALSE;
|
return FALSE;
|
}
|
}
|
}
|
}
|
while (type != EOBJ_S_C_EEOM);
|
while (type != EOBJ_S_C_EEOM);
|
}
|
}
|
|
|
amt = section->reloc_count * sizeof (arelent);
|
amt = section->reloc_count * sizeof (arelent);
|
internal_relocs = (arelent *) bfd_zalloc (abfd, amt);
|
internal_relocs = (arelent *) bfd_zalloc (abfd, amt);
|
if (internal_relocs == NULL)
|
if (internal_relocs == NULL)
|
return FALSE;
|
return FALSE;
|
|
|
/* Decode and internalize the relocations. */
|
/* Decode and internalize the relocations. */
|
err = _bfd_vms_decode_relocs (abfd, internal_relocs, section, symbols);
|
err = _bfd_vms_decode_relocs (abfd, internal_relocs, section, symbols);
|
if (err != 0)
|
if (err != 0)
|
{
|
{
|
vms_debug2 ((2, "decode relocs failed with %d\n", err));
|
vms_debug2 ((2, "decode relocs failed with %d\n", err));
|
return FALSE;
|
return FALSE;
|
}
|
}
|
|
|
/* We're done with the external relocations. Free them. */
|
/* We're done with the external relocations. Free them. */
|
free (vms_section_data (section)->reloc_stream);
|
free (vms_section_data (section)->reloc_stream);
|
vms_section_data (section)->reloc_stream = NULL;
|
vms_section_data (section)->reloc_stream = NULL;
|
|
|
/* Save our results and return success. */
|
/* Save our results and return success. */
|
section->relocation = internal_relocs;
|
section->relocation = internal_relocs;
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
/* Return the number of bytes required to store the relocation
|
/* Return the number of bytes required to store the relocation
|
information associated with the given section. */
|
information associated with the given section. */
|
|
|
static long
|
static long
|
vms_get_reloc_upper_bound (bfd *abfd ATTRIBUTE_UNUSED, asection *section)
|
vms_get_reloc_upper_bound (bfd *abfd ATTRIBUTE_UNUSED, asection *section)
|
{
|
{
|
return (section->reloc_count + 1) * sizeof (arelent *);
|
return (section->reloc_count + 1) * sizeof (arelent *);
|
}
|
}
|
|
|
/* Convert relocations from VMS (external) form into BFD internal
|
/* Convert relocations from VMS (external) form into BFD internal
|
form. Return the number of relocations. */
|
form. Return the number of relocations. */
|
|
|
static long
|
static long
|
vms_canonicalize_reloc (bfd *abfd, asection *section, arelent **relptr,
|
vms_canonicalize_reloc (bfd *abfd, asection *section, arelent **relptr,
|
asymbol **symbols)
|
asymbol **symbols)
|
{
|
{
|
arelent *tblptr;
|
arelent *tblptr;
|
int count;
|
int count;
|
|
|
if (! vms_slurp_reloc_table (abfd, section, symbols))
|
if (! vms_slurp_reloc_table (abfd, section, symbols))
|
return -1;
|
return -1;
|
|
|
count = section->reloc_count;
|
count = section->reloc_count;
|
tblptr = section->relocation;
|
tblptr = section->relocation;
|
|
|
while (count--)
|
while (count--)
|
*relptr++ = tblptr++;
|
*relptr++ = tblptr++;
|
|
|
*relptr = (arelent *) NULL;
|
*relptr = (arelent *) NULL;
|
return section->reloc_count;
|
return section->reloc_count;
|
}
|
}
|
|
|
/* This is just copied from ecoff-alpha, needs to be fixed probably. */
|
/* This is just copied from ecoff-alpha, needs to be fixed probably. */
|
|
|
/* How to process the various reloc types. */
|
/* How to process the various reloc types. */
|
|
|
static bfd_reloc_status_type
|
static bfd_reloc_status_type
|
reloc_nil (bfd * abfd ATTRIBUTE_UNUSED,
|
reloc_nil (bfd * abfd ATTRIBUTE_UNUSED,
|
arelent *reloc ATTRIBUTE_UNUSED,
|
arelent *reloc ATTRIBUTE_UNUSED,
|
asymbol *sym ATTRIBUTE_UNUSED,
|
asymbol *sym ATTRIBUTE_UNUSED,
|
void * data ATTRIBUTE_UNUSED,
|
void * data ATTRIBUTE_UNUSED,
|
asection *sec ATTRIBUTE_UNUSED,
|
asection *sec ATTRIBUTE_UNUSED,
|
bfd *output_bfd ATTRIBUTE_UNUSED,
|
bfd *output_bfd ATTRIBUTE_UNUSED,
|
char **error_message ATTRIBUTE_UNUSED)
|
char **error_message ATTRIBUTE_UNUSED)
|
{
|
{
|
#if VMS_DEBUG
|
#if VMS_DEBUG
|
vms_debug (1, "reloc_nil (abfd %p, output_bfd %p)\n", abfd, output_bfd);
|
vms_debug (1, "reloc_nil (abfd %p, output_bfd %p)\n", abfd, output_bfd);
|
vms_debug (2, "In section %s, symbol %s\n",
|
vms_debug (2, "In section %s, symbol %s\n",
|
sec->name, sym->name);
|
sec->name, sym->name);
|
vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
|
vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
|
reloc->sym_ptr_ptr[0]->name,
|
reloc->sym_ptr_ptr[0]->name,
|
(unsigned long)reloc->address,
|
(unsigned long)reloc->address,
|
(unsigned long)reloc->addend, reloc->howto->name);
|
(unsigned long)reloc->addend, reloc->howto->name);
|
vms_debug (2, "data at %p\n", data);
|
vms_debug (2, "data at %p\n", data);
|
/* _bfd_hexdump (2, data, bfd_get_reloc_size (reloc->howto), 0); */
|
/* _bfd_hexdump (2, data, bfd_get_reloc_size (reloc->howto), 0); */
|
#endif
|
#endif
|
|
|
return bfd_reloc_ok;
|
return bfd_reloc_ok;
|
}
|
}
|
|
|
/* In case we're on a 32-bit machine, construct a 64-bit "-1" value
|
/* In case we're on a 32-bit machine, construct a 64-bit "-1" value
|
from smaller values. Start with zero, widen, *then* decrement. */
|
from smaller values. Start with zero, widen, *then* decrement. */
|
#define MINUS_ONE (((bfd_vma)0) - 1)
|
#define MINUS_ONE (((bfd_vma)0) - 1)
|
|
|
static reloc_howto_type alpha_howto_table[] =
|
static reloc_howto_type alpha_howto_table[] =
|
{
|
{
|
HOWTO (ALPHA_R_IGNORE, /* Type. */
|
HOWTO (ALPHA_R_IGNORE, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
8, /* Bitsize. */
|
8, /* Bitsize. */
|
TRUE, /* PC relative. */
|
TRUE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"IGNORE", /* Name. */
|
"IGNORE", /* Name. */
|
TRUE, /* Partial_inplace. */
|
TRUE, /* Partial_inplace. */
|
0, /* Source mask */
|
0, /* Source mask */
|
0, /* Dest mask. */
|
0, /* Dest mask. */
|
TRUE), /* PC rel offset. */
|
TRUE), /* PC rel offset. */
|
|
|
/* A 64 bit reference to a symbol. */
|
/* A 64 bit reference to a symbol. */
|
HOWTO (ALPHA_R_REFQUAD, /* Type. */
|
HOWTO (ALPHA_R_REFQUAD, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
64, /* Bitsize. */
|
64, /* Bitsize. */
|
FALSE, /* PC relative. */
|
FALSE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_bitfield, /* Complain_on_overflow. */
|
complain_overflow_bitfield, /* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"REFQUAD", /* Name. */
|
"REFQUAD", /* Name. */
|
TRUE, /* Partial_inplace. */
|
TRUE, /* Partial_inplace. */
|
MINUS_ONE, /* Source mask. */
|
MINUS_ONE, /* Source mask. */
|
MINUS_ONE, /* Dest mask. */
|
MINUS_ONE, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* A 21 bit branch. The native assembler generates these for
|
/* A 21 bit branch. The native assembler generates these for
|
branches within the text segment, and also fills in the PC
|
branches within the text segment, and also fills in the PC
|
relative offset in the instruction. */
|
relative offset in the instruction. */
|
HOWTO (ALPHA_R_BRADDR, /* Type. */
|
HOWTO (ALPHA_R_BRADDR, /* Type. */
|
2, /* Rightshift. */
|
2, /* Rightshift. */
|
2, /* Size (0 = byte, 1 = short, 2 = long). */
|
2, /* Size (0 = byte, 1 = short, 2 = long). */
|
21, /* Bitsize. */
|
21, /* Bitsize. */
|
TRUE, /* PC relative. */
|
TRUE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_signed, /* Complain_on_overflow. */
|
complain_overflow_signed, /* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"BRADDR", /* Name. */
|
"BRADDR", /* Name. */
|
TRUE, /* Partial_inplace. */
|
TRUE, /* Partial_inplace. */
|
0x1fffff, /* Source mask. */
|
0x1fffff, /* Source mask. */
|
0x1fffff, /* Dest mask. */
|
0x1fffff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* A hint for a jump to a register. */
|
/* A hint for a jump to a register. */
|
HOWTO (ALPHA_R_HINT, /* Type. */
|
HOWTO (ALPHA_R_HINT, /* Type. */
|
2, /* Rightshift. */
|
2, /* Rightshift. */
|
1, /* Size (0 = byte, 1 = short, 2 = long). */
|
1, /* Size (0 = byte, 1 = short, 2 = long). */
|
14, /* Bitsize. */
|
14, /* Bitsize. */
|
TRUE, /* PC relative. */
|
TRUE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"HINT", /* Name. */
|
"HINT", /* Name. */
|
TRUE, /* Partial_inplace. */
|
TRUE, /* Partial_inplace. */
|
0x3fff, /* Source mask. */
|
0x3fff, /* Source mask. */
|
0x3fff, /* Dest mask. */
|
0x3fff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* 16 bit PC relative offset. */
|
/* 16 bit PC relative offset. */
|
HOWTO (ALPHA_R_SREL16, /* Type. */
|
HOWTO (ALPHA_R_SREL16, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
1, /* Size (0 = byte, 1 = short, 2 = long). */
|
1, /* Size (0 = byte, 1 = short, 2 = long). */
|
16, /* Bitsize. */
|
16, /* Bitsize. */
|
TRUE, /* PC relative. */
|
TRUE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_signed, /* Complain_on_overflow. */
|
complain_overflow_signed, /* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"SREL16", /* Name. */
|
"SREL16", /* Name. */
|
TRUE, /* Partial_inplace. */
|
TRUE, /* Partial_inplace. */
|
0xffff, /* Source mask. */
|
0xffff, /* Source mask. */
|
0xffff, /* Dest mask. */
|
0xffff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* 32 bit PC relative offset. */
|
/* 32 bit PC relative offset. */
|
HOWTO (ALPHA_R_SREL32, /* Type. */
|
HOWTO (ALPHA_R_SREL32, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
2, /* Size (0 = byte, 1 = short, 2 = long). */
|
2, /* Size (0 = byte, 1 = short, 2 = long). */
|
32, /* Bitsize. */
|
32, /* Bitsize. */
|
TRUE, /* PC relative. */
|
TRUE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_signed, /* Complain_on_overflow. */
|
complain_overflow_signed, /* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"SREL32", /* Name. */
|
"SREL32", /* Name. */
|
TRUE, /* Partial_inplace. */
|
TRUE, /* Partial_inplace. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Dest mask. */
|
0xffffffff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* A 64 bit PC relative offset. */
|
/* A 64 bit PC relative offset. */
|
HOWTO (ALPHA_R_SREL64, /* Type. */
|
HOWTO (ALPHA_R_SREL64, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
64, /* Bitsize. */
|
64, /* Bitsize. */
|
TRUE, /* PC relative. */
|
TRUE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_signed, /* Complain_on_overflow. */
|
complain_overflow_signed, /* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"SREL64", /* Name. */
|
"SREL64", /* Name. */
|
TRUE, /* Partial_inplace. */
|
TRUE, /* Partial_inplace. */
|
MINUS_ONE, /* Source mask. */
|
MINUS_ONE, /* Source mask. */
|
MINUS_ONE, /* Dest mask. */
|
MINUS_ONE, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* Push a value on the reloc evaluation stack. */
|
/* Push a value on the reloc evaluation stack. */
|
HOWTO (ALPHA_R_OP_PUSH, /* Type. */
|
HOWTO (ALPHA_R_OP_PUSH, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Bitsize. */
|
0, /* Bitsize. */
|
FALSE, /* PC relative. */
|
FALSE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"OP_PUSH", /* Name. */
|
"OP_PUSH", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0, /* Source mask. */
|
0, /* Source mask. */
|
0, /* Dest mask. */
|
0, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* Store the value from the stack at the given address. Store it in
|
/* Store the value from the stack at the given address. Store it in
|
a bitfield of size r_size starting at bit position r_offset. */
|
a bitfield of size r_size starting at bit position r_offset. */
|
HOWTO (ALPHA_R_OP_STORE, /* Type. */
|
HOWTO (ALPHA_R_OP_STORE, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
64, /* Bitsize. */
|
64, /* Bitsize. */
|
FALSE, /* PC relative. */
|
FALSE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"OP_STORE", /* Name. */
|
"OP_STORE", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0, /* Source mask. */
|
0, /* Source mask. */
|
MINUS_ONE, /* Dest mask. */
|
MINUS_ONE, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* Subtract the reloc address from the value on the top of the
|
/* Subtract the reloc address from the value on the top of the
|
relocation stack. */
|
relocation stack. */
|
HOWTO (ALPHA_R_OP_PSUB, /* Type. */
|
HOWTO (ALPHA_R_OP_PSUB, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Bitsize. */
|
0, /* Bitsize. */
|
FALSE, /* PC relative. */
|
FALSE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"OP_PSUB", /* Name. */
|
"OP_PSUB", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0, /* Source mask. */
|
0, /* Source mask. */
|
0, /* Dest mask. */
|
0, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* Shift the value on the top of the relocation stack right by the
|
/* Shift the value on the top of the relocation stack right by the
|
given value. */
|
given value. */
|
HOWTO (ALPHA_R_OP_PRSHIFT, /* Type. */
|
HOWTO (ALPHA_R_OP_PRSHIFT, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Bitsize. */
|
0, /* Bitsize. */
|
FALSE, /* PC relative. */
|
FALSE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"OP_PRSHIFT", /* Name. */
|
"OP_PRSHIFT", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0, /* Source mask. */
|
0, /* Source mask. */
|
0, /* Dest mask. */
|
0, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* Hack. Linkage is done by linker. */
|
/* Hack. Linkage is done by linker. */
|
HOWTO (ALPHA_R_LINKAGE, /* Type. */
|
HOWTO (ALPHA_R_LINKAGE, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
8, /* Size (0 = byte, 1 = short, 2 = long). */
|
8, /* Size (0 = byte, 1 = short, 2 = long). */
|
256, /* Bitsize. */
|
256, /* Bitsize. */
|
FALSE, /* PC relative. */
|
FALSE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"LINKAGE", /* Name. */
|
"LINKAGE", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0, /* Source mask. */
|
0, /* Source mask. */
|
0, /* Dest mask. */
|
0, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* A 32 bit reference to a symbol. */
|
/* A 32 bit reference to a symbol. */
|
HOWTO (ALPHA_R_REFLONG, /* Type. */
|
HOWTO (ALPHA_R_REFLONG, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
2, /* Size (0 = byte, 1 = short, 2 = long). */
|
2, /* Size (0 = byte, 1 = short, 2 = long). */
|
32, /* Bitsize. */
|
32, /* Bitsize. */
|
FALSE, /* PC relative. */
|
FALSE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_bitfield, /* Complain_on_overflow. */
|
complain_overflow_bitfield, /* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"REFLONG", /* Name. */
|
"REFLONG", /* Name. */
|
TRUE, /* Partial_inplace. */
|
TRUE, /* Partial_inplace. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Dest mask. */
|
0xffffffff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
/* A 64 bit reference to a procedure, written as 32 bit value. */
|
/* A 64 bit reference to a procedure, written as 32 bit value. */
|
HOWTO (ALPHA_R_CODEADDR, /* Type. */
|
HOWTO (ALPHA_R_CODEADDR, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
64, /* Bitsize. */
|
64, /* Bitsize. */
|
FALSE, /* PC relative. */
|
FALSE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_signed,/* Complain_on_overflow. */
|
complain_overflow_signed,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"CODEADDR", /* Name. */
|
"CODEADDR", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Dest mask. */
|
0xffffffff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
HOWTO (ALPHA_R_NOP, /* Type. */
|
HOWTO (ALPHA_R_NOP, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
3, /* Size (0 = byte, 1 = short, 2 = long). */
|
3, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Bitsize. */
|
0, /* Bitsize. */
|
/* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH
|
/* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH
|
because the calculations for the 3 relocations are the same.
|
because the calculations for the 3 relocations are the same.
|
See B.4.5.2 of the OpenVMS Linker Utility Manual. */
|
See B.4.5.2 of the OpenVMS Linker Utility Manual. */
|
TRUE, /* PC relative. */
|
TRUE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"NOP", /* Name. */
|
"NOP", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Dest mask. */
|
0xffffffff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
HOWTO (ALPHA_R_BSR, /* Type. */
|
HOWTO (ALPHA_R_BSR, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
3, /* Size (0 = byte, 1 = short, 2 = long). */
|
3, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Bitsize. */
|
0, /* Bitsize. */
|
TRUE, /* PC relative. */
|
TRUE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"BSR", /* Name. */
|
"BSR", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Dest mask. */
|
0xffffffff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
HOWTO (ALPHA_R_LDA, /* Type. */
|
HOWTO (ALPHA_R_LDA, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
3, /* Size (0 = byte, 1 = short, 2 = long). */
|
3, /* Size (0 = byte, 1 = short, 2 = long). */
|
0, /* Bitsize. */
|
0, /* Bitsize. */
|
FALSE, /* PC relative. */
|
FALSE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"LDA", /* Name. */
|
"LDA", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Dest mask. */
|
0xffffffff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
|
|
HOWTO (ALPHA_R_BOH, /* Type. */
|
HOWTO (ALPHA_R_BOH, /* Type. */
|
0, /* Rightshift. */
|
0, /* Rightshift. */
|
3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */
|
3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */
|
0, /* Bitsize. */
|
0, /* Bitsize. */
|
TRUE, /* PC relative. */
|
TRUE, /* PC relative. */
|
0, /* Bitpos. */
|
0, /* Bitpos. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
complain_overflow_dont,/* Complain_on_overflow. */
|
reloc_nil, /* Special_function. */
|
reloc_nil, /* Special_function. */
|
"BOH", /* Name. */
|
"BOH", /* Name. */
|
FALSE, /* Partial_inplace. */
|
FALSE, /* Partial_inplace. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Source mask. */
|
0xffffffff, /* Dest mask. */
|
0xffffffff, /* Dest mask. */
|
FALSE), /* PC rel offset. */
|
FALSE), /* PC rel offset. */
|
};
|
};
|
|
|
/* Return a pointer to a howto structure which, when invoked, will perform
|
/* Return a pointer to a howto structure which, when invoked, will perform
|
the relocation code on data from the architecture noted. */
|
the relocation code on data from the architecture noted. */
|
|
|
static const struct reloc_howto_struct *
|
static const struct reloc_howto_struct *
|
vms_bfd_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
|
vms_bfd_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
|
bfd_reloc_code_real_type code)
|
bfd_reloc_code_real_type code)
|
{
|
{
|
int alpha_type;
|
int alpha_type;
|
|
|
vms_debug2 ((1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd, code));
|
vms_debug2 ((1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd, code));
|
|
|
switch (code)
|
switch (code)
|
{
|
{
|
case BFD_RELOC_16: alpha_type = ALPHA_R_SREL16; break;
|
case BFD_RELOC_16: alpha_type = ALPHA_R_SREL16; break;
|
case BFD_RELOC_32: alpha_type = ALPHA_R_REFLONG; break;
|
case BFD_RELOC_32: alpha_type = ALPHA_R_REFLONG; break;
|
case BFD_RELOC_64: alpha_type = ALPHA_R_REFQUAD; break;
|
case BFD_RELOC_64: alpha_type = ALPHA_R_REFQUAD; break;
|
case BFD_RELOC_CTOR: alpha_type = ALPHA_R_REFQUAD; break;
|
case BFD_RELOC_CTOR: alpha_type = ALPHA_R_REFQUAD; break;
|
case BFD_RELOC_23_PCREL_S2: alpha_type = ALPHA_R_BRADDR; break;
|
case BFD_RELOC_23_PCREL_S2: alpha_type = ALPHA_R_BRADDR; break;
|
case BFD_RELOC_ALPHA_HINT: alpha_type = ALPHA_R_HINT; break;
|
case BFD_RELOC_ALPHA_HINT: alpha_type = ALPHA_R_HINT; break;
|
case BFD_RELOC_16_PCREL: alpha_type = ALPHA_R_SREL16; break;
|
case BFD_RELOC_16_PCREL: alpha_type = ALPHA_R_SREL16; break;
|
case BFD_RELOC_32_PCREL: alpha_type = ALPHA_R_SREL32; break;
|
case BFD_RELOC_32_PCREL: alpha_type = ALPHA_R_SREL32; break;
|
case BFD_RELOC_64_PCREL: alpha_type = ALPHA_R_SREL64; break;
|
case BFD_RELOC_64_PCREL: alpha_type = ALPHA_R_SREL64; break;
|
case BFD_RELOC_ALPHA_LINKAGE: alpha_type = ALPHA_R_LINKAGE; break;
|
case BFD_RELOC_ALPHA_LINKAGE: alpha_type = ALPHA_R_LINKAGE; break;
|
case BFD_RELOC_ALPHA_CODEADDR: alpha_type = ALPHA_R_CODEADDR; break;
|
case BFD_RELOC_ALPHA_CODEADDR: alpha_type = ALPHA_R_CODEADDR; break;
|
case BFD_RELOC_ALPHA_NOP: alpha_type = ALPHA_R_NOP; break;
|
case BFD_RELOC_ALPHA_NOP: alpha_type = ALPHA_R_NOP; break;
|
case BFD_RELOC_ALPHA_BSR: alpha_type = ALPHA_R_BSR; break;
|
case BFD_RELOC_ALPHA_BSR: alpha_type = ALPHA_R_BSR; break;
|
case BFD_RELOC_ALPHA_LDA: alpha_type = ALPHA_R_LDA; break;
|
case BFD_RELOC_ALPHA_LDA: alpha_type = ALPHA_R_LDA; break;
|
case BFD_RELOC_ALPHA_BOH: alpha_type = ALPHA_R_BOH; break;
|
case BFD_RELOC_ALPHA_BOH: alpha_type = ALPHA_R_BOH; break;
|
default:
|
default:
|
(*_bfd_error_handler) ("reloc (%d) is *UNKNOWN*", code);
|
(*_bfd_error_handler) ("reloc (%d) is *UNKNOWN*", code);
|
return NULL;
|
return NULL;
|
}
|
}
|
vms_debug2 ((2, "reloc is %s\n", alpha_howto_table[alpha_type].name));
|
vms_debug2 ((2, "reloc is %s\n", alpha_howto_table[alpha_type].name));
|
return & alpha_howto_table[alpha_type];
|
return & alpha_howto_table[alpha_type];
|
}
|
}
|
|
|
static reloc_howto_type *
|
static reloc_howto_type *
|
vms_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
|
vms_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
|
const char *r_name)
|
const char *r_name)
|
{
|
{
|
unsigned int i;
|
unsigned int i;
|
|
|
for (i = 0;
|
for (i = 0;
|
i < sizeof (alpha_howto_table) / sizeof (alpha_howto_table[0]);
|
i < sizeof (alpha_howto_table) / sizeof (alpha_howto_table[0]);
|
i++)
|
i++)
|
if (alpha_howto_table[i].name != NULL
|
if (alpha_howto_table[i].name != NULL
|
&& strcasecmp (alpha_howto_table[i].name, r_name) == 0)
|
&& strcasecmp (alpha_howto_table[i].name, r_name) == 0)
|
return &alpha_howto_table[i];
|
return &alpha_howto_table[i];
|
|
|
return NULL;
|
return NULL;
|
}
|
}
|
|
|
/* Part 4.7, writing an object file. */
|
/* Part 4.7, writing an object file. */
|
|
|
/* Set the architecture and machine type in BFD abfd to arch and mach.
|
/* Set the architecture and machine type in BFD abfd to arch and mach.
|
Find the correct pointer to a structure and insert it into the arch_info
|
Find the correct pointer to a structure and insert it into the arch_info
|
pointer. */
|
pointer. */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_set_arch_mach (bfd * abfd,
|
vms_set_arch_mach (bfd * abfd,
|
enum bfd_architecture arch ATTRIBUTE_UNUSED,
|
enum bfd_architecture arch ATTRIBUTE_UNUSED,
|
unsigned long mach ATTRIBUTE_UNUSED)
|
unsigned long mach ATTRIBUTE_UNUSED)
|
{
|
{
|
vms_debug2 ((1, "vms_set_arch_mach (%p, %d, %ld)\n", abfd, arch, mach));
|
vms_debug2 ((1, "vms_set_arch_mach (%p, %d, %ld)\n", abfd, arch, mach));
|
|
|
if (arch != bfd_arch_alpha
|
if (arch != bfd_arch_alpha
|
&& arch != bfd_arch_vax
|
&& arch != bfd_arch_vax
|
&& arch != bfd_arch_unknown)
|
&& arch != bfd_arch_unknown)
|
return FALSE;
|
return FALSE;
|
|
|
return bfd_default_set_arch_mach (abfd, arch, mach);
|
return bfd_default_set_arch_mach (abfd, arch, mach);
|
}
|
}
|
|
|
/* Sets the contents of the section section in BFD abfd to the data starting
|
/* Sets the contents of the section section in BFD abfd to the data starting
|
in memory at LOCATION. The data is written to the output section starting
|
in memory at LOCATION. The data is written to the output section starting
|
at offset offset for count bytes.
|
at offset offset for count bytes.
|
|
|
Normally TRUE is returned, else FALSE. Possible error returns are:
|
Normally TRUE is returned, else FALSE. Possible error returns are:
|
o bfd_error_no_contents - The output section does not have the
|
o bfd_error_no_contents - The output section does not have the
|
SEC_HAS_CONTENTS attribute, so nothing can be written to it.
|
SEC_HAS_CONTENTS attribute, so nothing can be written to it.
|
o and some more too */
|
o and some more too */
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_set_section_contents (bfd * abfd,
|
vms_set_section_contents (bfd * abfd,
|
asection *section,
|
asection *section,
|
const void * location,
|
const void * location,
|
file_ptr offset,
|
file_ptr offset,
|
bfd_size_type count)
|
bfd_size_type count)
|
{
|
{
|
#if VMS_DEBUG
|
#if VMS_DEBUG
|
vms_debug (1, "vms_set_section_contents (%p, sec %s, loc %p, off %ld, count %d)\n",
|
vms_debug (1, "vms_set_section_contents (%p, sec %s, loc %p, off %ld, count %d)\n",
|
abfd, section->name, location, (long int)offset, (int)count);
|
abfd, section->name, location, (long int)offset, (int)count);
|
vms_debug (2, "size %d\n", (int) section->size);
|
vms_debug (2, "size %d\n", (int) section->size);
|
#endif
|
#endif
|
if (count == (bfd_size_type)0)
|
if (count == (bfd_size_type)0)
|
return TRUE;
|
return TRUE;
|
|
|
if (section->contents == NULL)
|
if (section->contents == NULL)
|
section->contents = bfd_alloc (abfd, section->size);
|
section->contents = bfd_alloc (abfd, section->size);
|
if (section->contents == NULL)
|
if (section->contents == NULL)
|
return FALSE;
|
return FALSE;
|
|
|
memcpy (section->contents + offset, location, (size_t) count);
|
memcpy (section->contents + offset, location, (size_t) count);
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
static bfd_boolean
|
static bfd_boolean
|
vms_bfd_print_private_bfd_data (bfd *abfd, void *ptr)
|
vms_bfd_print_private_bfd_data (bfd *abfd, void *ptr)
|
{
|
{
|
FILE *file = (FILE *)ptr;
|
FILE *file = (FILE *)ptr;
|
|
|
fprintf (file, _("structure level: %d\n"), PRIV(hdr_data.hdr_b_strlvl));
|
fprintf (file, _("structure level: %d\n"), PRIV(hdr_data.hdr_b_strlvl));
|
fprintf (file, _("module name : %s\n"), PRIV(hdr_data.hdr_t_name));
|
fprintf (file, _("module name : %s\n"), PRIV(hdr_data.hdr_t_name));
|
fprintf (file, _("module version : %s\n"), PRIV(hdr_data.hdr_t_version));
|
fprintf (file, _("module version : %s\n"), PRIV(hdr_data.hdr_t_version));
|
fprintf (file, _("module date : %s\n"), PRIV(hdr_data.hdr_t_date));
|
fprintf (file, _("module date : %s\n"), PRIV(hdr_data.hdr_t_date));
|
fprintf (file, _("language name : %s\n"), PRIV(hdr_data.hdr_c_lnm));
|
fprintf (file, _("language name : %s\n"), PRIV(hdr_data.hdr_c_lnm));
|
fprintf (file, _("source files : %s\n"), PRIV(hdr_data.hdr_c_src));
|
fprintf (file, _("source files : %s\n"), PRIV(hdr_data.hdr_c_src));
|
fprintf (file, _("title : %s\n"), PRIV(hdr_data.hdr_c_ttl));
|
fprintf (file, _("title : %s\n"), PRIV(hdr_data.hdr_c_ttl));
|
|
|
return TRUE;
|
return TRUE;
|
}
|
}
|
|
|
const bfd_target vms_alpha_vec =
|
const bfd_target vms_alpha_vec =
|
{
|
{
|
"vms-alpha", /* Name. */
|
"vms-alpha", /* Name. */
|
bfd_target_evax_flavour,
|
bfd_target_evax_flavour,
|
BFD_ENDIAN_LITTLE, /* Data byte order is little. */
|
BFD_ENDIAN_LITTLE, /* Data byte order is little. */
|
BFD_ENDIAN_LITTLE, /* Header byte order is little. */
|
BFD_ENDIAN_LITTLE, /* Header byte order is little. */
|
|
|
(HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS
|
(HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS
|
| WP_TEXT | D_PAGED), /* Object flags. */
|
| WP_TEXT | D_PAGED), /* Object flags. */
|
(SEC_ALLOC | SEC_LOAD | SEC_RELOC
|
(SEC_ALLOC | SEC_LOAD | SEC_RELOC
|
| SEC_READONLY | SEC_CODE | SEC_DATA
|
| SEC_READONLY | SEC_CODE | SEC_DATA
|
| SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* Sect flags. */
|
| SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* Sect flags. */
|
0, /* symbol_leading_char. */
|
0, /* symbol_leading_char. */
|
' ', /* ar_pad_char. */
|
' ', /* ar_pad_char. */
|
15, /* ar_max_namelen. */
|
15, /* ar_max_namelen. */
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16,
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16,
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16,
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16,
|
|
|
{_bfd_dummy_target, vms_object_p, /* bfd_check_format. */
|
{_bfd_dummy_target, vms_object_p, /* bfd_check_format. */
|
_bfd_dummy_target, _bfd_dummy_target},
|
_bfd_dummy_target, _bfd_dummy_target},
|
{bfd_false, vms_mkobject, /* bfd_set_format. */
|
{bfd_false, vms_mkobject, /* bfd_set_format. */
|
bfd_false, bfd_false},
|
bfd_false, bfd_false},
|
{bfd_false, vms_write_object_contents, /* bfd_write_contents. */
|
{bfd_false, vms_write_object_contents, /* bfd_write_contents. */
|
bfd_false, bfd_false},
|
bfd_false, bfd_false},
|
|
|
BFD_JUMP_TABLE_GENERIC (vms),
|
BFD_JUMP_TABLE_GENERIC (vms),
|
BFD_JUMP_TABLE_COPY (vms),
|
BFD_JUMP_TABLE_COPY (vms),
|
BFD_JUMP_TABLE_CORE (_bfd_nocore),
|
BFD_JUMP_TABLE_CORE (_bfd_nocore),
|
BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
|
BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
|
BFD_JUMP_TABLE_SYMBOLS (vms),
|
BFD_JUMP_TABLE_SYMBOLS (vms),
|
BFD_JUMP_TABLE_RELOCS (vms),
|
BFD_JUMP_TABLE_RELOCS (vms),
|
BFD_JUMP_TABLE_WRITE (vms),
|
BFD_JUMP_TABLE_WRITE (vms),
|
BFD_JUMP_TABLE_LINK (_bfd_nolink),
|
BFD_JUMP_TABLE_LINK (_bfd_nolink),
|
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
|
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
|
|
|
NULL,
|
NULL,
|
|
|
(PTR) 0
|
(PTR) 0
|
};
|
};
|
|
|
const bfd_target vms_vax_vec =
|
const bfd_target vms_vax_vec =
|
{
|
{
|
"vms-vax", /* Name. */
|
"vms-vax", /* Name. */
|
bfd_target_ovax_flavour,
|
bfd_target_ovax_flavour,
|
BFD_ENDIAN_LITTLE, /* Data byte order is little. */
|
BFD_ENDIAN_LITTLE, /* Data byte order is little. */
|
BFD_ENDIAN_LITTLE, /* Header byte order is little. */
|
BFD_ENDIAN_LITTLE, /* Header byte order is little. */
|
|
|
(HAS_RELOC | HAS_SYMS /* Object flags. */
|
(HAS_RELOC | HAS_SYMS /* Object flags. */
|
| WP_TEXT | D_PAGED
|
| WP_TEXT | D_PAGED
|
| HAS_LINENO | HAS_DEBUG | HAS_LOCALS),
|
| HAS_LINENO | HAS_DEBUG | HAS_LOCALS),
|
|
|
(SEC_ALLOC | SEC_LOAD | SEC_RELOC
|
(SEC_ALLOC | SEC_LOAD | SEC_RELOC
|
| SEC_READONLY | SEC_CODE | SEC_DATA
|
| SEC_READONLY | SEC_CODE | SEC_DATA
|
| SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* Sect flags. */
|
| SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* Sect flags. */
|
0, /* symbol_leading_char */
|
0, /* symbol_leading_char */
|
' ', /* ar_pad_char */
|
' ', /* ar_pad_char */
|
15, /* ar_max_namelen */
|
15, /* ar_max_namelen */
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Data. */
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Data. */
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Hdrs. */
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Hdrs. */
|
|
|
{_bfd_dummy_target, vms_object_p, /* bfd_check_format. */
|
{_bfd_dummy_target, vms_object_p, /* bfd_check_format. */
|
_bfd_dummy_target, _bfd_dummy_target},
|
_bfd_dummy_target, _bfd_dummy_target},
|
{bfd_false, vms_mkobject, /* bfd_set_format. */
|
{bfd_false, vms_mkobject, /* bfd_set_format. */
|
bfd_false, bfd_false},
|
bfd_false, bfd_false},
|
{bfd_false, vms_write_object_contents, /* bfd_write_contents. */
|
{bfd_false, vms_write_object_contents, /* bfd_write_contents. */
|
bfd_false, bfd_false},
|
bfd_false, bfd_false},
|
|
|
BFD_JUMP_TABLE_GENERIC (vms),
|
BFD_JUMP_TABLE_GENERIC (vms),
|
BFD_JUMP_TABLE_COPY (vms),
|
BFD_JUMP_TABLE_COPY (vms),
|
BFD_JUMP_TABLE_CORE (_bfd_nocore),
|
BFD_JUMP_TABLE_CORE (_bfd_nocore),
|
BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
|
BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
|
BFD_JUMP_TABLE_SYMBOLS (vms),
|
BFD_JUMP_TABLE_SYMBOLS (vms),
|
BFD_JUMP_TABLE_RELOCS (vms),
|
BFD_JUMP_TABLE_RELOCS (vms),
|
BFD_JUMP_TABLE_WRITE (vms),
|
BFD_JUMP_TABLE_WRITE (vms),
|
BFD_JUMP_TABLE_LINK (_bfd_nolink),
|
BFD_JUMP_TABLE_LINK (_bfd_nolink),
|
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
|
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
|
|
|
NULL,
|
NULL,
|
|
|
(PTR) 0
|
(PTR) 0
|
};
|
};
|
|
|
