780b23606d
* vms.c (vms_close_and_cleanup): Check for the presence of a vms_private_data_struct before examining any of its fields.
1691 lines
46 KiB
C
1691 lines
46 KiB
C
/* vms.c -- BFD back-end for VAX (openVMS/VAX) and
|
||
EVAX (openVMS/Alpha) files.
|
||
Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
|
||
2006, 2007 Free Software Foundation, Inc.
|
||
|
||
Written by Klaus K"ampf (kkaempf@rmi.de)
|
||
|
||
This program is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 3 of the License, or
|
||
(at your option) any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with this program; if not, write to the Free Software
|
||
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
||
MA 02110-1301, USA. */
|
||
|
||
#include "sysdep.h"
|
||
#include "bfd.h"
|
||
#include "bfdlink.h"
|
||
#include "libbfd.h"
|
||
|
||
#include "vms.h"
|
||
|
||
#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_bfd_link_just_syms _bfd_generic_link_just_syms
|
||
#define vms_bfd_is_group_section bfd_generic_is_group_section
|
||
#define vms_bfd_discard_group bfd_generic_discard_group
|
||
#define vms_section_already_linked _bfd_generic_section_already_linked
|
||
#define vms_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
|
||
#define vms_get_synthetic_symtab _bfd_nodynamic_get_synthetic_symtab
|
||
|
||
static unsigned int priv_section_count;
|
||
extern const bfd_target vms_vax_vec;
|
||
extern const bfd_target vms_alpha_vec;
|
||
|
||
/* Initialize private data. */
|
||
|
||
static bfd_boolean
|
||
vms_initialize (bfd * abfd)
|
||
{
|
||
int i;
|
||
bfd_size_type amt;
|
||
|
||
bfd_set_start_address (abfd, (bfd_vma) -1);
|
||
|
||
amt = sizeof (struct vms_private_data_struct);
|
||
abfd->tdata.any = bfd_alloc (abfd, amt);
|
||
if (abfd->tdata.any == NULL)
|
||
return FALSE;
|
||
|
||
#ifdef __ALPHA
|
||
PRIV (is_vax) = FALSE;
|
||
#else
|
||
PRIV (is_vax) = TRUE;
|
||
#endif
|
||
PRIV (vms_buf) = NULL;
|
||
PRIV (buf_size) = 0;
|
||
PRIV (rec_length) = 0;
|
||
PRIV (file_format) = FF_UNKNOWN;
|
||
PRIV (fixup_done) = FALSE;
|
||
PRIV (sections) = NULL;
|
||
|
||
amt = sizeof (struct stack_struct) * STACKSIZE;
|
||
PRIV (stack) = bfd_alloc (abfd, amt);
|
||
if (PRIV (stack) == NULL)
|
||
goto error_ret1;
|
||
PRIV (stackptr) = 0;
|
||
|
||
amt = sizeof (struct bfd_hash_table);
|
||
PRIV (vms_symbol_table) = bfd_alloc (abfd, amt);
|
||
if (PRIV (vms_symbol_table) == NULL)
|
||
goto error_ret1;
|
||
|
||
if (!bfd_hash_table_init (PRIV (vms_symbol_table), _bfd_vms_hash_newfunc,
|
||
sizeof (vms_symbol_entry)))
|
||
goto error_ret1;
|
||
|
||
amt = sizeof (struct location_struct) * LOCATION_SAVE_SIZE;
|
||
PRIV (location_stack) = bfd_alloc (abfd, amt);
|
||
if (PRIV (location_stack) == NULL)
|
||
goto error_ret2;
|
||
|
||
for (i = 0; i < VMS_SECTION_COUNT; i++)
|
||
PRIV (vms_section_table)[i] = NULL;
|
||
|
||
amt = MAX_OUTREC_SIZE;
|
||
PRIV (output_buf) = bfd_alloc (abfd, amt);
|
||
if (PRIV (output_buf) == NULL)
|
||
goto error_ret2;
|
||
|
||
PRIV (push_level) = 0;
|
||
PRIV (pushed_size) = 0;
|
||
PRIV (length_pos) = 2;
|
||
PRIV (output_size) = 0;
|
||
PRIV (output_alignment) = 1;
|
||
|
||
return TRUE;
|
||
|
||
error_ret2:
|
||
bfd_hash_table_free (PRIV (vms_symbol_table));
|
||
error_ret1:
|
||
bfd_release (abfd, abfd->tdata.any);
|
||
abfd->tdata.any = NULL;
|
||
return FALSE;
|
||
}
|
||
|
||
/* Fill symbol->section with section ptr
|
||
symbol->section is filled with the section index for defined symbols
|
||
during reading the GSD/EGSD section. But we need the pointer to the
|
||
bfd section later.
|
||
|
||
It has the correct value for referenced (undefined section) symbols
|
||
|
||
called from bfd_hash_traverse in vms_fixup_sections. */
|
||
|
||
static bfd_boolean
|
||
fill_section_ptr (struct bfd_hash_entry * entry, void * sections)
|
||
{
|
||
asection *sec;
|
||
asymbol *sym;
|
||
|
||
sym = ((vms_symbol_entry *) entry)->symbol;
|
||
sec = sym->section;
|
||
|
||
#if VMS_DEBUG
|
||
vms_debug (6, "fill_section_ptr: sym %p, sec %p\n", sym, sec);
|
||
#endif
|
||
|
||
/* Fill forward references (these contain section number, not section ptr). */
|
||
if ((unsigned int) (size_t) sec < priv_section_count)
|
||
sec = ((vms_symbol_entry *) entry)->symbol->section =
|
||
((asection **) sections)[(unsigned int) (size_t) sec];
|
||
|
||
if (strcmp (sym->name, sec->name) == 0)
|
||
sym->flags |= BSF_SECTION_SYM;
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
/* Fixup sections
|
||
set up all pointers and arrays, counters and sizes are fixed now
|
||
|
||
we build a private sections vector for easy access since sections
|
||
are always referenced by an index number.
|
||
|
||
alloc PRIV(sections) according to abfd->section_count
|
||
copy abfd->sections to PRIV(sections). */
|
||
|
||
static bfd_boolean
|
||
vms_fixup_sections (bfd * abfd)
|
||
{
|
||
if (PRIV (fixup_done))
|
||
return TRUE;
|
||
|
||
/* Traverse symbol table and fill in all section pointers. */
|
||
|
||
/* Can't provide section count as argument to fill_section_ptr(). */
|
||
priv_section_count = PRIV (section_count);
|
||
bfd_hash_traverse (PRIV (vms_symbol_table), fill_section_ptr, (PRIV (sections)));
|
||
|
||
PRIV (fixup_done) = TRUE;
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
/* Check the format for a file being read.
|
||
Return a (bfd_target *) if it's an object file or zero if not. */
|
||
|
||
static const struct bfd_target *
|
||
vms_object_p (bfd * abfd)
|
||
{
|
||
int err = 0;
|
||
int prev_type;
|
||
const struct bfd_target *target_vector = NULL;
|
||
const bfd_arch_info_type *arch = NULL;
|
||
void * tdata_save = abfd->tdata.any;
|
||
bfd_vma saddr_save = bfd_get_start_address (abfd);
|
||
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_object_p (%p)\n", abfd);
|
||
#endif
|
||
|
||
if (!vms_initialize (abfd))
|
||
goto error_ret;
|
||
|
||
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET))
|
||
goto err_wrong_format;
|
||
|
||
prev_type = -1;
|
||
|
||
do
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (7, "reading at %08lx\n", bfd_tell (abfd));
|
||
#endif
|
||
if (_bfd_vms_next_record (abfd) < 0)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (2, "next_record failed\n");
|
||
#endif
|
||
goto err_wrong_format;
|
||
}
|
||
|
||
if ((prev_type == EOBJ_S_C_EGSD)
|
||
&& (PRIV (rec_type) != EOBJ_S_C_EGSD))
|
||
{
|
||
if (! vms_fixup_sections (abfd))
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (2, "vms_fixup_sections failed\n");
|
||
#endif
|
||
goto err_wrong_format;
|
||
}
|
||
}
|
||
|
||
prev_type = PRIV (rec_type);
|
||
|
||
if (target_vector == NULL)
|
||
{
|
||
if (prev_type <= OBJ_S_C_MAXRECTYP)
|
||
target_vector = & vms_vax_vec;
|
||
else
|
||
target_vector = & vms_alpha_vec;
|
||
}
|
||
|
||
switch (prev_type)
|
||
{
|
||
case OBJ_S_C_HDR:
|
||
case EOBJ_S_C_EMH:
|
||
err = _bfd_vms_slurp_hdr (abfd, prev_type);
|
||
break;
|
||
case OBJ_S_C_EOM:
|
||
case OBJ_S_C_EOMW:
|
||
case EOBJ_S_C_EEOM:
|
||
err = _bfd_vms_slurp_eom (abfd, prev_type);
|
||
break;
|
||
case OBJ_S_C_GSD:
|
||
case EOBJ_S_C_EGSD:
|
||
err = _bfd_vms_slurp_gsd (abfd, prev_type);
|
||
break;
|
||
case OBJ_S_C_TIR:
|
||
case EOBJ_S_C_ETIR:
|
||
err = _bfd_vms_slurp_tir (abfd, prev_type);
|
||
break;
|
||
case OBJ_S_C_DBG:
|
||
case EOBJ_S_C_EDBG:
|
||
err = _bfd_vms_slurp_dbg (abfd, prev_type);
|
||
break;
|
||
case OBJ_S_C_TBT:
|
||
case EOBJ_S_C_ETBT:
|
||
err = _bfd_vms_slurp_tbt (abfd, prev_type);
|
||
break;
|
||
case OBJ_S_C_LNK:
|
||
err = _bfd_vms_slurp_lnk (abfd, prev_type);
|
||
break;
|
||
default:
|
||
err = -1;
|
||
}
|
||
if (err != 0)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (2, "slurp type %d failed with %d\n", prev_type, err);
|
||
#endif
|
||
goto err_wrong_format;
|
||
}
|
||
}
|
||
while ((prev_type != EOBJ_S_C_EEOM) && (prev_type != OBJ_S_C_EOM) && (prev_type != OBJ_S_C_EOMW));
|
||
|
||
if (target_vector == & vms_vax_vec)
|
||
{
|
||
if (! vms_fixup_sections (abfd))
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (2, "vms_fixup_sections failed\n");
|
||
#endif
|
||
goto err_wrong_format;
|
||
}
|
||
|
||
/* Set arch_info to vax. */
|
||
|
||
arch = bfd_scan_arch ("vax");
|
||
PRIV (is_vax) = TRUE;
|
||
#if VMS_DEBUG
|
||
vms_debug (2, "arch is vax\n");
|
||
#endif
|
||
}
|
||
else if (target_vector == & vms_alpha_vec)
|
||
{
|
||
/* Set arch_info to alpha. */
|
||
|
||
arch = bfd_scan_arch ("alpha");
|
||
PRIV (is_vax) = FALSE;
|
||
#if VMS_DEBUG
|
||
vms_debug (2, "arch is alpha\n");
|
||
#endif
|
||
}
|
||
|
||
if (arch == NULL)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (2, "arch not found\n");
|
||
#endif
|
||
goto err_wrong_format;
|
||
}
|
||
abfd->arch_info = arch;
|
||
|
||
return target_vector;
|
||
|
||
err_wrong_format:
|
||
bfd_set_error (bfd_error_wrong_format);
|
||
error_ret:
|
||
if (abfd->tdata.any != tdata_save && abfd->tdata.any != NULL)
|
||
bfd_release (abfd, abfd->tdata.any);
|
||
abfd->tdata.any = tdata_save;
|
||
bfd_set_start_address (abfd, saddr_save);
|
||
return NULL;
|
||
}
|
||
|
||
/* Check the format for a file being read.
|
||
Return a (bfd_target *) if it's an archive file or zero. */
|
||
|
||
static const struct bfd_target *
|
||
vms_archive_p (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_archive_p (%p)\n", abfd);
|
||
#endif
|
||
|
||
return NULL;
|
||
}
|
||
|
||
/* Set the format of a file being written. */
|
||
|
||
static bfd_boolean
|
||
vms_mkobject (bfd * abfd)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_mkobject (%p)\n", abfd);
|
||
#endif
|
||
|
||
if (!vms_initialize (abfd))
|
||
return FALSE;
|
||
|
||
{
|
||
#ifdef __VAX
|
||
const bfd_arch_info_type *arch = bfd_scan_arch ("vax");
|
||
#else
|
||
const bfd_arch_info_type *arch = bfd_scan_arch ("alpha");
|
||
#endif
|
||
if (arch == NULL)
|
||
{
|
||
bfd_set_error (bfd_error_wrong_format);
|
||
return FALSE;
|
||
}
|
||
abfd->arch_info = arch;
|
||
}
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
/* Write cached information into a file being written, at bfd_close. */
|
||
|
||
static bfd_boolean
|
||
vms_write_object_contents (bfd * abfd)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_write_object_contents (%p)\n", abfd);
|
||
#endif
|
||
|
||
if (abfd->section_count > 0) /* we have sections */
|
||
{
|
||
if (PRIV (is_vax))
|
||
{
|
||
if (_bfd_vms_write_hdr (abfd, OBJ_S_C_HDR) != 0)
|
||
return FALSE;
|
||
if (_bfd_vms_write_gsd (abfd, OBJ_S_C_GSD) != 0)
|
||
return FALSE;
|
||
if (_bfd_vms_write_tir (abfd, OBJ_S_C_TIR) != 0)
|
||
return FALSE;
|
||
if (_bfd_vms_write_tbt (abfd, OBJ_S_C_TBT) != 0)
|
||
return FALSE;
|
||
if (_bfd_vms_write_dbg (abfd, OBJ_S_C_DBG) != 0)
|
||
return FALSE;
|
||
if (abfd->section_count > 255)
|
||
{
|
||
if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOMW) != 0)
|
||
return FALSE;
|
||
}
|
||
else
|
||
{
|
||
if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOM) != 0)
|
||
return FALSE;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if (_bfd_vms_write_hdr (abfd, EOBJ_S_C_EMH) != 0)
|
||
return FALSE;
|
||
if (_bfd_vms_write_gsd (abfd, EOBJ_S_C_EGSD) != 0)
|
||
return FALSE;
|
||
if (_bfd_vms_write_tir (abfd, EOBJ_S_C_ETIR) != 0)
|
||
return FALSE;
|
||
if (_bfd_vms_write_tbt (abfd, EOBJ_S_C_ETBT) != 0)
|
||
return FALSE;
|
||
if (_bfd_vms_write_dbg (abfd, EOBJ_S_C_EDBG) != 0)
|
||
return FALSE;
|
||
if (_bfd_vms_write_eom (abfd, EOBJ_S_C_EEOM) != 0)
|
||
return FALSE;
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
/* 4.1, generic. */
|
||
|
||
/* Called when the BFD is being closed to do any necessary cleanup. */
|
||
|
||
static bfd_boolean
|
||
vms_close_and_cleanup (bfd * abfd)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_close_and_cleanup (%p)\n", abfd);
|
||
#endif
|
||
if (abfd == NULL
|
||
|| abfd->tdata.any == NULL)
|
||
return TRUE;
|
||
|
||
if (PRIV (vms_buf) != NULL)
|
||
free (PRIV (vms_buf));
|
||
|
||
if (PRIV (sections) != NULL)
|
||
free (PRIV (sections));
|
||
|
||
if (PRIV (vms_symbol_table))
|
||
bfd_hash_table_free (PRIV (vms_symbol_table));
|
||
|
||
bfd_release (abfd, abfd->tdata.any);
|
||
abfd->tdata.any = NULL;
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
/* Ask the BFD to free all cached information. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_free_cached_info (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_free_cached_info (%p)\n", abfd);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Called when a new section is created. */
|
||
|
||
static bfd_boolean
|
||
vms_new_section_hook (bfd * abfd, asection *section)
|
||
{
|
||
/* Count hasn't been incremented yet. */
|
||
unsigned int section_count = abfd->section_count + 1;
|
||
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_new_section_hook (%p, [%d]%s), count %d\n",
|
||
abfd, section->index, section->name, section_count);
|
||
#endif
|
||
bfd_set_section_alignment (abfd, section, 4);
|
||
|
||
if (section_count > PRIV (section_count))
|
||
{
|
||
bfd_size_type amt = section_count;
|
||
amt *= sizeof (asection *);
|
||
PRIV (sections) = bfd_realloc (PRIV (sections), amt);
|
||
if (PRIV (sections) == NULL)
|
||
return FALSE;
|
||
PRIV (section_count) = section_count;
|
||
}
|
||
#if VMS_DEBUG
|
||
vms_debug (6, "section_count: %d\n", PRIV (section_count));
|
||
#endif
|
||
PRIV (sections)[section->index] = section;
|
||
#if VMS_DEBUG
|
||
vms_debug (7, "%d: %s\n", section->index, section->name);
|
||
#endif
|
||
|
||
return _bfd_generic_new_section_hook (abfd, section);
|
||
}
|
||
|
||
/* Read the contents of a section.
|
||
buf points to a buffer of buf_size bytes to be filled with
|
||
section data (starting at offset into section) */
|
||
|
||
static bfd_boolean
|
||
vms_get_section_contents (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asection *section ATTRIBUTE_UNUSED,
|
||
void * buf ATTRIBUTE_UNUSED,
|
||
file_ptr offset ATTRIBUTE_UNUSED,
|
||
bfd_size_type buf_size ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_get_section_contents (%p, %s, %p, off %ld, size %d)\n",
|
||
abfd, section->name, buf, offset, (int)buf_size);
|
||
#endif
|
||
|
||
/* Shouldn't be called, since all sections are IN_MEMORY. */
|
||
return FALSE;
|
||
}
|
||
|
||
/* Read the contents of a section.
|
||
buf points to a buffer of buf_size bytes to be filled with
|
||
section data (starting at offset into section). */
|
||
|
||
static bfd_boolean
|
||
vms_get_section_contents_in_window (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asection *section ATTRIBUTE_UNUSED,
|
||
bfd_window *w ATTRIBUTE_UNUSED,
|
||
file_ptr offset ATTRIBUTE_UNUSED,
|
||
bfd_size_type count ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_get_section_contents_in_window (%p, %s, %p, off %ld, count %d)\n",
|
||
abfd, section->name, w, offset, (int)count);
|
||
#endif
|
||
|
||
/* Shouldn't be called, since all sections are IN_MEMORY. */
|
||
return FALSE;
|
||
}
|
||
|
||
/* Part 4.2, copy private data. */
|
||
|
||
/* Called to copy BFD general private data from one object file
|
||
to another. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_copy_private_bfd_data (bfd *src ATTRIBUTE_UNUSED,
|
||
bfd *dest ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_copy_private_bfd_data (%p, %p)\n", src, dest);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Merge private BFD information from the BFD @var{ibfd} to the
|
||
the output file BFD @var{obfd} when linking. Return <<TRUE>>
|
||
on success, <<FALSE>> on error. Possible error returns are:
|
||
|
||
o <<bfd_error_no_memory>> -
|
||
Not enough memory exists to create private data for @var{obfd}. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_merge_private_bfd_data (bfd * ibfd ATTRIBUTE_UNUSED,
|
||
bfd * obfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1,"vms_bfd_merge_private_bfd_data (%p, %p)\n", ibfd, obfd);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Set private BFD flag information in the BFD @var{abfd}.
|
||
Return <<TRUE>> on success, <<FALSE>> on error. Possible error
|
||
returns are:
|
||
|
||
o <<bfd_error_no_memory>> -
|
||
Not enough memory exists to create private data for @var{obfd}. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_set_private_flags (bfd * abfd ATTRIBUTE_UNUSED,
|
||
flagword flags ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1,"vms_bfd_set_private_flags (%p, %lx)\n", abfd, (long)flags);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Called to copy BFD private section data from one object file
|
||
to another. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_copy_private_section_data (bfd *srcbfd ATTRIBUTE_UNUSED,
|
||
asection *srcsec ATTRIBUTE_UNUSED,
|
||
bfd *dstbfd ATTRIBUTE_UNUSED,
|
||
asection *dstsec ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_copy_private_section_data (%p, %s, %p, %s)\n",
|
||
srcbfd, srcsec->name, dstbfd, dstsec->name);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Called to copy BFD private symbol data from one object file
|
||
to another. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_copy_private_symbol_data (bfd *ibfd ATTRIBUTE_UNUSED,
|
||
asymbol *isym ATTRIBUTE_UNUSED,
|
||
bfd *obfd ATTRIBUTE_UNUSED,
|
||
asymbol *osym ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_copy_private_symbol_data (%p, %s, %p, %s)\n",
|
||
ibfd, isym->name, obfd, osym->name);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Part 4.3, core file. */
|
||
|
||
/* Return a read-only string explaining which program was running
|
||
when it failed and produced the core file abfd. */
|
||
|
||
static char *
|
||
vms_core_file_failing_command (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_core_file_failing_command (%p)\n", abfd);
|
||
#endif
|
||
return NULL;
|
||
}
|
||
|
||
/* Returns the signal number which caused the core dump which
|
||
generated the file the BFD abfd is attached to. */
|
||
|
||
static int
|
||
vms_core_file_failing_signal (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_core_file_failing_signal (%p)\n", abfd);
|
||
#endif
|
||
return 0;
|
||
}
|
||
|
||
/* Return TRUE if the core file attached to core_bfd was generated
|
||
by a run of the executable file attached to exec_bfd, FALSE otherwise. */
|
||
|
||
static bfd_boolean
|
||
vms_core_file_matches_executable_p (bfd * abfd ATTRIBUTE_UNUSED,
|
||
bfd *bbfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_core_file_matches_executable_p (%p, %p)\n", abfd, bbfd);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
/* Part 4.4, archive. */
|
||
|
||
/* ??? do something with an archive map.
|
||
Return FALSE on error, TRUE otherwise. */
|
||
|
||
static bfd_boolean
|
||
vms_slurp_armap (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_slurp_armap (%p)\n", abfd);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
/* ??? do something with an extended name table.
|
||
Return FALSE on error, TRUE otherwise. */
|
||
|
||
static bfd_boolean
|
||
vms_slurp_extended_name_table (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_slurp_extended_name_table (%p)\n", abfd);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
/* ??? do something with an extended name table.
|
||
Return FALSE on error, TRUE otherwise. */
|
||
|
||
static bfd_boolean
|
||
vms_construct_extended_name_table (bfd * abfd ATTRIBUTE_UNUSED,
|
||
char **tabloc ATTRIBUTE_UNUSED,
|
||
bfd_size_type *tablen ATTRIBUTE_UNUSED,
|
||
const char **name ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_construct_extended_name_table (%p)\n", abfd);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
/* Truncate the name of an archive to match system-dependent restrictions. */
|
||
|
||
static void
|
||
vms_truncate_arname (bfd * abfd ATTRIBUTE_UNUSED,
|
||
const char *pathname ATTRIBUTE_UNUSED,
|
||
char *arhdr ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_truncate_arname (%p, %s, %s)\n", abfd, pathname, arhdr);
|
||
#endif
|
||
return;
|
||
}
|
||
|
||
/* ??? write archive map. */
|
||
|
||
static bfd_boolean
|
||
vms_write_armap (bfd *arch ATTRIBUTE_UNUSED,
|
||
unsigned int elength ATTRIBUTE_UNUSED,
|
||
struct orl *map ATTRIBUTE_UNUSED,
|
||
unsigned int orl_count ATTRIBUTE_UNUSED,
|
||
int stridx ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_write_armap (%p, %d, %p, %d %d)\n",
|
||
arch, elength, map, orl_count, stridx);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Read archive header ??? */
|
||
|
||
static void *
|
||
vms_read_ar_hdr (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_read_ar_hdr (%p)\n", abfd);
|
||
#endif
|
||
return NULL;
|
||
}
|
||
|
||
/* Provided a BFD, @var{archive}, containing an archive and NULL, open
|
||
an input BFD on the first contained element and returns that.
|
||
Subsequent calls should pass the archive and the previous return value
|
||
to return a created BFD to the next contained element.
|
||
NULL is returned when there are no more. */
|
||
|
||
static bfd *
|
||
vms_openr_next_archived_file (bfd *arch ATTRIBUTE_UNUSED,
|
||
bfd *prev ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_openr_next_archived_file (%p, %p)\n", arch, prev);
|
||
#endif
|
||
return NULL;
|
||
}
|
||
|
||
/* Return the BFD which is referenced by the symbol in ABFD indexed by
|
||
INDEX. INDEX should have been returned by bfd_get_next_mapent. */
|
||
|
||
static bfd *
|
||
vms_get_elt_at_index (bfd * abfd, symindex index)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_get_elt_at_index (%p, %p)\n", abfd, index);
|
||
#endif
|
||
return _bfd_generic_get_elt_at_index (abfd, index);
|
||
}
|
||
|
||
/* ???
|
||
-> bfd_generic_stat_arch_elt. */
|
||
|
||
static int
|
||
vms_generic_stat_arch_elt (bfd * abfd, struct stat *st)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_generic_stat_arch_elt (%p, %p)\n", abfd, st);
|
||
#endif
|
||
return bfd_generic_stat_arch_elt (abfd, st);
|
||
}
|
||
|
||
/* This is a new function in bfd 2.5. */
|
||
|
||
static bfd_boolean
|
||
vms_update_armap_timestamp (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_update_armap_timestamp (%p)\n", abfd);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Part 4.5, symbols. */
|
||
|
||
/* Return the number of bytes required to store a vector of pointers
|
||
to asymbols for all the symbols in the BFD abfd, including a
|
||
terminal NULL pointer. If there are no symbols in the BFD,
|
||
then return 0. If an error occurs, return -1. */
|
||
|
||
static long
|
||
vms_get_symtab_upper_bound (bfd * abfd)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_get_symtab_upper_bound (%p), %d symbols\n", abfd, PRIV (gsd_sym_count));
|
||
#endif
|
||
return (PRIV (gsd_sym_count) + 1) * sizeof (asymbol *);
|
||
}
|
||
|
||
/* Copy symbols from hash table to symbol vector
|
||
|
||
called from bfd_hash_traverse in vms_canonicalize_symtab
|
||
init counter to 0 if entry == 0. */
|
||
|
||
static bfd_boolean
|
||
copy_symbols (struct bfd_hash_entry *entry, void * arg)
|
||
{
|
||
bfd * abfd = (bfd *) arg;
|
||
|
||
if (entry == NULL) /* Init counter. */
|
||
PRIV (symnum) = 0;
|
||
else /* Fill vector, inc counter. */
|
||
PRIV (symcache)[PRIV (symnum)++] = ((vms_symbol_entry *)entry)->symbol;
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
/* Read the symbols from the BFD abfd, and fills in the vector
|
||
location with pointers to the symbols and a trailing NULL.
|
||
|
||
Return number of symbols read. */
|
||
|
||
static long
|
||
vms_canonicalize_symtab (bfd * abfd, asymbol **symbols)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_canonicalize_symtab (%p, <ret>)\n", abfd);
|
||
#endif
|
||
|
||
/* Init counter. */
|
||
copy_symbols (NULL, abfd);
|
||
|
||
/* Traverse table and fill symbols vector. */
|
||
PRIV (symcache) = symbols;
|
||
bfd_hash_traverse (PRIV (vms_symbol_table), copy_symbols, abfd);
|
||
|
||
symbols[PRIV (gsd_sym_count)] = NULL;
|
||
|
||
return PRIV (gsd_sym_count);
|
||
}
|
||
|
||
/* Print symbol to file according to how. how is one of
|
||
bfd_print_symbol_name just print the name
|
||
bfd_print_symbol_more print more (???)
|
||
bfd_print_symbol_all print all we know, which is not much right now :-). */
|
||
|
||
static void
|
||
vms_print_symbol (bfd * abfd,
|
||
void * file,
|
||
asymbol *symbol,
|
||
bfd_print_symbol_type how)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_print_symbol (%p, %p, %p, %d)\n", abfd, file, symbol, how);
|
||
#endif
|
||
|
||
switch (how)
|
||
{
|
||
case bfd_print_symbol_name:
|
||
case bfd_print_symbol_more:
|
||
fprintf ((FILE *)file," %s", symbol->name);
|
||
break;
|
||
|
||
case bfd_print_symbol_all:
|
||
{
|
||
const char *section_name = symbol->section->name;
|
||
|
||
bfd_print_symbol_vandf (abfd, file, symbol);
|
||
|
||
fprintf ((FILE *) file," %-8s %s", section_name, symbol->name);
|
||
}
|
||
break;
|
||
}
|
||
}
|
||
|
||
/* Return information about symbol in ret.
|
||
|
||
fill type, value and name
|
||
type:
|
||
A absolute
|
||
B bss segment symbol
|
||
C common symbol
|
||
D data segment symbol
|
||
f filename
|
||
t a static function symbol
|
||
T text segment symbol
|
||
U undefined
|
||
- debug. */
|
||
|
||
static void
|
||
vms_get_symbol_info (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asymbol *symbol,
|
||
symbol_info *ret)
|
||
{
|
||
asection *sec;
|
||
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_get_symbol_info (%p, %p, %p)\n", abfd, symbol, ret);
|
||
#endif
|
||
|
||
sec = symbol->section;
|
||
|
||
if (ret == NULL)
|
||
return;
|
||
|
||
if (bfd_is_com_section (sec))
|
||
ret->type = 'C';
|
||
else if (bfd_is_abs_section (sec))
|
||
ret->type = 'A';
|
||
else if (bfd_is_und_section (sec))
|
||
ret->type = 'U';
|
||
else if (bfd_is_ind_section (sec))
|
||
ret->type = 'I';
|
||
else if (bfd_get_section_flags (abfd, sec) & SEC_CODE)
|
||
ret->type = 'T';
|
||
else if (bfd_get_section_flags (abfd, sec) & SEC_DATA)
|
||
ret->type = 'D';
|
||
else if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
|
||
ret->type = 'B';
|
||
else
|
||
ret->type = '-';
|
||
|
||
if (ret->type != 'U')
|
||
ret->value = symbol->value + symbol->section->vma;
|
||
else
|
||
ret->value = 0;
|
||
ret->name = symbol->name;
|
||
}
|
||
|
||
/* Return TRUE if the given symbol sym in the BFD abfd is
|
||
a compiler generated local label, else return FALSE. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_is_local_label_name (bfd * abfd ATTRIBUTE_UNUSED,
|
||
const char *name)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_is_local_label_name (%p, %s)\n", abfd, name);
|
||
#endif
|
||
return name[0] == '$';
|
||
}
|
||
|
||
/* Get source line number for symbol. */
|
||
|
||
static alent *
|
||
vms_get_lineno (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asymbol *symbol ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_get_lineno (%p, %p)\n", abfd, symbol);
|
||
#endif
|
||
return NULL;
|
||
}
|
||
|
||
/* Provided a BFD, a section and an offset into the section, calculate and
|
||
return the name of the source file and the line nearest to the wanted
|
||
location. */
|
||
|
||
static bfd_boolean
|
||
vms_find_nearest_line (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asection *section ATTRIBUTE_UNUSED,
|
||
asymbol **symbols ATTRIBUTE_UNUSED,
|
||
bfd_vma offset ATTRIBUTE_UNUSED,
|
||
const char **file ATTRIBUTE_UNUSED,
|
||
const char **func ATTRIBUTE_UNUSED,
|
||
unsigned int *line ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_find_nearest_line (%p, %s, %p, %ld, <ret>, <ret>, <ret>)\n",
|
||
abfd, section->name, symbols, (long int)offset);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
static bfd_boolean
|
||
vms_find_inliner_info (bfd * abfd ATTRIBUTE_UNUSED,
|
||
const char **file ATTRIBUTE_UNUSED,
|
||
const char **func ATTRIBUTE_UNUSED,
|
||
unsigned int *line ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_find_inliner_info (%p, <ret>, <ret>, <ret>)\n",
|
||
abfd);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
/* Back-door to allow format-aware applications to create debug symbols
|
||
while using BFD for everything else. Currently used by the assembler
|
||
when creating COFF files. */
|
||
|
||
static asymbol *
|
||
vms_bfd_make_debug_symbol (bfd * abfd ATTRIBUTE_UNUSED,
|
||
void *ptr ATTRIBUTE_UNUSED,
|
||
unsigned long size ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_make_debug_symbol (%p, %p, %ld)\n", abfd, ptr, size);
|
||
#endif
|
||
return NULL;
|
||
}
|
||
|
||
/* Read minisymbols. For minisymbols, we use the unmodified a.out
|
||
symbols. The minisymbol_to_symbol function translates these into
|
||
BFD asymbol structures. */
|
||
|
||
static long
|
||
vms_read_minisymbols (bfd * abfd,
|
||
bfd_boolean dynamic,
|
||
void * *minisymsp,
|
||
unsigned int *sizep)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_read_minisymbols (%p, %d, %p, %d)\n", abfd, dynamic, minisymsp, *sizep);
|
||
#endif
|
||
return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);
|
||
}
|
||
|
||
/* Convert a minisymbol to a BFD asymbol. A minisymbol is just an
|
||
unmodified a.out symbol. The SYM argument is a structure returned
|
||
by bfd_make_empty_symbol, which we fill in here. */
|
||
|
||
static asymbol *
|
||
vms_minisymbol_to_symbol (bfd * abfd,
|
||
bfd_boolean dynamic,
|
||
const void * minisym,
|
||
asymbol *sym)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_minisymbol_to_symbol (%p, %d, %p, %p)\n", abfd, dynamic, minisym, sym);
|
||
#endif
|
||
return _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym);
|
||
}
|
||
|
||
/* Part 4.6, relocations. */
|
||
|
||
/* Return the number of bytes required to store the relocation information
|
||
associated with section sect attached to bfd abfd.
|
||
If an error occurs, return -1. */
|
||
|
||
static long
|
||
vms_get_reloc_upper_bound (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asection *section ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_get_reloc_upper_bound (%p, %s)\n", abfd, section->name);
|
||
#endif
|
||
return -1L;
|
||
}
|
||
|
||
/* Call the back end associated with the open BFD abfd and translate the
|
||
external form of the relocation information attached to sec into the
|
||
internal canonical form. Place the table into memory at loc, which has
|
||
been preallocated, usually by a call to bfd_get_reloc_upper_bound.
|
||
Returns the number of relocs, or -1 on error. */
|
||
|
||
static long
|
||
vms_canonicalize_reloc (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asection *section ATTRIBUTE_UNUSED,
|
||
arelent **location ATTRIBUTE_UNUSED,
|
||
asymbol **symbols ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_canonicalize_reloc (%p, %s, <ret>, <ret>)\n", abfd, section->name);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
/* This is just copied from ecoff-alpha, needs to be fixed probably. */
|
||
|
||
/* How to process the various reloc types. */
|
||
|
||
static bfd_reloc_status_type
|
||
reloc_nil (bfd * abfd ATTRIBUTE_UNUSED,
|
||
arelent *reloc ATTRIBUTE_UNUSED,
|
||
asymbol *sym ATTRIBUTE_UNUSED,
|
||
void * data ATTRIBUTE_UNUSED,
|
||
asection *sec ATTRIBUTE_UNUSED,
|
||
bfd *output_bfd ATTRIBUTE_UNUSED,
|
||
char **error_message ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "reloc_nil (abfd %p, output_bfd %p)\n", abfd, output_bfd);
|
||
vms_debug (2, "In section %s, symbol %s\n",
|
||
sec->name, sym->name);
|
||
vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
|
||
reloc->sym_ptr_ptr[0]->name,
|
||
(unsigned long)reloc->address,
|
||
(unsigned long)reloc->addend, reloc->howto->name);
|
||
vms_debug (2, "data at %p\n", data);
|
||
/* _bfd_hexdump (2, data, bfd_get_reloc_size (reloc->howto), 0); */
|
||
#endif
|
||
|
||
return bfd_reloc_ok;
|
||
}
|
||
|
||
/* In case we're on a 32-bit machine, construct a 64-bit "-1" value
|
||
from smaller values. Start with zero, widen, *then* decrement. */
|
||
#define MINUS_ONE (((bfd_vma)0) - 1)
|
||
|
||
static reloc_howto_type alpha_howto_table[] =
|
||
{
|
||
HOWTO (ALPHA_R_IGNORE, /* Type. */
|
||
0, /* Rightshift. */
|
||
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
8, /* Bitsize. */
|
||
TRUE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_dont,/* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"IGNORE", /* Name. */
|
||
TRUE, /* Partial_inplace. */
|
||
0, /* Source mask */
|
||
0, /* Dest mask. */
|
||
TRUE), /* PC rel offset. */
|
||
|
||
/* A 64 bit reference to a symbol. */
|
||
HOWTO (ALPHA_R_REFQUAD, /* Type. */
|
||
0, /* Rightshift. */
|
||
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
64, /* Bitsize. */
|
||
FALSE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_bitfield, /* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"REFQUAD", /* Name. */
|
||
TRUE, /* Partial_inplace. */
|
||
MINUS_ONE, /* Source mask. */
|
||
MINUS_ONE, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* A 21 bit branch. The native assembler generates these for
|
||
branches within the text segment, and also fills in the PC
|
||
relative offset in the instruction. */
|
||
HOWTO (ALPHA_R_BRADDR, /* Type. */
|
||
2, /* Rightshift. */
|
||
2, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
21, /* Bitsize. */
|
||
TRUE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_signed, /* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"BRADDR", /* Name. */
|
||
TRUE, /* Partial_inplace. */
|
||
0x1fffff, /* Source mask. */
|
||
0x1fffff, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* A hint for a jump to a register. */
|
||
HOWTO (ALPHA_R_HINT, /* Type. */
|
||
2, /* Rightshift. */
|
||
1, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
14, /* Bitsize. */
|
||
TRUE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_dont,/* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"HINT", /* Name. */
|
||
TRUE, /* Partial_inplace. */
|
||
0x3fff, /* Source mask. */
|
||
0x3fff, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* 16 bit PC relative offset. */
|
||
HOWTO (ALPHA_R_SREL16, /* Type. */
|
||
0, /* Rightshift. */
|
||
1, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
16, /* Bitsize. */
|
||
TRUE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_signed, /* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"SREL16", /* Name. */
|
||
TRUE, /* Partial_inplace. */
|
||
0xffff, /* Source mask. */
|
||
0xffff, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* 32 bit PC relative offset. */
|
||
HOWTO (ALPHA_R_SREL32, /* Type. */
|
||
0, /* Rightshift. */
|
||
2, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
32, /* Bitsize. */
|
||
TRUE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_signed, /* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"SREL32", /* Name. */
|
||
TRUE, /* Partial_inplace. */
|
||
0xffffffff, /* Source mask. */
|
||
0xffffffff, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* A 64 bit PC relative offset. */
|
||
HOWTO (ALPHA_R_SREL64, /* Type. */
|
||
0, /* Rightshift. */
|
||
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
64, /* Bitsize. */
|
||
TRUE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_signed, /* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"SREL64", /* Name. */
|
||
TRUE, /* Partial_inplace. */
|
||
MINUS_ONE, /* Source mask. */
|
||
MINUS_ONE, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* Push a value on the reloc evaluation stack. */
|
||
HOWTO (ALPHA_R_OP_PUSH, /* Type. */
|
||
0, /* Rightshift. */
|
||
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
0, /* Bitsize. */
|
||
FALSE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_dont,/* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"OP_PUSH", /* Name. */
|
||
FALSE, /* Partial_inplace. */
|
||
0, /* Source mask. */
|
||
0, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* 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. */
|
||
HOWTO (ALPHA_R_OP_STORE, /* Type. */
|
||
0, /* Rightshift. */
|
||
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
64, /* Bitsize. */
|
||
FALSE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_dont,/* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"OP_STORE", /* Name. */
|
||
FALSE, /* Partial_inplace. */
|
||
0, /* Source mask. */
|
||
MINUS_ONE, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* Subtract the reloc address from the value on the top of the
|
||
relocation stack. */
|
||
HOWTO (ALPHA_R_OP_PSUB, /* Type. */
|
||
0, /* Rightshift. */
|
||
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
0, /* Bitsize. */
|
||
FALSE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_dont,/* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"OP_PSUB", /* Name. */
|
||
FALSE, /* Partial_inplace. */
|
||
0, /* Source mask. */
|
||
0, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* Shift the value on the top of the relocation stack right by the
|
||
given value. */
|
||
HOWTO (ALPHA_R_OP_PRSHIFT, /* Type. */
|
||
0, /* Rightshift. */
|
||
0, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
0, /* Bitsize. */
|
||
FALSE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_dont,/* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"OP_PRSHIFT", /* Name. */
|
||
FALSE, /* Partial_inplace. */
|
||
0, /* Source mask. */
|
||
0, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* Hack. Linkage is done by linker. */
|
||
HOWTO (ALPHA_R_LINKAGE, /* Type. */
|
||
0, /* Rightshift. */
|
||
8, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
256, /* Bitsize. */
|
||
FALSE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_dont,/* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"LINKAGE", /* Name. */
|
||
FALSE, /* Partial_inplace. */
|
||
0, /* Source mask. */
|
||
0, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* A 32 bit reference to a symbol. */
|
||
HOWTO (ALPHA_R_REFLONG, /* Type. */
|
||
0, /* Rightshift. */
|
||
2, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
32, /* Bitsize. */
|
||
FALSE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_bitfield, /* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"REFLONG", /* Name. */
|
||
TRUE, /* Partial_inplace. */
|
||
0xffffffff, /* Source mask. */
|
||
0xffffffff, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
/* A 64 bit reference to a procedure, written as 32 bit value. */
|
||
HOWTO (ALPHA_R_CODEADDR, /* Type. */
|
||
0, /* Rightshift. */
|
||
4, /* Size (0 = byte, 1 = short, 2 = long). */
|
||
64, /* Bitsize. */
|
||
FALSE, /* PC relative. */
|
||
0, /* Bitpos. */
|
||
complain_overflow_signed,/* Complain_on_overflow. */
|
||
reloc_nil, /* Special_function. */
|
||
"CODEADDR", /* Name. */
|
||
FALSE, /* Partial_inplace. */
|
||
0xffffffff, /* Source mask. */
|
||
0xffffffff, /* Dest mask. */
|
||
FALSE), /* PC rel offset. */
|
||
|
||
};
|
||
|
||
/* Return a pointer to a howto structure which, when invoked, will perform
|
||
the relocation code on data from the architecture noted. */
|
||
|
||
static const struct reloc_howto_struct *
|
||
vms_bfd_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
|
||
bfd_reloc_code_real_type code)
|
||
{
|
||
int alpha_type;
|
||
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd, code);
|
||
#endif
|
||
|
||
switch (code)
|
||
{
|
||
case BFD_RELOC_16: alpha_type = ALPHA_R_SREL16; break;
|
||
case BFD_RELOC_32: alpha_type = ALPHA_R_REFLONG; break;
|
||
case BFD_RELOC_64: 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_ALPHA_HINT: alpha_type = ALPHA_R_HINT; 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_64_PCREL: alpha_type = ALPHA_R_SREL64; break;
|
||
case BFD_RELOC_ALPHA_LINKAGE: alpha_type = ALPHA_R_LINKAGE; break;
|
||
case BFD_RELOC_ALPHA_CODEADDR: alpha_type = ALPHA_R_CODEADDR; break;
|
||
default:
|
||
(*_bfd_error_handler) ("reloc (%d) is *UNKNOWN*", code);
|
||
return NULL;
|
||
}
|
||
#if VMS_DEBUG
|
||
vms_debug (2, "reloc is %s\n", alpha_howto_table[alpha_type].name);
|
||
#endif
|
||
return & alpha_howto_table[alpha_type];
|
||
}
|
||
|
||
static reloc_howto_type *
|
||
vms_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
|
||
const char *r_name)
|
||
{
|
||
unsigned int i;
|
||
|
||
for (i = 0;
|
||
i < sizeof (alpha_howto_table) / sizeof (alpha_howto_table[0]);
|
||
i++)
|
||
if (alpha_howto_table[i].name != NULL
|
||
&& strcasecmp (alpha_howto_table[i].name, r_name) == 0)
|
||
return &alpha_howto_table[i];
|
||
|
||
return NULL;
|
||
}
|
||
|
||
/* Part 4.7, writing an object file. */
|
||
|
||
/* 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
|
||
pointer. */
|
||
|
||
static bfd_boolean
|
||
vms_set_arch_mach (bfd * abfd,
|
||
enum bfd_architecture arch ATTRIBUTE_UNUSED,
|
||
unsigned long mach ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_set_arch_mach (%p, %d, %ld)\n", abfd, arch, mach);
|
||
#endif
|
||
abfd->arch_info = bfd_scan_arch ("alpha");
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
/* Sets the contents of the section section in BFD abfd to the data starting
|
||
in memory at data. The data is written to the output section starting at
|
||
offset offset for count bytes.
|
||
|
||
Normally TRUE is returned, else FALSE. Possible error returns are:
|
||
o bfd_error_no_contents - The output section does not have the
|
||
SEC_HAS_CONTENTS attribute, so nothing can be written to it.
|
||
o and some more too */
|
||
|
||
static bfd_boolean
|
||
vms_set_section_contents (bfd * abfd,
|
||
asection *section,
|
||
const void * location,
|
||
file_ptr offset,
|
||
bfd_size_type count)
|
||
{
|
||
#if VMS_DEBUG
|
||
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);
|
||
vms_debug (2, "size %d\n", (int) section->size);
|
||
#endif
|
||
return _bfd_save_vms_section (abfd, section, location, offset, count);
|
||
}
|
||
|
||
/* Part 4.8, linker. */
|
||
|
||
/* Get the size of the section headers. */
|
||
|
||
static int
|
||
vms_sizeof_headers (bfd * abfd ATTRIBUTE_UNUSED,
|
||
struct bfd_link_info *info ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_sizeof_headers (%p, %s)\n", abfd, (reloc)?"True":"False");
|
||
#endif
|
||
return 0;
|
||
}
|
||
|
||
/* Provides default handling of relocation effort for back ends
|
||
which can't be bothered to do it efficiently. */
|
||
|
||
static bfd_byte *
|
||
vms_bfd_get_relocated_section_contents (bfd * abfd ATTRIBUTE_UNUSED,
|
||
struct bfd_link_info *link_info ATTRIBUTE_UNUSED,
|
||
struct bfd_link_order *link_order ATTRIBUTE_UNUSED,
|
||
bfd_byte *data ATTRIBUTE_UNUSED,
|
||
bfd_boolean relocatable ATTRIBUTE_UNUSED,
|
||
asymbol **symbols ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_get_relocated_section_contents (%p, %p, %p, %p, %s, %p)\n",
|
||
abfd, link_info, link_order, data, (relocatable)?"True":"False", symbols);
|
||
#endif
|
||
return NULL;
|
||
}
|
||
|
||
/* ??? */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_relax_section (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asection *section ATTRIBUTE_UNUSED,
|
||
struct bfd_link_info *link_info ATTRIBUTE_UNUSED,
|
||
bfd_boolean *again ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_relax_section (%p, %s, %p, <ret>)\n",
|
||
abfd, section->name, link_info);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
static bfd_boolean
|
||
vms_bfd_gc_sections (bfd * abfd ATTRIBUTE_UNUSED,
|
||
struct bfd_link_info *link_info ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_gc_sections (%p, %p)\n", abfd, link_info);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
static bfd_boolean
|
||
vms_bfd_merge_sections (bfd * abfd ATTRIBUTE_UNUSED,
|
||
struct bfd_link_info *link_info ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_merge_sections (%p, %p)\n", abfd, link_info);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Create a hash table for the linker. Different backends store
|
||
different information in this table. */
|
||
|
||
static struct bfd_link_hash_table *
|
||
vms_bfd_link_hash_table_create (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_link_hash_table_create (%p)\n", abfd);
|
||
#endif
|
||
return NULL;
|
||
}
|
||
|
||
/* Free a linker hash table. */
|
||
|
||
static void
|
||
vms_bfd_link_hash_table_free (struct bfd_link_hash_table *hash ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_link_hash_table_free (%p)\n", abfd);
|
||
#endif
|
||
}
|
||
|
||
/* Add symbols from this object file into the hash table. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_link_add_symbols (bfd * abfd ATTRIBUTE_UNUSED,
|
||
struct bfd_link_info *link_info ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_link_add_symbols (%p, %p)\n", abfd, link_info);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
/* Do a link based on the link_order structures attached to each
|
||
section of the BFD. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_final_link (bfd * abfd ATTRIBUTE_UNUSED,
|
||
struct bfd_link_info *link_info ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_final_link (%p, %p)\n", abfd, link_info);
|
||
#endif
|
||
return TRUE;
|
||
}
|
||
|
||
/* Should this section be split up into smaller pieces during linking. */
|
||
|
||
static bfd_boolean
|
||
vms_bfd_link_split_section (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asection *section ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_link_split_section (%p, %s)\n", abfd, section->name);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
/* Part 4.9, dynamic symbols and relocations. */
|
||
|
||
/* Get the amount of memory required to hold the dynamic symbols. */
|
||
|
||
static long
|
||
vms_get_dynamic_symtab_upper_bound (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_get_dynamic_symtab_upper_bound (%p)\n", abfd);
|
||
#endif
|
||
return 0;
|
||
}
|
||
|
||
static bfd_boolean
|
||
vms_bfd_print_private_bfd_data (bfd * abfd ATTRIBUTE_UNUSED,
|
||
void *file ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_bfd_print_private_bfd_data (%p)\n", abfd);
|
||
#endif
|
||
return FALSE;
|
||
}
|
||
|
||
/* Read in the dynamic symbols. */
|
||
|
||
static long
|
||
vms_canonicalize_dynamic_symtab (bfd * abfd ATTRIBUTE_UNUSED,
|
||
asymbol **symbols ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_canonicalize_dynamic_symtab (%p, <ret>)\n", abfd);
|
||
#endif
|
||
return 0L;
|
||
}
|
||
|
||
/* Get the amount of memory required to hold the dynamic relocs. */
|
||
|
||
static long
|
||
vms_get_dynamic_reloc_upper_bound (bfd * abfd ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_get_dynamic_reloc_upper_bound (%p)\n", abfd);
|
||
#endif
|
||
return 0L;
|
||
}
|
||
|
||
/* Read in the dynamic relocs. */
|
||
|
||
static long
|
||
vms_canonicalize_dynamic_reloc (bfd * abfd ATTRIBUTE_UNUSED,
|
||
arelent **arel ATTRIBUTE_UNUSED,
|
||
asymbol **symbols ATTRIBUTE_UNUSED)
|
||
{
|
||
#if VMS_DEBUG
|
||
vms_debug (1, "vms_canonicalize_dynamic_reloc (%p)\n", abfd);
|
||
#endif
|
||
return 0L;
|
||
}
|
||
|
||
const bfd_target vms_alpha_vec =
|
||
{
|
||
"vms-alpha", /* Name. */
|
||
bfd_target_evax_flavour,
|
||
BFD_ENDIAN_LITTLE, /* Data byte order is little. */
|
||
BFD_ENDIAN_LITTLE, /* Header byte order is little. */
|
||
|
||
(HAS_RELOC | HAS_SYMS
|
||
| WP_TEXT | D_PAGED), /* Object flags. */
|
||
(SEC_ALLOC | SEC_LOAD | SEC_RELOC
|
||
| SEC_READONLY | SEC_CODE | SEC_DATA
|
||
| SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* Sect flags. */
|
||
0, /* Symbol_leading_char. */
|
||
' ', /* AR_pad_char. */
|
||
15, /* AR_max_namelen. */
|
||
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
||
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
||
bfd_getl16, bfd_getl_signed_16, bfd_putl16,
|
||
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
||
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
||
bfd_getl16, bfd_getl_signed_16, bfd_putl16,
|
||
|
||
{_bfd_dummy_target, vms_object_p, /* bfd_check_format. */
|
||
vms_archive_p, _bfd_dummy_target},
|
||
{bfd_false, vms_mkobject, /* bfd_set_format. */
|
||
_bfd_generic_mkarchive, bfd_false},
|
||
{bfd_false, vms_write_object_contents, /* bfd_write_contents. */
|
||
_bfd_write_archive_contents, bfd_false},
|
||
|
||
BFD_JUMP_TABLE_GENERIC (vms),
|
||
BFD_JUMP_TABLE_COPY (vms),
|
||
BFD_JUMP_TABLE_CORE (vms),
|
||
BFD_JUMP_TABLE_ARCHIVE (vms),
|
||
BFD_JUMP_TABLE_SYMBOLS (vms),
|
||
BFD_JUMP_TABLE_RELOCS (vms),
|
||
BFD_JUMP_TABLE_WRITE (vms),
|
||
BFD_JUMP_TABLE_LINK (vms),
|
||
BFD_JUMP_TABLE_DYNAMIC (vms),
|
||
|
||
NULL,
|
||
|
||
NULL
|
||
};
|
||
|
||
const bfd_target vms_vax_vec =
|
||
{
|
||
"vms-vax", /* Name. */
|
||
bfd_target_ovax_flavour,
|
||
BFD_ENDIAN_LITTLE, /* Data byte order is little. */
|
||
BFD_ENDIAN_LITTLE, /* Header byte order is little. */
|
||
|
||
(HAS_RELOC | HAS_SYMS /* Object flags. */
|
||
| WP_TEXT | D_PAGED
|
||
| HAS_LINENO | HAS_DEBUG | HAS_LOCALS),
|
||
|
||
(SEC_ALLOC | SEC_LOAD | SEC_RELOC
|
||
| SEC_READONLY | SEC_CODE | SEC_DATA
|
||
| SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* Sect flags. */
|
||
0, /* Symbol_leading_char. */
|
||
' ', /* AR_pad_char. */
|
||
15, /* AR_max_namelen. */
|
||
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
||
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
||
bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Data. */
|
||
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
||
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
||
bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Headers. */
|
||
|
||
{_bfd_dummy_target, vms_object_p, /* bfd_check_format. */
|
||
vms_archive_p, _bfd_dummy_target},
|
||
{bfd_false, vms_mkobject, /* bfd_set_format. */
|
||
_bfd_generic_mkarchive, bfd_false},
|
||
{bfd_false, vms_write_object_contents, /* bfd_write_contents. */
|
||
_bfd_write_archive_contents, bfd_false},
|
||
|
||
BFD_JUMP_TABLE_GENERIC (vms),
|
||
BFD_JUMP_TABLE_COPY (vms),
|
||
BFD_JUMP_TABLE_CORE (vms),
|
||
BFD_JUMP_TABLE_ARCHIVE (vms),
|
||
BFD_JUMP_TABLE_SYMBOLS (vms),
|
||
BFD_JUMP_TABLE_RELOCS (vms),
|
||
BFD_JUMP_TABLE_WRITE (vms),
|
||
BFD_JUMP_TABLE_LINK (vms),
|
||
BFD_JUMP_TABLE_DYNAMIC (vms),
|
||
|
||
NULL,
|
||
|
||
NULL
|
||
};
|