diff options
Diffstat (limited to 'bfd/vms.c')
| -rw-r--r-- | bfd/vms.c | 1518 |
1 files changed, 0 insertions, 1518 deletions
diff --git a/bfd/vms.c b/bfd/vms.c deleted file mode 100644 index c63e175..0000000 --- a/bfd/vms.c +++ /dev/null @@ -1,1518 +0,0 @@ -/* 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, 2008, 2009 Free Software Foundation, Inc. - - Main file. - - 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. */ - -#ifdef VMS -#include <rms.h> -#include <unixlib.h> -#include <starlet.h> -#define RME$C_SETRFM 0x00000001 -#include <unistd.h> -#endif - -#include "sysdep.h" -#include "bfd.h" -#include "bfdlink.h" -#include "libbfd.h" - -#include "vms.h" - -static bfd_boolean vms_initialize (bfd *); -static bfd_boolean fill_section_ptr (struct bfd_hash_entry *, PTR); -static bfd_boolean vms_fixup_sections (bfd *); -static bfd_boolean copy_symbols (struct bfd_hash_entry *, PTR); -static bfd_reloc_status_type reloc_nil (bfd *, arelent *, asymbol *, PTR, - asection *, bfd *, char **); -static int vms_slurp_module (bfd *abfd); -static int vms_slurp_image (bfd *abfd); -static const struct bfd_target *vms_object_p (bfd *abfd); -static bfd_boolean vms_mkobject (bfd *abfd); -static bfd_boolean vms_write_object_contents (bfd *abfd); -static void free_reloc_stream (bfd *abfd, asection *section, void *data); -static bfd_boolean vms_close_and_cleanup (bfd *abfd); -static bfd_boolean vms_new_section_hook (bfd *abfd, asection *section); -static bfd_boolean vms_get_section_contents - (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_canonicalize_symtab (bfd *abfd, asymbol **symbols); -static void vms_print_symbol (bfd *abfd, PTR file, asymbol *symbol, - bfd_print_symbol_type how); -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_find_nearest_line - (bfd *abfd, asection *section, asymbol **symbols, bfd_vma offset, - const char **file, const char **func, unsigned int *line); -static void alloc_reloc_stream (bfd *abfd, asection *section, - void *alloc_error); -static bfd_boolean vms_slurp_reloc_table (bfd *abfd, asection *section, - asymbol **symbols); -static long vms_get_reloc_upper_bound (bfd *abfd, asection *sect); -static long vms_canonicalize_reloc (bfd *abfd, asection *srcsec, - arelent **location, asymbol **symbols); -static const struct reloc_howto_struct *vms_bfd_reloc_type_lookup - (bfd *abfd, bfd_reloc_code_real_type code); -static bfd_boolean vms_set_arch_mach - (bfd *abfd, enum bfd_architecture arch, unsigned long mach); -static bfd_boolean vms_set_section_contents - (bfd *abfd, asection *section, const PTR location, file_ptr offset, - bfd_size_type count); - -#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_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_discard_group bfd_generic_discard_group -#define vms_section_already_linked _bfd_generic_section_already_linked -#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_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_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_symbol_data _bfd_generic_bfd_copy_private_symbol_data -#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_get_section_contents_in_window _bfd_generic_get_section_contents_in_window -#define vms_read_minisymbols _bfd_generic_read_minisymbols -#define vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol -#define vms_get_lineno _bfd_nosymbols_get_lineno -#define vms_find_inliner_info _bfd_nosymbols_find_inliner_info -#define vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol - -#ifdef VMS_DEBUG -/* Cause debug info to be emitted for the structure. */ -struct vms_private_data_struct _vms_private_data_struct_dummy; -struct vms_section_data_struct _vms_section_data_struct_dummy; -#endif - -extern const bfd_target vms_vax_vec; -extern const bfd_target vms_alpha_vec; - -/* Initialize private data */ -static bfd_boolean -vms_initialize (bfd * abfd) -{ - bfd_size_type amt; - - bfd_set_start_address (abfd, (bfd_vma) -1); - - amt = sizeof (struct vms_private_data_struct); - abfd->tdata.any = bfd_zalloc (abfd, amt); - if (abfd->tdata.any == NULL) - return FALSE; - - if (bfd_get_flavour (abfd) == bfd_target_ovax_flavour) - PRIV (is_vax) = TRUE; - - PRIV (file_format) = FF_UNKNOWN; - - amt = sizeof (struct stack_struct) * STACKSIZE; - PRIV (stack) = bfd_alloc (abfd, amt); - if (PRIV (stack) == NULL) - goto error_ret1; - - 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 = MAX_OUTREC_SIZE; - PRIV (output_buf) = bfd_alloc (abfd, amt); - if (PRIV (output_buf) == NULL) - goto error_ret2; - - PRIV (length_pos) = 2; - - 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; -} - -struct pair -{ - unsigned int section_count; - asection **sections; -}; - -/* Fill symbol->section with section pointer. - - 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) -{ - asymbol *sym = ((vms_symbol_entry *)entry)->symbol; - struct pair *data = (struct pair *)sections; - unsigned long sec = (unsigned long)sym->section; - - vms_debug2 ((6, "fill_section_ptr: sym %p, sec %lu\n", sym, sec)); - - if (sec < data->section_count) - { - sym->section = data->sections[sec]; - - if (strcmp (sym->name, sym->section->name) == 0) - sym->flags |= BSF_SECTION_SYM; - } - else if (sec == (unsigned long)-1) - sym->section = &bfd_und_section; - - return TRUE; -} - -/* Fixup section pointers in symbols. */ -static bfd_boolean -vms_fixup_sections (bfd * abfd) -{ - struct pair data; - - if (PRIV (fixup_done)) - return TRUE; - - data.section_count = PRIV (section_count); - data.sections = PRIV (sections); - bfd_hash_traverse (PRIV (vms_symbol_table), fill_section_ptr, &data); - - PRIV (fixup_done) = TRUE; - return TRUE; -} - -/* Slurp an ordered set of VMS object records. */ -int -_bfd_vms_slurp_object_records (bfd * abfd) -{ - int err, new_type, type = -1; - - do - { - vms_debug2 ((7, "reading at %08lx\n", bfd_tell (abfd))); - - new_type = _bfd_vms_get_object_record (abfd); - if (new_type < 0) - { - vms_debug2 ((2, "next_record failed\n")); - return -1; - } - - if (type == EOBJ_S_C_EGSD && new_type != EOBJ_S_C_EGSD) - { - if (! vms_fixup_sections (abfd)) - { - vms_debug2 ((2, "vms_fixup_sections failed\n")); - return -1; - } - } - - type = new_type; - - switch (type) - { - case OBJ_S_C_HDR: - case EOBJ_S_C_EMH: - err = _bfd_vms_slurp_hdr (abfd, type); - break; - case OBJ_S_C_EOM: - case OBJ_S_C_EOMW: - case EOBJ_S_C_EEOM: - err = _bfd_vms_slurp_eom (abfd, type); - break; - case OBJ_S_C_GSD: - case EOBJ_S_C_EGSD: - err = _bfd_vms_slurp_gsd (abfd, type); - break; - case OBJ_S_C_TIR: - case EOBJ_S_C_ETIR: - err = _bfd_vms_slurp_tir (abfd, type); - break; - case OBJ_S_C_DBG: - case EOBJ_S_C_EDBG: - err = _bfd_vms_slurp_dbg (abfd, type); - PRIV (dst_ptr_end) = PRIV (image_ptr); - break; - case OBJ_S_C_TBT: - case EOBJ_S_C_ETBT: - err = _bfd_vms_slurp_tbt (abfd, type); - PRIV (dst_ptr_end) = PRIV (image_ptr); - break; - case OBJ_S_C_LNK: - err = _bfd_vms_slurp_lnk (abfd, type); - break; - default: - err = -1; - } - if (err != 0) - { - vms_debug2 ((2, "slurp type %d failed with %d\n", type, err)); - return err; - } - } - while (type != EOBJ_S_C_EEOM && type != OBJ_S_C_EOM && type != OBJ_S_C_EOMW); - - return 0; -} - -/* Slurp a VMS module and return an error status. */ - -static int -vms_slurp_module (bfd *abfd) -{ - int type, err; - - if (PRIV (is_vax)) - type = PRIV (vms_rec)[0]; - else - type = bfd_getl16 (PRIV (vms_rec)); - - err = _bfd_vms_slurp_hdr (abfd, type); - if (err != 0) - { - bfd_set_error (bfd_error_wrong_format); - return err; - } - - return _bfd_vms_slurp_object_records (abfd); -} - -/* Slurp a VMS image and return an error status. */ - -static int -vms_slurp_image (bfd *abfd) -{ - unsigned int isd_offset, ihs_offset; - int err; - - err = _bfd_vms_slurp_ihd (abfd, &isd_offset, &ihs_offset); - if (err != 0) - { - bfd_set_error (bfd_error_wrong_format); - return err; - } - - err = _bfd_vms_slurp_isd (abfd, isd_offset); - if (err != 0) - { - bfd_set_error (bfd_error_wrong_format); - return err; - } - - return _bfd_vms_slurp_ihs (abfd, ihs_offset); -} - -/* 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) -{ - const struct bfd_target *target_vector; - const bfd_arch_info_type *arch; - PTR tdata_save = abfd->tdata.any; - bfd_vma saddr_save = bfd_get_start_address (abfd); - int err = 0; - - vms_debug2 ((1, "vms_object_p(%p)\n", abfd)); - - if (!vms_initialize (abfd)) - goto error_ret; - - if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET)) - goto err_wrong_format; - - switch (_bfd_vms_get_first_record (abfd)) - { - case FT_UNKNOWN: - default: - err = -1; - break; - - case FT_MODULE: - err = vms_slurp_module (abfd); - break; - - case FT_IMAGE: - err = vms_slurp_image (abfd); - break; - } - - if (err != 0) - goto err_wrong_format; - - if (PRIV (is_vax)) - { - if (! vms_fixup_sections (abfd)) - { - vms_debug2 ((2, "vms_fixup_sections failed\n")); - goto err_wrong_format; - } - - target_vector = &vms_vax_vec; - arch = bfd_scan_arch ("vax"); - - vms_debug2 ((2, "arch is vax\n")); - } - else - { - /* Set arch_info to alpha. */ - target_vector = &vms_alpha_vec; - arch = bfd_scan_arch ("alpha"); - vms_debug2 ((2, "arch is alpha\n")); - } - - 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; -} - -/* Set the format of a file being written. */ - -static bfd_boolean -vms_mkobject (bfd * abfd) -{ - const bfd_arch_info_type *arch; - - vms_debug2 ((1, "vms_mkobject (%p)\n", abfd)); - - if (!vms_initialize (abfd)) - return FALSE; - - if (PRIV (is_vax)) - arch = bfd_scan_arch ("vax"); - else - arch = bfd_scan_arch ("alpha"); - - if (arch == 0) - { - 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) -{ - vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd)); - - 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. */ - -/* Free the reloc buffer for the specified section. */ - -static void -free_reloc_stream (bfd *abfd ATTRIBUTE_UNUSED, asection *section, - void *data ATTRIBUTE_UNUSED) -{ - if (vms_section_data (section)->reloc_stream) - free (vms_section_data (section)->reloc_stream); -} - -#ifdef VMS -/* Convert the file to variable record length format. This is done - using undocumented system call sys$modify(). - Pure VMS version. */ - -static void -vms_convert_to_var (char *vms_filename) -{ - struct FAB fab = cc$rms_fab; - - fab.fab$l_fna = vms_filename; - fab.fab$b_fns = strlen (vms_filename); - fab.fab$b_fac = FAB$M_PUT; - fab.fab$l_fop = FAB$M_ESC; - fab.fab$l_ctx = RME$C_SETRFM; - - sys$open (&fab); - - fab.fab$b_rfm = FAB$C_VAR; - - sys$modify (&fab); - sys$close (&fab); -} - -static int -vms_convert_to_var_1 (char *filename, int type) -{ - if (type != DECC$K_FILE) - return FALSE; - vms_convert_to_var (filename); - return TRUE; -} - -/* Convert the file to variable record length format. This is done - using undocumented system call sys$modify(). - Unix filename version. */ - -static int -vms_convert_to_var_unix_filename (const char *unix_filename) -{ - if (decc$to_vms (unix_filename, &vms_convert_to_var_1, 0, 1) != 1) - return FALSE; - return TRUE; -} -#endif /* VMS */ - -/* Called when the BFD is being closed to do any necessary cleanup. */ - -static bfd_boolean -vms_close_and_cleanup (bfd * abfd) -{ - vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd)); - - 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_map_over_sections (abfd, free_reloc_stream, NULL); - - bfd_release (abfd, abfd->tdata.any); - abfd->tdata.any = NULL; - -#ifdef VMS - if (abfd->direction == write_direction) - { - /* Last step on VMS is to convert the file to variable record length - format. */ - if (bfd_cache_close (abfd) != TRUE) - return FALSE; - if (vms_convert_to_var_unix_filename (abfd->filename) != TRUE) - return FALSE; - } -#endif - - return TRUE; -} - -/* Called when a new section is created. */ - -static bfd_boolean -vms_new_section_hook (bfd * abfd, asection *section) -{ - bfd_size_type amt; - - /* Count hasn't been incremented yet. */ - unsigned int section_count = abfd->section_count + 1; - - vms_debug2 ((1, "vms_new_section_hook (%p, [%d]%s), count %d\n", - abfd, section->index, section->name, section_count)); - - bfd_set_section_alignment (abfd, section, 0); - - if (section_count > PRIV (section_count)) - { - amt = section_count; - amt *= sizeof (asection *); - PRIV (sections) = bfd_realloc_or_free (PRIV (sections), amt); - if (PRIV (sections) == NULL) - return FALSE; - PRIV (section_count) = section_count; - } - - vms_debug2 ((6, "section_count: %d\n", PRIV (section_count))); - - PRIV (sections)[section->index] = section; - - vms_debug2 ((7, "%d: %s\n", section->index, section->name)); - - amt = sizeof (struct vms_section_data_struct); - section->used_by_bfd = (PTR) bfd_zalloc (abfd, amt); - if (section->used_by_bfd == NULL) - return FALSE; - - 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) -{ - bfd_size_type size = section->size; - - vms_debug2 ((1, "vms_get_section_contents (%p, %s, %p, off %ld, size %d)\n", - abfd, section->name, buf, offset, (int)buf_size)); - - if (section->contents) - abort (); - - section->contents = (unsigned char *) bfd_malloc (size); - - if (section->contents == NULL) - { - bfd_set_error (bfd_error_no_memory); - return FALSE; - } - - if (bfd_seek (abfd, section->filepos, SEEK_SET)) - { - bfd_set_error (bfd_error_file_truncated); - return FALSE; - } - - if (bfd_bread (section->contents, size, abfd) != size) - { - bfd_set_error (bfd_error_file_truncated); - return FALSE; - } - - section->flags |= SEC_IN_MEMORY; - - if (buf) - memcpy (buf, section->contents + offset, (size_t) buf_size); - - 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) -{ - vms_debug2 ((1, "vms_get_symtab_upper_bound (%p), %d symbols\n", - abfd, PRIV (gsd_sym_count))); - - 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) -{ - vms_debug2 ((1, "vms_canonicalize_symtab (%p, <ret>)\n", abfd)); - - /* 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) -{ - vms_debug2 ((1, "vms_print_symbol (%p, %p, %p, %d)\n", - abfd, file, symbol, how)); - - 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; - - vms_debug2 ((1, "vms_get_symbol_info (%p, %p, %p)\n", abfd, symbol, ret)); - - sec = symbol->section; - - if (ret == NULL) - return; - - if (sec == 0) - ret->type = 'U'; - else 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) -{ - vms_debug2 ((1, "vms_bfd_is_local_label_name (%p, %s)\n", abfd, name)); - return name[0] == '$'; -} - -/* 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) -{ - vms_debug2 ((1, "vms_find_nearest_line (%p, %s, %p, %ld, ...)\n", - abfd, section->name, symbols, (long int)offset)); - return _bfd_vms_find_nearest_dst_line (abfd, section, symbols, offset, file, func, line); -} - -/* Part 4.6, relocations. */ - -/* Allocate the reloc buffer for the specified section. */ - -static void -alloc_reloc_stream (bfd *abfd ATTRIBUTE_UNUSED, asection *section, - void *alloc_error) -{ - unsigned char *ptr; - - /* If there were no relocations, there is nothing to do. */ - if (section->reloc_count == 0) - return; - - ptr = bfd_malloc (vms_section_data (section)->reloc_size); - if (ptr == NULL) - { - *(bfd_boolean *)alloc_error = TRUE; - return; - } - - vms_section_data (section)->reloc_stream = ptr; -} - -/* Read in the relocs for the specified section and internalize them. - - The implementation is loosely based on the SOM code and made up - of 3 distinct phases: - - 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 - possible to know upfront both which sections have no relocs and - the size of the reloc buffers for the other sections, at virtually - 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 - with relocs, the object is traversed and all the reloc information - 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 - sections at once. - - 3. On subsequent invocations of vms_slurp_reloc_table, the relocs for the - specified section are fetched from the buffer, decoded and internalized. - The buffer is then freed since the internalized relocs are attached to - the section, turning additional invocations of vms_slurp_reloc_table - on the same section into no-ops. - - 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 - the sections at once. The current implementation is more elegant. */ - -static bfd_boolean -vms_slurp_reloc_table (bfd *abfd, asection *section, asymbol **symbols) -{ - arelent *internal_relocs; - bfd_size_type amt; - int err; - - /* If there were no relocations, there is nothing to do. */ - if (section->reloc_count == 0) - return TRUE; - - /* Return saved information about the relocations if it is available. */ - if (section->relocation != NULL) - return TRUE; - - /* If the relocation stream has not been slurped, do it now. */ - if (vms_section_data (section)->reloc_stream == NULL) - { - bfd_boolean alloc_error = FALSE; - int type; - - /* Size the reloc buffer for each section. */ - bfd_map_over_sections (abfd, alloc_reloc_stream, &alloc_error); - if (alloc_error) - return FALSE; - - if (bfd_seek (abfd, 0, SEEK_SET) != 0) - return FALSE; - - /* Reset section pointer. */ - PRIV (image_section) = NULL; - - do - { - type = _bfd_vms_get_object_record (abfd); - if (type != EOBJ_S_C_ETIR - && type != EOBJ_S_C_EDBG - && type != EOBJ_S_C_ETBT) - continue; - err = _bfd_vms_slurp_relocs (abfd); - if (err != 0) - { - vms_debug2 ((2, "slurp relocs failed with %d\n", err)); - return FALSE; - } - } - while (type != EOBJ_S_C_EEOM); - } - - amt = section->reloc_count * sizeof (arelent); - internal_relocs = (arelent *) bfd_zalloc (abfd, amt); - if (internal_relocs == NULL) - return FALSE; - - /* Decode and internalize the relocations. */ - err = _bfd_vms_decode_relocs (abfd, internal_relocs, section, symbols); - if (err != 0) - { - vms_debug2 ((2, "decode relocs failed with %d\n", err)); - return FALSE; - } - - /* We're done with the external relocations. Free them. */ - free (vms_section_data (section)->reloc_stream); - vms_section_data (section)->reloc_stream = NULL; - - /* Save our results and return success. */ - section->relocation = internal_relocs; - return TRUE; -} - -/* Return the number of bytes required to store the relocation - information associated with the given section. */ - -static long -vms_get_reloc_upper_bound (bfd *abfd ATTRIBUTE_UNUSED, asection *section) -{ - return (section->reloc_count + 1) * sizeof (arelent *); -} - -/* Convert relocations from VMS (external) form into BFD internal - form. Return the number of relocations. */ - -static long -vms_canonicalize_reloc (bfd *abfd, asection *section, arelent **relptr, - asymbol **symbols) -{ - arelent *tblptr; - int count; - - if (! vms_slurp_reloc_table (abfd, section, symbols)) - return -1; - - count = section->reloc_count; - tblptr = section->relocation; - - while (count--) - *relptr++ = tblptr++; - - *relptr = (arelent *) NULL; - return section->reloc_count; -} - -/* 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. */ - - HOWTO (ALPHA_R_NOP, /* Type. */ - 0, /* Rightshift. */ - 3, /* Size (0 = byte, 1 = short, 2 = long). */ - 0, /* Bitsize. */ - /* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH - because the calculations for the 3 relocations are the same. - See B.4.5.2 of the OpenVMS Linker Utility Manual. */ - TRUE, /* PC relative. */ - 0, /* Bitpos. */ - complain_overflow_dont,/* Complain_on_overflow. */ - reloc_nil, /* Special_function. */ - "NOP", /* Name. */ - FALSE, /* Partial_inplace. */ - 0xffffffff, /* Source mask. */ - 0xffffffff, /* Dest mask. */ - FALSE), /* PC rel offset. */ - - HOWTO (ALPHA_R_BSR, /* Type. */ - 0, /* Rightshift. */ - 3, /* Size (0 = byte, 1 = short, 2 = long). */ - 0, /* Bitsize. */ - TRUE, /* PC relative. */ - 0, /* Bitpos. */ - complain_overflow_dont,/* Complain_on_overflow. */ - reloc_nil, /* Special_function. */ - "BSR", /* Name. */ - FALSE, /* Partial_inplace. */ - 0xffffffff, /* Source mask. */ - 0xffffffff, /* Dest mask. */ - FALSE), /* PC rel offset. */ - - HOWTO (ALPHA_R_LDA, /* Type. */ - 0, /* Rightshift. */ - 3, /* Size (0 = byte, 1 = short, 2 = long). */ - 0, /* Bitsize. */ - FALSE, /* PC relative. */ - 0, /* Bitpos. */ - complain_overflow_dont,/* Complain_on_overflow. */ - reloc_nil, /* Special_function. */ - "LDA", /* Name. */ - FALSE, /* Partial_inplace. */ - 0xffffffff, /* Source mask. */ - 0xffffffff, /* Dest mask. */ - FALSE), /* PC rel offset. */ - - HOWTO (ALPHA_R_BOH, /* Type. */ - 0, /* Rightshift. */ - 3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */ - 0, /* Bitsize. */ - TRUE, /* PC relative. */ - 0, /* Bitpos. */ - complain_overflow_dont,/* Complain_on_overflow. */ - reloc_nil, /* Special_function. */ - "BOH", /* 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; - - vms_debug2 ((1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd, code)); - - 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; - 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_LDA: alpha_type = ALPHA_R_LDA; break; - case BFD_RELOC_ALPHA_BOH: alpha_type = ALPHA_R_BOH; break; - default: - (*_bfd_error_handler) ("reloc (%d) is *UNKNOWN*", code); - return NULL; - } - vms_debug2 ((2, "reloc is %s\n", alpha_howto_table[alpha_type].name)); - 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) -{ - vms_debug2 ((1, "vms_set_arch_mach (%p, %d, %ld)\n", abfd, arch, mach)); - - if (arch != bfd_arch_alpha - && arch != bfd_arch_vax - && arch != bfd_arch_unknown) - return FALSE; - - return bfd_default_set_arch_mach (abfd, arch, mach); -} - -/* 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 - 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 - if (count == (bfd_size_type)0) - return TRUE; - - if (section->contents == NULL) - section->contents = bfd_alloc (abfd, section->size); - if (section->contents == NULL) - return FALSE; - - memcpy (section->contents + offset, location, (size_t) count); - return TRUE; -} - -static bfd_boolean -vms_bfd_print_private_bfd_data (bfd *abfd, void *ptr) -{ - FILE *file = (FILE *)ptr; - - 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 version : %s\n"), PRIV(hdr_data.hdr_t_version)); - 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, _("source files : %s\n"), PRIV(hdr_data.hdr_c_src)); - fprintf (file, _("title : %s\n"), PRIV(hdr_data.hdr_c_ttl)); - - return TRUE; -} - -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 | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS - | 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. */ - _bfd_vms_lib_alpha_archive_p, _bfd_dummy_target}, - {bfd_false, vms_mkobject, /* bfd_set_format. */ - _bfd_vms_lib_mkarchive, bfd_false}, - {bfd_false, vms_write_object_contents, /* bfd_write_contents. */ - _bfd_vms_lib_write_archive_contents, bfd_false}, - - BFD_JUMP_TABLE_GENERIC (vms), - BFD_JUMP_TABLE_COPY (vms), - BFD_JUMP_TABLE_CORE (_bfd_nocore), - BFD_JUMP_TABLE_ARCHIVE (_bfd_vms_lib), - BFD_JUMP_TABLE_SYMBOLS (vms), - BFD_JUMP_TABLE_RELOCS (vms), - BFD_JUMP_TABLE_WRITE (vms), - BFD_JUMP_TABLE_LINK (_bfd_nolink), - BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), - - NULL, - - (PTR) 0 -}; - -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, /* Hdrs. */ - - {_bfd_dummy_target, vms_object_p, /* bfd_check_format. */ - _bfd_dummy_target, _bfd_dummy_target}, - {bfd_false, vms_mkobject, /* bfd_set_format. */ - bfd_false, bfd_false}, - {bfd_false, vms_write_object_contents, /* bfd_write_contents. */ - bfd_false, bfd_false}, - - BFD_JUMP_TABLE_GENERIC (vms), - BFD_JUMP_TABLE_COPY (vms), - BFD_JUMP_TABLE_CORE (_bfd_nocore), - BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), - BFD_JUMP_TABLE_SYMBOLS (vms), - BFD_JUMP_TABLE_RELOCS (vms), - BFD_JUMP_TABLE_WRITE (vms), - BFD_JUMP_TABLE_LINK (_bfd_nolink), - BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), - - NULL, - - (PTR) 0 -}; |