diff options
Diffstat (limited to 'binutils-2.24/bfd/vms-alpha.c')
-rw-r--r-- | binutils-2.24/bfd/vms-alpha.c | 9301 |
1 files changed, 0 insertions, 9301 deletions
diff --git a/binutils-2.24/bfd/vms-alpha.c b/binutils-2.24/bfd/vms-alpha.c deleted file mode 100644 index 09438aeb..00000000 --- a/binutils-2.24/bfd/vms-alpha.c +++ /dev/null @@ -1,9301 +0,0 @@ -/* vms.c -- BFD back-end for EVAX (openVMS/Alpha) files. - Copyright 1996-2013 Free Software Foundation, Inc. - - Initial version written by Klaus Kaempf (kkaempf@rmi.de) - Major rewrite by Adacore. - - 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. */ - -/* TODO: - o overlayed sections - o PIC - o Generation of shared image - o Relocation optimizations - o EISD for the stack - o Vectors isect - o 64 bits sections - o Entry point - o LIB$INITIALIZE - o protected sections (for messages) - ... -*/ - -#include "sysdep.h" -#include "bfd.h" -#include "bfdlink.h" -#include "libbfd.h" -#include "bfdver.h" - -#include "vms.h" -#include "vms/eihd.h" -#include "vms/eiha.h" -#include "vms/eihi.h" -#include "vms/eihs.h" -#include "vms/eisd.h" -#include "vms/dmt.h" -#include "vms/dst.h" -#include "vms/eihvn.h" -#include "vms/eobjrec.h" -#include "vms/egsd.h" -#include "vms/egps.h" -#include "vms/esgps.h" -#include "vms/eeom.h" -#include "vms/emh.h" -#include "vms/eiaf.h" -#include "vms/shl.h" -#include "vms/eicp.h" -#include "vms/etir.h" -#include "vms/egsy.h" -#include "vms/esdf.h" -#include "vms/esdfm.h" -#include "vms/esdfv.h" -#include "vms/esrf.h" -#include "vms/egst.h" -#include "vms/eidc.h" -#include "vms/dsc.h" -#include "vms/prt.h" -#include "vms/internal.h" - - -#define MIN(a,b) ((a) < (b) ? (a) : (b)) - -/* The r_type field in a reloc is one of the following values. */ -#define ALPHA_R_IGNORE 0 -#define ALPHA_R_REFQUAD 1 -#define ALPHA_R_BRADDR 2 -#define ALPHA_R_HINT 3 -#define ALPHA_R_SREL16 4 -#define ALPHA_R_SREL32 5 -#define ALPHA_R_SREL64 6 -#define ALPHA_R_OP_PUSH 7 -#define ALPHA_R_OP_STORE 8 -#define ALPHA_R_OP_PSUB 9 -#define ALPHA_R_OP_PRSHIFT 10 -#define ALPHA_R_LINKAGE 11 -#define ALPHA_R_REFLONG 12 -#define ALPHA_R_CODEADDR 13 -#define ALPHA_R_NOP 14 -#define ALPHA_R_BSR 15 -#define ALPHA_R_LDA 16 -#define ALPHA_R_BOH 17 - -/* These are used with DST_S_C_LINE_NUM. */ -#define DST_S_C_LINE_NUM_HEADER_SIZE 4 - -/* These are used with DST_S_C_SOURCE */ - -#define DST_S_B_PCLINE_UNSBYTE 1 -#define DST_S_W_PCLINE_UNSWORD 1 -#define DST_S_L_PCLINE_UNSLONG 1 - -#define DST_S_B_MODBEG_NAME 14 -#define DST_S_L_RTNBEG_ADDRESS 5 -#define DST_S_B_RTNBEG_NAME 13 -#define DST_S_L_RTNEND_SIZE 5 - -/* These are used with DST_S_C_SOURCE. */ -#define DST_S_C_SOURCE_HEADER_SIZE 4 - -#define DST_S_B_SRC_DF_LENGTH 1 -#define DST_S_W_SRC_DF_FILEID 3 -#define DST_S_B_SRC_DF_FILENAME 20 -#define DST_S_B_SRC_UNSBYTE 1 -#define DST_S_W_SRC_UNSWORD 1 -#define DST_S_L_SRC_UNSLONG 1 - -/* Debugger symbol definitions. */ - -#define DBG_S_L_DMT_MODBEG 0 -#define DBG_S_L_DST_SIZE 4 -#define DBG_S_W_DMT_PSECT_COUNT 8 -#define DBG_S_C_DMT_HEADER_SIZE 12 - -#define DBG_S_L_DMT_PSECT_START 0 -#define DBG_S_L_DMT_PSECT_LENGTH 4 -#define DBG_S_C_DMT_PSECT_SIZE 8 - -/* VMS module header. */ - -struct hdr_struct -{ - char hdr_b_strlvl; - int hdr_l_arch1; - int hdr_l_arch2; - int hdr_l_recsiz; - char *hdr_t_name; - char *hdr_t_version; - char *hdr_t_date; - char *hdr_c_lnm; - char *hdr_c_src; - char *hdr_c_ttl; -}; - -#define EMH_DATE_LENGTH 17 - -/* VMS End-Of-Module records (EOM/EEOM). */ - -struct eom_struct -{ - unsigned int eom_l_total_lps; - unsigned short eom_w_comcod; - bfd_boolean eom_has_transfer; - unsigned char eom_b_tfrflg; - unsigned int eom_l_psindx; - unsigned int eom_l_tfradr; -}; - -struct vms_symbol_entry -{ - bfd *owner; - - /* Common fields. */ - unsigned char typ; - unsigned char data_type; - unsigned short flags; - - /* Section and offset/value of the symbol. */ - unsigned int value; - asection *section; - - /* Section and offset/value for the entry point (only for subprg). */ - asection *code_section; - unsigned int code_value; - - /* Symbol vector offset. */ - unsigned int symbol_vector; - - /* Length of the name. */ - unsigned char namelen; - - char name[1]; -}; - -/* Stack value for push/pop commands. */ - -struct stack_struct -{ - bfd_vma value; - unsigned int reloc; -}; - -#define STACKSIZE 128 - -/* A minimal decoding of DST compilation units. We only decode - what's needed to get to the line number information. */ - -struct fileinfo -{ - char *name; - unsigned int srec; -}; - -struct srecinfo -{ - struct srecinfo *next; - unsigned int line; - unsigned int sfile; - unsigned int srec; -}; - -struct lineinfo -{ - struct lineinfo *next; - bfd_vma address; - unsigned int line; -}; - -struct funcinfo -{ - struct funcinfo *next; - char *name; - bfd_vma low; - bfd_vma high; -}; - -struct module -{ - /* Chain the previously read compilation unit. */ - struct module *next; - - /* The module name. */ - char *name; - - /* The start offset and size of debug info in the DST section. */ - unsigned int modbeg; - unsigned int size; - - /* The lowest and highest addresses contained in this compilation - unit as specified in the compilation unit header. */ - bfd_vma low; - bfd_vma high; - - /* The listing line table. */ - struct lineinfo *line_table; - - /* The source record table. */ - struct srecinfo *srec_table; - - /* A list of the functions found in this module. */ - struct funcinfo *func_table; - - /* Current allocation of file_table. */ - unsigned int file_table_count; - - /* An array of the files making up this module. */ - struct fileinfo *file_table; -}; - -/* BFD private data for alpha-vms. */ - -struct vms_private_data_struct -{ - /* If true, relocs have been read. */ - bfd_boolean reloc_done; - - /* Record input buffer. */ - struct vms_rec_rd recrd; - struct vms_rec_wr recwr; - - struct hdr_struct hdr_data; /* data from HDR/EMH record */ - struct eom_struct eom_data; /* data from EOM/EEOM record */ - - /* Transfer addresses (entry points). */ - bfd_vma transfer_address[4]; - - /* Array of GSD sections to get the correspond BFD one. */ - unsigned int section_max; /* Size of the sections array. */ - unsigned int section_count; /* Number of GSD sections. */ - asection **sections; - - /* Array of raw symbols. */ - struct vms_symbol_entry **syms; - - /* Canonicalized symbols. */ - asymbol **csymbols; - - /* Number of symbols. */ - unsigned int gsd_sym_count; - /* Size of the syms array. */ - unsigned int max_sym_count; - /* Number of procedure symbols. */ - unsigned int norm_sym_count; - - /* Stack used to evaluate TIR/ETIR commands. */ - struct stack_struct *stack; - int stackptr; - - /* Content reading. */ - asection *image_section; /* section for image_ptr */ - file_ptr image_offset; /* Offset for image_ptr. */ - - struct module *modules; /* list of all compilation units */ - - /* The DST section. */ - asection *dst_section; - - unsigned int dst_ptr_offsets_count; /* # of offsets in following array */ - unsigned int *dst_ptr_offsets; /* array of saved image_ptr offsets */ - - /* Shared library support */ - bfd_vma symvva; /* relative virtual address of symbol vector */ - unsigned int ident; - unsigned char matchctl; - - /* Shared library index. This is used for input bfd while linking. */ - unsigned int shr_index; - - /* Used to place structures in the file. */ - file_ptr file_pos; - - /* Simply linked list of eisd. */ - struct vms_internal_eisd_map *eisd_head; - struct vms_internal_eisd_map *eisd_tail; - - /* Simply linked list of eisd for shared libraries. */ - struct vms_internal_eisd_map *gbl_eisd_head; - struct vms_internal_eisd_map *gbl_eisd_tail; - - /* linkage index counter used by conditional store commands */ - unsigned int vms_linkage_index; -}; - -#define PRIV2(abfd, name) \ - (((struct vms_private_data_struct *)(abfd)->tdata.any)->name) -#define PRIV(name) PRIV2(abfd,name) - - -/* Used to keep extra VMS specific information for a given section. - - reloc_size holds the size of the relocation stream, note this - is very different from the number of relocations as VMS relocations - are variable length. - - reloc_stream is the actual stream of relocation entries. */ - -struct vms_section_data_struct -{ - /* Maximnum number of entries in sec->relocation. */ - unsigned reloc_max; - - /* Corresponding eisd. Used only while generating executables. */ - struct vms_internal_eisd_map *eisd; - - /* PSC flags to be clear. */ - flagword no_flags; - - /* PSC flags to be set. */ - flagword flags; -}; - -#define vms_section_data(sec) \ - ((struct vms_section_data_struct *)sec->used_by_bfd) - -/* To be called from the debugger. */ -struct vms_private_data_struct *bfd_vms_get_data (bfd *abfd); - -static int vms_get_remaining_object_record (bfd *abfd, int read_so_far); -static bfd_boolean _bfd_vms_slurp_object_records (bfd * abfd); -static void alpha_vms_add_fixup_lp (struct bfd_link_info *, bfd *, bfd *); -static void alpha_vms_add_fixup_ca (struct bfd_link_info *, bfd *, bfd *); -static void alpha_vms_add_fixup_qr (struct bfd_link_info *, bfd *, bfd *, - bfd_vma); -static void alpha_vms_add_fixup_lr (struct bfd_link_info *, unsigned int, - bfd_vma); -static void alpha_vms_add_lw_reloc (struct bfd_link_info *info); -static void alpha_vms_add_qw_reloc (struct bfd_link_info *info); - -struct vector_type -{ - unsigned int max_el; - unsigned int nbr_el; - void *els; -}; - -/* Number of elements in VEC. */ - -#define VEC_COUNT(VEC) ((VEC).nbr_el) - -/* Get the address of the Nth element. */ - -#define VEC_EL(VEC, TYPE, N) (((TYPE *)((VEC).els))[N]) - -#define VEC_INIT(VEC) \ - do { \ - (VEC).max_el = 0; \ - (VEC).nbr_el = 0; \ - (VEC).els = NULL; \ - } while (0) - -/* Be sure there is room for a new element. */ - -static void vector_grow1 (struct vector_type *vec, size_t elsz); - -/* Allocate room for a new element and return its address. */ - -#define VEC_APPEND(VEC, TYPE) \ - (vector_grow1 (&VEC, sizeof (TYPE)), &VEC_EL(VEC, TYPE, (VEC).nbr_el++)) - -/* Append an element. */ - -#define VEC_APPEND_EL(VEC, TYPE, EL) \ - (*(VEC_APPEND (VEC, TYPE)) = EL) - -struct alpha_vms_vma_ref -{ - bfd_vma vma; /* Vma in the output. */ - bfd_vma ref; /* Reference in the input. */ -}; - -struct alpha_vms_shlib_el -{ - bfd *abfd; - bfd_boolean has_fixups; - - struct vector_type lp; /* Vector of bfd_vma. */ - struct vector_type ca; /* Vector of bfd_vma. */ - struct vector_type qr; /* Vector of struct alpha_vms_vma_ref. */ -}; - -/* Alpha VMS linker hash table. */ - -struct alpha_vms_link_hash_table -{ - struct bfd_link_hash_table root; - - /* Vector of shared libraries. */ - struct vector_type shrlibs; - - /* Fixup section. */ - asection *fixup; - - /* Base address. Used by fixups. */ - bfd_vma base_addr; -}; - -#define alpha_vms_link_hash(INFO) \ - ((struct alpha_vms_link_hash_table *)(INFO->hash)) - -/* Alpha VMS linker hash table entry. */ - -struct alpha_vms_link_hash_entry -{ - struct bfd_link_hash_entry root; - - /* Pointer to the original vms symbol. */ - struct vms_symbol_entry *sym; -}; - -/* Image reading. */ - -/* Read & process EIHD record. - Return TRUE on success, FALSE on error. */ - -static bfd_boolean -_bfd_vms_slurp_eihd (bfd *abfd, unsigned int *eisd_offset, - unsigned int *eihs_offset) -{ - unsigned int imgtype, size; - bfd_vma symvva; - struct vms_eihd *eihd = (struct vms_eihd *)PRIV (recrd.rec); - - vms_debug2 ((8, "_bfd_vms_slurp_eihd\n")); - - size = bfd_getl32 (eihd->size); - imgtype = bfd_getl32 (eihd->imgtype); - - if (imgtype == EIHD__K_EXE || imgtype == EIHD__K_LIM) - abfd->flags |= EXEC_P; - - symvva = bfd_getl64 (eihd->symvva); - if (symvva != 0) - { - PRIV (symvva) = symvva; - abfd->flags |= DYNAMIC; - } - - PRIV (ident) = bfd_getl32 (eihd->ident); - PRIV (matchctl) = eihd->matchctl; - - *eisd_offset = bfd_getl32 (eihd->isdoff); - *eihs_offset = bfd_getl32 (eihd->symdbgoff); - - vms_debug2 ((4, "EIHD size %d imgtype %d symvva 0x%lx eisd %d eihs %d\n", - size, imgtype, (unsigned long)symvva, - *eisd_offset, *eihs_offset)); - - return TRUE; -} - -/* Read & process EISD record. - Return TRUE on success, FALSE on error. */ - -static bfd_boolean -_bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset) -{ - int section_count = 0; - - vms_debug2 ((8, "_bfd_vms_slurp_eisd\n")); - - while (1) - { - struct vms_eisd *eisd; - unsigned int rec_size; - unsigned int size; - unsigned long long vaddr; - unsigned int flags; - unsigned int vbn; - char *name = NULL; - asection *section; - flagword bfd_flags; - - eisd = (struct vms_eisd *)(PRIV (recrd.rec) + offset); - rec_size = bfd_getl32 (eisd->eisdsize); - - if (rec_size == 0) - break; - - /* Skip to next block if pad. */ - if (rec_size == 0xffffffff) - { - offset = (offset + VMS_BLOCK_SIZE) & ~(VMS_BLOCK_SIZE - 1); - continue; - } - else - offset += rec_size; - - size = bfd_getl32 (eisd->secsize); - vaddr = bfd_getl64 (eisd->virt_addr); - flags = bfd_getl32 (eisd->flags); - vbn = bfd_getl32 (eisd->vbn); - - vms_debug2 ((4, "EISD at 0x%x size 0x%x addr 0x%lx flags 0x%x blk %d\n", - offset, size, (unsigned long)vaddr, flags, vbn)); - - /* VMS combines psects from .obj files into isects in the .exe. This - process doesn't preserve enough information to reliably determine - what's in each section without examining the data. This is - especially true of DWARF debug sections. */ - bfd_flags = SEC_ALLOC; - if (vbn != 0) - bfd_flags |= SEC_HAS_CONTENTS | SEC_LOAD; - - if (flags & EISD__M_EXE) - bfd_flags |= SEC_CODE; - - if (flags & EISD__M_NONSHRADR) - bfd_flags |= SEC_DATA; - - if (!(flags & EISD__M_WRT)) - bfd_flags |= SEC_READONLY; - - if (flags & EISD__M_DZRO) - bfd_flags |= SEC_DATA; - - if (flags & EISD__M_FIXUPVEC) - bfd_flags |= SEC_DATA; - - if (flags & EISD__M_CRF) - bfd_flags |= SEC_DATA; - - if (flags & EISD__M_GBL) - { - name = _bfd_vms_save_counted_string (eisd->gblnam); - bfd_flags |= SEC_COFF_SHARED_LIBRARY; - bfd_flags &= ~(SEC_ALLOC | SEC_LOAD); - } - else if (flags & EISD__M_FIXUPVEC) - name = "$FIXUPVEC$"; - else if (eisd->type == EISD__K_USRSTACK) - name = "$STACK$"; - else - { - const char *pfx; - - name = (char*) bfd_alloc (abfd, 32); - if (flags & EISD__M_DZRO) - pfx = "BSS"; - else if (flags & EISD__M_EXE) - pfx = "CODE"; - else if (!(flags & EISD__M_WRT)) - pfx = "RO"; - else - pfx = "LOCAL"; - BFD_ASSERT (section_count < 999); - sprintf (name, "$%s_%03d$", pfx, section_count++); - } - - section = bfd_make_section (abfd, name); - - if (!section) - return FALSE; - - section->filepos = vbn ? VMS_BLOCK_SIZE * (vbn - 1) : 0; - section->size = size; - section->vma = vaddr; - - if (!bfd_set_section_flags (abfd, section, bfd_flags)) - return FALSE; - } - - return TRUE; -} - -/* Read & process EIHS record. - Return TRUE on success, FALSE on error. */ - -static bfd_boolean -_bfd_vms_slurp_eihs (bfd *abfd, unsigned int offset) -{ - unsigned char *p = PRIV (recrd.rec) + offset; - unsigned int gstvbn = bfd_getl32 (p + EIHS__L_GSTVBN); - unsigned int gstsize ATTRIBUTE_UNUSED = bfd_getl32 (p + EIHS__L_GSTSIZE); - unsigned int dstvbn = bfd_getl32 (p + EIHS__L_DSTVBN); - unsigned int dstsize = bfd_getl32 (p + EIHS__L_DSTSIZE); - unsigned int dmtvbn = bfd_getl32 (p + EIHS__L_DMTVBN); - unsigned int dmtbytes = bfd_getl32 (p + EIHS__L_DMTBYTES); - asection *section; - -#if VMS_DEBUG - vms_debug (8, "_bfd_vms_slurp_ihs\n"); - vms_debug (4, "EIHS record gstvbn %d gstsize %d dstvbn %d dstsize %d dmtvbn %d dmtbytes %d\n", - gstvbn, gstsize, dstvbn, dstsize, dmtvbn, dmtbytes); -#endif - - if (dstvbn) - { - flagword bfd_flags = SEC_HAS_CONTENTS | SEC_DEBUGGING; - - section = bfd_make_section (abfd, "$DST$"); - if (!section) - return FALSE; - - section->size = dstsize; - section->filepos = VMS_BLOCK_SIZE * (dstvbn - 1); - - if (!bfd_set_section_flags (abfd, section, bfd_flags)) - return FALSE; - - PRIV (dst_section) = section; - abfd->flags |= (HAS_DEBUG | HAS_LINENO); - } - - if (dmtvbn) - { - flagword bfd_flags = SEC_HAS_CONTENTS | SEC_DEBUGGING; - - section = bfd_make_section (abfd, "$DMT$"); - if (!section) - return FALSE; - - section->size = dmtbytes; - section->filepos = VMS_BLOCK_SIZE * (dmtvbn - 1); - - if (!bfd_set_section_flags (abfd, section, bfd_flags)) - return FALSE; - } - - if (gstvbn) - { - if (bfd_seek (abfd, VMS_BLOCK_SIZE * (gstvbn - 1), SEEK_SET)) - { - bfd_set_error (bfd_error_file_truncated); - return FALSE; - } - - if (_bfd_vms_slurp_object_records (abfd) != TRUE) - return FALSE; - - abfd->flags |= HAS_SYMS; - } - - return TRUE; -} - -/* Object file reading. */ - -/* Object file input functions. */ - -/* Get next record from object file to vms_buf. - Set PRIV(buf_size) and return it - - This is a little tricky since it should be portable. - - The openVMS object file has 'variable length' which means that - read() returns data in chunks of (hopefully) correct and expected - size. The linker (and other tools on VMS) depend on that. Unix - doesn't know about 'formatted' files, so reading and writing such - an object file in a Unix environment is not trivial. - - With the tool 'file' (available on all VMS FTP sites), one - can view and change the attributes of a file. Changing from - 'variable length' to 'fixed length, 512 bytes' reveals the - record size at the first 2 bytes of every record. The same - may happen during the transfer of object files from VMS to Unix, - at least with UCX, the DEC implementation of TCP/IP. - - The VMS format repeats the size at bytes 2 & 3 of every record. - - On the first call (file_format == FF_UNKNOWN) we check if - the first and the third byte pair (!) of the record match. - If they do it's an object file in an Unix environment or with - wrong attributes (FF_FOREIGN), else we should be in a VMS - environment where read() returns the record size (FF_NATIVE). - - Reading is always done in 2 steps: - 1. first just the record header is read and the size extracted, - 2. then the read buffer is adjusted and the remaining bytes are - read in. - - All file I/O is done on even file positions. */ - -#define VMS_OBJECT_ADJUSTMENT 2 - -static void -maybe_adjust_record_pointer_for_object (bfd *abfd) -{ - /* Set the file format once for all on the first invocation. */ - if (PRIV (recrd.file_format) == FF_UNKNOWN) - { - if (PRIV (recrd.rec)[0] == PRIV (recrd.rec)[4] - && PRIV (recrd.rec)[1] == PRIV (recrd.rec)[5]) - PRIV (recrd.file_format) = FF_FOREIGN; - else - PRIV (recrd.file_format) = FF_NATIVE; - } - - /* The adjustment is needed only in an Unix environment. */ - if (PRIV (recrd.file_format) == FF_FOREIGN) - PRIV (recrd.rec) += VMS_OBJECT_ADJUSTMENT; -} - -/* Implement step #1 of the object record reading procedure. - Return the record type or -1 on failure. */ - -static int -_bfd_vms_get_object_record (bfd *abfd) -{ - unsigned int test_len = 6; - int type; - - vms_debug2 ((8, "_bfd_vms_get_obj_record\n")); - - /* Skip alignment byte if the current position is odd. */ - if (PRIV (recrd.file_format) == FF_FOREIGN && (bfd_tell (abfd) & 1)) - { - if (bfd_bread (PRIV (recrd.buf), 1, abfd) != 1) - { - bfd_set_error (bfd_error_file_truncated); - return -1; - } - } - - /* Read the record header */ - if (bfd_bread (PRIV (recrd.buf), test_len, abfd) != test_len) - { - bfd_set_error (bfd_error_file_truncated); - return -1; - } - - /* Reset the record pointer. */ - PRIV (recrd.rec) = PRIV (recrd.buf); - maybe_adjust_record_pointer_for_object (abfd); - - if (vms_get_remaining_object_record (abfd, test_len) <= 0) - return -1; - - type = bfd_getl16 (PRIV (recrd.rec)); - - vms_debug2 ((8, "_bfd_vms_get_obj_record: rec %p, size %d, type %d\n", - PRIV (recrd.rec), PRIV (recrd.rec_size), type)); - - return type; -} - -/* Implement step #2 of the object record reading procedure. - Return the size of the record or 0 on failure. */ - -static int -vms_get_remaining_object_record (bfd *abfd, int read_so_far) -{ - unsigned int to_read; - - vms_debug2 ((8, "vms_get_remaining_obj_record\n")); - - /* Extract record size. */ - PRIV (recrd.rec_size) = bfd_getl16 (PRIV (recrd.rec) + 2); - - if (PRIV (recrd.rec_size) == 0) - { - bfd_set_error (bfd_error_file_truncated); - return 0; - } - - /* That's what the linker manual says. */ - if (PRIV (recrd.rec_size) > EOBJ__C_MAXRECSIZ) - { - bfd_set_error (bfd_error_file_truncated); - return 0; - } - - /* Take into account object adjustment. */ - to_read = PRIV (recrd.rec_size); - if (PRIV (recrd.file_format) == FF_FOREIGN) - to_read += VMS_OBJECT_ADJUSTMENT; - - /* Adjust the buffer. */ - if (to_read > PRIV (recrd.buf_size)) - { - PRIV (recrd.buf) - = (unsigned char *) bfd_realloc (PRIV (recrd.buf), to_read); - if (PRIV (recrd.buf) == NULL) - return 0; - PRIV (recrd.buf_size) = to_read; - } - - /* Read the remaining record. */ - to_read -= read_so_far; - - vms_debug2 ((8, "vms_get_remaining_obj_record: to_read %d\n", to_read)); - - if (bfd_bread (PRIV (recrd.buf) + read_so_far, to_read, abfd) != to_read) - { - bfd_set_error (bfd_error_file_truncated); - return 0; - } - - /* Reset the record pointer. */ - PRIV (recrd.rec) = PRIV (recrd.buf); - maybe_adjust_record_pointer_for_object (abfd); - - vms_debug2 ((8, "vms_get_remaining_obj_record: size %d\n", - PRIV (recrd.rec_size))); - - return PRIV (recrd.rec_size); -} - -/* Read and process emh record. - Return TRUE on success, FALSE on error. */ - -static bfd_boolean -_bfd_vms_slurp_ehdr (bfd *abfd) -{ - unsigned char *ptr; - unsigned char *vms_rec; - int subtype; - - vms_rec = PRIV (recrd.rec); - - vms_debug2 ((2, "HDR/EMH\n")); - - subtype = bfd_getl16 (vms_rec + 4); - - vms_debug2 ((3, "subtype %d\n", subtype)); - - switch (subtype) - { - case EMH__C_MHD: - /* Module header. */ - PRIV (hdr_data).hdr_b_strlvl = vms_rec[6]; - PRIV (hdr_data).hdr_l_arch1 = bfd_getl32 (vms_rec + 8); - PRIV (hdr_data).hdr_l_arch2 = bfd_getl32 (vms_rec + 12); - PRIV (hdr_data).hdr_l_recsiz = bfd_getl32 (vms_rec + 16); - PRIV (hdr_data).hdr_t_name = _bfd_vms_save_counted_string (vms_rec + 20); - ptr = vms_rec + 20 + vms_rec[20] + 1; - PRIV (hdr_data).hdr_t_version =_bfd_vms_save_counted_string (ptr); - ptr += *ptr + 1; - PRIV (hdr_data).hdr_t_date = _bfd_vms_save_sized_string (ptr, 17); - break; - - case EMH__C_LNM: - PRIV (hdr_data).hdr_c_lnm = - _bfd_vms_save_sized_string (vms_rec, PRIV (recrd.rec_size - 6)); - break; - - case EMH__C_SRC: - PRIV (hdr_data).hdr_c_src = - _bfd_vms_save_sized_string (vms_rec, PRIV (recrd.rec_size - 6)); - break; - - case EMH__C_TTL: - PRIV (hdr_data).hdr_c_ttl = - _bfd_vms_save_sized_string (vms_rec, PRIV (recrd.rec_size - 6)); - break; - - case EMH__C_CPR: - case EMH__C_MTC: - case EMH__C_GTX: - break; - - default: - bfd_set_error (bfd_error_wrong_format); - return FALSE; - } - - return TRUE; -} - -/* Typical sections for evax object files. */ - -#define EVAX_ABS_NAME "$ABS$" -#define EVAX_CODE_NAME "$CODE$" -#define EVAX_LINK_NAME "$LINK$" -#define EVAX_DATA_NAME "$DATA$" -#define EVAX_BSS_NAME "$BSS$" -#define EVAX_READONLYADDR_NAME "$READONLY_ADDR$" -#define EVAX_READONLY_NAME "$READONLY$" -#define EVAX_LITERAL_NAME "$LITERAL$" -#define EVAX_LITERALS_NAME "$LITERALS" -#define EVAX_COMMON_NAME "$COMMON$" -#define EVAX_LOCAL_NAME "$LOCAL$" - -struct sec_flags_struct -{ - const char *name; /* Name of section. */ - int vflags_always; - flagword flags_always; /* Flags we set always. */ - int vflags_hassize; - flagword flags_hassize; /* Flags we set if the section has a size > 0. */ -}; - -/* These flags are deccrtl/vaxcrtl (openVMS 6.2 Alpha) compatible. */ - -static const struct sec_flags_struct evax_section_flags[] = - { - { EVAX_ABS_NAME, - EGPS__V_SHR, - 0, - EGPS__V_SHR, - 0 }, - { EVAX_CODE_NAME, - EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_EXE, - SEC_CODE | SEC_READONLY, - EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_EXE, - SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD }, - { EVAX_LITERAL_NAME, - EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_RD | EGPS__V_NOMOD, - SEC_DATA | SEC_READONLY, - EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_RD, - SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD }, - { EVAX_LINK_NAME, - EGPS__V_REL | EGPS__V_RD, - SEC_DATA | SEC_READONLY, - EGPS__V_REL | EGPS__V_RD, - SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD }, - { EVAX_DATA_NAME, - EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT | EGPS__V_NOMOD, - SEC_DATA, - EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT, - SEC_DATA | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD }, - { EVAX_BSS_NAME, - EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT | EGPS__V_NOMOD, - SEC_NO_FLAGS, - EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT | EGPS__V_NOMOD, - SEC_ALLOC }, - { EVAX_READONLYADDR_NAME, - EGPS__V_PIC | EGPS__V_REL | EGPS__V_RD, - SEC_DATA | SEC_READONLY, - EGPS__V_PIC | EGPS__V_REL | EGPS__V_RD, - SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD }, - { EVAX_READONLY_NAME, - EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_RD | EGPS__V_NOMOD, - SEC_DATA | SEC_READONLY, - EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_RD, - SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD }, - { EVAX_LOCAL_NAME, - EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT, - SEC_DATA, - EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT, - SEC_DATA | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD }, - { EVAX_LITERALS_NAME, - EGPS__V_PIC | EGPS__V_OVR, - SEC_DATA | SEC_READONLY, - EGPS__V_PIC | EGPS__V_OVR, - SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD }, - { NULL, - EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT, - SEC_DATA, - EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT, - SEC_DATA | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD } - }; - -/* Retrieve BFD section flags by name and size. */ - -static flagword -vms_secflag_by_name (const struct sec_flags_struct *section_flags, - const char *name, - int hassize) -{ - int i = 0; - - while (section_flags[i].name != NULL) - { - if (strcmp (name, section_flags[i].name) == 0) - { - if (hassize) - return section_flags[i].flags_hassize; - else - return section_flags[i].flags_always; - } - i++; - } - if (hassize) - return section_flags[i].flags_hassize; - return section_flags[i].flags_always; -} - -/* Retrieve VMS section flags by name and size. */ - -static flagword -vms_esecflag_by_name (const struct sec_flags_struct *section_flags, - const char *name, - int hassize) -{ - int i = 0; - - while (section_flags[i].name != NULL) - { - if (strcmp (name, section_flags[i].name) == 0) - { - if (hassize) - return section_flags[i].vflags_hassize; - else - return section_flags[i].vflags_always; - } - i++; - } - if (hassize) - return section_flags[i].vflags_hassize; - return section_flags[i].vflags_always; -} - -/* Add SYM to the symbol table of ABFD. - Return FALSE in case of error. */ - -static bfd_boolean -add_symbol_entry (bfd *abfd, struct vms_symbol_entry *sym) -{ - if (PRIV (gsd_sym_count) >= PRIV (max_sym_count)) - { - if (PRIV (max_sym_count) == 0) - { - PRIV (max_sym_count) = 128; - PRIV (syms) = bfd_malloc - (PRIV (max_sym_count) * sizeof (struct vms_symbol_entry *)); - } - else - { - PRIV (max_sym_count) *= 2; - PRIV (syms) = bfd_realloc - (PRIV (syms), - (PRIV (max_sym_count) * sizeof (struct vms_symbol_entry *))); - } - if (PRIV (syms) == NULL) - return FALSE; - } - - PRIV (syms)[PRIV (gsd_sym_count)++] = sym; - return TRUE; -} - -/* Create a symbol whose name is ASCIC and add it to ABFD. - Return NULL in case of error. */ - -static struct vms_symbol_entry * -add_symbol (bfd *abfd, const unsigned char *ascic) -{ - struct vms_symbol_entry *entry; - int len; - - len = *ascic++; - entry = (struct vms_symbol_entry *)bfd_zalloc (abfd, sizeof (*entry) + len); - if (entry == NULL) - return NULL; - entry->namelen = len; - memcpy (entry->name, ascic, len); - entry->name[len] = 0; - entry->owner = abfd; - - if (!add_symbol_entry (abfd, entry)) - return NULL; - return entry; -} - -/* Read and process EGSD. Return FALSE on failure. */ - -static bfd_boolean -_bfd_vms_slurp_egsd (bfd *abfd) -{ - int gsd_type, gsd_size; - unsigned char *vms_rec; - unsigned long base_addr; - - vms_debug2 ((2, "EGSD\n")); - - PRIV (recrd.rec) += 8; /* Skip type, size, align pad. */ - PRIV (recrd.rec_size) -= 8; - - /* Calculate base address for each section. */ - base_addr = 0L; - - while (PRIV (recrd.rec_size) > 0) - { - vms_rec = PRIV (recrd.rec); - - gsd_type = bfd_getl16 (vms_rec); - gsd_size = bfd_getl16 (vms_rec + 2); - - vms_debug2 ((3, "egsd_type %d\n", gsd_type)); - - switch (gsd_type) - { - case EGSD__C_PSC: - /* Program section definition. */ - { - struct vms_egps *egps = (struct vms_egps *)vms_rec; - flagword new_flags, vms_flags; - asection *section; - - vms_flags = bfd_getl16 (egps->flags); - - if ((vms_flags & EGPS__V_REL) == 0) - { - /* Use the global absolute section for all - absolute sections. */ - section = bfd_abs_section_ptr; - } - else - { - char *name; - unsigned long align_addr; - - name = _bfd_vms_save_counted_string (&egps->namlng); - - section = bfd_make_section (abfd, name); - if (!section) - return FALSE; - - section->filepos = 0; - section->size = bfd_getl32 (egps->alloc); - section->alignment_power = egps->align; - - vms_section_data (section)->flags = vms_flags; - vms_section_data (section)->no_flags = 0; - - new_flags = vms_secflag_by_name (evax_section_flags, name, - section->size > 0); - if (section->size > 0) - new_flags |= SEC_LOAD; - if (!(vms_flags & EGPS__V_NOMOD) && section->size > 0) - { - /* Set RELOC and HAS_CONTENTS if the section is not - demand-zero and not empty. */ - new_flags |= SEC_HAS_CONTENTS; - if (vms_flags & EGPS__V_REL) - new_flags |= SEC_RELOC; - } - if (vms_flags & EGPS__V_EXE) - { - /* Set CODE if section is executable. */ - new_flags |= SEC_CODE; - new_flags &= ~SEC_DATA; - } - if (!bfd_set_section_flags (abfd, section, new_flags)) - return FALSE; - - /* Give a non-overlapping vma to non absolute sections. */ - align_addr = (1 << section->alignment_power); - if ((base_addr % align_addr) != 0) - base_addr += (align_addr - (base_addr % align_addr)); - section->vma = (bfd_vma)base_addr; - base_addr += section->size; - } - - /* Append it to the section array. */ - if (PRIV (section_count) >= PRIV (section_max)) - { - if (PRIV (section_max) == 0) - PRIV (section_max) = 16; - else - PRIV (section_max) *= 2; - PRIV (sections) = bfd_realloc_or_free - (PRIV (sections), PRIV (section_max) * sizeof (asection *)); - if (PRIV (sections) == NULL) - return FALSE; - } - - PRIV (sections)[PRIV (section_count)] = section; - PRIV (section_count)++; - } - break; - - case EGSD__C_SYM: - { - int nameoff; - struct vms_symbol_entry *entry; - struct vms_egsy *egsy = (struct vms_egsy *) vms_rec; - flagword old_flags; - - old_flags = bfd_getl16 (egsy->flags); - if (old_flags & EGSY__V_DEF) - nameoff = ESDF__B_NAMLNG; - else - nameoff = ESRF__B_NAMLNG; - - entry = add_symbol (abfd, vms_rec + nameoff); - if (entry == NULL) - return FALSE; - - /* Allow only duplicate reference. */ - if ((entry->flags & EGSY__V_DEF) && (old_flags & EGSY__V_DEF)) - abort (); - - if (entry->typ == 0) - { - entry->typ = gsd_type; - entry->data_type = egsy->datyp; - entry->flags = old_flags; - } - - if (old_flags & EGSY__V_DEF) - { - struct vms_esdf *esdf = (struct vms_esdf *)vms_rec; - - entry->value = bfd_getl64 (esdf->value); - entry->section = PRIV (sections)[bfd_getl32 (esdf->psindx)]; - - if (old_flags & EGSY__V_NORM) - { - PRIV (norm_sym_count)++; - - entry->code_value = bfd_getl64 (esdf->code_address); - entry->code_section = - PRIV (sections)[bfd_getl32 (esdf->ca_psindx)]; - } - } - } - break; - - case EGSD__C_SYMG: - { - struct vms_symbol_entry *entry; - struct vms_egst *egst = (struct vms_egst *)vms_rec; - flagword old_flags; - - old_flags = bfd_getl16 (egst->header.flags); - - entry = add_symbol (abfd, &egst->namlng); - - if (entry == NULL) - return FALSE; - - entry->typ = gsd_type; - entry->data_type = egst->header.datyp; - entry->flags = old_flags; - - entry->symbol_vector = bfd_getl32 (egst->value); - - if (old_flags & EGSY__V_REL) - entry->section = PRIV (sections)[bfd_getl32 (egst->psindx)]; - else - entry->section = bfd_abs_section_ptr; - - entry->value = bfd_getl64 (egst->lp_2); - - if (old_flags & EGSY__V_NORM) - { - PRIV (norm_sym_count)++; - - entry->code_value = bfd_getl64 (egst->lp_1); - entry->code_section = bfd_abs_section_ptr; - } - } - break; - - case EGSD__C_SPSC: - case EGSD__C_IDC: - /* Currently ignored. */ - break; - case EGSD__C_SYMM: - case EGSD__C_SYMV: - default: - (*_bfd_error_handler) (_("Unknown EGSD subtype %d"), gsd_type); - bfd_set_error (bfd_error_bad_value); - return FALSE; - } - - PRIV (recrd.rec_size) -= gsd_size; - PRIV (recrd.rec) += gsd_size; - } - - if (PRIV (gsd_sym_count) > 0) - abfd->flags |= HAS_SYMS; - - return TRUE; -} - -/* Stack routines for vms ETIR commands. */ - -/* Push value and section index. */ - -static void -_bfd_vms_push (bfd *abfd, bfd_vma val, unsigned int reloc) -{ - vms_debug2 ((4, "<push %08lx (0x%08x) at %d>\n", - (unsigned long)val, reloc, PRIV (stackptr))); - - PRIV (stack[PRIV (stackptr)]).value = val; - PRIV (stack[PRIV (stackptr)]).reloc = reloc; - PRIV (stackptr)++; - if (PRIV (stackptr) >= STACKSIZE) - { - bfd_set_error (bfd_error_bad_value); - (*_bfd_error_handler) (_("Stack overflow (%d) in _bfd_vms_push"), PRIV (stackptr)); - exit (1); - } -} - -/* Pop value and section index. */ - -static void -_bfd_vms_pop (bfd *abfd, bfd_vma *val, unsigned int *rel) -{ - if (PRIV (stackptr) == 0) - { - bfd_set_error (bfd_error_bad_value); - (*_bfd_error_handler) (_("Stack underflow in _bfd_vms_pop")); - exit (1); - } - PRIV (stackptr)--; - *val = PRIV (stack[PRIV (stackptr)]).value; - *rel = PRIV (stack[PRIV (stackptr)]).reloc; - - vms_debug2 ((4, "<pop %08lx (0x%08x)>\n", (unsigned long)*val, *rel)); -} - -/* Routines to fill sections contents during tir/etir read. */ - -/* Initialize image buffer pointer to be filled. */ - -static void -image_set_ptr (bfd *abfd, bfd_vma vma, int sect, struct bfd_link_info *info) -{ - asection *sec; - - vms_debug2 ((4, "image_set_ptr (0x%08x, sect=%d)\n", (unsigned)vma, sect)); - - sec = PRIV (sections)[sect]; - - if (info) - { - /* Reading contents to an output bfd. */ - - if (sec->output_section == NULL) - { - /* Section discarded. */ - vms_debug2 ((5, " section %s discarded\n", sec->name)); - - /* This is not used. */ - PRIV (image_section) = NULL; - PRIV (image_offset) = 0; - return; - } - PRIV (image_offset) = sec->output_offset + vma; - PRIV (image_section) = sec->output_section; - } - else - { - PRIV (image_offset) = vma; - PRIV (image_section) = sec; - } -} - -/* Increment image buffer pointer by offset. */ - -static void -image_inc_ptr (bfd *abfd, bfd_vma offset) -{ - vms_debug2 ((4, "image_inc_ptr (%u)\n", (unsigned)offset)); - - PRIV (image_offset) += offset; -} - -/* Save current DST location counter under specified index. */ - -static void -dst_define_location (bfd *abfd, unsigned int loc) -{ - vms_debug2 ((4, "dst_define_location (%d)\n", (int)loc)); - - /* Grow the ptr offset table if necessary. */ - if (loc + 1 > PRIV (dst_ptr_offsets_count)) - { - PRIV (dst_ptr_offsets) = bfd_realloc (PRIV (dst_ptr_offsets), - (loc + 1) * sizeof (unsigned int)); - PRIV (dst_ptr_offsets_count) = loc + 1; - } - - PRIV (dst_ptr_offsets)[loc] = PRIV (image_offset); -} - -/* Restore saved DST location counter from specified index. */ - -static void -dst_restore_location (bfd *abfd, unsigned int loc) -{ - vms_debug2 ((4, "dst_restore_location (%d)\n", (int)loc)); - - PRIV (image_offset) = PRIV (dst_ptr_offsets)[loc]; -} - -/* Retrieve saved DST location counter from specified index. */ - -static unsigned int -dst_retrieve_location (bfd *abfd, unsigned int loc) -{ - vms_debug2 ((4, "dst_retrieve_location (%d)\n", (int)loc)); - - return PRIV (dst_ptr_offsets)[loc]; -} - -/* Write multiple bytes to section image. */ - -static bfd_boolean -image_write (bfd *abfd, unsigned char *ptr, int size) -{ -#if VMS_DEBUG - _bfd_vms_debug (8, "image_write from (%p, %d) to (%ld)\n", ptr, size, - (long)PRIV (image_offset)); - _bfd_hexdump (9, ptr, size, 0); -#endif - - if (PRIV (image_section)->contents != NULL) - { - asection *sec = PRIV (image_section); - file_ptr off = PRIV (image_offset); - - /* Check bounds. */ - if (off > (file_ptr)sec->size - || size > (file_ptr)sec->size - || off + size > (file_ptr)sec->size) - { - bfd_set_error (bfd_error_bad_value); - return FALSE; - } - - memcpy (sec->contents + off, ptr, size); - } - - PRIV (image_offset) += size; - return TRUE; -} - -/* Write byte to section image. */ - -static bfd_boolean -image_write_b (bfd * abfd, unsigned int value) -{ - unsigned char data[1]; - - vms_debug2 ((6, "image_write_b (%02x)\n", (int) value)); - - *data = value; - - return image_write (abfd, data, sizeof (data)); -} - -/* Write 2-byte word to image. */ - -static bfd_boolean -image_write_w (bfd * abfd, unsigned int value) -{ - unsigned char data[2]; - - vms_debug2 ((6, "image_write_w (%04x)\n", (int) value)); - - bfd_putl16 (value, data); - return image_write (abfd, data, sizeof (data)); -} - -/* Write 4-byte long to image. */ - -static bfd_boolean -image_write_l (bfd * abfd, unsigned long value) -{ - unsigned char data[4]; - - vms_debug2 ((6, "image_write_l (%08lx)\n", value)); - - bfd_putl32 (value, data); - return image_write (abfd, data, sizeof (data)); -} - -/* Write 8-byte quad to image. */ - -static bfd_boolean -image_write_q (bfd * abfd, bfd_vma value) -{ - unsigned char data[8]; - - vms_debug2 ((6, "image_write_q (%08lx)\n", (unsigned long)value)); - - bfd_putl64 (value, data); - return image_write (abfd, data, sizeof (data)); -} - -static const char * -_bfd_vms_etir_name (int cmd) -{ - switch (cmd) - { - case ETIR__C_STA_GBL: return "ETIR__C_STA_GBL"; - case ETIR__C_STA_LW: return "ETIR__C_STA_LW"; - case ETIR__C_STA_QW: return "ETIR__C_STA_QW"; - case ETIR__C_STA_PQ: return "ETIR__C_STA_PQ"; - case ETIR__C_STA_LI: return "ETIR__C_STA_LI"; - case ETIR__C_STA_MOD: return "ETIR__C_STA_MOD"; - case ETIR__C_STA_CKARG: return "ETIR__C_STA_CKARG"; - case ETIR__C_STO_B: return "ETIR__C_STO_B"; - case ETIR__C_STO_W: return "ETIR__C_STO_W"; - case ETIR__C_STO_GBL: return "ETIR__C_STO_GBL"; - case ETIR__C_STO_CA: return "ETIR__C_STO_CA"; - case ETIR__C_STO_RB: return "ETIR__C_STO_RB"; - case ETIR__C_STO_AB: return "ETIR__C_STO_AB"; - case ETIR__C_STO_OFF: return "ETIR__C_STO_OFF"; - case ETIR__C_STO_IMM: return "ETIR__C_STO_IMM"; - case ETIR__C_STO_IMMR: return "ETIR__C_STO_IMMR"; - case ETIR__C_STO_LW: return "ETIR__C_STO_LW"; - case ETIR__C_STO_QW: return "ETIR__C_STO_QW"; - case ETIR__C_STO_GBL_LW: return "ETIR__C_STO_GBL_LW"; - case ETIR__C_STO_LP_PSB: return "ETIR__C_STO_LP_PSB"; - case ETIR__C_STO_HINT_GBL: return "ETIR__C_STO_HINT_GBL"; - case ETIR__C_STO_HINT_PS: return "ETIR__C_STO_HINT_PS"; - case ETIR__C_OPR_ADD: return "ETIR__C_OPR_ADD"; - case ETIR__C_OPR_SUB: return "ETIR__C_OPR_SUB"; - case ETIR__C_OPR_INSV: return "ETIR__C_OPR_INSV"; - case ETIR__C_OPR_USH: return "ETIR__C_OPR_USH"; - case ETIR__C_OPR_ROT: return "ETIR__C_OPR_ROT"; - case ETIR__C_OPR_REDEF: return "ETIR__C_OPR_REDEF"; - case ETIR__C_OPR_DFLIT: return "ETIR__C_OPR_DFLIT"; - case ETIR__C_STC_LP: return "ETIR__C_STC_LP"; - case ETIR__C_STC_GBL: return "ETIR__C_STC_GBL"; - case ETIR__C_STC_GCA: return "ETIR__C_STC_GCA"; - case ETIR__C_STC_PS: return "ETIR__C_STC_PS"; - case ETIR__C_STC_NBH_PS: return "ETIR__C_STC_NBH_PS"; - case ETIR__C_STC_NOP_GBL: return "ETIR__C_STC_NOP_GBL"; - case ETIR__C_STC_NOP_PS: return "ETIR__C_STC_NOP_PS"; - case ETIR__C_STC_BSR_GBL: return "ETIR__C_STC_BSR_GBL"; - case ETIR__C_STC_BSR_PS: return "ETIR__C_STC_BSR_PS"; - case ETIR__C_STC_LDA_GBL: return "ETIR__C_STC_LDA_GBL"; - case ETIR__C_STC_LDA_PS: return "ETIR__C_STC_LDA_PS"; - case ETIR__C_STC_BOH_GBL: return "ETIR__C_STC_BOH_GBL"; - case ETIR__C_STC_BOH_PS: return "ETIR__C_STC_BOH_PS"; - case ETIR__C_STC_NBH_GBL: return "ETIR__C_STC_NBH_GBL"; - case ETIR__C_STC_LP_PSB: return "ETIR__C_STC_LP_PSB"; - case ETIR__C_CTL_SETRB: return "ETIR__C_CTL_SETRB"; - case ETIR__C_CTL_AUGRB: return "ETIR__C_CTL_AUGRB"; - case ETIR__C_CTL_DFLOC: return "ETIR__C_CTL_DFLOC"; - case ETIR__C_CTL_STLOC: return "ETIR__C_CTL_STLOC"; - case ETIR__C_CTL_STKDL: return "ETIR__C_CTL_STKDL"; - - default: - /* These names have not yet been added to this switch statement. */ - (*_bfd_error_handler) (_("unknown ETIR command %d"), cmd); - } - - return NULL; -} -#define HIGHBIT(op) ((op & 0x80000000L) == 0x80000000L) - -static void -_bfd_vms_get_value (bfd *abfd, const unsigned char *ascic, - struct bfd_link_info *info, - bfd_vma *vma, - struct alpha_vms_link_hash_entry **hp) -{ - char name[257]; - int len; - int i; - struct alpha_vms_link_hash_entry *h; - - /* Not linking. Do not try to resolve the symbol. */ - if (info == NULL) - { - *vma = 0; - *hp = NULL; - return; - } - - len = *ascic; - for (i = 0; i < len; i++) - name[i] = ascic[i + 1]; - name[i] = 0; - - h = (struct alpha_vms_link_hash_entry *) - bfd_link_hash_lookup (info->hash, name, FALSE, FALSE, TRUE); - - *hp = h; - - if (h != NULL - && (h->root.type == bfd_link_hash_defined - || h->root.type == bfd_link_hash_defweak)) - *vma = h->root.u.def.value - + h->root.u.def.section->output_offset - + h->root.u.def.section->output_section->vma; - else if (h && h->root.type == bfd_link_hash_undefweak) - *vma = 0; - else - { - if (!(*info->callbacks->undefined_symbol) - (info, name, abfd, PRIV (image_section), PRIV (image_offset), TRUE)) - abort (); - *vma = 0; - } -} - -#define RELC_NONE 0 -#define RELC_REL 1 -#define RELC_SHR_BASE 0x10000 -#define RELC_SEC_BASE 0x20000 -#define RELC_MASK 0x0ffff - -static unsigned int -alpha_vms_sym_to_ctxt (struct alpha_vms_link_hash_entry *h) -{ - /* Handle undefined symbols. */ - if (h == NULL || h->sym == NULL) - return RELC_NONE; - - if (h->sym->typ == EGSD__C_SYMG) - { - if (h->sym->flags & EGSY__V_REL) - return RELC_SHR_BASE + PRIV2 (h->sym->owner, shr_index); - else - { - /* Can this happen (non-relocatable symg) ? I'd like to see - an example. */ - abort (); - } - } - if (h->sym->typ == EGSD__C_SYM) - { - if (h->sym->flags & EGSY__V_REL) - return RELC_REL; - else - return RELC_NONE; - } - abort (); -} - -static bfd_vma -alpha_vms_get_sym_value (asection *sect, bfd_vma addr) -{ - return sect->output_section->vma + sect->output_offset + addr; -} - -static bfd_vma -alpha_vms_fix_sec_rel (bfd *abfd, struct bfd_link_info *info, - unsigned int rel, bfd_vma vma) -{ - asection *sec = PRIV (sections)[rel & RELC_MASK]; - - if (info) - { - if (sec->output_section == NULL) - abort (); - return vma + sec->output_section->vma + sec->output_offset; - } - else - return vma + sec->vma; -} - -/* Read an ETIR record from ABFD. If INFO is not null, put the content into - the output section (used during linking). - Return FALSE in case of error. */ - -static bfd_boolean -_bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info) -{ - unsigned char *ptr; - unsigned int length; - unsigned char *maxptr; - bfd_vma op1; - bfd_vma op2; - unsigned int rel1; - unsigned int rel2; - struct alpha_vms_link_hash_entry *h; - - PRIV (recrd.rec) += ETIR__C_HEADER_SIZE; - PRIV (recrd.rec_size) -= ETIR__C_HEADER_SIZE; - - ptr = PRIV (recrd.rec); - length = PRIV (recrd.rec_size); - maxptr = ptr + length; - - vms_debug2 ((2, "ETIR: %d bytes\n", length)); - - while (ptr < maxptr) - { - int cmd = bfd_getl16 (ptr); - int cmd_length = bfd_getl16 (ptr + 2); - - ptr += 4; - -#if VMS_DEBUG - _bfd_vms_debug (4, "etir: %s(%d)\n", - _bfd_vms_etir_name (cmd), cmd); - _bfd_hexdump (8, ptr, cmd_length - 4, 0); -#endif - - switch (cmd) - { - /* Stack global - arg: cs symbol name - - stack 32 bit value of symbol (high bits set to 0). */ - case ETIR__C_STA_GBL: - _bfd_vms_get_value (abfd, ptr, info, &op1, &h); - _bfd_vms_push (abfd, op1, alpha_vms_sym_to_ctxt (h)); - break; - - /* Stack longword - arg: lw value - - stack 32 bit value, sign extend to 64 bit. */ - case ETIR__C_STA_LW: - _bfd_vms_push (abfd, bfd_getl32 (ptr), RELC_NONE); - break; - - /* Stack quadword - arg: qw value - - stack 64 bit value of symbol. */ - case ETIR__C_STA_QW: - _bfd_vms_push (abfd, bfd_getl64 (ptr), RELC_NONE); - break; - - /* Stack psect base plus quadword offset - arg: lw section index - qw signed quadword offset (low 32 bits) - - Stack qw argument and section index - (see ETIR__C_STO_OFF, ETIR__C_CTL_SETRB). */ - case ETIR__C_STA_PQ: - { - int psect; - - psect = bfd_getl32 (ptr); - if ((unsigned int) psect >= PRIV (section_count)) - { - (*_bfd_error_handler) (_("bad section index in %s"), - _bfd_vms_etir_name (cmd)); - bfd_set_error (bfd_error_bad_value); - return FALSE; - } - op1 = bfd_getl64 (ptr + 4); - _bfd_vms_push (abfd, op1, psect | RELC_SEC_BASE); - } - break; - - case ETIR__C_STA_LI: - case ETIR__C_STA_MOD: - case ETIR__C_STA_CKARG: - (*_bfd_error_handler) (_("unsupported STA cmd %s"), - _bfd_vms_etir_name (cmd)); - return FALSE; - break; - - /* Store byte: pop stack, write byte - arg: -. */ - case ETIR__C_STO_B: - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 != RELC_NONE) - goto bad_context; - image_write_b (abfd, (unsigned int) op1 & 0xff); - break; - - /* Store word: pop stack, write word - arg: -. */ - case ETIR__C_STO_W: - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 != RELC_NONE) - goto bad_context; - image_write_w (abfd, (unsigned int) op1 & 0xffff); - break; - - /* Store longword: pop stack, write longword - arg: -. */ - case ETIR__C_STO_LW: - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 & RELC_SEC_BASE) - { - op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1); - rel1 = RELC_REL; - } - else if (rel1 & RELC_SHR_BASE) - { - alpha_vms_add_fixup_lr (info, rel1 & RELC_MASK, op1); - rel1 = RELC_NONE; - } - if (rel1 != RELC_NONE) - { - if (rel1 != RELC_REL) - abort (); - alpha_vms_add_lw_reloc (info); - } - image_write_l (abfd, op1); - break; - - /* Store quadword: pop stack, write quadword - arg: -. */ - case ETIR__C_STO_QW: - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 & RELC_SEC_BASE) - { - op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1); - rel1 = RELC_REL; - } - else if (rel1 & RELC_SHR_BASE) - abort (); - if (rel1 != RELC_NONE) - { - if (rel1 != RELC_REL) - abort (); - alpha_vms_add_qw_reloc (info); - } - image_write_q (abfd, op1); - break; - - /* Store immediate repeated: pop stack for repeat count - arg: lw byte count - da data. */ - case ETIR__C_STO_IMMR: - { - int size; - - size = bfd_getl32 (ptr); - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 != RELC_NONE) - goto bad_context; - while (op1-- > 0) - image_write (abfd, ptr + 4, size); - } - break; - - /* Store global: write symbol value - arg: cs global symbol name. */ - case ETIR__C_STO_GBL: - _bfd_vms_get_value (abfd, ptr, info, &op1, &h); - if (h && h->sym) - { - if (h->sym->typ == EGSD__C_SYMG) - { - alpha_vms_add_fixup_qr - (info, abfd, h->sym->owner, h->sym->symbol_vector); - op1 = 0; - } - else - { - op1 = alpha_vms_get_sym_value (h->sym->section, - h->sym->value); - alpha_vms_add_qw_reloc (info); - } - } - image_write_q (abfd, op1); - break; - - /* Store code address: write address of entry point - arg: cs global symbol name (procedure). */ - case ETIR__C_STO_CA: - _bfd_vms_get_value (abfd, ptr, info, &op1, &h); - if (h && h->sym) - { - if (h->sym->flags & EGSY__V_NORM) - { - /* That's really a procedure. */ - if (h->sym->typ == EGSD__C_SYMG) - { - alpha_vms_add_fixup_ca (info, abfd, h->sym->owner); - op1 = h->sym->symbol_vector; - } - else - { - op1 = alpha_vms_get_sym_value (h->sym->code_section, - h->sym->code_value); - alpha_vms_add_qw_reloc (info); - } - } - else - { - /* Symbol is not a procedure. */ - abort (); - } - } - image_write_q (abfd, op1); - break; - - /* Store offset to psect: pop stack, add low 32 bits to base of psect - arg: none. */ - case ETIR__C_STO_OFF: - _bfd_vms_pop (abfd, &op1, &rel1); - - if (!(rel1 & RELC_SEC_BASE)) - abort (); - - op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1); - rel1 = RELC_REL; - image_write_q (abfd, op1); - break; - - /* Store immediate - arg: lw count of bytes - da data. */ - case ETIR__C_STO_IMM: - { - int size; - - size = bfd_getl32 (ptr); - image_write (abfd, ptr + 4, size); - } - break; - - /* This code is 'reserved to digital' according to the openVMS - linker manual, however it is generated by the DEC C compiler - and defined in the include file. - FIXME, since the following is just a guess - store global longword: store 32bit value of symbol - arg: cs symbol name. */ - case ETIR__C_STO_GBL_LW: - _bfd_vms_get_value (abfd, ptr, info, &op1, &h); -#if 0 - abort (); -#endif - image_write_l (abfd, op1); - break; - - case ETIR__C_STO_RB: - case ETIR__C_STO_AB: - case ETIR__C_STO_LP_PSB: - (*_bfd_error_handler) (_("%s: not supported"), - _bfd_vms_etir_name (cmd)); - return FALSE; - break; - case ETIR__C_STO_HINT_GBL: - case ETIR__C_STO_HINT_PS: - (*_bfd_error_handler) (_("%s: not implemented"), - _bfd_vms_etir_name (cmd)); - return FALSE; - break; - - /* 200 Store-conditional Linkage Pair - arg: none. */ - case ETIR__C_STC_LP: - - /* 202 Store-conditional Address at global address - lw linkage index - cs global name. */ - - case ETIR__C_STC_GBL: - - /* 203 Store-conditional Code Address at global address - lw linkage index - cs procedure name. */ - case ETIR__C_STC_GCA: - - /* 204 Store-conditional Address at psect + offset - lw linkage index - lw psect index - qw offset. */ - case ETIR__C_STC_PS: - (*_bfd_error_handler) (_("%s: not supported"), - _bfd_vms_etir_name (cmd)); - return FALSE; - break; - - /* 201 Store-conditional Linkage Pair with Procedure Signature - lw linkage index - cs procedure name - by signature length - da signature. */ - - case ETIR__C_STC_LP_PSB: - _bfd_vms_get_value (abfd, ptr + 4, info, &op1, &h); - if (h && h->sym) - { - if (h->sym->typ == EGSD__C_SYMG) - { - alpha_vms_add_fixup_lp (info, abfd, h->sym->owner); - op1 = h->sym->symbol_vector; - op2 = 0; - } - else - { - op1 = alpha_vms_get_sym_value (h->sym->code_section, - h->sym->code_value); - op2 = alpha_vms_get_sym_value (h->sym->section, - h->sym->value); - } - } - else - { - /* Undefined symbol. */ - op1 = 0; - op2 = 0; - } - image_write_q (abfd, op1); - image_write_q (abfd, op2); - break; - - /* 205 Store-conditional NOP at address of global - arg: none. */ - case ETIR__C_STC_NOP_GBL: - /* ALPHA_R_NOP */ - - /* 207 Store-conditional BSR at global address - arg: none. */ - - case ETIR__C_STC_BSR_GBL: - /* ALPHA_R_BSR */ - - /* 209 Store-conditional LDA at global address - arg: none. */ - - case ETIR__C_STC_LDA_GBL: - /* ALPHA_R_LDA */ - - /* 211 Store-conditional BSR or Hint at global address - arg: none. */ - - case ETIR__C_STC_BOH_GBL: - /* Currentl ignored. */ - break; - - /* 213 Store-conditional NOP,BSR or HINT at global address - arg: none. */ - - case ETIR__C_STC_NBH_GBL: - - /* 206 Store-conditional NOP at pect + offset - arg: none. */ - - case ETIR__C_STC_NOP_PS: - - /* 208 Store-conditional BSR at pect + offset - arg: none. */ - - case ETIR__C_STC_BSR_PS: - - /* 210 Store-conditional LDA at psect + offset - arg: none. */ - - case ETIR__C_STC_LDA_PS: - - /* 212 Store-conditional BSR or Hint at pect + offset - arg: none. */ - - case ETIR__C_STC_BOH_PS: - - /* 214 Store-conditional NOP, BSR or HINT at psect + offset - arg: none. */ - case ETIR__C_STC_NBH_PS: - (*_bfd_error_handler) ("%s: not supported", - _bfd_vms_etir_name (cmd)); - return FALSE; - break; - - /* Det relocation base: pop stack, set image location counter - arg: none. */ - case ETIR__C_CTL_SETRB: - _bfd_vms_pop (abfd, &op1, &rel1); - if (!(rel1 & RELC_SEC_BASE)) - abort (); - image_set_ptr (abfd, op1, rel1 & RELC_MASK, info); - break; - - /* Augment relocation base: increment image location counter by offset - arg: lw offset value. */ - case ETIR__C_CTL_AUGRB: - op1 = bfd_getl32 (ptr); - image_inc_ptr (abfd, op1); - break; - - /* Define location: pop index, save location counter under index - arg: none. */ - case ETIR__C_CTL_DFLOC: - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 != RELC_NONE) - goto bad_context; - dst_define_location (abfd, op1); - break; - - /* Set location: pop index, restore location counter from index - arg: none. */ - case ETIR__C_CTL_STLOC: - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 != RELC_NONE) - goto bad_context; - dst_restore_location (abfd, op1); - break; - - /* Stack defined location: pop index, push location counter from index - arg: none. */ - case ETIR__C_CTL_STKDL: - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 != RELC_NONE) - goto bad_context; - _bfd_vms_push (abfd, dst_retrieve_location (abfd, op1), RELC_NONE); - break; - - case ETIR__C_OPR_NOP: /* No-op. */ - break; - - case ETIR__C_OPR_ADD: /* Add. */ - _bfd_vms_pop (abfd, &op1, &rel1); - _bfd_vms_pop (abfd, &op2, &rel2); - if (rel1 == RELC_NONE && rel2 != RELC_NONE) - rel1 = rel2; - else if (rel1 != RELC_NONE && rel2 != RELC_NONE) - goto bad_context; - _bfd_vms_push (abfd, op1 + op2, rel1); - break; - - case ETIR__C_OPR_SUB: /* Subtract. */ - _bfd_vms_pop (abfd, &op1, &rel1); - _bfd_vms_pop (abfd, &op2, &rel2); - if (rel1 == RELC_NONE && rel2 != RELC_NONE) - rel1 = rel2; - else if ((rel1 & RELC_SEC_BASE) && (rel2 & RELC_SEC_BASE)) - { - op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1); - op2 = alpha_vms_fix_sec_rel (abfd, info, rel2, op2); - rel1 = RELC_NONE; - } - else if (rel1 != RELC_NONE && rel2 != RELC_NONE) - goto bad_context; - _bfd_vms_push (abfd, op2 - op1, rel1); - break; - - case ETIR__C_OPR_MUL: /* Multiply. */ - _bfd_vms_pop (abfd, &op1, &rel1); - _bfd_vms_pop (abfd, &op2, &rel2); - if (rel1 != RELC_NONE || rel2 != RELC_NONE) - goto bad_context; - _bfd_vms_push (abfd, op1 * op2, RELC_NONE); - break; - - case ETIR__C_OPR_DIV: /* Divide. */ - _bfd_vms_pop (abfd, &op1, &rel1); - _bfd_vms_pop (abfd, &op2, &rel2); - if (rel1 != RELC_NONE || rel2 != RELC_NONE) - goto bad_context; - if (op2 == 0) - _bfd_vms_push (abfd, 0, RELC_NONE); - else - _bfd_vms_push (abfd, op2 / op1, RELC_NONE); - break; - - case ETIR__C_OPR_AND: /* Logical AND. */ - _bfd_vms_pop (abfd, &op1, &rel1); - _bfd_vms_pop (abfd, &op2, &rel2); - if (rel1 != RELC_NONE || rel2 != RELC_NONE) - goto bad_context; - _bfd_vms_push (abfd, op1 & op2, RELC_NONE); - break; - - case ETIR__C_OPR_IOR: /* Logical inclusive OR. */ - _bfd_vms_pop (abfd, &op1, &rel1); - _bfd_vms_pop (abfd, &op2, &rel2); - if (rel1 != RELC_NONE || rel2 != RELC_NONE) - goto bad_context; - _bfd_vms_push (abfd, op1 | op2, RELC_NONE); - break; - - case ETIR__C_OPR_EOR: /* Logical exclusive OR. */ - _bfd_vms_pop (abfd, &op1, &rel1); - _bfd_vms_pop (abfd, &op2, &rel2); - if (rel1 != RELC_NONE || rel2 != RELC_NONE) - goto bad_context; - _bfd_vms_push (abfd, op1 ^ op2, RELC_NONE); - break; - - case ETIR__C_OPR_NEG: /* Negate. */ - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 != RELC_NONE) - goto bad_context; - _bfd_vms_push (abfd, -op1, RELC_NONE); - break; - - case ETIR__C_OPR_COM: /* Complement. */ - _bfd_vms_pop (abfd, &op1, &rel1); - if (rel1 != RELC_NONE) - goto bad_context; - _bfd_vms_push (abfd, ~op1, RELC_NONE); - break; - - case ETIR__C_OPR_ASH: /* Arithmetic shift. */ - _bfd_vms_pop (abfd, &op1, &rel1); - _bfd_vms_pop (abfd, &op2, &rel2); - if (rel1 != RELC_NONE || rel2 != RELC_NONE) - { - bad_context: - (*_bfd_error_handler) (_("invalid use of %s with contexts"), - _bfd_vms_etir_name (cmd)); - return FALSE; - } - if ((int)op2 < 0) /* Shift right. */ - op1 >>= -(int)op2; - else /* Shift left. */ - op1 <<= (int)op2; - _bfd_vms_push (abfd, op1, RELC_NONE); /* FIXME: sym. */ - break; - - case ETIR__C_OPR_INSV: /* Insert field. */ - case ETIR__C_OPR_USH: /* Unsigned shift. */ - case ETIR__C_OPR_ROT: /* Rotate. */ - case ETIR__C_OPR_REDEF: /* Redefine symbol to current location. */ - case ETIR__C_OPR_DFLIT: /* Define a literal. */ - (*_bfd_error_handler) (_("%s: not supported"), - _bfd_vms_etir_name (cmd)); - return FALSE; - break; - - case ETIR__C_OPR_SEL: /* Select. */ - _bfd_vms_pop (abfd, &op1, &rel1); - if (op1 & 0x01L) - _bfd_vms_pop (abfd, &op1, &rel1); - else - { - _bfd_vms_pop (abfd, &op1, &rel1); - _bfd_vms_pop (abfd, &op2, &rel2); - _bfd_vms_push (abfd, op1, rel1); - } - break; - - default: - (*_bfd_error_handler) (_("reserved cmd %d"), cmd); - return FALSE; - break; - } - - ptr += cmd_length - 4; - } - - return TRUE; -} - -/* Process EDBG/ETBT record. - Return TRUE on success, FALSE on error */ - -static bfd_boolean -vms_slurp_debug (bfd *abfd) -{ - asection *section = PRIV (dst_section); - - if (section == NULL) - { - /* We have no way to find out beforehand how much debug info there - is in an object file, so pick an initial amount and grow it as - needed later. */ - flagword flags = SEC_HAS_CONTENTS | SEC_DEBUGGING | SEC_RELOC - | SEC_IN_MEMORY; - - section = bfd_make_section (abfd, "$DST$"); - if (!section) - return FALSE; - if (!bfd_set_section_flags (abfd, section, flags)) - return FALSE; - PRIV (dst_section) = section; - } - - PRIV (image_section) = section; - PRIV (image_offset) = section->size; - - if (!_bfd_vms_slurp_etir (abfd, NULL)) - return FALSE; - - section->size = PRIV (image_offset); - return TRUE; -} - -/* Process EDBG record. - Return TRUE on success, FALSE on error. */ - -static bfd_boolean -_bfd_vms_slurp_edbg (bfd *abfd) -{ - vms_debug2 ((2, "EDBG\n")); - - abfd->flags |= HAS_DEBUG | HAS_LINENO; - - return vms_slurp_debug (abfd); -} - -/* Process ETBT record. - Return TRUE on success, FALSE on error. */ - -static bfd_boolean -_bfd_vms_slurp_etbt (bfd *abfd) -{ - vms_debug2 ((2, "ETBT\n")); - - abfd->flags |= HAS_LINENO; - - return vms_slurp_debug (abfd); -} - -/* Process EEOM record. - Return TRUE on success, FALSE on error. */ - -static bfd_boolean -_bfd_vms_slurp_eeom (bfd *abfd) -{ - struct vms_eeom *eeom = (struct vms_eeom *) PRIV (recrd.rec); - - vms_debug2 ((2, "EEOM\n")); - - PRIV (eom_data).eom_l_total_lps = bfd_getl32 (eeom->total_lps); - PRIV (eom_data).eom_w_comcod = bfd_getl16 (eeom->comcod); - if (PRIV (eom_data).eom_w_comcod > 1) - { - (*_bfd_error_handler) (_("Object module NOT error-free !\n")); - bfd_set_error (bfd_error_bad_value); - return FALSE; - } - - PRIV (eom_data).eom_has_transfer = FALSE; - if (PRIV (recrd.rec_size) > 10) - { - PRIV (eom_data).eom_has_transfer = TRUE; - PRIV (eom_data).eom_b_tfrflg = eeom->tfrflg; - PRIV (eom_data).eom_l_psindx = bfd_getl32 (eeom->psindx); - PRIV (eom_data).eom_l_tfradr = bfd_getl32 (eeom->tfradr); - - abfd->start_address = PRIV (eom_data).eom_l_tfradr; - } - return TRUE; -} - -/* Slurp an ordered set of VMS object records. Return FALSE on error. */ - -static bfd_boolean -_bfd_vms_slurp_object_records (bfd * abfd) -{ - bfd_boolean err; - int type; - - do - { - vms_debug2 ((7, "reading at %08lx\n", (unsigned long)bfd_tell (abfd))); - - type = _bfd_vms_get_object_record (abfd); - if (type < 0) - { - vms_debug2 ((2, "next_record failed\n")); - return FALSE; - } - - switch (type) - { - case EOBJ__C_EMH: - err = _bfd_vms_slurp_ehdr (abfd); - break; - case EOBJ__C_EEOM: - err = _bfd_vms_slurp_eeom (abfd); - break; - case EOBJ__C_EGSD: - err = _bfd_vms_slurp_egsd (abfd); - break; - case EOBJ__C_ETIR: - err = TRUE; /* _bfd_vms_slurp_etir (abfd); */ - break; - case EOBJ__C_EDBG: - err = _bfd_vms_slurp_edbg (abfd); - break; - case EOBJ__C_ETBT: - err = _bfd_vms_slurp_etbt (abfd); - break; - default: - err = FALSE; - } - if (err != TRUE) - { - vms_debug2 ((2, "slurp type %d failed\n", type)); - return FALSE; - } - } - while (type != EOBJ__C_EEOM); - - return TRUE; -} - -/* Initialize private data */ -static bfd_boolean -vms_initialize (bfd * abfd) -{ - bfd_size_type amt; - - amt = sizeof (struct vms_private_data_struct); - abfd->tdata.any = bfd_zalloc (abfd, amt); - if (abfd->tdata.any == NULL) - return FALSE; - - PRIV (recrd.file_format) = FF_UNKNOWN; - - amt = sizeof (struct stack_struct) * STACKSIZE; - PRIV (stack) = bfd_alloc (abfd, amt); - if (PRIV (stack) == NULL) - goto error_ret1; - - return TRUE; - - error_ret1: - bfd_release (abfd, abfd->tdata.any); - abfd->tdata.any = NULL; - return FALSE; -} - -/* 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 * -alpha_vms_object_p (bfd *abfd) -{ - void *tdata_save = abfd->tdata.any; - unsigned int test_len; - unsigned char *buf; - - vms_debug2 ((1, "vms_object_p(%p)\n", abfd)); - - /* Allocate alpha-vms specific data. */ - if (!vms_initialize (abfd)) - goto error_ret; - - if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET)) - goto err_wrong_format; - - /* The first challenge with VMS is to discover the kind of the file. - - Image files (executable or shared images) are stored as a raw - stream of bytes (like on UNIX), but there is no magic number. - - Object files are written with RMS (record management service), ie - each records are preceeded by its length (on a word - 2 bytes), and - padded for word-alignment. That would be simple but when files - are transfered to a UNIX filesystem (using ftp), records are lost. - Only the raw content of the records are transfered. Fortunately, - the Alpha Object file format also store the length of the record - in the records. Is that clear ? */ - - /* Minimum is 6 bytes for objects (2 bytes size, 2 bytes record id, - 2 bytes size repeated) and 12 bytes for images (4 bytes major id, - 4 bytes minor id, 4 bytes length). */ - test_len = 12; - - /* Size the main buffer. */ - buf = (unsigned char *) bfd_malloc (test_len); - if (buf == NULL) - goto error_ret; - PRIV (recrd.buf) = buf; - PRIV (recrd.buf_size) = test_len; - - /* Initialize the record pointer. */ - PRIV (recrd.rec) = buf; - - if (bfd_bread (buf, test_len, abfd) != test_len) - { - bfd_set_error (bfd_error_file_truncated); - goto error_ret; - } - - /* Is it an image? */ - if ((bfd_getl32 (buf) == EIHD__K_MAJORID) - && (bfd_getl32 (buf + 4) == EIHD__K_MINORID)) - { - unsigned int to_read; - unsigned int read_so_far; - unsigned int remaining; - unsigned int eisd_offset, eihs_offset; - - /* Extract the header size. */ - PRIV (recrd.rec_size) = bfd_getl32 (buf + EIHD__L_SIZE); - - /* The header size is 0 for DSF files. */ - if (PRIV (recrd.rec_size) == 0) - PRIV (recrd.rec_size) = sizeof (struct vms_eihd); - - if (PRIV (recrd.rec_size) > PRIV (recrd.buf_size)) - { - buf = bfd_realloc_or_free (buf, PRIV (recrd.rec_size)); - - if (buf == NULL) - { - PRIV (recrd.buf) = NULL; - bfd_set_error (bfd_error_no_memory); - goto error_ret; - } - PRIV (recrd.buf) = buf; - PRIV (recrd.buf_size) = PRIV (recrd.rec_size); - } - - /* Read the remaining record. */ - remaining = PRIV (recrd.rec_size) - test_len; - to_read = MIN (VMS_BLOCK_SIZE - test_len, remaining); - read_so_far = test_len; - - while (remaining > 0) - { - if (bfd_bread (buf + read_so_far, to_read, abfd) != to_read) - { - bfd_set_error (bfd_error_file_truncated); - goto err_wrong_format; - } - - read_so_far += to_read; - remaining -= to_read; - - to_read = MIN (VMS_BLOCK_SIZE, remaining); - } - - /* Reset the record pointer. */ - PRIV (recrd.rec) = buf; - - vms_debug2 ((2, "file type is image\n")); - - if (_bfd_vms_slurp_eihd (abfd, &eisd_offset, &eihs_offset) != TRUE) - goto err_wrong_format; - - if (_bfd_vms_slurp_eisd (abfd, eisd_offset) != TRUE) - goto err_wrong_format; - - /* EIHS is optional. */ - if (eihs_offset != 0 && _bfd_vms_slurp_eihs (abfd, eihs_offset) != TRUE) - goto err_wrong_format; - } - else - { - int type; - - /* Assume it's a module and adjust record pointer if necessary. */ - maybe_adjust_record_pointer_for_object (abfd); - - /* But is it really a module? */ - if (bfd_getl16 (PRIV (recrd.rec)) <= EOBJ__C_MAXRECTYP - && bfd_getl16 (PRIV (recrd.rec) + 2) <= EOBJ__C_MAXRECSIZ) - { - if (vms_get_remaining_object_record (abfd, test_len) <= 0) - goto err_wrong_format; - - vms_debug2 ((2, "file type is module\n")); - - type = bfd_getl16 (PRIV (recrd.rec)); - if (type != EOBJ__C_EMH || _bfd_vms_slurp_ehdr (abfd) != TRUE) - goto err_wrong_format; - - if (_bfd_vms_slurp_object_records (abfd) != TRUE) - goto err_wrong_format; - } - else - goto err_wrong_format; - } - - /* Set arch_info to alpha. */ - - if (! bfd_default_set_arch_mach (abfd, bfd_arch_alpha, 0)) - goto err_wrong_format; - - return abfd->xvec; - - err_wrong_format: - bfd_set_error (bfd_error_wrong_format); - - error_ret: - if (PRIV (recrd.buf)) - free (PRIV (recrd.buf)); - if (abfd->tdata.any != tdata_save && abfd->tdata.any != NULL) - bfd_release (abfd, abfd->tdata.any); - abfd->tdata.any = tdata_save; - return NULL; -} - -/* Image write. */ - -/* Write an EMH/MHD record. */ - -static void -_bfd_vms_write_emh (bfd *abfd) -{ - struct vms_rec_wr *recwr = &PRIV (recwr); - - _bfd_vms_output_alignment (recwr, 2); - - /* EMH. */ - _bfd_vms_output_begin (recwr, EOBJ__C_EMH); - _bfd_vms_output_short (recwr, EMH__C_MHD); - _bfd_vms_output_short (recwr, EOBJ__C_STRLVL); - _bfd_vms_output_long (recwr, 0); - _bfd_vms_output_long (recwr, 0); - _bfd_vms_output_long (recwr, MAX_OUTREC_SIZE); - - /* Create module name from filename. */ - if (bfd_get_filename (abfd) != 0) - { - char *module = vms_get_module_name (bfd_get_filename (abfd), TRUE); - _bfd_vms_output_counted (recwr, module); - free (module); - } - else - _bfd_vms_output_counted (recwr, "NONAME"); - - _bfd_vms_output_counted (recwr, BFD_VERSION_STRING); - _bfd_vms_output_dump (recwr, get_vms_time_string (), EMH_DATE_LENGTH); - _bfd_vms_output_fill (recwr, 0, EMH_DATE_LENGTH); - _bfd_vms_output_end (abfd, recwr); -} - -/* Write an EMH/LMN record. */ - -static void -_bfd_vms_write_lmn (bfd *abfd, const char *name) -{ - char version [64]; - struct vms_rec_wr *recwr = &PRIV (recwr); - unsigned int ver = BFD_VERSION / 10000; - - /* LMN. */ - _bfd_vms_output_begin (recwr, EOBJ__C_EMH); - _bfd_vms_output_short (recwr, EMH__C_LNM); - snprintf (version, sizeof (version), "%s %d.%d.%d", name, - ver / 10000, (ver / 100) % 100, ver % 100); - _bfd_vms_output_dump (recwr, (unsigned char *)version, strlen (version)); - _bfd_vms_output_end (abfd, recwr); -} - - -/* Write eom record for bfd abfd. Return FALSE on error. */ - -static bfd_boolean -_bfd_vms_write_eeom (bfd *abfd) -{ - struct vms_rec_wr *recwr = &PRIV (recwr); - - vms_debug2 ((2, "vms_write_eeom\n")); - - _bfd_vms_output_alignment (recwr, 2); - - _bfd_vms_output_begin (recwr, EOBJ__C_EEOM); - _bfd_vms_output_long (recwr, PRIV (vms_linkage_index + 1) >> 1); - _bfd_vms_output_byte (recwr, 0); /* Completion code. */ - _bfd_vms_output_byte (recwr, 0); /* Fill byte. */ - - if ((abfd->flags & EXEC_P) == 0 - && bfd_get_start_address (abfd) != (bfd_vma)-1) - { - asection *section; - - section = bfd_get_section_by_name (abfd, ".link"); - if (section == 0) - { - bfd_set_error (bfd_error_nonrepresentable_section); - return FALSE; - } - _bfd_vms_output_short (recwr, 0); - _bfd_vms_output_long (recwr, (unsigned long) section->target_index); - _bfd_vms_output_long (recwr, - (unsigned long) bfd_get_start_address (abfd)); - _bfd_vms_output_long (recwr, 0); - } - - _bfd_vms_output_end (abfd, recwr); - return TRUE; -} - -static void -vector_grow1 (struct vector_type *vec, size_t elsz) -{ - if (vec->nbr_el + 1 < vec->max_el) - return; - - if (vec->max_el == 0) - { - vec->max_el = 16; - vec->els = bfd_malloc2 (vec->max_el, elsz); - } - else - { - vec->max_el *= 2; - vec->els = bfd_realloc2 (vec->els, vec->max_el, elsz); - } -} - -/* Bump ABFD file position to next block. */ - -static void -alpha_vms_file_position_block (bfd *abfd) -{ - /* Next block. */ - PRIV (file_pos) += VMS_BLOCK_SIZE - 1; - PRIV (file_pos) -= (PRIV (file_pos) % VMS_BLOCK_SIZE); -} - -/* Convert from internal structure SRC to external structure DST. */ - -static void -alpha_vms_swap_eisd_out (struct vms_internal_eisd_map *src, - struct vms_eisd *dst) -{ - bfd_putl32 (src->u.eisd.majorid, dst->majorid); - bfd_putl32 (src->u.eisd.minorid, dst->minorid); - bfd_putl32 (src->u.eisd.eisdsize, dst->eisdsize); - if (src->u.eisd.eisdsize <= EISD__K_LENEND) - return; - bfd_putl32 (src->u.eisd.secsize, dst->secsize); - bfd_putl64 (src->u.eisd.virt_addr, dst->virt_addr); - bfd_putl32 (src->u.eisd.flags, dst->flags); - bfd_putl32 (src->u.eisd.vbn, dst->vbn); - dst->pfc = src->u.eisd.pfc; - dst->matchctl = src->u.eisd.matchctl; - dst->type = src->u.eisd.type; - dst->fill_1 = 0; - if (src->u.eisd.flags & EISD__M_GBL) - { - bfd_putl32 (src->u.gbl_eisd.ident, dst->ident); - memcpy (dst->gblnam, src->u.gbl_eisd.gblnam, - src->u.gbl_eisd.gblnam[0] + 1); - } -} - -/* Append EISD to the list of extra eisd for ABFD. */ - -static void -alpha_vms_append_extra_eisd (bfd *abfd, struct vms_internal_eisd_map *eisd) -{ - eisd->next = NULL; - if (PRIV (gbl_eisd_head) == NULL) - PRIV (gbl_eisd_head) = eisd; - else - PRIV (gbl_eisd_tail)->next = eisd; - PRIV (gbl_eisd_tail) = eisd; -} - -/* Create an EISD for shared image SHRIMG. - Return FALSE in case of error. */ - -static bfd_boolean -alpha_vms_create_eisd_for_shared (bfd *abfd, bfd *shrimg) -{ - struct vms_internal_eisd_map *eisd; - int namlen; - - namlen = strlen (PRIV2 (shrimg, hdr_data.hdr_t_name)); - if (namlen + 5 > EISD__K_GBLNAMLEN) - { - /* Won't fit. */ - return FALSE; - } - - eisd = bfd_alloc (abfd, sizeof (*eisd)); - if (eisd == NULL) - return FALSE; - - /* Fill the fields. */ - eisd->u.gbl_eisd.common.majorid = EISD__K_MAJORID; - eisd->u.gbl_eisd.common.minorid = EISD__K_MINORID; - eisd->u.gbl_eisd.common.eisdsize = (EISD__K_LEN + 4 + namlen + 5 + 3) & ~3; - eisd->u.gbl_eisd.common.secsize = VMS_BLOCK_SIZE; /* Must not be 0. */ - eisd->u.gbl_eisd.common.virt_addr = 0; - eisd->u.gbl_eisd.common.flags = EISD__M_GBL; - eisd->u.gbl_eisd.common.vbn = 0; - eisd->u.gbl_eisd.common.pfc = 0; - eisd->u.gbl_eisd.common.matchctl = PRIV2 (shrimg, matchctl); - eisd->u.gbl_eisd.common.type = EISD__K_SHRPIC; - - eisd->u.gbl_eisd.ident = PRIV2 (shrimg, ident); - eisd->u.gbl_eisd.gblnam[0] = namlen + 4; - memcpy (eisd->u.gbl_eisd.gblnam + 1, PRIV2 (shrimg, hdr_data.hdr_t_name), - namlen); - memcpy (eisd->u.gbl_eisd.gblnam + 1 + namlen, "_001", 4); - - /* Append it to the list. */ - alpha_vms_append_extra_eisd (abfd, eisd); - - return TRUE; -} - -/* Create an EISD for section SEC. - Return FALSE in case of failure. */ - -static bfd_boolean -alpha_vms_create_eisd_for_section (bfd *abfd, asection *sec) -{ - struct vms_internal_eisd_map *eisd; - - /* Only for allocating section. */ - if (!(sec->flags & SEC_ALLOC)) - return TRUE; - - BFD_ASSERT (vms_section_data (sec)->eisd == NULL); - eisd = bfd_alloc (abfd, sizeof (*eisd)); - if (eisd == NULL) - return FALSE; - vms_section_data (sec)->eisd = eisd; - - /* Fill the fields. */ - eisd->u.eisd.majorid = EISD__K_MAJORID; - eisd->u.eisd.minorid = EISD__K_MINORID; - eisd->u.eisd.eisdsize = EISD__K_LEN; - eisd->u.eisd.secsize = - (sec->size + VMS_BLOCK_SIZE - 1) & ~(VMS_BLOCK_SIZE - 1); - eisd->u.eisd.virt_addr = sec->vma; - eisd->u.eisd.flags = 0; - eisd->u.eisd.vbn = 0; /* To be later defined. */ - eisd->u.eisd.pfc = 0; /* Default. */ - eisd->u.eisd.matchctl = EISD__K_MATALL; - eisd->u.eisd.type = EISD__K_NORMAL; - - if (sec->flags & SEC_CODE) - eisd->u.eisd.flags |= EISD__M_EXE; - if (!(sec->flags & SEC_READONLY)) - eisd->u.eisd.flags |= EISD__M_WRT | EISD__M_CRF; - - /* If relocations or fixup will be applied, make this isect writeable. */ - if (sec->flags & SEC_RELOC) - eisd->u.eisd.flags |= EISD__M_WRT | EISD__M_CRF; - - if (!(sec->flags & SEC_HAS_CONTENTS)) - { - eisd->u.eisd.flags |= EISD__M_DZRO; - eisd->u.eisd.flags &= ~EISD__M_CRF; - } - if (sec->flags & SEC_LINKER_CREATED) - { - if (strcmp (sec->name, "$FIXUP$") == 0) - eisd->u.eisd.flags |= EISD__M_FIXUPVEC; - } - - /* Append it to the list. */ - eisd->next = NULL; - if (PRIV (eisd_head) == NULL) - PRIV (eisd_head) = eisd; - else - PRIV (eisd_tail)->next = eisd; - PRIV (eisd_tail) = eisd; - - return TRUE; -} - -/* Layout executable ABFD and write it to the disk. - Return FALSE in case of failure. */ - -static bfd_boolean -alpha_vms_write_exec (bfd *abfd) -{ - struct vms_eihd eihd; - struct vms_eiha *eiha; - struct vms_eihi *eihi; - struct vms_eihs *eihs = NULL; - asection *sec; - struct vms_internal_eisd_map *first_eisd; - struct vms_internal_eisd_map *eisd; - asection *dst; - asection *dmt; - file_ptr gst_filepos = 0; - unsigned int lnkflags = 0; - - /* Build the EIHD. */ - PRIV (file_pos) = EIHD__C_LENGTH; - - memset (&eihd, 0, sizeof (eihd)); - memset (eihd.fill_2, 0xff, sizeof (eihd.fill_2)); - - bfd_putl32 (EIHD__K_MAJORID, eihd.majorid); - bfd_putl32 (EIHD__K_MINORID, eihd.minorid); - - bfd_putl32 (sizeof (eihd), eihd.size); - bfd_putl32 (0, eihd.isdoff); - bfd_putl32 (0, eihd.activoff); - bfd_putl32 (0, eihd.symdbgoff); - bfd_putl32 (0, eihd.imgidoff); - bfd_putl32 (0, eihd.patchoff); - bfd_putl64 (0, eihd.iafva); - bfd_putl32 (0, eihd.version_array_off); - - bfd_putl32 (EIHD__K_EXE, eihd.imgtype); - bfd_putl32 (0, eihd.subtype); - - bfd_putl32 (0, eihd.imgiocnt); - bfd_putl32 (-1, eihd.privreqs); - bfd_putl32 (-1, eihd.privreqs + 4); - - bfd_putl32 ((sizeof (eihd) + VMS_BLOCK_SIZE - 1) / VMS_BLOCK_SIZE, - eihd.hdrblkcnt); - bfd_putl32 (0, eihd.ident); - bfd_putl32 (0, eihd.sysver); - - eihd.matchctl = 0; - bfd_putl32 (0, eihd.symvect_size); - bfd_putl32 (16, eihd.virt_mem_block_size); - bfd_putl32 (0, eihd.ext_fixup_off); - bfd_putl32 (0, eihd.noopt_psect_off); - bfd_putl32 (-1, eihd.alias); - - /* Alloc EIHA. */ - eiha = (struct vms_eiha *)((char *) &eihd + PRIV (file_pos)); - bfd_putl32 (PRIV (file_pos), eihd.activoff); - PRIV (file_pos) += sizeof (struct vms_eiha); - - bfd_putl32 (sizeof (struct vms_eiha), eiha->size); - bfd_putl32 (0, eiha->spare); - bfd_putl64 (PRIV (transfer_address[0]), eiha->tfradr1); - bfd_putl64 (PRIV (transfer_address[1]), eiha->tfradr2); - bfd_putl64 (PRIV (transfer_address[2]), eiha->tfradr3); - bfd_putl64 (PRIV (transfer_address[3]), eiha->tfradr4); - bfd_putl64 (0, eiha->inishr); - - /* Alloc EIHI. */ - eihi = (struct vms_eihi *)((char *) &eihd + PRIV (file_pos)); - bfd_putl32 (PRIV (file_pos), eihd.imgidoff); - PRIV (file_pos) += sizeof (struct vms_eihi); - - bfd_putl32 (EIHI__K_MAJORID, eihi->majorid); - bfd_putl32 (EIHI__K_MINORID, eihi->minorid); - { - char *module; - unsigned int len; - - /* Set module name. */ - module = vms_get_module_name (bfd_get_filename (abfd), TRUE); - len = strlen (module); - if (len > sizeof (eihi->imgnam) - 1) - len = sizeof (eihi->imgnam) - 1; - eihi->imgnam[0] = len; - memcpy (eihi->imgnam + 1, module, len); - free (module); - } - { - unsigned int lo; - unsigned int hi; - - /* Set time. */ - vms_get_time (&hi, &lo); - bfd_putl32 (lo, eihi->linktime + 0); - bfd_putl32 (hi, eihi->linktime + 4); - } - eihi->imgid[0] = 0; - eihi->linkid[0] = 0; - eihi->imgbid[0] = 0; - - /* Alloc EIHS. */ - dst = PRIV (dst_section); - dmt = bfd_get_section_by_name (abfd, "$DMT$"); - if (dst != NULL && dst->size != 0) - { - eihs = (struct vms_eihs *)((char *) &eihd + PRIV (file_pos)); - bfd_putl32 (PRIV (file_pos), eihd.symdbgoff); - PRIV (file_pos) += sizeof (struct vms_eihs); - - bfd_putl32 (EIHS__K_MAJORID, eihs->majorid); - bfd_putl32 (EIHS__K_MINORID, eihs->minorid); - bfd_putl32 (0, eihs->dstvbn); - bfd_putl32 (0, eihs->dstsize); - bfd_putl32 (0, eihs->gstvbn); - bfd_putl32 (0, eihs->gstsize); - bfd_putl32 (0, eihs->dmtvbn); - bfd_putl32 (0, eihs->dmtsize); - } - - /* One EISD per section. */ - for (sec = abfd->sections; sec; sec = sec->next) - { - if (!alpha_vms_create_eisd_for_section (abfd, sec)) - return FALSE; - } - - /* Merge section EIDS which extra ones. */ - if (PRIV (eisd_tail)) - PRIV (eisd_tail)->next = PRIV (gbl_eisd_head); - else - PRIV (eisd_head) = PRIV (gbl_eisd_head); - if (PRIV (gbl_eisd_tail)) - PRIV (eisd_tail) = PRIV (gbl_eisd_tail); - - first_eisd = PRIV (eisd_head); - - /* Add end of eisd. */ - if (first_eisd) - { - eisd = bfd_zalloc (abfd, sizeof (*eisd)); - if (eisd == NULL) - return FALSE; - eisd->u.eisd.majorid = 0; - eisd->u.eisd.minorid = 0; - eisd->u.eisd.eisdsize = 0; - alpha_vms_append_extra_eisd (abfd, eisd); - } - - /* Place EISD in the file. */ - for (eisd = first_eisd; eisd; eisd = eisd->next) - { - file_ptr room = VMS_BLOCK_SIZE - (PRIV (file_pos) % VMS_BLOCK_SIZE); - - /* First block is a little bit special: there is a word at the end. */ - if (PRIV (file_pos) < VMS_BLOCK_SIZE && room > 2) - room -= 2; - if (room < eisd->u.eisd.eisdsize + EISD__K_LENEND) - alpha_vms_file_position_block (abfd); - - eisd->file_pos = PRIV (file_pos); - PRIV (file_pos) += eisd->u.eisd.eisdsize; - - if (eisd->u.eisd.flags & EISD__M_FIXUPVEC) - bfd_putl64 (eisd->u.eisd.virt_addr, eihd.iafva); - } - - if (first_eisd != NULL) - { - bfd_putl32 (first_eisd->file_pos, eihd.isdoff); - /* Real size of end of eisd marker. */ - PRIV (file_pos) += EISD__K_LENEND; - } - - bfd_putl32 (PRIV (file_pos), eihd.size); - bfd_putl32 ((PRIV (file_pos) + VMS_BLOCK_SIZE - 1) / VMS_BLOCK_SIZE, - eihd.hdrblkcnt); - - /* Place sections. */ - for (sec = abfd->sections; sec; sec = sec->next) - { - if (!(sec->flags & SEC_HAS_CONTENTS)) - continue; - - eisd = vms_section_data (sec)->eisd; - - /* Align on a block. */ - alpha_vms_file_position_block (abfd); - sec->filepos = PRIV (file_pos); - - if (eisd != NULL) - eisd->u.eisd.vbn = (sec->filepos / VMS_BLOCK_SIZE) + 1; - - PRIV (file_pos) += sec->size; - } - - /* Update EIHS. */ - if (eihs != NULL && dst != NULL) - { - bfd_putl32 ((dst->filepos / VMS_BLOCK_SIZE) + 1, eihs->dstvbn); - bfd_putl32 (dst->size, eihs->dstsize); - - if (dmt != NULL) - { - lnkflags |= EIHD__M_DBGDMT; - bfd_putl32 ((dmt->filepos / VMS_BLOCK_SIZE) + 1, eihs->dmtvbn); - bfd_putl32 (dmt->size, eihs->dmtsize); - } - if (PRIV (gsd_sym_count) != 0) - { - alpha_vms_file_position_block (abfd); - gst_filepos = PRIV (file_pos); - bfd_putl32 ((gst_filepos / VMS_BLOCK_SIZE) + 1, eihs->gstvbn); - bfd_putl32 ((PRIV (gsd_sym_count) + 4) / 5 + 4, eihs->gstsize); - } - } - - /* Write EISD in hdr. */ - for (eisd = first_eisd; eisd && eisd->file_pos < VMS_BLOCK_SIZE; - eisd = eisd->next) - alpha_vms_swap_eisd_out - (eisd, (struct vms_eisd *)((char *)&eihd + eisd->file_pos)); - - /* Write first block. */ - bfd_putl32 (lnkflags, eihd.lnkflags); - if (bfd_bwrite (&eihd, sizeof (eihd), abfd) != sizeof (eihd)) - return FALSE; - - /* Write remaining eisd. */ - if (eisd != NULL) - { - unsigned char blk[VMS_BLOCK_SIZE]; - struct vms_internal_eisd_map *next_eisd; - - memset (blk, 0xff, sizeof (blk)); - while (eisd != NULL) - { - alpha_vms_swap_eisd_out - (eisd, - (struct vms_eisd *)(blk + (eisd->file_pos % VMS_BLOCK_SIZE))); - - next_eisd = eisd->next; - if (next_eisd == NULL - || (next_eisd->file_pos / VMS_BLOCK_SIZE - != eisd->file_pos / VMS_BLOCK_SIZE)) - { - if (bfd_bwrite (blk, sizeof (blk), abfd) != sizeof (blk)) - return FALSE; - - memset (blk, 0xff, sizeof (blk)); - } - eisd = next_eisd; - } - } - - /* Write sections. */ - for (sec = abfd->sections; sec; sec = sec->next) - { - unsigned char blk[VMS_BLOCK_SIZE]; - bfd_size_type len; - - if (sec->size == 0 || !(sec->flags & SEC_HAS_CONTENTS)) - continue; - if (bfd_bwrite (sec->contents, sec->size, abfd) != sec->size) - return FALSE; - - /* Pad. */ - len = VMS_BLOCK_SIZE - sec->size % VMS_BLOCK_SIZE; - if (len != VMS_BLOCK_SIZE) - { - memset (blk, 0, len); - if (bfd_bwrite (blk, len, abfd) != len) - return FALSE; - } - } - - /* Write GST. */ - if (gst_filepos != 0) - { - struct vms_rec_wr *recwr = &PRIV (recwr); - unsigned int i; - - _bfd_vms_write_emh (abfd); - _bfd_vms_write_lmn (abfd, "GNU LD"); - - /* PSC for the absolute section. */ - _bfd_vms_output_begin (recwr, EOBJ__C_EGSD); - _bfd_vms_output_long (recwr, 0); - _bfd_vms_output_begin_subrec (recwr, EGSD__C_PSC); - _bfd_vms_output_short (recwr, 0); - _bfd_vms_output_short (recwr, EGPS__V_PIC | EGPS__V_LIB | EGPS__V_RD); - _bfd_vms_output_long (recwr, 0); - _bfd_vms_output_counted (recwr, ".$$ABS$$."); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_end (abfd, recwr); - - for (i = 0; i < PRIV (gsd_sym_count); i++) - { - struct vms_symbol_entry *sym = PRIV (syms)[i]; - bfd_vma val; - bfd_vma ep; - - if ((i % 5) == 0) - { - _bfd_vms_output_alignment (recwr, 8); - _bfd_vms_output_begin (recwr, EOBJ__C_EGSD); - _bfd_vms_output_long (recwr, 0); - } - _bfd_vms_output_begin_subrec (recwr, EGSD__C_SYMG); - _bfd_vms_output_short (recwr, 0); /* Data type, alignment. */ - _bfd_vms_output_short (recwr, sym->flags); - - if (sym->code_section) - ep = alpha_vms_get_sym_value (sym->code_section, sym->code_value); - else - { - BFD_ASSERT (sym->code_value == 0); - ep = 0; - } - val = alpha_vms_get_sym_value (sym->section, sym->value); - _bfd_vms_output_quad - (recwr, sym->typ == EGSD__C_SYMG ? sym->symbol_vector : val); - _bfd_vms_output_quad (recwr, ep); - _bfd_vms_output_quad (recwr, val); - _bfd_vms_output_long (recwr, 0); - _bfd_vms_output_counted (recwr, sym->name); - _bfd_vms_output_end_subrec (recwr); - if ((i % 5) == 4) - _bfd_vms_output_end (abfd, recwr); - } - if ((i % 5) != 0) - _bfd_vms_output_end (abfd, recwr); - - if (!_bfd_vms_write_eeom (abfd)) - return FALSE; - } - return TRUE; -} - -/* Object write. */ - -/* Write section and symbol directory of bfd abfd. Return FALSE on error. */ - -static bfd_boolean -_bfd_vms_write_egsd (bfd *abfd) -{ - asection *section; - asymbol *symbol; - unsigned int symnum; - const char *sname; - flagword new_flags, old_flags; - int abs_section_index = -1; - unsigned int target_index = 0; - struct vms_rec_wr *recwr = &PRIV (recwr); - - vms_debug2 ((2, "vms_write_egsd\n")); - - /* Egsd is quadword aligned. */ - _bfd_vms_output_alignment (recwr, 8); - - _bfd_vms_output_begin (recwr, EOBJ__C_EGSD); - _bfd_vms_output_long (recwr, 0); - - /* Number sections. */ - for (section = abfd->sections; section != NULL; section = section->next) - { - if (section->flags & SEC_DEBUGGING) - continue; - if (!strcmp (section->name, ".vmsdebug")) - { - section->flags |= SEC_DEBUGGING; - continue; - } - section->target_index = target_index++; - } - - for (section = abfd->sections; section != NULL; section = section->next) - { - vms_debug2 ((3, "Section #%d %s, %d bytes\n", - section->target_index, section->name, (int)section->size)); - - /* Don't write out the VMS debug info section since it is in the - ETBT and EDBG sections in etir. */ - if (section->flags & SEC_DEBUGGING) - continue; - - /* 13 bytes egsd, max 31 chars name -> should be 44 bytes. */ - if (_bfd_vms_output_check (recwr, 64) < 0) - { - _bfd_vms_output_end (abfd, recwr); - _bfd_vms_output_begin (recwr, EOBJ__C_EGSD); - _bfd_vms_output_long (recwr, 0); - } - - /* Don't know if this is necessary for the linker but for now it keeps - vms_slurp_gsd happy. */ - sname = section->name; - if (*sname == '.') - { - /* Remove leading dot. */ - sname++; - if ((*sname == 't') && (strcmp (sname, "text") == 0)) - sname = EVAX_CODE_NAME; - else if ((*sname == 'd') && (strcmp (sname, "data") == 0)) - sname = EVAX_DATA_NAME; - else if ((*sname == 'b') && (strcmp (sname, "bss") == 0)) - sname = EVAX_BSS_NAME; - else if ((*sname == 'l') && (strcmp (sname, "link") == 0)) - sname = EVAX_LINK_NAME; - else if ((*sname == 'r') && (strcmp (sname, "rdata") == 0)) - sname = EVAX_READONLY_NAME; - else if ((*sname == 'l') && (strcmp (sname, "literal") == 0)) - sname = EVAX_LITERAL_NAME; - else if ((*sname == 'l') && (strcmp (sname, "literals") == 0)) - sname = EVAX_LITERALS_NAME; - else if ((*sname == 'c') && (strcmp (sname, "comm") == 0)) - sname = EVAX_COMMON_NAME; - else if ((*sname == 'l') && (strcmp (sname, "lcomm") == 0)) - sname = EVAX_LOCAL_NAME; - } - - if (bfd_is_com_section (section)) - new_flags = (EGPS__V_OVR | EGPS__V_REL | EGPS__V_GBL | EGPS__V_RD - | EGPS__V_WRT | EGPS__V_NOMOD | EGPS__V_COM); - else - new_flags = vms_esecflag_by_name (evax_section_flags, sname, - section->size > 0); - - /* Modify them as directed. */ - if (section->flags & SEC_READONLY) - new_flags &= ~EGPS__V_WRT; - - new_flags &= ~vms_section_data (section)->no_flags; - new_flags |= vms_section_data (section)->flags; - - vms_debug2 ((3, "sec flags %x\n", section->flags)); - vms_debug2 ((3, "new_flags %x, _raw_size %lu\n", - new_flags, (unsigned long)section->size)); - - _bfd_vms_output_begin_subrec (recwr, EGSD__C_PSC); - _bfd_vms_output_short (recwr, section->alignment_power & 0xff); - _bfd_vms_output_short (recwr, new_flags); - _bfd_vms_output_long (recwr, (unsigned long) section->size); - _bfd_vms_output_counted (recwr, sname); - _bfd_vms_output_end_subrec (recwr); - - /* If the section is an obsolute one, remind its index as it will be - used later for absolute symbols. */ - if ((new_flags & EGPS__V_REL) == 0 && abs_section_index < 0) - abs_section_index = section->target_index; - } - - /* Output symbols. */ - vms_debug2 ((3, "%d symbols found\n", abfd->symcount)); - - bfd_set_start_address (abfd, (bfd_vma) -1); - - for (symnum = 0; symnum < abfd->symcount; symnum++) - { - symbol = abfd->outsymbols[symnum]; - old_flags = symbol->flags; - - /* Work-around a missing feature: consider __main as the main entry - point. */ - if (symbol->name[0] == '_' && strcmp (symbol->name, "__main") == 0) - bfd_set_start_address (abfd, (bfd_vma)symbol->value); - - /* Only put in the GSD the global and the undefined symbols. */ - if (old_flags & BSF_FILE) - continue; - - if ((old_flags & BSF_GLOBAL) == 0 && !bfd_is_und_section (symbol->section)) - { - /* If the LIB$INITIIALIZE section is present, add a reference to - LIB$INITIALIZE symbol. FIXME: this should be done explicitely - in the assembly file. */ - if (!((old_flags & BSF_SECTION_SYM) != 0 - && strcmp (symbol->section->name, "LIB$INITIALIZE") == 0)) - continue; - } - - /* 13 bytes egsd, max 64 chars name -> should be 77 bytes. Add 16 more - bytes for a possible ABS section. */ - if (_bfd_vms_output_check (recwr, 80 + 16) < 0) - { - _bfd_vms_output_end (abfd, recwr); - _bfd_vms_output_begin (recwr, EOBJ__C_EGSD); - _bfd_vms_output_long (recwr, 0); - } - - if ((old_flags & BSF_GLOBAL) != 0 - && bfd_is_abs_section (symbol->section) - && abs_section_index <= 0) - { - /* Create an absolute section if none was defined. It is highly - unlikely that the name $ABS$ clashes with a user defined - non-absolute section name. */ - _bfd_vms_output_begin_subrec (recwr, EGSD__C_PSC); - _bfd_vms_output_short (recwr, 4); - _bfd_vms_output_short (recwr, EGPS__V_SHR); - _bfd_vms_output_long (recwr, 0); - _bfd_vms_output_counted (recwr, "$ABS$"); - _bfd_vms_output_end_subrec (recwr); - - abs_section_index = target_index++; - } - - _bfd_vms_output_begin_subrec (recwr, EGSD__C_SYM); - - /* Data type, alignment. */ - _bfd_vms_output_short (recwr, 0); - - new_flags = 0; - - if (old_flags & BSF_WEAK) - new_flags |= EGSY__V_WEAK; - if (bfd_is_com_section (symbol->section)) /* .comm */ - new_flags |= (EGSY__V_WEAK | EGSY__V_COMM); - - if (old_flags & BSF_FUNCTION) - { - new_flags |= EGSY__V_NORM; - new_flags |= EGSY__V_REL; - } - if (old_flags & BSF_GLOBAL) - { - new_flags |= EGSY__V_DEF; - if (!bfd_is_abs_section (symbol->section)) - new_flags |= EGSY__V_REL; - } - _bfd_vms_output_short (recwr, new_flags); - - if (old_flags & BSF_GLOBAL) - { - /* Symbol definition. */ - bfd_vma code_address = 0; - unsigned long ca_psindx = 0; - unsigned long psindx; - - if ((old_flags & BSF_FUNCTION) && symbol->udata.p != NULL) - { - asymbol *sym; - - sym = - ((struct evax_private_udata_struct *)symbol->udata.p)->enbsym; - code_address = sym->value; - ca_psindx = sym->section->target_index; - } - if (bfd_is_abs_section (symbol->section)) - psindx = abs_section_index; - else - psindx = symbol->section->target_index; - - _bfd_vms_output_quad (recwr, symbol->value); - _bfd_vms_output_quad (recwr, code_address); - _bfd_vms_output_long (recwr, ca_psindx); - _bfd_vms_output_long (recwr, psindx); - } - _bfd_vms_output_counted (recwr, symbol->name); - - _bfd_vms_output_end_subrec (recwr); - } - - _bfd_vms_output_alignment (recwr, 8); - _bfd_vms_output_end (abfd, recwr); - - return TRUE; -} - -/* Write object header for bfd abfd. Return FALSE on error. */ - -static bfd_boolean -_bfd_vms_write_ehdr (bfd *abfd) -{ - asymbol *symbol; - unsigned int symnum; - struct vms_rec_wr *recwr = &PRIV (recwr); - - vms_debug2 ((2, "vms_write_ehdr (%p)\n", abfd)); - - _bfd_vms_output_alignment (recwr, 2); - - _bfd_vms_write_emh (abfd); - _bfd_vms_write_lmn (abfd, "GNU AS"); - - /* SRC. */ - _bfd_vms_output_begin (recwr, EOBJ__C_EMH); - _bfd_vms_output_short (recwr, EMH__C_SRC); - - for (symnum = 0; symnum < abfd->symcount; symnum++) - { - symbol = abfd->outsymbols[symnum]; - - if (symbol->flags & BSF_FILE) - { - _bfd_vms_output_dump (recwr, (unsigned char *) symbol->name, - (int) strlen (symbol->name)); - break; - } - } - - if (symnum == abfd->symcount) - _bfd_vms_output_dump (recwr, (unsigned char *) STRING_COMMA_LEN ("noname")); - - _bfd_vms_output_end (abfd, recwr); - - /* TTL. */ - _bfd_vms_output_begin (recwr, EOBJ__C_EMH); - _bfd_vms_output_short (recwr, EMH__C_TTL); - _bfd_vms_output_dump (recwr, (unsigned char *) STRING_COMMA_LEN ("TTL")); - _bfd_vms_output_end (abfd, recwr); - - /* CPR. */ - _bfd_vms_output_begin (recwr, EOBJ__C_EMH); - _bfd_vms_output_short (recwr, EMH__C_CPR); - _bfd_vms_output_dump (recwr, - (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996", - 39); - _bfd_vms_output_end (abfd, recwr); - - return TRUE; -} - -/* Part 4.6, relocations. */ - - -/* WRITE ETIR SECTION - - This is still under construction and therefore not documented. */ - -/* Close the etir/etbt record. */ - -static void -end_etir_record (bfd * abfd) -{ - struct vms_rec_wr *recwr = &PRIV (recwr); - - _bfd_vms_output_end (abfd, recwr); -} - -static void -start_etir_or_etbt_record (bfd *abfd, asection *section, bfd_vma offset) -{ - struct vms_rec_wr *recwr = &PRIV (recwr); - - if (section->flags & SEC_DEBUGGING) - { - _bfd_vms_output_begin (recwr, EOBJ__C_ETBT); - - if (offset == 0) - { - /* Push start offset. */ - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_LW); - _bfd_vms_output_long (recwr, (unsigned long) 0); - _bfd_vms_output_end_subrec (recwr); - - /* Set location. */ - _bfd_vms_output_begin_subrec (recwr, ETIR__C_CTL_DFLOC); - _bfd_vms_output_end_subrec (recwr); - } - } - else - { - _bfd_vms_output_begin (recwr, EOBJ__C_ETIR); - - if (offset == 0) - { - /* Push start offset. */ - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_PQ); - _bfd_vms_output_long (recwr, (unsigned long) section->target_index); - _bfd_vms_output_quad (recwr, offset); - _bfd_vms_output_end_subrec (recwr); - - /* Start = pop (). */ - _bfd_vms_output_begin_subrec (recwr, ETIR__C_CTL_SETRB); - _bfd_vms_output_end_subrec (recwr); - } - } -} - -/* Output a STO_IMM command for SSIZE bytes of data from CPR at virtual - address VADDR in section specified by SEC_INDEX and NAME. */ - -static void -sto_imm (bfd *abfd, asection *section, - bfd_size_type ssize, unsigned char *cptr, bfd_vma vaddr) -{ - bfd_size_type size; - struct vms_rec_wr *recwr = &PRIV (recwr); - -#if VMS_DEBUG - _bfd_vms_debug (8, "sto_imm %d bytes\n", (int) ssize); - _bfd_hexdump (9, cptr, (int) ssize, (int) vaddr); -#endif - - while (ssize > 0) - { - /* Try all the rest. */ - size = ssize; - - if (_bfd_vms_output_check (recwr, size) < 0) - { - /* Doesn't fit, split ! */ - end_etir_record (abfd); - - start_etir_or_etbt_record (abfd, section, vaddr); - - size = _bfd_vms_output_check (recwr, 0); /* get max size */ - if (size > ssize) /* more than what's left ? */ - size = ssize; - } - - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_IMM); - _bfd_vms_output_long (recwr, (unsigned long) (size)); - _bfd_vms_output_dump (recwr, cptr, size); - _bfd_vms_output_end_subrec (recwr); - -#if VMS_DEBUG - _bfd_vms_debug (10, "dumped %d bytes\n", (int) size); - _bfd_hexdump (10, cptr, (int) size, (int) vaddr); -#endif - - vaddr += size; - cptr += size; - ssize -= size; - } -} - -static void -etir_output_check (bfd *abfd, asection *section, bfd_vma vaddr, int checklen) -{ - if (_bfd_vms_output_check (&PRIV (recwr), checklen) < 0) - { - /* Not enough room in this record. Close it and open a new one. */ - end_etir_record (abfd); - start_etir_or_etbt_record (abfd, section, vaddr); - } -} - -/* Return whether RELOC must be deferred till the end. */ - -static bfd_boolean -defer_reloc_p (arelent *reloc) -{ - switch (reloc->howto->type) - { - case ALPHA_R_NOP: - case ALPHA_R_LDA: - case ALPHA_R_BSR: - case ALPHA_R_BOH: - return TRUE; - - default: - return FALSE; - } -} - -/* Write section contents for bfd abfd. Return FALSE on error. */ - -static bfd_boolean -_bfd_vms_write_etir (bfd * abfd, int objtype ATTRIBUTE_UNUSED) -{ - asection *section; - struct vms_rec_wr *recwr = &PRIV (recwr); - - vms_debug2 ((2, "vms_write_tir (%p, %d)\n", abfd, objtype)); - - _bfd_vms_output_alignment (recwr, 4); - - PRIV (vms_linkage_index) = 0; - - for (section = abfd->sections; section; section = section->next) - { - vms_debug2 ((4, "writing %d. section '%s' (%d bytes)\n", - section->target_index, section->name, (int) (section->size))); - - if (!(section->flags & SEC_HAS_CONTENTS) - || bfd_is_com_section (section)) - continue; - - if (!section->contents) - { - bfd_set_error (bfd_error_no_contents); - return FALSE; - } - - start_etir_or_etbt_record (abfd, section, 0); - - if (section->flags & SEC_RELOC) - { - bfd_vma curr_addr = 0; - unsigned char *curr_data = section->contents; - bfd_size_type size; - int pass2_needed = 0; - int pass2_in_progress = 0; - unsigned int irel; - - if (section->reloc_count == 0) - (*_bfd_error_handler) - (_("SEC_RELOC with no relocs in section %s"), section->name); - -#if VMS_DEBUG - else - { - int i = section->reloc_count; - arelent **rptr = section->orelocation; - _bfd_vms_debug (4, "%d relocations:\n", i); - while (i-- > 0) - { - _bfd_vms_debug (4, "sym %s in sec %s, value %08lx, " - "addr %08lx, off %08lx, len %d: %s\n", - (*(*rptr)->sym_ptr_ptr)->name, - (*(*rptr)->sym_ptr_ptr)->section->name, - (long) (*(*rptr)->sym_ptr_ptr)->value, - (unsigned long)(*rptr)->address, - (unsigned long)(*rptr)->addend, - bfd_get_reloc_size ((*rptr)->howto), - ( *rptr)->howto->name); - rptr++; - } - } -#endif - - new_pass: - for (irel = 0; irel < section->reloc_count; irel++) - { - struct evax_private_udata_struct *udata; - arelent *rptr = section->orelocation [irel]; - bfd_vma addr = rptr->address; - asymbol *sym = *rptr->sym_ptr_ptr; - asection *sec = sym->section; - bfd_boolean defer = defer_reloc_p (rptr); - unsigned int slen; - - if (pass2_in_progress) - { - /* Non-deferred relocs have already been output. */ - if (!defer) - continue; - } - else - { - /* Deferred relocs must be output at the very end. */ - if (defer) - { - pass2_needed = 1; - continue; - } - - /* Regular relocs are intertwined with binary data. */ - if (curr_addr > addr) - (*_bfd_error_handler) (_("Size error in section %s"), - section->name); - size = addr - curr_addr; - sto_imm (abfd, section, size, curr_data, curr_addr); - curr_data += size; - curr_addr += size; - } - - size = bfd_get_reloc_size (rptr->howto); - - switch (rptr->howto->type) - { - case ALPHA_R_IGNORE: - break; - - case ALPHA_R_REFLONG: - if (bfd_is_und_section (sym->section)) - { - bfd_vma addend = rptr->addend; - slen = strlen ((char *) sym->name); - etir_output_check (abfd, section, curr_addr, slen); - if (addend) - { - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_GBL); - _bfd_vms_output_counted (recwr, sym->name); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_LW); - _bfd_vms_output_long (recwr, (unsigned long) addend); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_OPR_ADD); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_LW); - _bfd_vms_output_end_subrec (recwr); - } - else - { - _bfd_vms_output_begin_subrec - (recwr, ETIR__C_STO_GBL_LW); - _bfd_vms_output_counted (recwr, sym->name); - _bfd_vms_output_end_subrec (recwr); - } - } - else if (bfd_is_abs_section (sym->section)) - { - etir_output_check (abfd, section, curr_addr, 16); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_LW); - _bfd_vms_output_long (recwr, (unsigned long) sym->value); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_LW); - _bfd_vms_output_end_subrec (recwr); - } - else - { - etir_output_check (abfd, section, curr_addr, 32); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_PQ); - _bfd_vms_output_long (recwr, - (unsigned long) sec->target_index); - _bfd_vms_output_quad (recwr, rptr->addend + sym->value); - _bfd_vms_output_end_subrec (recwr); - /* ??? Table B-8 of the OpenVMS Linker Utilily Manual - says that we should have a ETIR__C_STO_OFF here. - But the relocation would not be BFD_RELOC_32 then. - This case is very likely unreachable. */ - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_LW); - _bfd_vms_output_end_subrec (recwr); - } - break; - - case ALPHA_R_REFQUAD: - if (bfd_is_und_section (sym->section)) - { - bfd_vma addend = rptr->addend; - slen = strlen ((char *) sym->name); - etir_output_check (abfd, section, curr_addr, slen); - if (addend) - { - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_GBL); - _bfd_vms_output_counted (recwr, sym->name); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_QW); - _bfd_vms_output_quad (recwr, addend); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_OPR_ADD); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_QW); - _bfd_vms_output_end_subrec (recwr); - } - else - { - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_GBL); - _bfd_vms_output_counted (recwr, sym->name); - _bfd_vms_output_end_subrec (recwr); - } - } - else if (bfd_is_abs_section (sym->section)) - { - etir_output_check (abfd, section, curr_addr, 16); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_QW); - _bfd_vms_output_quad (recwr, sym->value); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_QW); - _bfd_vms_output_end_subrec (recwr); - } - else - { - etir_output_check (abfd, section, curr_addr, 32); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_PQ); - _bfd_vms_output_long (recwr, - (unsigned long) sec->target_index); - _bfd_vms_output_quad (recwr, rptr->addend + sym->value); - _bfd_vms_output_end_subrec (recwr); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_OFF); - _bfd_vms_output_end_subrec (recwr); - } - break; - - case ALPHA_R_HINT: - sto_imm (abfd, section, size, curr_data, curr_addr); - break; - - case ALPHA_R_LINKAGE: - etir_output_check (abfd, section, curr_addr, 64); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STC_LP_PSB); - _bfd_vms_output_long - (recwr, (unsigned long) rptr->addend); - if (rptr->addend > PRIV (vms_linkage_index)) - PRIV (vms_linkage_index) = rptr->addend; - _bfd_vms_output_counted (recwr, sym->name); - _bfd_vms_output_byte (recwr, 0); - _bfd_vms_output_end_subrec (recwr); - break; - - case ALPHA_R_CODEADDR: - slen = strlen ((char *) sym->name); - etir_output_check (abfd, section, curr_addr, slen); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_CA); - _bfd_vms_output_counted (recwr, sym->name); - _bfd_vms_output_end_subrec (recwr); - break; - - case ALPHA_R_NOP: - udata - = (struct evax_private_udata_struct *) rptr->sym_ptr_ptr; - etir_output_check (abfd, section, curr_addr, - 32 + 1 + strlen (udata->origname)); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STC_NOP_GBL); - _bfd_vms_output_long (recwr, (unsigned long) udata->lkindex); - _bfd_vms_output_long - (recwr, (unsigned long) section->target_index); - _bfd_vms_output_quad (recwr, rptr->address); - _bfd_vms_output_long (recwr, (unsigned long) 0x47ff041f); - _bfd_vms_output_long - (recwr, (unsigned long) section->target_index); - _bfd_vms_output_quad (recwr, rptr->addend); - _bfd_vms_output_counted (recwr, udata->origname); - _bfd_vms_output_end_subrec (recwr); - break; - - case ALPHA_R_BSR: - (*_bfd_error_handler) (_("Spurious ALPHA_R_BSR reloc")); - break; - - case ALPHA_R_LDA: - udata - = (struct evax_private_udata_struct *) rptr->sym_ptr_ptr; - etir_output_check (abfd, section, curr_addr, - 32 + 1 + strlen (udata->origname)); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STC_LDA_GBL); - _bfd_vms_output_long - (recwr, (unsigned long) udata->lkindex + 1); - _bfd_vms_output_long - (recwr, (unsigned long) section->target_index); - _bfd_vms_output_quad (recwr, rptr->address); - _bfd_vms_output_long (recwr, (unsigned long) 0x237B0000); - _bfd_vms_output_long - (recwr, (unsigned long) udata->bsym->section->target_index); - _bfd_vms_output_quad (recwr, rptr->addend); - _bfd_vms_output_counted (recwr, udata->origname); - _bfd_vms_output_end_subrec (recwr); - break; - - case ALPHA_R_BOH: - udata - = (struct evax_private_udata_struct *) rptr->sym_ptr_ptr; - etir_output_check (abfd, section, curr_addr, - 32 + 1 + strlen (udata->origname)); - _bfd_vms_output_begin_subrec (recwr, ETIR__C_STC_BOH_GBL); - _bfd_vms_output_long (recwr, (unsigned long) udata->lkindex); - _bfd_vms_output_long - (recwr, (unsigned long) section->target_index); - _bfd_vms_output_quad (recwr, rptr->address); - _bfd_vms_output_long (recwr, (unsigned long) 0xD3400000); - _bfd_vms_output_long - (recwr, (unsigned long) section->target_index); - _bfd_vms_output_quad (recwr, rptr->addend); - _bfd_vms_output_counted (recwr, udata->origname); - _bfd_vms_output_end_subrec (recwr); - break; - - default: - (*_bfd_error_handler) (_("Unhandled relocation %s"), - rptr->howto->name); - break; - } - - curr_data += size; - curr_addr += size; - } /* End of relocs loop. */ - - if (!pass2_in_progress) - { - /* Output rest of section. */ - if (curr_addr > section->size) - (*_bfd_error_handler) (_("Size error in section %s"), - section->name); - size = section->size - curr_addr; - sto_imm (abfd, section, size, curr_data, curr_addr); - curr_data += size; - curr_addr += size; - - if (pass2_needed) - { - pass2_in_progress = 1; - goto new_pass; - } - } - } - - else /* (section->flags & SEC_RELOC) */ - sto_imm (abfd, section, section->size, section->contents, 0); - - end_etir_record (abfd); - } - - _bfd_vms_output_alignment (recwr, 2); - return TRUE; -} - -/* Write cached information into a file being written, at bfd_close. */ - -static bfd_boolean -alpha_vms_write_object_contents (bfd *abfd) -{ - vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd)); - - if (abfd->flags & (EXEC_P | DYNAMIC)) - { - return alpha_vms_write_exec (abfd); - } - else - { - if (abfd->section_count > 0) /* we have sections */ - { - if (_bfd_vms_write_ehdr (abfd) != TRUE) - return FALSE; - if (_bfd_vms_write_egsd (abfd) != TRUE) - return FALSE; - if (_bfd_vms_write_etir (abfd, EOBJ__C_ETIR) != TRUE) - return FALSE; - if (_bfd_vms_write_eeom (abfd) != TRUE) - return FALSE; - } - } - return TRUE; -} - -/* Debug stuff: nearest line. */ - -#define SET_MODULE_PARSED(m) \ - do { if ((m)->name == NULL) (m)->name = ""; } while (0) -#define IS_MODULE_PARSED(m) ((m)->name != NULL) - -/* Build a new module for the specified BFD. */ - -static struct module * -new_module (bfd *abfd) -{ - struct module *module - = (struct module *) bfd_zalloc (abfd, sizeof (struct module)); - module->file_table_count = 16; /* Arbitrary. */ - module->file_table - = bfd_malloc (module->file_table_count * sizeof (struct fileinfo)); - return module; -} - -/* Parse debug info for a module and internalize it. */ - -static void -parse_module (bfd *abfd, struct module *module, unsigned char *ptr, - int length) -{ - unsigned char *maxptr = ptr + length; - unsigned char *src_ptr, *pcl_ptr; - unsigned int prev_linum = 0, curr_linenum = 0; - bfd_vma prev_pc = 0, curr_pc = 0; - struct srecinfo *curr_srec, *srec; - struct lineinfo *curr_line, *line; - struct funcinfo *funcinfo; - - /* Initialize tables with zero element. */ - curr_srec = (struct srecinfo *) bfd_zalloc (abfd, sizeof (struct srecinfo)); - module->srec_table = curr_srec; - - curr_line = (struct lineinfo *) bfd_zalloc (abfd, sizeof (struct lineinfo)); - module->line_table = curr_line; - - while (length == -1 || ptr < maxptr) - { - /* The first byte is not counted in the recorded length. */ - int rec_length = bfd_getl16 (ptr) + 1; - int rec_type = bfd_getl16 (ptr + 2); - - vms_debug2 ((2, "DST record: leng %d, type %d\n", rec_length, rec_type)); - - if (length == -1 && rec_type == DST__K_MODEND) - break; - - switch (rec_type) - { - case DST__K_MODBEG: - module->name - = _bfd_vms_save_counted_string (ptr + DST_S_B_MODBEG_NAME); - - curr_pc = 0; - prev_pc = 0; - curr_linenum = 0; - prev_linum = 0; - - vms_debug2 ((3, "module: %s\n", module->name)); - break; - - case DST__K_MODEND: - break; - - case DST__K_RTNBEG: - funcinfo = (struct funcinfo *) - bfd_zalloc (abfd, sizeof (struct funcinfo)); - funcinfo->name - = _bfd_vms_save_counted_string (ptr + DST_S_B_RTNBEG_NAME); - funcinfo->low = bfd_getl32 (ptr + DST_S_L_RTNBEG_ADDRESS); - funcinfo->next = module->func_table; - module->func_table = funcinfo; - - vms_debug2 ((3, "routine: %s at 0x%lx\n", - funcinfo->name, (unsigned long) funcinfo->low)); - break; - - case DST__K_RTNEND: - module->func_table->high = module->func_table->low - + bfd_getl32 (ptr + DST_S_L_RTNEND_SIZE) - 1; - - if (module->func_table->high > module->high) - module->high = module->func_table->high; - - vms_debug2 ((3, "end routine\n")); - break; - - case DST__K_PROLOG: - vms_debug2 ((3, "prologue\n")); - break; - - case DST__K_EPILOG: - vms_debug2 ((3, "epilog\n")); - break; - - case DST__K_BLKBEG: - vms_debug2 ((3, "block\n")); - break; - - case DST__K_BLKEND: - vms_debug2 ((3, "end block\n")); - break; - - case DST__K_SOURCE: - src_ptr = ptr + DST_S_C_SOURCE_HEADER_SIZE; - - vms_debug2 ((3, "source info\n")); - - while (src_ptr < ptr + rec_length) - { - int cmd = src_ptr[0], cmd_length, data; - - switch (cmd) - { - case DST__K_SRC_DECLFILE: - { - unsigned int fileid - = bfd_getl16 (src_ptr + DST_S_W_SRC_DF_FILEID); - char *filename - = _bfd_vms_save_counted_string (src_ptr - + DST_S_B_SRC_DF_FILENAME); - - while (fileid >= module->file_table_count) - { - module->file_table_count *= 2; - module->file_table - = bfd_realloc (module->file_table, - module->file_table_count - * sizeof (struct fileinfo)); - } - - module->file_table [fileid].name = filename; - module->file_table [fileid].srec = 1; - cmd_length = src_ptr[DST_S_B_SRC_DF_LENGTH] + 2; - vms_debug2 ((4, "DST_S_C_SRC_DECLFILE: %d, %s\n", - fileid, module->file_table [fileid].name)); - } - break; - - case DST__K_SRC_DEFLINES_B: - /* Perform the association and set the next higher index - to the limit. */ - data = src_ptr[DST_S_B_SRC_UNSBYTE]; - srec = (struct srecinfo *) - bfd_zalloc (abfd, sizeof (struct srecinfo)); - srec->line = curr_srec->line + data; - srec->srec = curr_srec->srec + data; - srec->sfile = curr_srec->sfile; - curr_srec->next = srec; - curr_srec = srec; - cmd_length = 2; - vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_B: %d\n", data)); - break; - - case DST__K_SRC_DEFLINES_W: - /* Perform the association and set the next higher index - to the limit. */ - data = bfd_getl16 (src_ptr + DST_S_W_SRC_UNSWORD); - srec = (struct srecinfo *) - bfd_zalloc (abfd, sizeof (struct srecinfo)); - srec->line = curr_srec->line + data; - srec->srec = curr_srec->srec + data, - srec->sfile = curr_srec->sfile; - curr_srec->next = srec; - curr_srec = srec; - cmd_length = 3; - vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_W: %d\n", data)); - break; - - case DST__K_SRC_INCRLNUM_B: - data = src_ptr[DST_S_B_SRC_UNSBYTE]; - curr_srec->line += data; - cmd_length = 2; - vms_debug2 ((4, "DST_S_C_SRC_INCRLNUM_B: %d\n", data)); - break; - - case DST__K_SRC_SETFILE: - data = bfd_getl16 (src_ptr + DST_S_W_SRC_UNSWORD); - curr_srec->sfile = data; - curr_srec->srec = module->file_table[data].srec; - cmd_length = 3; - vms_debug2 ((4, "DST_S_C_SRC_SETFILE: %d\n", data)); - break; - - case DST__K_SRC_SETLNUM_L: - data = bfd_getl32 (src_ptr + DST_S_L_SRC_UNSLONG); - curr_srec->line = data; - cmd_length = 5; - vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_L: %d\n", data)); - break; - - case DST__K_SRC_SETLNUM_W: - data = bfd_getl16 (src_ptr + DST_S_W_SRC_UNSWORD); - curr_srec->line = data; - cmd_length = 3; - vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_W: %d\n", data)); - break; - - case DST__K_SRC_SETREC_L: - data = bfd_getl32 (src_ptr + DST_S_L_SRC_UNSLONG); - curr_srec->srec = data; - module->file_table[curr_srec->sfile].srec = data; - cmd_length = 5; - vms_debug2 ((4, "DST_S_C_SRC_SETREC_L: %d\n", data)); - break; - - case DST__K_SRC_SETREC_W: - data = bfd_getl16 (src_ptr + DST_S_W_SRC_UNSWORD); - curr_srec->srec = data; - module->file_table[curr_srec->sfile].srec = data; - cmd_length = 3; - vms_debug2 ((4, "DST_S_C_SRC_SETREC_W: %d\n", data)); - break; - - case DST__K_SRC_FORMFEED: - cmd_length = 1; - vms_debug2 ((4, "DST_S_C_SRC_FORMFEED\n")); - break; - - default: - (*_bfd_error_handler) (_("unknown source command %d"), - cmd); - cmd_length = 2; - break; - } - - src_ptr += cmd_length; - } - break; - - case DST__K_LINE_NUM: - pcl_ptr = ptr + DST_S_C_LINE_NUM_HEADER_SIZE; - - vms_debug2 ((3, "line info\n")); - - while (pcl_ptr < ptr + rec_length) - { - /* The command byte is signed so we must sign-extend it. */ - int cmd = ((signed char *)pcl_ptr)[0], cmd_length, data; - - switch (cmd) - { - case DST__K_DELTA_PC_W: - data = bfd_getl16 (pcl_ptr + DST_S_W_PCLINE_UNSWORD); - curr_pc += data; - curr_linenum += 1; - cmd_length = 3; - vms_debug2 ((4, "DST__K_DELTA_PC_W: %d\n", data)); - break; - - case DST__K_DELTA_PC_L: - data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG); - curr_pc += data; - curr_linenum += 1; - cmd_length = 5; - vms_debug2 ((4, "DST__K_DELTA_PC_L: %d\n", data)); - break; - - case DST__K_INCR_LINUM: - data = pcl_ptr[DST_S_B_PCLINE_UNSBYTE]; - curr_linenum += data; - cmd_length = 2; - vms_debug2 ((4, "DST__K_INCR_LINUM: %d\n", data)); - break; - - case DST__K_INCR_LINUM_W: - data = bfd_getl16 (pcl_ptr + DST_S_W_PCLINE_UNSWORD); - curr_linenum += data; - cmd_length = 3; - vms_debug2 ((4, "DST__K_INCR_LINUM_W: %d\n", data)); - break; - - case DST__K_INCR_LINUM_L: - data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG); - curr_linenum += data; - cmd_length = 5; - vms_debug2 ((4, "DST__K_INCR_LINUM_L: %d\n", data)); - break; - - case DST__K_SET_LINUM_INCR: - (*_bfd_error_handler) - (_("DST__K_SET_LINUM_INCR not implemented")); - cmd_length = 2; - break; - - case DST__K_SET_LINUM_INCR_W: - (*_bfd_error_handler) - (_("DST__K_SET_LINUM_INCR_W not implemented")); - cmd_length = 3; - break; - - case DST__K_RESET_LINUM_INCR: - (*_bfd_error_handler) - (_("DST__K_RESET_LINUM_INCR not implemented")); - cmd_length = 1; - break; - - case DST__K_BEG_STMT_MODE: - (*_bfd_error_handler) - (_("DST__K_BEG_STMT_MODE not implemented")); - cmd_length = 1; - break; - - case DST__K_END_STMT_MODE: - (*_bfd_error_handler) - (_("DST__K_END_STMT_MODE not implemented")); - cmd_length = 1; - break; - - case DST__K_SET_LINUM_B: - data = pcl_ptr[DST_S_B_PCLINE_UNSBYTE]; - curr_linenum = data; - cmd_length = 2; - vms_debug2 ((4, "DST__K_SET_LINUM_B: %d\n", data)); - break; - - case DST__K_SET_LINUM: - data = bfd_getl16 (pcl_ptr + DST_S_W_PCLINE_UNSWORD); - curr_linenum = data; - cmd_length = 3; - vms_debug2 ((4, "DST__K_SET_LINE_NUM: %d\n", data)); - break; - - case DST__K_SET_LINUM_L: - data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG); - curr_linenum = data; - cmd_length = 5; - vms_debug2 ((4, "DST__K_SET_LINUM_L: %d\n", data)); - break; - - case DST__K_SET_PC: - (*_bfd_error_handler) - (_("DST__K_SET_PC not implemented")); - cmd_length = 2; - break; - - case DST__K_SET_PC_W: - (*_bfd_error_handler) - (_("DST__K_SET_PC_W not implemented")); - cmd_length = 3; - break; - - case DST__K_SET_PC_L: - (*_bfd_error_handler) - (_("DST__K_SET_PC_L not implemented")); - cmd_length = 5; - break; - - case DST__K_SET_STMTNUM: - (*_bfd_error_handler) - (_("DST__K_SET_STMTNUM not implemented")); - cmd_length = 2; - break; - - case DST__K_TERM: - data = pcl_ptr[DST_S_B_PCLINE_UNSBYTE]; - curr_pc += data; - cmd_length = 2; - vms_debug2 ((4, "DST__K_TERM: %d\n", data)); - break; - - case DST__K_TERM_W: - data = bfd_getl16 (pcl_ptr + DST_S_W_PCLINE_UNSWORD); - curr_pc += data; - cmd_length = 3; - vms_debug2 ((4, "DST__K_TERM_W: %d\n", data)); - break; - - case DST__K_TERM_L: - data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG); - curr_pc += data; - cmd_length = 5; - vms_debug2 ((4, "DST__K_TERM_L: %d\n", data)); - break; - - case DST__K_SET_ABS_PC: - data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG); - curr_pc = data; - cmd_length = 5; - vms_debug2 ((4, "DST__K_SET_ABS_PC: 0x%x\n", data)); - break; - - default: - if (cmd <= 0) - { - curr_pc -= cmd; - curr_linenum += 1; - cmd_length = 1; - vms_debug2 ((4, "bump pc to 0x%lx and line to %d\n", - (unsigned long)curr_pc, curr_linenum)); - } - else - { - (*_bfd_error_handler) (_("unknown line command %d"), - cmd); - cmd_length = 2; - } - break; - } - - if ((curr_linenum != prev_linum && curr_pc != prev_pc) - || cmd <= 0 - || cmd == DST__K_DELTA_PC_L - || cmd == DST__K_DELTA_PC_W) - { - line = (struct lineinfo *) - bfd_zalloc (abfd, sizeof (struct lineinfo)); - line->address = curr_pc; - line->line = curr_linenum; - - curr_line->next = line; - curr_line = line; - - prev_linum = curr_linenum; - prev_pc = curr_pc; - vms_debug2 ((4, "-> correlate pc 0x%lx with line %d\n", - (unsigned long)curr_pc, curr_linenum)); - } - - pcl_ptr += cmd_length; - } - break; - - case 0x17: /* Undocumented type used by DEC C to declare equates. */ - vms_debug2 ((3, "undocumented type 0x17\n")); - break; - - default: - vms_debug2 ((3, "ignoring record\n")); - break; - - } - - ptr += rec_length; - } - - /* Finalize tables with EOL marker. */ - srec = (struct srecinfo *) bfd_zalloc (abfd, sizeof (struct srecinfo)); - srec->line = (unsigned int) -1; - srec->srec = (unsigned int) -1; - curr_srec->next = srec; - - line = (struct lineinfo *) bfd_zalloc (abfd, sizeof (struct lineinfo)); - line->line = (unsigned int) -1; - line->address = (bfd_vma) -1; - curr_line->next = line; - - /* Advertise that this module has been parsed. This is needed - because parsing can be either performed at module creation - or deferred until debug info is consumed. */ - SET_MODULE_PARSED (module); -} - -/* Build the list of modules for the specified BFD. */ - -static struct module * -build_module_list (bfd *abfd) -{ - struct module *module, *list = NULL; - asection *dmt; - - if ((dmt = bfd_get_section_by_name (abfd, "$DMT$"))) - { - /* We have a DMT section so this must be an image. Parse the - section and build the list of modules. This is sufficient - since we can compute the start address and the end address - of every module from the section contents. */ - bfd_size_type size = bfd_get_section_size (dmt); - unsigned char *ptr, *end; - - ptr = (unsigned char *) bfd_alloc (abfd, size); - if (! ptr) - return NULL; - - if (! bfd_get_section_contents (abfd, dmt, ptr, 0, size)) - return NULL; - - vms_debug2 ((2, "DMT\n")); - - end = ptr + size; - - while (ptr < end) - { - /* Each header declares a module with its start offset and size - of debug info in the DST section, as well as the count of - program sections (i.e. address spans) it contains. */ - int modbeg = bfd_getl32 (ptr + DBG_S_L_DMT_MODBEG); - int msize = bfd_getl32 (ptr + DBG_S_L_DST_SIZE); - int count = bfd_getl16 (ptr + DBG_S_W_DMT_PSECT_COUNT); - ptr += DBG_S_C_DMT_HEADER_SIZE; - - vms_debug2 ((3, "module: modbeg = %d, size = %d, count = %d\n", - modbeg, msize, count)); - - /* We create a 'module' structure for each program section since - we only support contiguous addresses in a 'module' structure. - As a consequence, the actual debug info in the DST section is - shared and can be parsed multiple times; that doesn't seem to - cause problems in practice. */ - while (count-- > 0) - { - int start = bfd_getl32 (ptr + DBG_S_L_DMT_PSECT_START); - int length = bfd_getl32 (ptr + DBG_S_L_DMT_PSECT_LENGTH); - module = new_module (abfd); - module->modbeg = modbeg; - module->size = msize; - module->low = start; - module->high = start + length; - module->next = list; - list = module; - ptr += DBG_S_C_DMT_PSECT_SIZE; - - vms_debug2 ((4, "section: start = 0x%x, length = %d\n", - start, length)); - } - } - } - else - { - /* We don't have a DMT section so this must be an object. Parse - the module right now in order to compute its start address and - end address. */ - void *dst = PRIV (dst_section)->contents; - - if (dst == NULL) - return NULL; - - module = new_module (abfd); - parse_module (abfd, module, PRIV (dst_section)->contents, -1); - list = module; - } - - return list; -} - -/* Calculate and return the name of the source file and the line nearest - to the wanted location in the specified module. */ - -static bfd_boolean -module_find_nearest_line (bfd *abfd, struct module *module, bfd_vma addr, - const char **file, const char **func, - unsigned int *line) -{ - struct funcinfo *funcinfo; - struct lineinfo *lineinfo; - struct srecinfo *srecinfo; - bfd_boolean ret = FALSE; - - /* Parse this module if that was not done at module creation. */ - if (! IS_MODULE_PARSED (module)) - { - unsigned int size = module->size; - unsigned int modbeg = PRIV (dst_section)->filepos + module->modbeg; - unsigned char *buffer = (unsigned char *) bfd_malloc (module->size); - - if (bfd_seek (abfd, modbeg, SEEK_SET) != 0 - || bfd_bread (buffer, size, abfd) != size) - { - bfd_set_error (bfd_error_no_debug_section); - return FALSE; - } - - parse_module (abfd, module, buffer, size); - free (buffer); - } - - /* Find out the function (if any) that contains the address. */ - for (funcinfo = module->func_table; funcinfo; funcinfo = funcinfo->next) - if (addr >= funcinfo->low && addr <= funcinfo->high) - { - *func = funcinfo->name; - ret = TRUE; - break; - } - - /* Find out the source file and the line nearest to the address. */ - for (lineinfo = module->line_table; lineinfo; lineinfo = lineinfo->next) - if (lineinfo->next && addr < lineinfo->next->address) - { - for (srecinfo = module->srec_table; srecinfo; srecinfo = srecinfo->next) - if (srecinfo->next && lineinfo->line < srecinfo->next->line) - { - if (srecinfo->sfile > 0) - { - *file = module->file_table[srecinfo->sfile].name; - *line = srecinfo->srec + lineinfo->line - srecinfo->line; - } - else - { - *file = module->name; - *line = lineinfo->line; - } - return TRUE; - } - - break; - } - - return ret; -} - -/* 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 -_bfd_vms_find_nearest_dst_line (bfd *abfd, asection *section, - asymbol **symbols ATTRIBUTE_UNUSED, - bfd_vma offset, const char **file, - const char **func, unsigned int *line) -{ - struct module *module; - - /* What address are we looking for? */ - bfd_vma addr = section->vma + offset; - - *file = NULL; - *func = NULL; - *line = 0; - - /* We can't do anything if there is no DST (debug symbol table). */ - if (PRIV (dst_section) == NULL) - return FALSE; - - /* Create the module list - if not already done. */ - if (PRIV (modules) == NULL) - { - PRIV (modules) = build_module_list (abfd); - if (PRIV (modules) == NULL) - return FALSE; - } - - for (module = PRIV (modules); module; module = module->next) - if (addr >= module->low && addr <= module->high) - return module_find_nearest_line (abfd, module, addr, file, func, line); - - return FALSE; -} - -/* Likewise but with a discriminator. */ - -static bfd_boolean -_bfd_vms_find_nearest_line_discriminator (bfd *abfd, - asection *section, - asymbol **symbols, - bfd_vma offset, - const char **filename_ptr, - const char **functionname_ptr, - unsigned int *line_ptr, - unsigned int *discriminator) -{ - *discriminator = 0; - - return _bfd_vms_find_nearest_dst_line (abfd, section, symbols, offset, - filename_ptr, functionname_ptr, - line_ptr); -} - - -/* Canonicalizations. */ -/* Set name, value, section and flags of SYM from E. */ - -static bfd_boolean -alpha_vms_convert_symbol (bfd *abfd, struct vms_symbol_entry *e, asymbol *sym) -{ - flagword flags; - symvalue value; - asection *sec; - const char *name; - - name = e->name; - value = 0; - flags = BSF_NO_FLAGS; - sec = NULL; - - switch (e->typ) - { - case EGSD__C_SYM: - if (e->flags & EGSY__V_WEAK) - flags |= BSF_WEAK; - - if (e->flags & EGSY__V_DEF) - { - /* Symbol definition. */ - flags |= BSF_GLOBAL; - if (e->flags & EGSY__V_NORM) - flags |= BSF_FUNCTION; - value = e->value; - sec = e->section; - } - else - { - /* Symbol reference. */ - sec = bfd_und_section_ptr; - } - break; - - case EGSD__C_SYMG: - /* A universal symbol is by definition global... */ - flags |= BSF_GLOBAL; - - /* ...and dynamic in shared libraries. */ - if (abfd->flags & DYNAMIC) - flags |= BSF_DYNAMIC; - - if (e->flags & EGSY__V_WEAK) - flags |= BSF_WEAK; - - if (!(e->flags & EGSY__V_DEF)) - abort (); - - if (e->flags & EGSY__V_NORM) - flags |= BSF_FUNCTION; - - value = e->value; - /* sec = e->section; */ - sec = bfd_abs_section_ptr; - break; - - default: - return FALSE; - } - - sym->name = name; - sym->section = sec; - sym->flags = flags; - sym->value = value; - return TRUE; -} - - -/* 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 -alpha_vms_get_symtab_upper_bound (bfd *abfd) -{ - vms_debug2 ((1, "alpha_vms_get_symtab_upper_bound (%p), %d symbols\n", - abfd, PRIV (gsd_sym_count))); - - return (PRIV (gsd_sym_count) + 1) * sizeof (asymbol *); -} - -/* 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 -alpha_vms_canonicalize_symtab (bfd *abfd, asymbol **symbols) -{ - unsigned int i; - - vms_debug2 ((1, "alpha_vms_canonicalize_symtab (%p, <ret>)\n", abfd)); - - if (PRIV (csymbols) == NULL) - { - PRIV (csymbols) = (asymbol **) bfd_alloc - (abfd, PRIV (gsd_sym_count) * sizeof (asymbol *)); - - /* Traverse table and fill symbols vector. */ - for (i = 0; i < PRIV (gsd_sym_count); i++) - { - struct vms_symbol_entry *e = PRIV (syms)[i]; - asymbol *sym; - - sym = bfd_make_empty_symbol (abfd); - if (sym == NULL || !alpha_vms_convert_symbol (abfd, e, sym)) - { - bfd_release (abfd, PRIV (csymbols)); - PRIV (csymbols) = NULL; - return -1; - } - - PRIV (csymbols)[i] = sym; - } - } - - if (symbols != NULL) - { - for (i = 0; i < PRIV (gsd_sym_count); i++) - symbols[i] = PRIV (csymbols)[i]; - symbols[i] = NULL; - } - - return PRIV (gsd_sym_count); -} - -/* Read and convert relocations from ETIR. We do it once for all sections. */ - -static bfd_boolean -alpha_vms_slurp_relocs (bfd *abfd) -{ - int cur_psect = -1; - - vms_debug2 ((3, "alpha_vms_slurp_relocs\n")); - - /* We slurp relocs only once, for all sections. */ - if (PRIV (reloc_done)) - return TRUE; - PRIV (reloc_done) = TRUE; - - if (alpha_vms_canonicalize_symtab (abfd, NULL) < 0) - return FALSE; - - if (bfd_seek (abfd, 0, SEEK_SET) != 0) - return FALSE; - - while (1) - { - unsigned char *begin; - unsigned char *end; - unsigned char *ptr; - bfd_reloc_code_real_type reloc_code; - int type; - bfd_vma vaddr = 0; - - int length; - - bfd_vma cur_address; - int cur_psidx = -1; - unsigned char *cur_sym = NULL; - int prev_cmd = -1; - bfd_vma cur_addend = 0; - - /* Skip non-ETIR records. */ - type = _bfd_vms_get_object_record (abfd); - if (type == EOBJ__C_EEOM) - break; - if (type != EOBJ__C_ETIR) - continue; - - begin = PRIV (recrd.rec) + 4; - end = PRIV (recrd.rec) + PRIV (recrd.rec_size); - - for (ptr = begin; ptr < end; ptr += length) - { - int cmd; - - cmd = bfd_getl16 (ptr); - length = bfd_getl16 (ptr + 2); - - cur_address = vaddr; - - vms_debug2 ((4, "alpha_vms_slurp_relocs: etir %s\n", - _bfd_vms_etir_name (cmd))); - - switch (cmd) - { - case ETIR__C_STA_GBL: /* ALPHA_R_REFLONG und_section, step 1 */ - /* ALPHA_R_REFQUAD und_section, step 1 */ - cur_sym = ptr + 4; - prev_cmd = cmd; - continue; - - case ETIR__C_STA_PQ: /* ALPHA_R_REF{LONG|QUAD}, others part 1 */ - cur_psidx = bfd_getl32 (ptr + 4); - cur_addend = bfd_getl64 (ptr + 8); - prev_cmd = cmd; - continue; - - case ETIR__C_CTL_SETRB: - if (prev_cmd != ETIR__C_STA_PQ) - { - (*_bfd_error_handler) - (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (prev_cmd), - _bfd_vms_etir_name (cmd)); - return FALSE; - } - cur_psect = cur_psidx; - vaddr = cur_addend; - cur_psidx = -1; - cur_addend = 0; - continue; - - case ETIR__C_STA_LW: /* ALPHA_R_REFLONG abs_section, step 1 */ - /* ALPHA_R_REFLONG und_section, step 2 */ - if (prev_cmd != -1) - { - if (prev_cmd != ETIR__C_STA_GBL) - { - (*_bfd_error_handler) - (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd), - _bfd_vms_etir_name (ETIR__C_STA_LW)); - return FALSE; - } - } - cur_addend = bfd_getl32 (ptr + 4); - prev_cmd = cmd; - continue; - - case ETIR__C_STA_QW: /* ALPHA_R_REFQUAD abs_section, step 1 */ - /* ALPHA_R_REFQUAD und_section, step 2 */ - if (prev_cmd != -1 && prev_cmd != ETIR__C_STA_GBL) - { - (*_bfd_error_handler) - (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd), - _bfd_vms_etir_name (ETIR__C_STA_QW)); - return FALSE; - } - cur_addend = bfd_getl64 (ptr + 4); - prev_cmd = cmd; - continue; - - case ETIR__C_STO_LW: /* ALPHA_R_REFLONG und_section, step 4 */ - /* ALPHA_R_REFLONG abs_section, step 2 */ - /* ALPHA_R_REFLONG others, step 2 */ - if (prev_cmd != ETIR__C_OPR_ADD - && prev_cmd != ETIR__C_STA_LW - && prev_cmd != ETIR__C_STA_PQ) - { - (*_bfd_error_handler) (_("Unknown reloc %s + %s"), - _bfd_vms_etir_name (prev_cmd), - _bfd_vms_etir_name (ETIR__C_STO_LW)); - return FALSE; - } - reloc_code = BFD_RELOC_32; - break; - - case ETIR__C_STO_QW: /* ALPHA_R_REFQUAD und_section, step 4 */ - /* ALPHA_R_REFQUAD abs_section, step 2 */ - if (prev_cmd != ETIR__C_OPR_ADD && prev_cmd != ETIR__C_STA_QW) - { - (*_bfd_error_handler) (_("Unknown reloc %s + %s"), - _bfd_vms_etir_name (prev_cmd), - _bfd_vms_etir_name (ETIR__C_STO_QW)); - return FALSE; - } - reloc_code = BFD_RELOC_64; - break; - - case ETIR__C_STO_OFF: /* ALPHA_R_REFQUAD others, step 2 */ - if (prev_cmd != ETIR__C_STA_PQ) - { - (*_bfd_error_handler) (_("Unknown reloc %s + %s"), - _bfd_vms_etir_name (prev_cmd), - _bfd_vms_etir_name (ETIR__C_STO_OFF)); - return FALSE; - } - reloc_code = BFD_RELOC_64; - break; - - case ETIR__C_OPR_ADD: /* ALPHA_R_REFLONG und_section, step 3 */ - /* ALPHA_R_REFQUAD und_section, step 3 */ - if (prev_cmd != ETIR__C_STA_LW && prev_cmd != ETIR__C_STA_QW) - { - (*_bfd_error_handler) (_("Unknown reloc %s + %s"), - _bfd_vms_etir_name (prev_cmd), - _bfd_vms_etir_name (ETIR__C_OPR_ADD)); - return FALSE; - } - prev_cmd = ETIR__C_OPR_ADD; - continue; - - case ETIR__C_STO_CA: /* ALPHA_R_CODEADDR */ - reloc_code = BFD_RELOC_ALPHA_CODEADDR; - cur_sym = ptr + 4; - break; - - case ETIR__C_STO_GBL: /* ALPHA_R_REFQUAD und_section */ - reloc_code = BFD_RELOC_64; - cur_sym = ptr + 4; - break; - - case ETIR__C_STO_GBL_LW: /* ALPHA_R_REFLONG und_section */ - reloc_code = BFD_RELOC_32; - cur_sym = ptr + 4; - break; - - case ETIR__C_STC_LP_PSB: /* ALPHA_R_LINKAGE */ - reloc_code = BFD_RELOC_ALPHA_LINKAGE; - cur_sym = ptr + 8; - break; - - case ETIR__C_STC_NOP_GBL: /* ALPHA_R_NOP */ - reloc_code = BFD_RELOC_ALPHA_NOP; - goto call_reloc; - - case ETIR__C_STC_BSR_GBL: /* ALPHA_R_BSR */ - reloc_code = BFD_RELOC_ALPHA_BSR; - goto call_reloc; - - case ETIR__C_STC_LDA_GBL: /* ALPHA_R_LDA */ - reloc_code = BFD_RELOC_ALPHA_LDA; - goto call_reloc; - - case ETIR__C_STC_BOH_GBL: /* ALPHA_R_BOH */ - reloc_code = BFD_RELOC_ALPHA_BOH; - goto call_reloc; - - call_reloc: - cur_sym = ptr + 4 + 32; - cur_address = bfd_getl64 (ptr + 4 + 8); - cur_addend = bfd_getl64 (ptr + 4 + 24); - break; - - case ETIR__C_STO_IMM: - vaddr += bfd_getl32 (ptr + 4); - continue; - - default: - (*_bfd_error_handler) (_("Unknown reloc %s"), - _bfd_vms_etir_name (cmd)); - return FALSE; - } - - { - asection *sec; - struct vms_section_data_struct *vms_sec; - arelent *reloc; - - /* Get section to which the relocation applies. */ - if (cur_psect < 0 || cur_psect > (int)PRIV (section_count)) - { - (*_bfd_error_handler) (_("Invalid section index in ETIR")); - return FALSE; - } - - sec = PRIV (sections)[cur_psect]; - if (sec == bfd_abs_section_ptr) - { - (*_bfd_error_handler) (_("Relocation for non-REL psect")); - return FALSE; - } - - vms_sec = vms_section_data (sec); - - /* Allocate a reloc entry. */ - if (sec->reloc_count >= vms_sec->reloc_max) - { - if (vms_sec->reloc_max == 0) - { - vms_sec->reloc_max = 64; - sec->relocation = bfd_zmalloc - (vms_sec->reloc_max * sizeof (arelent)); - } - else - { - vms_sec->reloc_max *= 2; - sec->relocation = bfd_realloc - (sec->relocation, vms_sec->reloc_max * sizeof (arelent)); - } - } - reloc = &sec->relocation[sec->reloc_count]; - sec->reloc_count++; - - reloc->howto = bfd_reloc_type_lookup (abfd, reloc_code); - - if (cur_sym != NULL) - { - unsigned int j; - unsigned int symlen = *cur_sym; - asymbol **sym; - - /* Linear search. */ - symlen = *cur_sym; - cur_sym++; - sym = NULL; - - for (j = 0; j < PRIV (gsd_sym_count); j++) - if (PRIV (syms)[j]->namelen == symlen - && memcmp (PRIV (syms)[j]->name, cur_sym, symlen) == 0) - { - sym = &PRIV (csymbols)[j]; - break; - } - if (sym == NULL) - { - (*_bfd_error_handler) (_("Unknown symbol in command %s"), - _bfd_vms_etir_name (cmd)); - reloc->sym_ptr_ptr = NULL; - } - else - reloc->sym_ptr_ptr = sym; - } - else if (cur_psidx >= 0) - reloc->sym_ptr_ptr = - PRIV (sections)[cur_psidx]->symbol_ptr_ptr; - else - reloc->sym_ptr_ptr = NULL; - - reloc->address = cur_address; - reloc->addend = cur_addend; - - vaddr += bfd_get_reloc_size (reloc->howto); - } - - cur_addend = 0; - prev_cmd = -1; - cur_sym = NULL; - cur_psidx = -1; - } - } - vms_debug2 ((3, "alpha_vms_slurp_relocs: result = TRUE\n")); - - return TRUE; -} - -/* Return the number of bytes required to store the relocation - information associated with the given section. */ - -static long -alpha_vms_get_reloc_upper_bound (bfd *abfd ATTRIBUTE_UNUSED, asection *section) -{ - alpha_vms_slurp_relocs (abfd); - - return (section->reloc_count + 1) * sizeof (arelent *); -} - -/* Convert relocations from VMS (external) form into BFD internal - form. Return the number of relocations. */ - -static long -alpha_vms_canonicalize_reloc (bfd *abfd, asection *section, arelent **relptr, - asymbol **symbols ATTRIBUTE_UNUSED) -{ - arelent *tblptr; - int count; - - if (!alpha_vms_slurp_relocs (abfd)) - 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 * -alpha_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 * -alpha_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; -} - -static long -alpha_vms_get_synthetic_symtab (bfd *abfd, - long symcount ATTRIBUTE_UNUSED, - asymbol **usyms ATTRIBUTE_UNUSED, - long dynsymcount ATTRIBUTE_UNUSED, - asymbol **dynsyms ATTRIBUTE_UNUSED, - asymbol **ret) -{ - asymbol *syms; - unsigned int i; - unsigned int n = 0; - - syms = (asymbol *) bfd_malloc (PRIV (norm_sym_count) * sizeof (asymbol)); - *ret = syms; - if (syms == NULL) - return -1; - - for (i = 0; i < PRIV (gsd_sym_count); i++) - { - struct vms_symbol_entry *e = PRIV (syms)[i]; - asymbol *sym; - flagword flags; - symvalue value; - asection *sec; - const char *name; - char *sname; - int l; - - name = e->name; - value = 0; - flags = BSF_LOCAL | BSF_SYNTHETIC; - sec = NULL; - - switch (e->typ) - { - case EGSD__C_SYM: - case EGSD__C_SYMG: - if ((e->flags & EGSY__V_DEF) && (e->flags & EGSY__V_NORM)) - { - value = e->code_value; - sec = e->code_section; - } - else - continue; - break; - - default: - continue; - } - - l = strlen (name); - sname = bfd_alloc (abfd, l + 5); - if (sname == NULL) - return FALSE; - memcpy (sname, name, l); - memcpy (sname + l, "..en", 5); - - sym = &syms[n++]; - sym->name = sname; - sym->section = sec; - sym->flags = flags; - sym->value = value; - sym->udata.p = NULL; - } - - return n; -} - -/* Private dump. */ - -static const char * -vms_time_to_str (unsigned char *buf) -{ - time_t t = vms_rawtime_to_time_t (buf); - char *res = ctime (&t); - - if (!res) - res = "*invalid time*"; - else - res[24] = 0; - return res; -} - -static void -evax_bfd_print_emh (FILE *file, unsigned char *rec, unsigned int rec_len) -{ - struct vms_emh_common *emh = (struct vms_emh_common *)rec; - unsigned int subtype; - - subtype = (unsigned)bfd_getl16 (emh->subtyp); - - fprintf (file, _(" EMH %u (len=%u): "), subtype, rec_len); - - switch (subtype) - { - case EMH__C_MHD: - { - struct vms_emh_mhd *mhd = (struct vms_emh_mhd *)rec; - const char *name; - - fprintf (file, _("Module header\n")); - fprintf (file, _(" structure level: %u\n"), mhd->strlvl); - fprintf (file, _(" max record size: %u\n"), - (unsigned)bfd_getl32 (mhd->recsiz)); - name = (char *)(mhd + 1); - fprintf (file, _(" module name : %.*s\n"), name[0], name + 1); - name += name[0] + 1; - fprintf (file, _(" module version : %.*s\n"), name[0], name + 1); - name += name[0] + 1; - fprintf (file, _(" compile date : %.17s\n"), name); - } - break; - case EMH__C_LNM: - { - fprintf (file, _("Language Processor Name\n")); - fprintf (file, _(" language name: %.*s\n"), - (int)(rec_len - sizeof (struct vms_emh_common)), - (char *)rec + sizeof (struct vms_emh_common)); - } - break; - case EMH__C_SRC: - { - fprintf (file, _("Source Files Header\n")); - fprintf (file, _(" file: %.*s\n"), - (int)(rec_len - sizeof (struct vms_emh_common)), - (char *)rec + sizeof (struct vms_emh_common)); - } - break; - case EMH__C_TTL: - { - fprintf (file, _("Title Text Header\n")); - fprintf (file, _(" title: %.*s\n"), - (int)(rec_len - sizeof (struct vms_emh_common)), - (char *)rec + sizeof (struct vms_emh_common)); - } - break; - case EMH__C_CPR: - { - fprintf (file, _("Copyright Header\n")); - fprintf (file, _(" copyright: %.*s\n"), - (int)(rec_len - sizeof (struct vms_emh_common)), - (char *)rec + sizeof (struct vms_emh_common)); - } - break; - default: - fprintf (file, _("unhandled emh subtype %u\n"), subtype); - break; - } -} - -static void -evax_bfd_print_eeom (FILE *file, unsigned char *rec, unsigned int rec_len) -{ - struct vms_eeom *eeom = (struct vms_eeom *)rec; - - fprintf (file, _(" EEOM (len=%u):\n"), rec_len); - fprintf (file, _(" number of cond linkage pairs: %u\n"), - (unsigned)bfd_getl32 (eeom->total_lps)); - fprintf (file, _(" completion code: %u\n"), - (unsigned)bfd_getl16 (eeom->comcod)); - if (rec_len > 10) - { - fprintf (file, _(" transfer addr flags: 0x%02x\n"), eeom->tfrflg); - fprintf (file, _(" transfer addr psect: %u\n"), - (unsigned)bfd_getl32 (eeom->psindx)); - fprintf (file, _(" transfer address : 0x%08x\n"), - (unsigned)bfd_getl32 (eeom->tfradr)); - } -} - -static void -exav_bfd_print_egsy_flags (unsigned int flags, FILE *file) -{ - if (flags & EGSY__V_WEAK) - fputs (_(" WEAK"), file); - if (flags & EGSY__V_DEF) - fputs (_(" DEF"), file); - if (flags & EGSY__V_UNI) - fputs (_(" UNI"), file); - if (flags & EGSY__V_REL) - fputs (_(" REL"), file); - if (flags & EGSY__V_COMM) - fputs (_(" COMM"), file); - if (flags & EGSY__V_VECEP) - fputs (_(" VECEP"), file); - if (flags & EGSY__V_NORM) - fputs (_(" NORM"), file); - if (flags & EGSY__V_QUAD_VAL) - fputs (_(" QVAL"), file); -} - -static void -evax_bfd_print_egsd_flags (FILE *file, unsigned int flags) -{ - if (flags & EGPS__V_PIC) - fputs (_(" PIC"), file); - if (flags & EGPS__V_LIB) - fputs (_(" LIB"), file); - if (flags & EGPS__V_OVR) - fputs (_(" OVR"), file); - if (flags & EGPS__V_REL) - fputs (_(" REL"), file); - if (flags & EGPS__V_GBL) - fputs (_(" GBL"), file); - if (flags & EGPS__V_SHR) - fputs (_(" SHR"), file); - if (flags & EGPS__V_EXE) - fputs (_(" EXE"), file); - if (flags & EGPS__V_RD) - fputs (_(" RD"), file); - if (flags & EGPS__V_WRT) - fputs (_(" WRT"), file); - if (flags & EGPS__V_VEC) - fputs (_(" VEC"), file); - if (flags & EGPS__V_NOMOD) - fputs (_(" NOMOD"), file); - if (flags & EGPS__V_COM) - fputs (_(" COM"), file); - if (flags & EGPS__V_ALLOC_64BIT) - fputs (_(" 64B"), file); -} - -static void -evax_bfd_print_egsd (FILE *file, unsigned char *rec, unsigned int rec_len) -{ - unsigned int off = sizeof (struct vms_egsd); - unsigned int n; - - fprintf (file, _(" EGSD (len=%u):\n"), rec_len); - - n = 0; - for (off = sizeof (struct vms_egsd); off < rec_len; ) - { - struct vms_egsd_entry *e = (struct vms_egsd_entry *)(rec + off); - unsigned int type; - unsigned int len; - - type = (unsigned)bfd_getl16 (e->gsdtyp); - len = (unsigned)bfd_getl16 (e->gsdsiz); - - fprintf (file, _(" EGSD entry %2u (type: %u, len: %u): "), - n, type, len); - n++; - - switch (type) - { - case EGSD__C_PSC: - { - struct vms_egps *egps = (struct vms_egps *)e; - unsigned int flags = bfd_getl16 (egps->flags); - unsigned int l; - - fprintf (file, _("PSC - Program section definition\n")); - fprintf (file, _(" alignment : 2**%u\n"), egps->align); - fprintf (file, _(" flags : 0x%04x"), flags); - evax_bfd_print_egsd_flags (file, flags); - fputc ('\n', file); - l = bfd_getl32 (egps->alloc); - fprintf (file, _(" alloc (len): %u (0x%08x)\n"), l, l); - fprintf (file, _(" name : %.*s\n"), - egps->namlng, egps->name); - } - break; - case EGSD__C_SPSC: - { - struct vms_esgps *esgps = (struct vms_esgps *)e; - unsigned int flags = bfd_getl16 (esgps->flags); - unsigned int l; - - fprintf (file, _("SPSC - Shared Image Program section def\n")); - fprintf (file, _(" alignment : 2**%u\n"), esgps->align); - fprintf (file, _(" flags : 0x%04x"), flags); - evax_bfd_print_egsd_flags (file, flags); - fputc ('\n', file); - l = bfd_getl32 (esgps->alloc); - fprintf (file, _(" alloc (len) : %u (0x%08x)\n"), l, l); - fprintf (file, _(" image offset : 0x%08x\n"), - (unsigned int)bfd_getl32 (esgps->base)); - fprintf (file, _(" symvec offset : 0x%08x\n"), - (unsigned int)bfd_getl32 (esgps->value)); - fprintf (file, _(" name : %.*s\n"), - esgps->namlng, esgps->name); - } - break; - case EGSD__C_SYM: - { - struct vms_egsy *egsy = (struct vms_egsy *)e; - unsigned int flags = bfd_getl16 (egsy->flags); - - if (flags & EGSY__V_DEF) - { - struct vms_esdf *esdf = (struct vms_esdf *)e; - - fprintf (file, _("SYM - Global symbol definition\n")); - fprintf (file, _(" flags: 0x%04x"), flags); - exav_bfd_print_egsy_flags (flags, file); - fputc ('\n', file); - fprintf (file, _(" psect offset: 0x%08x\n"), - (unsigned)bfd_getl32 (esdf->value)); - if (flags & EGSY__V_NORM) - { - fprintf (file, _(" code address: 0x%08x\n"), - (unsigned)bfd_getl32 (esdf->code_address)); - fprintf (file, _(" psect index for entry point : %u\n"), - (unsigned)bfd_getl32 (esdf->ca_psindx)); - } - fprintf (file, _(" psect index : %u\n"), - (unsigned)bfd_getl32 (esdf->psindx)); - fprintf (file, _(" name : %.*s\n"), - esdf->namlng, esdf->name); - } - else - { - struct vms_esrf *esrf = (struct vms_esrf *)e; - - fprintf (file, _("SYM - Global symbol reference\n")); - fprintf (file, _(" name : %.*s\n"), - esrf->namlng, esrf->name); - } - } - break; - case EGSD__C_IDC: - { - struct vms_eidc *eidc = (struct vms_eidc *)e; - unsigned int flags = bfd_getl32 (eidc->flags); - unsigned char *p; - - fprintf (file, _("IDC - Ident Consistency check\n")); - fprintf (file, _(" flags : 0x%08x"), flags); - if (flags & EIDC__V_BINIDENT) - fputs (" BINDENT", file); - fputc ('\n', file); - fprintf (file, _(" id match : %x\n"), - (flags >> EIDC__V_IDMATCH_SH) & EIDC__V_IDMATCH_MASK); - fprintf (file, _(" error severity: %x\n"), - (flags >> EIDC__V_ERRSEV_SH) & EIDC__V_ERRSEV_MASK); - p = eidc->name; - fprintf (file, _(" entity name : %.*s\n"), p[0], p + 1); - p += 1 + p[0]; - fprintf (file, _(" object name : %.*s\n"), p[0], p + 1); - p += 1 + p[0]; - if (flags & EIDC__V_BINIDENT) - fprintf (file, _(" binary ident : 0x%08x\n"), - (unsigned)bfd_getl32 (p + 1)); - else - fprintf (file, _(" ascii ident : %.*s\n"), p[0], p + 1); - } - break; - case EGSD__C_SYMG: - { - struct vms_egst *egst = (struct vms_egst *)e; - unsigned int flags = bfd_getl16 (egst->header.flags); - - fprintf (file, _("SYMG - Universal symbol definition\n")); - fprintf (file, _(" flags: 0x%04x"), flags); - exav_bfd_print_egsy_flags (flags, file); - fputc ('\n', file); - fprintf (file, _(" symbol vector offset: 0x%08x\n"), - (unsigned)bfd_getl32 (egst->value)); - fprintf (file, _(" entry point: 0x%08x\n"), - (unsigned)bfd_getl32 (egst->lp_1)); - fprintf (file, _(" proc descr : 0x%08x\n"), - (unsigned)bfd_getl32 (egst->lp_2)); - fprintf (file, _(" psect index: %u\n"), - (unsigned)bfd_getl32 (egst->psindx)); - fprintf (file, _(" name : %.*s\n"), - egst->namlng, egst->name); - } - break; - case EGSD__C_SYMV: - { - struct vms_esdfv *esdfv = (struct vms_esdfv *)e; - unsigned int flags = bfd_getl16 (esdfv->flags); - - fprintf (file, _("SYMV - Vectored symbol definition\n")); - fprintf (file, _(" flags: 0x%04x"), flags); - exav_bfd_print_egsy_flags (flags, file); - fputc ('\n', file); - fprintf (file, _(" vector : 0x%08x\n"), - (unsigned)bfd_getl32 (esdfv->vector)); - fprintf (file, _(" psect offset: %u\n"), - (unsigned)bfd_getl32 (esdfv->value)); - fprintf (file, _(" psect index : %u\n"), - (unsigned)bfd_getl32 (esdfv->psindx)); - fprintf (file, _(" name : %.*s\n"), - esdfv->namlng, esdfv->name); - } - break; - case EGSD__C_SYMM: - { - struct vms_esdfm *esdfm = (struct vms_esdfm *)e; - unsigned int flags = bfd_getl16 (esdfm->flags); - - fprintf (file, _("SYMM - Global symbol definition with version\n")); - fprintf (file, _(" flags: 0x%04x"), flags); - exav_bfd_print_egsy_flags (flags, file); - fputc ('\n', file); - fprintf (file, _(" version mask: 0x%08x\n"), - (unsigned)bfd_getl32 (esdfm->version_mask)); - fprintf (file, _(" psect offset: %u\n"), - (unsigned)bfd_getl32 (esdfm->value)); - fprintf (file, _(" psect index : %u\n"), - (unsigned)bfd_getl32 (esdfm->psindx)); - fprintf (file, _(" name : %.*s\n"), - esdfm->namlng, esdfm->name); - } - break; - default: - fprintf (file, _("unhandled egsd entry type %u\n"), type); - break; - } - off += len; - } -} - -static void -evax_bfd_print_hex (FILE *file, const char *pfx, - const unsigned char *buf, unsigned int len) -{ - unsigned int i; - unsigned int n; - - n = 0; - for (i = 0; i < len; i++) - { - if (n == 0) - fputs (pfx, file); - fprintf (file, " %02x", buf[i]); - n++; - if (n == 16) - { - n = 0; - fputc ('\n', file); - } - } - if (n != 0) - fputc ('\n', file); -} - -static void -evax_bfd_print_etir_stc_ir (FILE *file, const unsigned char *buf, int is_ps) -{ - fprintf (file, _(" linkage index: %u, replacement insn: 0x%08x\n"), - (unsigned)bfd_getl32 (buf), - (unsigned)bfd_getl32 (buf + 16)); - fprintf (file, _(" psect idx 1: %u, offset 1: 0x%08x %08x\n"), - (unsigned)bfd_getl32 (buf + 4), - (unsigned)bfd_getl32 (buf + 12), - (unsigned)bfd_getl32 (buf + 8)); - fprintf (file, _(" psect idx 2: %u, offset 2: 0x%08x %08x\n"), - (unsigned)bfd_getl32 (buf + 20), - (unsigned)bfd_getl32 (buf + 28), - (unsigned)bfd_getl32 (buf + 24)); - if (is_ps) - fprintf (file, _(" psect idx 3: %u, offset 3: 0x%08x %08x\n"), - (unsigned)bfd_getl32 (buf + 32), - (unsigned)bfd_getl32 (buf + 40), - (unsigned)bfd_getl32 (buf + 36)); - else - fprintf (file, _(" global name: %.*s\n"), buf[32], buf + 33); -} - -static void -evax_bfd_print_etir (FILE *file, const char *name, - unsigned char *rec, unsigned int rec_len) -{ - unsigned int off = sizeof (struct vms_egsd); - unsigned int sec_len = 0; - - fprintf (file, _(" %s (len=%u+%u):\n"), name, - (unsigned)(rec_len - sizeof (struct vms_eobjrec)), - (unsigned)sizeof (struct vms_eobjrec)); - - for (off = sizeof (struct vms_eobjrec); off < rec_len; ) - { - struct vms_etir *etir = (struct vms_etir *)(rec + off); - unsigned char *buf; - unsigned int type; - unsigned int size; - - type = bfd_getl16 (etir->rectyp); - size = bfd_getl16 (etir->size); - buf = rec + off + sizeof (struct vms_etir); - - fprintf (file, _(" (type: %3u, size: 4+%3u): "), type, size - 4); - switch (type) - { - case ETIR__C_STA_GBL: - fprintf (file, _("STA_GBL (stack global) %.*s\n"), - buf[0], buf + 1); - break; - case ETIR__C_STA_LW: - fprintf (file, _("STA_LW (stack longword) 0x%08x\n"), - (unsigned)bfd_getl32 (buf)); - break; - case ETIR__C_STA_QW: - fprintf (file, _("STA_QW (stack quadword) 0x%08x %08x\n"), - (unsigned)bfd_getl32 (buf + 4), - (unsigned)bfd_getl32 (buf + 0)); - break; - case ETIR__C_STA_PQ: - fprintf (file, _("STA_PQ (stack psect base + offset)\n")); - fprintf (file, _(" psect: %u, offset: 0x%08x %08x\n"), - (unsigned)bfd_getl32 (buf + 0), - (unsigned)bfd_getl32 (buf + 8), - (unsigned)bfd_getl32 (buf + 4)); - break; - case ETIR__C_STA_LI: - fprintf (file, _("STA_LI (stack literal)\n")); - break; - case ETIR__C_STA_MOD: - fprintf (file, _("STA_MOD (stack module)\n")); - break; - case ETIR__C_STA_CKARG: - fprintf (file, _("STA_CKARG (compare procedure argument)\n")); - break; - - case ETIR__C_STO_B: - fprintf (file, _("STO_B (store byte)\n")); - break; - case ETIR__C_STO_W: - fprintf (file, _("STO_W (store word)\n")); - break; - case ETIR__C_STO_LW: - fprintf (file, _("STO_LW (store longword)\n")); - break; - case ETIR__C_STO_QW: - fprintf (file, _("STO_QW (store quadword)\n")); - break; - case ETIR__C_STO_IMMR: - { - unsigned int len = bfd_getl32 (buf); - fprintf (file, - _("STO_IMMR (store immediate repeat) %u bytes\n"), - len); - evax_bfd_print_hex (file, " ", buf + 4, len); - sec_len += len; - } - break; - case ETIR__C_STO_GBL: - fprintf (file, _("STO_GBL (store global) %.*s\n"), - buf[0], buf + 1); - break; - case ETIR__C_STO_CA: - fprintf (file, _("STO_CA (store code address) %.*s\n"), - buf[0], buf + 1); - break; - case ETIR__C_STO_RB: - fprintf (file, _("STO_RB (store relative branch)\n")); - break; - case ETIR__C_STO_AB: - fprintf (file, _("STO_AB (store absolute branch)\n")); - break; - case ETIR__C_STO_OFF: - fprintf (file, _("STO_OFF (store offset to psect)\n")); - break; - case ETIR__C_STO_IMM: - { - unsigned int len = bfd_getl32 (buf); - fprintf (file, - _("STO_IMM (store immediate) %u bytes\n"), - len); - evax_bfd_print_hex (file, " ", buf + 4, len); - sec_len += len; - } - break; - case ETIR__C_STO_GBL_LW: - fprintf (file, _("STO_GBL_LW (store global longword) %.*s\n"), - buf[0], buf + 1); - break; - case ETIR__C_STO_LP_PSB: - fprintf (file, _("STO_OFF (store LP with procedure signature)\n")); - break; - case ETIR__C_STO_HINT_GBL: - fprintf (file, _("STO_BR_GBL (store branch global) *todo*\n")); - break; - case ETIR__C_STO_HINT_PS: - fprintf (file, _("STO_BR_PS (store branch psect + offset) *todo*\n")); - break; - - case ETIR__C_OPR_NOP: - fprintf (file, _("OPR_NOP (no-operation)\n")); - break; - case ETIR__C_OPR_ADD: - fprintf (file, _("OPR_ADD (add)\n")); - break; - case ETIR__C_OPR_SUB: - fprintf (file, _("OPR_SUB (substract)\n")); - break; - case ETIR__C_OPR_MUL: - fprintf (file, _("OPR_MUL (multiply)\n")); - break; - case ETIR__C_OPR_DIV: - fprintf (file, _("OPR_DIV (divide)\n")); - break; - case ETIR__C_OPR_AND: - fprintf (file, _("OPR_AND (logical and)\n")); - break; - case ETIR__C_OPR_IOR: - fprintf (file, _("OPR_IOR (logical inclusive or)\n")); - break; - case ETIR__C_OPR_EOR: - fprintf (file, _("OPR_EOR (logical exclusive or)\n")); - break; - case ETIR__C_OPR_NEG: - fprintf (file, _("OPR_NEG (negate)\n")); - break; - case ETIR__C_OPR_COM: - fprintf (file, _("OPR_COM (complement)\n")); - break; - case ETIR__C_OPR_INSV: - fprintf (file, _("OPR_INSV (insert field)\n")); - break; - case ETIR__C_OPR_ASH: - fprintf (file, _("OPR_ASH (arithmetic shift)\n")); - break; - case ETIR__C_OPR_USH: - fprintf (file, _("OPR_USH (unsigned shift)\n")); - break; - case ETIR__C_OPR_ROT: - fprintf (file, _("OPR_ROT (rotate)\n")); - break; - case ETIR__C_OPR_SEL: - fprintf (file, _("OPR_SEL (select)\n")); - break; - case ETIR__C_OPR_REDEF: - fprintf (file, _("OPR_REDEF (redefine symbol to curr location)\n")); - break; - case ETIR__C_OPR_DFLIT: - fprintf (file, _("OPR_REDEF (define a literal)\n")); - break; - - case ETIR__C_STC_LP: - fprintf (file, _("STC_LP (store cond linkage pair)\n")); - break; - case ETIR__C_STC_LP_PSB: - fprintf (file, - _("STC_LP_PSB (store cond linkage pair + signature)\n")); - fprintf (file, _(" linkage index: %u, procedure: %.*s\n"), - (unsigned)bfd_getl32 (buf), buf[4], buf + 5); - buf += 4 + 1 + buf[4]; - fprintf (file, _(" signature: %.*s\n"), buf[0], buf + 1); - break; - case ETIR__C_STC_GBL: - fprintf (file, _("STC_GBL (store cond global)\n")); - fprintf (file, _(" linkage index: %u, global: %.*s\n"), - (unsigned)bfd_getl32 (buf), buf[4], buf + 5); - break; - case ETIR__C_STC_GCA: - fprintf (file, _("STC_GCA (store cond code address)\n")); - fprintf (file, _(" linkage index: %u, procedure name: %.*s\n"), - (unsigned)bfd_getl32 (buf), buf[4], buf + 5); - break; - case ETIR__C_STC_PS: - fprintf (file, _("STC_PS (store cond psect + offset)\n")); - fprintf (file, - _(" linkage index: %u, psect: %u, offset: 0x%08x %08x\n"), - (unsigned)bfd_getl32 (buf), - (unsigned)bfd_getl32 (buf + 4), - (unsigned)bfd_getl32 (buf + 12), - (unsigned)bfd_getl32 (buf + 8)); - break; - case ETIR__C_STC_NOP_GBL: - fprintf (file, _("STC_NOP_GBL (store cond NOP at global addr)\n")); - evax_bfd_print_etir_stc_ir (file, buf, 0); - break; - case ETIR__C_STC_NOP_PS: - fprintf (file, _("STC_NOP_PS (store cond NOP at psect + offset)\n")); - evax_bfd_print_etir_stc_ir (file, buf, 1); - break; - case ETIR__C_STC_BSR_GBL: - fprintf (file, _("STC_BSR_GBL (store cond BSR at global addr)\n")); - evax_bfd_print_etir_stc_ir (file, buf, 0); - break; - case ETIR__C_STC_BSR_PS: - fprintf (file, _("STC_BSR_PS (store cond BSR at psect + offset)\n")); - evax_bfd_print_etir_stc_ir (file, buf, 1); - break; - case ETIR__C_STC_LDA_GBL: - fprintf (file, _("STC_LDA_GBL (store cond LDA at global addr)\n")); - evax_bfd_print_etir_stc_ir (file, buf, 0); - break; - case ETIR__C_STC_LDA_PS: - fprintf (file, _("STC_LDA_PS (store cond LDA at psect + offset)\n")); - evax_bfd_print_etir_stc_ir (file, buf, 1); - break; - case ETIR__C_STC_BOH_GBL: - fprintf (file, _("STC_BOH_GBL (store cond BOH at global addr)\n")); - evax_bfd_print_etir_stc_ir (file, buf, 0); - break; - case ETIR__C_STC_BOH_PS: - fprintf (file, _("STC_BOH_PS (store cond BOH at psect + offset)\n")); - evax_bfd_print_etir_stc_ir (file, buf, 1); - break; - case ETIR__C_STC_NBH_GBL: - fprintf (file, - _("STC_NBH_GBL (store cond or hint at global addr)\n")); - break; - case ETIR__C_STC_NBH_PS: - fprintf (file, - _("STC_NBH_PS (store cond or hint at psect + offset)\n")); - break; - - case ETIR__C_CTL_SETRB: - fprintf (file, _("CTL_SETRB (set relocation base)\n")); - sec_len += 4; - break; - case ETIR__C_CTL_AUGRB: - { - unsigned int val = bfd_getl32 (buf); - fprintf (file, _("CTL_AUGRB (augment relocation base) %u\n"), val); - } - break; - case ETIR__C_CTL_DFLOC: - fprintf (file, _("CTL_DFLOC (define location)\n")); - break; - case ETIR__C_CTL_STLOC: - fprintf (file, _("CTL_STLOC (set location)\n")); - break; - case ETIR__C_CTL_STKDL: - fprintf (file, _("CTL_STKDL (stack defined location)\n")); - break; - default: - fprintf (file, _("*unhandled*\n")); - break; - } - off += size; - } -} - -static void -evax_bfd_print_eobj (struct bfd *abfd, FILE *file) -{ - bfd_boolean is_first = TRUE; - bfd_boolean has_records = FALSE; - - while (1) - { - unsigned int rec_len; - unsigned int pad_len; - unsigned char *rec; - unsigned int hdr_size; - unsigned int type; - - if (is_first) - { - unsigned char buf[6]; - - is_first = FALSE; - - /* Read 6 bytes. */ - if (bfd_bread (buf, sizeof (buf), abfd) != sizeof (buf)) - { - fprintf (file, _("cannot read GST record length\n")); - return; - } - rec_len = bfd_getl16 (buf + 0); - if (rec_len == bfd_getl16 (buf + 4) - && bfd_getl16 (buf + 2) == EOBJ__C_EMH) - { - /* The format is raw: record-size, type, record-size. */ - has_records = TRUE; - pad_len = (rec_len + 1) & ~1U; - hdr_size = 4; - } - else if (rec_len == EOBJ__C_EMH) - { - has_records = FALSE; - pad_len = bfd_getl16 (buf + 2); - hdr_size = 6; - } - else - { - /* Ill-formed. */ - fprintf (file, _("cannot find EMH in first GST record\n")); - return; - } - rec = bfd_malloc (pad_len); - memcpy (rec, buf + sizeof (buf) - hdr_size, hdr_size); - } - else - { - unsigned int rec_len2 = 0; - unsigned char hdr[4]; - - if (has_records) - { - unsigned char buf_len[2]; - - if (bfd_bread (buf_len, sizeof (buf_len), abfd) - != sizeof (buf_len)) - { - fprintf (file, _("cannot read GST record length\n")); - return; - } - rec_len2 = (unsigned)bfd_getl16 (buf_len); - } - - if (bfd_bread (hdr, sizeof (hdr), abfd) != sizeof (hdr)) - { - fprintf (file, _("cannot read GST record header\n")); - return; - } - rec_len = (unsigned)bfd_getl16 (hdr + 2); - if (has_records) - pad_len = (rec_len + 1) & ~1U; - else - pad_len = rec_len; - rec = bfd_malloc (pad_len); - memcpy (rec, hdr, sizeof (hdr)); - hdr_size = sizeof (hdr); - if (has_records && rec_len2 != rec_len) - { - fprintf (file, _(" corrupted GST\n")); - break; - } - } - - if (bfd_bread (rec + hdr_size, pad_len - hdr_size, abfd) - != pad_len - hdr_size) - { - fprintf (file, _("cannot read GST record\n")); - return; - } - - type = (unsigned)bfd_getl16 (rec); - - switch (type) - { - case EOBJ__C_EMH: - evax_bfd_print_emh (file, rec, rec_len); - break; - case EOBJ__C_EGSD: - evax_bfd_print_egsd (file, rec, rec_len); - break; - case EOBJ__C_EEOM: - evax_bfd_print_eeom (file, rec, rec_len); - free (rec); - return; - break; - case EOBJ__C_ETIR: - evax_bfd_print_etir (file, "ETIR", rec, rec_len); - break; - case EOBJ__C_EDBG: - evax_bfd_print_etir (file, "EDBG", rec, rec_len); - break; - case EOBJ__C_ETBT: - evax_bfd_print_etir (file, "ETBT", rec, rec_len); - break; - default: - fprintf (file, _(" unhandled EOBJ record type %u\n"), type); - break; - } - free (rec); - } -} - -static void -evax_bfd_print_relocation_records (FILE *file, const unsigned char *rel, - unsigned int stride) -{ - while (1) - { - unsigned int base; - unsigned int count; - unsigned int j; - - count = bfd_getl32 (rel + 0); - - if (count == 0) - break; - base = bfd_getl32 (rel + 4); - - fprintf (file, _(" bitcount: %u, base addr: 0x%08x\n"), - count, base); - - rel += 8; - for (j = 0; count > 0; j += 4, count -= 32) - { - unsigned int k; - unsigned int n = 0; - unsigned int val; - - val = bfd_getl32 (rel); - rel += 4; - - fprintf (file, _(" bitmap: 0x%08x (count: %u):\n"), val, count); - - for (k = 0; k < 32; k++) - if (val & (1 << k)) - { - if (n == 0) - fputs (" ", file); - fprintf (file, _(" %08x"), base + (j * 8 + k) * stride); - n++; - if (n == 8) - { - fputs ("\n", file); - n = 0; - } - } - if (n) - fputs ("\n", file); - } - } -} - -static void -evax_bfd_print_address_fixups (FILE *file, const unsigned char *rel) -{ - while (1) - { - unsigned int j; - unsigned int count; - - count = bfd_getl32 (rel + 0); - if (count == 0) - return; - fprintf (file, _(" image %u (%u entries)\n"), - (unsigned)bfd_getl32 (rel + 4), count); - rel += 8; - for (j = 0; j < count; j++) - { - fprintf (file, _(" offset: 0x%08x, val: 0x%08x\n"), - (unsigned)bfd_getl32 (rel + 0), - (unsigned)bfd_getl32 (rel + 4)); - rel += 8; - } - } -} - -static void -evax_bfd_print_reference_fixups (FILE *file, const unsigned char *rel) -{ - unsigned int count; - - while (1) - { - unsigned int j; - unsigned int n = 0; - - count = bfd_getl32 (rel + 0); - if (count == 0) - break; - fprintf (file, _(" image %u (%u entries), offsets:\n"), - (unsigned)bfd_getl32 (rel + 4), count); - rel += 8; - for (j = 0; j < count; j++) - { - if (n == 0) - fputs (" ", file); - fprintf (file, _(" 0x%08x"), (unsigned)bfd_getl32 (rel)); - n++; - if (n == 7) - { - fputs ("\n", file); - n = 0; - } - rel += 4; - } - if (n) - fputs ("\n", file); - } -} - -static void -evax_bfd_print_indent (int indent, FILE *file) -{ - for (; indent; indent--) - fputc (' ', file); -} - -static const char * -evax_bfd_get_dsc_name (unsigned int v) -{ - switch (v) - { - case DSC__K_DTYPE_Z: - return "Z (Unspecified)"; - case DSC__K_DTYPE_V: - return "V (Bit)"; - case DSC__K_DTYPE_BU: - return "BU (Byte logical)"; - case DSC__K_DTYPE_WU: - return "WU (Word logical)"; - case DSC__K_DTYPE_LU: - return "LU (Longword logical)"; - case DSC__K_DTYPE_QU: - return "QU (Quadword logical)"; - case DSC__K_DTYPE_B: - return "B (Byte integer)"; - case DSC__K_DTYPE_W: - return "W (Word integer)"; - case DSC__K_DTYPE_L: - return "L (Longword integer)"; - case DSC__K_DTYPE_Q: - return "Q (Quadword integer)"; - case DSC__K_DTYPE_F: - return "F (Single-precision floating)"; - case DSC__K_DTYPE_D: - return "D (Double-precision floating)"; - case DSC__K_DTYPE_FC: - return "FC (Complex)"; - case DSC__K_DTYPE_DC: - return "DC (Double-precision Complex)"; - case DSC__K_DTYPE_T: - return "T (ASCII text string)"; - case DSC__K_DTYPE_NU: - return "NU (Numeric string, unsigned)"; - case DSC__K_DTYPE_NL: - return "NL (Numeric string, left separate sign)"; - case DSC__K_DTYPE_NLO: - return "NLO (Numeric string, left overpunched sign)"; - case DSC__K_DTYPE_NR: - return "NR (Numeric string, right separate sign)"; - case DSC__K_DTYPE_NRO: - return "NRO (Numeric string, right overpunched sig)"; - case DSC__K_DTYPE_NZ: - return "NZ (Numeric string, zoned sign)"; - case DSC__K_DTYPE_P: - return "P (Packed decimal string)"; - case DSC__K_DTYPE_ZI: - return "ZI (Sequence of instructions)"; - case DSC__K_DTYPE_ZEM: - return "ZEM (Procedure entry mask)"; - case DSC__K_DTYPE_DSC: - return "DSC (Descriptor, used for arrays of dyn strings)"; - case DSC__K_DTYPE_OU: - return "OU (Octaword logical)"; - case DSC__K_DTYPE_O: - return "O (Octaword integer)"; - case DSC__K_DTYPE_G: - return "G (Double precision G floating, 64 bit)"; - case DSC__K_DTYPE_H: - return "H (Quadruple precision floating, 128 bit)"; - case DSC__K_DTYPE_GC: - return "GC (Double precision complex, G floating)"; - case DSC__K_DTYPE_HC: - return "HC (Quadruple precision complex, H floating)"; - case DSC__K_DTYPE_CIT: - return "CIT (COBOL intermediate temporary)"; - case DSC__K_DTYPE_BPV: - return "BPV (Bound Procedure Value)"; - case DSC__K_DTYPE_BLV: - return "BLV (Bound Label Value)"; - case DSC__K_DTYPE_VU: - return "VU (Bit Unaligned)"; - case DSC__K_DTYPE_ADT: - return "ADT (Absolute Date-Time)"; - case DSC__K_DTYPE_VT: - return "VT (Varying Text)"; - case DSC__K_DTYPE_T2: - return "T2 (16-bit char)"; - case DSC__K_DTYPE_VT2: - return "VT2 (16-bit varying char)"; - default: - return "?? (unknown)"; - } -} - -static void -evax_bfd_print_desc (const unsigned char *buf, int indent, FILE *file) -{ - unsigned char bclass = buf[3]; - unsigned char dtype = buf[2]; - unsigned int len = (unsigned)bfd_getl16 (buf); - unsigned int pointer = (unsigned)bfd_getl32 (buf + 4); - - evax_bfd_print_indent (indent, file); - - if (len == 1 && pointer == 0xffffffffUL) - { - /* 64 bits. */ - fprintf (file, _("64 bits *unhandled*\n")); - } - else - { - fprintf (file, _("class: %u, dtype: %u, length: %u, pointer: 0x%08x\n"), - bclass, dtype, len, pointer); - switch (bclass) - { - case DSC__K_CLASS_NCA: - { - const struct vms_dsc_nca *dsc = (const void *)buf; - unsigned int i; - const unsigned char *b; - - evax_bfd_print_indent (indent, file); - fprintf (file, _("non-contiguous array of %s\n"), - evax_bfd_get_dsc_name (dsc->dtype)); - evax_bfd_print_indent (indent + 1, file); - fprintf (file, - _("dimct: %u, aflags: 0x%02x, digits: %u, scale: %u\n"), - dsc->dimct, dsc->aflags, dsc->digits, dsc->scale); - evax_bfd_print_indent (indent + 1, file); - fprintf (file, - _("arsize: %u, a0: 0x%08x\n"), - (unsigned)bfd_getl32 (dsc->arsize), - (unsigned)bfd_getl32 (dsc->a0)); - evax_bfd_print_indent (indent + 1, file); - fprintf (file, _("Strides:\n")); - b = buf + sizeof (*dsc); - for (i = 0; i < dsc->dimct; i++) - { - evax_bfd_print_indent (indent + 2, file); - fprintf (file, _("[%u]: %u\n"), i + 1, - (unsigned)bfd_getl32 (b)); - b += 4; - } - evax_bfd_print_indent (indent + 1, file); - fprintf (file, _("Bounds:\n")); - b = buf + sizeof (*dsc); - for (i = 0; i < dsc->dimct; i++) - { - evax_bfd_print_indent (indent + 2, file); - fprintf (file, _("[%u]: Lower: %u, upper: %u\n"), i + 1, - (unsigned)bfd_getl32 (b + 0), - (unsigned)bfd_getl32 (b + 4)); - b += 8; - } - } - break; - case DSC__K_CLASS_UBS: - { - const struct vms_dsc_ubs *ubs = (const void *)buf; - - evax_bfd_print_indent (indent, file); - fprintf (file, _("unaligned bit-string of %s\n"), - evax_bfd_get_dsc_name (ubs->dtype)); - evax_bfd_print_indent (indent + 1, file); - fprintf (file, - _("base: %u, pos: %u\n"), - (unsigned)bfd_getl32 (ubs->base), - (unsigned)bfd_getl32 (ubs->pos)); - } - break; - default: - fprintf (file, _("*unhandled*\n")); - break; - } - } -} - -static unsigned int -evax_bfd_print_valspec (const unsigned char *buf, int indent, FILE *file) -{ - unsigned int vflags = buf[0]; - unsigned int value = (unsigned)bfd_getl32 (buf + 1); - unsigned int len = 5; - - evax_bfd_print_indent (indent, file); - fprintf (file, _("vflags: 0x%02x, value: 0x%08x "), vflags, value); - buf += 5; - - switch (vflags) - { - case DST__K_VFLAGS_NOVAL: - fprintf (file, _("(no value)\n")); - break; - case DST__K_VFLAGS_NOTACTIVE: - fprintf (file, _("(not active)\n")); - break; - case DST__K_VFLAGS_UNALLOC: - fprintf (file, _("(not allocated)\n")); - break; - case DST__K_VFLAGS_DSC: - fprintf (file, _("(descriptor)\n")); - evax_bfd_print_desc (buf + value, indent + 1, file); - break; - case DST__K_VFLAGS_TVS: - fprintf (file, _("(trailing value)\n")); - break; - case DST__K_VS_FOLLOWS: - fprintf (file, _("(value spec follows)\n")); - break; - case DST__K_VFLAGS_BITOFFS: - fprintf (file, _("(at bit offset %u)\n"), value); - break; - default: - fprintf (file, _("(reg: %u, disp: %u, indir: %u, kind: "), - (vflags & DST__K_REGNUM_MASK) >> DST__K_REGNUM_SHIFT, - vflags & DST__K_DISP ? 1 : 0, - vflags & DST__K_INDIR ? 1 : 0); - switch (vflags & DST__K_VALKIND_MASK) - { - case DST__K_VALKIND_LITERAL: - fputs (_("literal"), file); - break; - case DST__K_VALKIND_ADDR: - fputs (_("address"), file); - break; - case DST__K_VALKIND_DESC: - fputs (_("desc"), file); - break; - case DST__K_VALKIND_REG: - fputs (_("reg"), file); - break; - } - fputs (")\n", file); - break; - } - return len; -} - -static void -evax_bfd_print_typspec (const unsigned char *buf, int indent, FILE *file) -{ - unsigned char kind = buf[2]; - unsigned int len = (unsigned)bfd_getl16 (buf); - - evax_bfd_print_indent (indent, file); - fprintf (file, ("len: %2u, kind: %2u "), len, kind); - buf += 3; - switch (kind) - { - case DST__K_TS_ATOM: - fprintf (file, ("atomic, type=0x%02x %s\n"), - buf[0], evax_bfd_get_dsc_name (buf[0])); - break; - case DST__K_TS_IND: - fprintf (file, ("indirect, defined at 0x%08x\n"), - (unsigned)bfd_getl32 (buf)); - break; - case DST__K_TS_TPTR: - fprintf (file, ("typed pointer\n")); - evax_bfd_print_typspec (buf, indent + 1, file); - break; - case DST__K_TS_PTR: - fprintf (file, ("pointer\n")); - break; - case DST__K_TS_ARRAY: - { - const unsigned char *vs; - unsigned int vec_len; - unsigned int i; - - fprintf (file, ("array, dim: %u, bitmap: "), buf[0]); - vec_len = (buf[0] + 1 + 7) / 8; - for (i = 0; i < vec_len; i++) - fprintf (file, " %02x", buf[i + 1]); - fputc ('\n', file); - vs = buf + 1 + vec_len; - evax_bfd_print_indent (indent, file); - fprintf (file, ("array descriptor:\n")); - vs += evax_bfd_print_valspec (vs, indent + 1, file); - for (i = 0; i < buf[0] + 1U; i++) - if (buf[1 + i / 8] & (1 << (i % 8))) - { - evax_bfd_print_indent (indent, file); - if (i == 0) - fprintf (file, ("type spec for element:\n")); - else - fprintf (file, ("type spec for subscript %u:\n"), i); - evax_bfd_print_typspec (vs, indent + 1, file); - vs += bfd_getl16 (vs); - } - } - break; - default: - fprintf (file, ("*unhandled*\n")); - } -} - -static void -evax_bfd_print_dst (struct bfd *abfd, unsigned int dst_size, FILE *file) -{ - unsigned int off = 0; - unsigned int pc = 0; - unsigned int line = 0; - - fprintf (file, _("Debug symbol table:\n")); - - while (dst_size > 0) - { - struct vms_dst_header dsth; - unsigned int len; - unsigned int type; - unsigned char *buf; - - if (bfd_bread (&dsth, sizeof (dsth), abfd) != sizeof (dsth)) - { - fprintf (file, _("cannot read DST header\n")); - return; - } - len = bfd_getl16 (dsth.length); - type = bfd_getl16 (dsth.type); - fprintf (file, _(" type: %3u, len: %3u (at 0x%08x): "), - type, len, off); - if (len == 0) - { - fputc ('\n', file); - break; - } - len++; - dst_size -= len; - off += len; - len -= sizeof (dsth); - buf = bfd_malloc (len); - if (bfd_bread (buf, len, abfd) != len) - { - fprintf (file, _("cannot read DST symbol\n")); - return; - } - switch (type) - { - case DSC__K_DTYPE_V: - case DSC__K_DTYPE_BU: - case DSC__K_DTYPE_WU: - case DSC__K_DTYPE_LU: - case DSC__K_DTYPE_QU: - case DSC__K_DTYPE_B: - case DSC__K_DTYPE_W: - case DSC__K_DTYPE_L: - case DSC__K_DTYPE_Q: - case DSC__K_DTYPE_F: - case DSC__K_DTYPE_D: - case DSC__K_DTYPE_FC: - case DSC__K_DTYPE_DC: - case DSC__K_DTYPE_T: - case DSC__K_DTYPE_NU: - case DSC__K_DTYPE_NL: - case DSC__K_DTYPE_NLO: - case DSC__K_DTYPE_NR: - case DSC__K_DTYPE_NRO: - case DSC__K_DTYPE_NZ: - case DSC__K_DTYPE_P: - case DSC__K_DTYPE_ZI: - case DSC__K_DTYPE_ZEM: - case DSC__K_DTYPE_DSC: - case DSC__K_DTYPE_OU: - case DSC__K_DTYPE_O: - case DSC__K_DTYPE_G: - case DSC__K_DTYPE_H: - case DSC__K_DTYPE_GC: - case DSC__K_DTYPE_HC: - case DSC__K_DTYPE_CIT: - case DSC__K_DTYPE_BPV: - case DSC__K_DTYPE_BLV: - case DSC__K_DTYPE_VU: - case DSC__K_DTYPE_ADT: - case DSC__K_DTYPE_VT: - case DSC__K_DTYPE_T2: - case DSC__K_DTYPE_VT2: - fprintf (file, _("standard data: %s\n"), - evax_bfd_get_dsc_name (type)); - evax_bfd_print_valspec (buf, 4, file); - fprintf (file, _(" name: %.*s\n"), buf[5], buf + 6); - break; - case DST__K_MODBEG: - { - struct vms_dst_modbeg *dst = (void *)buf; - const char *name = (const char *)buf + sizeof (*dst); - - fprintf (file, _("modbeg\n")); - fprintf (file, _(" flags: %d, language: %u, " - "major: %u, minor: %u\n"), - dst->flags, - (unsigned)bfd_getl32 (dst->language), - (unsigned)bfd_getl16 (dst->major), - (unsigned)bfd_getl16 (dst->minor)); - fprintf (file, _(" module name: %.*s\n"), - name[0], name + 1); - name += name[0] + 1; - fprintf (file, _(" compiler : %.*s\n"), - name[0], name + 1); - } - break; - case DST__K_MODEND: - fprintf (file, _("modend\n")); - break; - case DST__K_RTNBEG: - { - struct vms_dst_rtnbeg *dst = (void *)buf; - const char *name = (const char *)buf + sizeof (*dst); - - fputs (_("rtnbeg\n"), file); - fprintf (file, _(" flags: %u, address: 0x%08x, " - "pd-address: 0x%08x\n"), - dst->flags, - (unsigned)bfd_getl32 (dst->address), - (unsigned)bfd_getl32 (dst->pd_address)); - fprintf (file, _(" routine name: %.*s\n"), - name[0], name + 1); - } - break; - case DST__K_RTNEND: - { - struct vms_dst_rtnend *dst = (void *)buf; - - fprintf (file, _("rtnend: size 0x%08x\n"), - (unsigned)bfd_getl32 (dst->size)); - } - break; - case DST__K_PROLOG: - { - struct vms_dst_prolog *dst = (void *)buf; - - fprintf (file, _("prolog: bkpt address 0x%08x\n"), - (unsigned)bfd_getl32 (dst->bkpt_addr)); - } - break; - case DST__K_EPILOG: - { - struct vms_dst_epilog *dst = (void *)buf; - - fprintf (file, _("epilog: flags: %u, count: %u\n"), - dst->flags, (unsigned)bfd_getl32 (dst->count)); - } - break; - case DST__K_BLKBEG: - { - struct vms_dst_blkbeg *dst = (void *)buf; - const char *name = (const char *)buf + sizeof (*dst); - - fprintf (file, _("blkbeg: address: 0x%08x, name: %.*s\n"), - (unsigned)bfd_getl32 (dst->address), - name[0], name + 1); - } - break; - case DST__K_BLKEND: - { - struct vms_dst_blkend *dst = (void *)buf; - - fprintf (file, _("blkend: size: 0x%08x\n"), - (unsigned)bfd_getl32 (dst->size)); - } - break; - case DST__K_TYPSPEC: - { - fprintf (file, _("typspec (len: %u)\n"), len); - fprintf (file, _(" name: %.*s\n"), buf[0], buf + 1); - evax_bfd_print_typspec (buf + 1 + buf[0], 5, file); - } - break; - case DST__K_SEPTYP: - { - fprintf (file, _("septyp, name: %.*s\n"), buf[5], buf + 6); - evax_bfd_print_valspec (buf, 4, file); - } - break; - case DST__K_RECBEG: - { - struct vms_dst_recbeg *recbeg = (void *)buf; - const char *name = (const char *)buf + sizeof (*recbeg); - - fprintf (file, _("recbeg: name: %.*s\n"), name[0], name + 1); - evax_bfd_print_valspec (buf, 4, file); - fprintf (file, (" len: %u bits\n"), - (unsigned)bfd_getl32 (name + 1 + name[0])); - } - break; - case DST__K_RECEND: - fprintf (file, _("recend\n")); - break; - case DST__K_ENUMBEG: - fprintf (file, _("enumbeg, len: %u, name: %.*s\n"), - buf[0], buf[1], buf + 2); - break; - case DST__K_ENUMELT: - fprintf (file, _("enumelt, name: %.*s\n"), buf[5], buf + 6); - evax_bfd_print_valspec (buf, 4, file); - break; - case DST__K_ENUMEND: - fprintf (file, _("enumend\n")); - break; - case DST__K_LABEL: - { - struct vms_dst_label *lab = (void *)buf; - fprintf (file, ("label, name: %.*s\n"), - lab->name[0], lab->name + 1); - fprintf (file, (" address: 0x%08x\n"), - (unsigned)bfd_getl32 (lab->value)); - } - break; - case DST__K_DIS_RANGE: - { - unsigned int cnt = bfd_getl32 (buf); - unsigned char *rng = buf + 4; - unsigned int i; - - fprintf (file, _("discontiguous range (nbr: %u)\n"), cnt); - for (i = 0; i < cnt; i++, rng += 8) - fprintf (file, _(" address: 0x%08x, size: %u\n"), - (unsigned)bfd_getl32 (rng), - (unsigned)bfd_getl32 (rng + 4)); - - } - break; - case DST__K_LINE_NUM: - { - unsigned char *buf_orig = buf; - - fprintf (file, _("line num (len: %u)\n"), len); - - while (len > 0) - { - signed char cmd; - unsigned char cmdlen; - unsigned int val; - - cmd = buf[0]; - cmdlen = 0; - - fputs (" ", file); - - switch (cmd) - { - case DST__K_DELTA_PC_W: - val = bfd_getl16 (buf + 1); - fprintf (file, _("delta_pc_w %u\n"), val); - pc += val; - line++; - cmdlen = 3; - break; - case DST__K_INCR_LINUM: - val = buf[1]; - fprintf (file, _("incr_linum(b): +%u\n"), val); - line += val; - cmdlen = 2; - break; - case DST__K_INCR_LINUM_W: - val = bfd_getl16 (buf + 1); - fprintf (file, _("incr_linum_w: +%u\n"), val); - line += val; - cmdlen = 3; - break; - case DST__K_INCR_LINUM_L: - val = bfd_getl32 (buf + 1); - fprintf (file, _("incr_linum_l: +%u\n"), val); - line += val; - cmdlen = 5; - break; - case DST__K_SET_LINUM: - line = bfd_getl16 (buf + 1); - fprintf (file, _("set_line_num(w) %u\n"), line); - cmdlen = 3; - break; - case DST__K_SET_LINUM_B: - line = buf[1]; - fprintf (file, _("set_line_num_b %u\n"), line); - cmdlen = 2; - break; - case DST__K_SET_LINUM_L: - line = bfd_getl32 (buf + 1); - fprintf (file, _("set_line_num_l %u\n"), line); - cmdlen = 5; - break; - case DST__K_SET_ABS_PC: - pc = bfd_getl32 (buf + 1); - fprintf (file, _("set_abs_pc: 0x%08x\n"), pc); - cmdlen = 5; - break; - case DST__K_DELTA_PC_L: - fprintf (file, _("delta_pc_l: +0x%08x\n"), - (unsigned)bfd_getl32 (buf + 1)); - cmdlen = 5; - break; - case DST__K_TERM: - fprintf (file, _("term(b): 0x%02x"), buf[1]); - pc += buf[1]; - fprintf (file, _(" pc: 0x%08x\n"), pc); - cmdlen = 2; - break; - case DST__K_TERM_W: - val = bfd_getl16 (buf + 1); - fprintf (file, _("term_w: 0x%04x"), val); - pc += val; - fprintf (file, _(" pc: 0x%08x\n"), pc); - cmdlen = 3; - break; - default: - if (cmd <= 0) - { - fprintf (file, _("delta pc +%-4d"), -cmd); - line++; /* FIXME: curr increment. */ - pc += -cmd; - fprintf (file, _(" pc: 0x%08x line: %5u\n"), - pc, line); - cmdlen = 1; - } - else - fprintf (file, _(" *unhandled* cmd %u\n"), cmd); - break; - } - if (cmdlen == 0) - break; - len -= cmdlen; - buf += cmdlen; - } - buf = buf_orig; - } - break; - case DST__K_SOURCE: - { - unsigned char *buf_orig = buf; - - fprintf (file, _("source (len: %u)\n"), len); - - while (len > 0) - { - signed char cmd = buf[0]; - unsigned char cmdlen = 0; - - switch (cmd) - { - case DST__K_SRC_DECLFILE: - { - struct vms_dst_src_decl_src *src = (void *)(buf + 1); - const char *name; - - fprintf (file, _(" declfile: len: %u, flags: %u, " - "fileid: %u\n"), - src->length, src->flags, - (unsigned)bfd_getl16 (src->fileid)); - fprintf (file, _(" rms: cdt: 0x%08x %08x, " - "ebk: 0x%08x, ffb: 0x%04x, " - "rfo: %u\n"), - (unsigned)bfd_getl32 (src->rms_cdt + 4), - (unsigned)bfd_getl32 (src->rms_cdt + 0), - (unsigned)bfd_getl32 (src->rms_ebk), - (unsigned)bfd_getl16 (src->rms_ffb), - src->rms_rfo); - name = (const char *)buf + 1 + sizeof (*src); - fprintf (file, _(" filename : %.*s\n"), - name[0], name + 1); - name += name[0] + 1; - fprintf (file, _(" module name: %.*s\n"), - name[0], name + 1); - cmdlen = 2 + src->length; - } - break; - case DST__K_SRC_SETFILE: - fprintf (file, _(" setfile %u\n"), - (unsigned)bfd_getl16 (buf + 1)); - cmdlen = 3; - break; - case DST__K_SRC_SETREC_W: - fprintf (file, _(" setrec %u\n"), - (unsigned)bfd_getl16 (buf + 1)); - cmdlen = 3; - break; - case DST__K_SRC_SETREC_L: - fprintf (file, _(" setrec %u\n"), - (unsigned)bfd_getl32 (buf + 1)); - cmdlen = 5; - break; - case DST__K_SRC_SETLNUM_W: - fprintf (file, _(" setlnum %u\n"), - (unsigned)bfd_getl16 (buf + 1)); - cmdlen = 3; - break; - case DST__K_SRC_SETLNUM_L: - fprintf (file, _(" setlnum %u\n"), - (unsigned)bfd_getl32 (buf + 1)); - cmdlen = 5; - break; - case DST__K_SRC_DEFLINES_W: - fprintf (file, _(" deflines %u\n"), - (unsigned)bfd_getl16 (buf + 1)); - cmdlen = 3; - break; - case DST__K_SRC_DEFLINES_B: - fprintf (file, _(" deflines %u\n"), buf[1]); - cmdlen = 2; - break; - case DST__K_SRC_FORMFEED: - fprintf (file, _(" formfeed\n")); - cmdlen = 1; - break; - default: - fprintf (file, _(" *unhandled* cmd %u\n"), cmd); - break; - } - if (cmdlen == 0) - break; - len -= cmdlen; - buf += cmdlen; - } - buf = buf_orig; - } - break; - default: - fprintf (file, _("*unhandled* dst type %u\n"), type); - break; - } - free (buf); - } -} - -static void -evax_bfd_print_image (bfd *abfd, FILE *file) -{ - struct vms_eihd eihd; - const char *name; - unsigned int val; - unsigned int eiha_off; - unsigned int eihi_off; - unsigned int eihs_off; - unsigned int eisd_off; - unsigned int eihef_off = 0; - unsigned int eihnp_off = 0; - unsigned int dmt_vbn = 0; - unsigned int dmt_size = 0; - unsigned int dst_vbn = 0; - unsigned int dst_size = 0; - unsigned int gst_vbn = 0; - unsigned int gst_size = 0; - unsigned int eiaf_vbn = 0; - unsigned int eiaf_size = 0; - unsigned int eihvn_off; - - if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) - || bfd_bread (&eihd, sizeof (eihd), abfd) != sizeof (eihd)) - { - fprintf (file, _("cannot read EIHD\n")); - return; - } - fprintf (file, _("EIHD: (size: %u, nbr blocks: %u)\n"), - (unsigned)bfd_getl32 (eihd.size), - (unsigned)bfd_getl32 (eihd.hdrblkcnt)); - fprintf (file, _(" majorid: %u, minorid: %u\n"), - (unsigned)bfd_getl32 (eihd.majorid), - (unsigned)bfd_getl32 (eihd.minorid)); - - val = (unsigned)bfd_getl32 (eihd.imgtype); - switch (val) - { - case EIHD__K_EXE: - name = _("executable"); - break; - case EIHD__K_LIM: - name = _("linkable image"); - break; - default: - name = _("unknown"); - break; - } - fprintf (file, _(" image type: %u (%s)"), val, name); - - val = (unsigned)bfd_getl32 (eihd.subtype); - switch (val) - { - case EIHD__C_NATIVE: - name = _("native"); - break; - case EIHD__C_CLI: - name = _("CLI"); - break; - default: - name = _("unknown"); - break; - } - fprintf (file, _(", subtype: %u (%s)\n"), val, name); - - eisd_off = bfd_getl32 (eihd.isdoff); - eiha_off = bfd_getl32 (eihd.activoff); - eihi_off = bfd_getl32 (eihd.imgidoff); - eihs_off = bfd_getl32 (eihd.symdbgoff); - fprintf (file, _(" offsets: isd: %u, activ: %u, symdbg: %u, " - "imgid: %u, patch: %u\n"), - eisd_off, eiha_off, eihs_off, eihi_off, - (unsigned)bfd_getl32 (eihd.patchoff)); - fprintf (file, _(" fixup info rva: ")); - bfd_fprintf_vma (abfd, file, bfd_getl64 (eihd.iafva)); - fprintf (file, _(", symbol vector rva: ")); - bfd_fprintf_vma (abfd, file, bfd_getl64 (eihd.symvva)); - eihvn_off = bfd_getl32 (eihd.version_array_off); - fprintf (file, _("\n" - " version array off: %u\n"), - eihvn_off); - fprintf (file, - _(" img I/O count: %u, nbr channels: %u, req pri: %08x%08x\n"), - (unsigned)bfd_getl32 (eihd.imgiocnt), - (unsigned)bfd_getl32 (eihd.iochancnt), - (unsigned)bfd_getl32 (eihd.privreqs + 4), - (unsigned)bfd_getl32 (eihd.privreqs + 0)); - val = (unsigned)bfd_getl32 (eihd.lnkflags); - fprintf (file, _(" linker flags: %08x:"), val); - if (val & EIHD__M_LNKDEBUG) - fprintf (file, " LNKDEBUG"); - if (val & EIHD__M_LNKNOTFR) - fprintf (file, " LNKNOTFR"); - if (val & EIHD__M_NOP0BUFS) - fprintf (file, " NOP0BUFS"); - if (val & EIHD__M_PICIMG) - fprintf (file, " PICIMG"); - if (val & EIHD__M_P0IMAGE) - fprintf (file, " P0IMAGE"); - if (val & EIHD__M_DBGDMT) - fprintf (file, " DBGDMT"); - if (val & EIHD__M_INISHR) - fprintf (file, " INISHR"); - if (val & EIHD__M_XLATED) - fprintf (file, " XLATED"); - if (val & EIHD__M_BIND_CODE_SEC) - fprintf (file, " BIND_CODE_SEC"); - if (val & EIHD__M_BIND_DATA_SEC) - fprintf (file, " BIND_DATA_SEC"); - if (val & EIHD__M_MKTHREADS) - fprintf (file, " MKTHREADS"); - if (val & EIHD__M_UPCALLS) - fprintf (file, " UPCALLS"); - if (val & EIHD__M_OMV_READY) - fprintf (file, " OMV_READY"); - if (val & EIHD__M_EXT_BIND_SECT) - fprintf (file, " EXT_BIND_SECT"); - fprintf (file, "\n"); - fprintf (file, _(" ident: 0x%08x, sysver: 0x%08x, " - "match ctrl: %u, symvect_size: %u\n"), - (unsigned)bfd_getl32 (eihd.ident), - (unsigned)bfd_getl32 (eihd.sysver), - eihd.matchctl, - (unsigned)bfd_getl32 (eihd.symvect_size)); - fprintf (file, _(" BPAGE: %u"), - (unsigned)bfd_getl32 (eihd.virt_mem_block_size)); - if (val & (EIHD__M_OMV_READY | EIHD__M_EXT_BIND_SECT)) - { - eihef_off = bfd_getl32 (eihd.ext_fixup_off); - eihnp_off = bfd_getl32 (eihd.noopt_psect_off); - fprintf (file, _(", ext fixup offset: %u, no_opt psect off: %u"), - eihef_off, eihnp_off); - } - fprintf (file, _(", alias: %u\n"), (unsigned)bfd_getl16 (eihd.alias)); - - if (eihvn_off != 0) - { - struct vms_eihvn eihvn; - unsigned int mask; - unsigned int j; - - fprintf (file, _("system version array information:\n")); - if (bfd_seek (abfd, (file_ptr) eihvn_off, SEEK_SET) - || bfd_bread (&eihvn, sizeof (eihvn), abfd) != sizeof (eihvn)) - { - fprintf (file, _("cannot read EIHVN header\n")); - return; - } - mask = bfd_getl32 (eihvn.subsystem_mask); - for (j = 0; j < 32; j++) - if (mask & (1 << j)) - { - struct vms_eihvn_subversion ver; - if (bfd_bread (&ver, sizeof (ver), abfd) != sizeof (ver)) - { - fprintf (file, _("cannot read EIHVN version\n")); - return; - } - fprintf (file, _(" %02u "), j); - switch (j) - { - case EIHVN__BASE_IMAGE_BIT: - fputs (_("BASE_IMAGE "), file); - break; - case EIHVN__MEMORY_MANAGEMENT_BIT: - fputs (_("MEMORY_MANAGEMENT"), file); - break; - case EIHVN__IO_BIT: - fputs (_("IO "), file); - break; - case EIHVN__FILES_VOLUMES_BIT: - fputs (_("FILES_VOLUMES "), file); - break; - case EIHVN__PROCESS_SCHED_BIT: - fputs (_("PROCESS_SCHED "), file); - break; - case EIHVN__SYSGEN_BIT: - fputs (_("SYSGEN "), file); - break; - case EIHVN__CLUSTERS_LOCKMGR_BIT: - fputs (_("CLUSTERS_LOCKMGR "), file); - break; - case EIHVN__LOGICAL_NAMES_BIT: - fputs (_("LOGICAL_NAMES "), file); - break; - case EIHVN__SECURITY_BIT: - fputs (_("SECURITY "), file); - break; - case EIHVN__IMAGE_ACTIVATOR_BIT: - fputs (_("IMAGE_ACTIVATOR "), file); - break; - case EIHVN__NETWORKS_BIT: - fputs (_("NETWORKS "), file); - break; - case EIHVN__COUNTERS_BIT: - fputs (_("COUNTERS "), file); - break; - case EIHVN__STABLE_BIT: - fputs (_("STABLE "), file); - break; - case EIHVN__MISC_BIT: - fputs (_("MISC "), file); - break; - case EIHVN__CPU_BIT: - fputs (_("CPU "), file); - break; - case EIHVN__VOLATILE_BIT: - fputs (_("VOLATILE "), file); - break; - case EIHVN__SHELL_BIT: - fputs (_("SHELL "), file); - break; - case EIHVN__POSIX_BIT: - fputs (_("POSIX "), file); - break; - case EIHVN__MULTI_PROCESSING_BIT: - fputs (_("MULTI_PROCESSING "), file); - break; - case EIHVN__GALAXY_BIT: - fputs (_("GALAXY "), file); - break; - default: - fputs (_("*unknown* "), file); - break; - } - fprintf (file, _(": %u.%u\n"), - (unsigned)bfd_getl16 (ver.major), - (unsigned)bfd_getl16 (ver.minor)); - } - } - - if (eiha_off != 0) - { - struct vms_eiha eiha; - - if (bfd_seek (abfd, (file_ptr) eiha_off, SEEK_SET) - || bfd_bread (&eiha, sizeof (eiha), abfd) != sizeof (eiha)) - { - fprintf (file, _("cannot read EIHA\n")); - return; - } - fprintf (file, _("Image activation: (size=%u)\n"), - (unsigned)bfd_getl32 (eiha.size)); - fprintf (file, _(" First address : 0x%08x 0x%08x\n"), - (unsigned)bfd_getl32 (eiha.tfradr1_h), - (unsigned)bfd_getl32 (eiha.tfradr1)); - fprintf (file, _(" Second address: 0x%08x 0x%08x\n"), - (unsigned)bfd_getl32 (eiha.tfradr2_h), - (unsigned)bfd_getl32 (eiha.tfradr2)); - fprintf (file, _(" Third address : 0x%08x 0x%08x\n"), - (unsigned)bfd_getl32 (eiha.tfradr3_h), - (unsigned)bfd_getl32 (eiha.tfradr3)); - fprintf (file, _(" Fourth address: 0x%08x 0x%08x\n"), - (unsigned)bfd_getl32 (eiha.tfradr4_h), - (unsigned)bfd_getl32 (eiha.tfradr4)); - fprintf (file, _(" Shared image : 0x%08x 0x%08x\n"), - (unsigned)bfd_getl32 (eiha.inishr_h), - (unsigned)bfd_getl32 (eiha.inishr)); - } - if (eihi_off != 0) - { - struct vms_eihi eihi; - - if (bfd_seek (abfd, (file_ptr) eihi_off, SEEK_SET) - || bfd_bread (&eihi, sizeof (eihi), abfd) != sizeof (eihi)) - { - fprintf (file, _("cannot read EIHI\n")); - return; - } - fprintf (file, _("Image identification: (major: %u, minor: %u)\n"), - (unsigned)bfd_getl32 (eihi.majorid), - (unsigned)bfd_getl32 (eihi.minorid)); - fprintf (file, _(" image name : %.*s\n"), - eihi.imgnam[0], eihi.imgnam + 1); - fprintf (file, _(" link time : %s\n"), - vms_time_to_str (eihi.linktime)); - fprintf (file, _(" image ident : %.*s\n"), - eihi.imgid[0], eihi.imgid + 1); - fprintf (file, _(" linker ident : %.*s\n"), - eihi.linkid[0], eihi.linkid + 1); - fprintf (file, _(" image build ident: %.*s\n"), - eihi.imgbid[0], eihi.imgbid + 1); - } - if (eihs_off != 0) - { - struct vms_eihs eihs; - - if (bfd_seek (abfd, (file_ptr) eihs_off, SEEK_SET) - || bfd_bread (&eihs, sizeof (eihs), abfd) != sizeof (eihs)) - { - fprintf (file, _("cannot read EIHS\n")); - return; - } - fprintf (file, _("Image symbol & debug table: (major: %u, minor: %u)\n"), - (unsigned)bfd_getl32 (eihs.majorid), - (unsigned)bfd_getl32 (eihs.minorid)); - dst_vbn = bfd_getl32 (eihs.dstvbn); - dst_size = bfd_getl32 (eihs.dstsize); - fprintf (file, _(" debug symbol table : vbn: %u, size: %u (0x%x)\n"), - dst_vbn, dst_size, dst_size); - gst_vbn = bfd_getl32 (eihs.gstvbn); - gst_size = bfd_getl32 (eihs.gstsize); - fprintf (file, _(" global symbol table: vbn: %u, records: %u\n"), - gst_vbn, gst_size); - dmt_vbn = bfd_getl32 (eihs.dmtvbn); - dmt_size = bfd_getl32 (eihs.dmtsize); - fprintf (file, _(" debug module table : vbn: %u, size: %u\n"), - dmt_vbn, dmt_size); - } - while (eisd_off != 0) - { - struct vms_eisd eisd; - unsigned int len; - - while (1) - { - if (bfd_seek (abfd, (file_ptr) eisd_off, SEEK_SET) - || bfd_bread (&eisd, sizeof (eisd), abfd) != sizeof (eisd)) - { - fprintf (file, _("cannot read EISD\n")); - return; - } - len = (unsigned)bfd_getl32 (eisd.eisdsize); - if (len != (unsigned)-1) - break; - - /* Next block. */ - eisd_off = (eisd_off + VMS_BLOCK_SIZE) & ~(VMS_BLOCK_SIZE - 1); - } - fprintf (file, _("Image section descriptor: (major: %u, minor: %u, " - "size: %u, offset: %u)\n"), - (unsigned)bfd_getl32 (eisd.majorid), - (unsigned)bfd_getl32 (eisd.minorid), - len, eisd_off); - if (len == 0) - break; - fprintf (file, _(" section: base: 0x%08x%08x size: 0x%08x\n"), - (unsigned)bfd_getl32 (eisd.virt_addr + 4), - (unsigned)bfd_getl32 (eisd.virt_addr + 0), - (unsigned)bfd_getl32 (eisd.secsize)); - val = (unsigned)bfd_getl32 (eisd.flags); - fprintf (file, _(" flags: 0x%04x"), val); - if (val & EISD__M_GBL) - fprintf (file, " GBL"); - if (val & EISD__M_CRF) - fprintf (file, " CRF"); - if (val & EISD__M_DZRO) - fprintf (file, " DZRO"); - if (val & EISD__M_WRT) - fprintf (file, " WRT"); - if (val & EISD__M_INITALCODE) - fprintf (file, " INITALCODE"); - if (val & EISD__M_BASED) - fprintf (file, " BASED"); - if (val & EISD__M_FIXUPVEC) - fprintf (file, " FIXUPVEC"); - if (val & EISD__M_RESIDENT) - fprintf (file, " RESIDENT"); - if (val & EISD__M_VECTOR) - fprintf (file, " VECTOR"); - if (val & EISD__M_PROTECT) - fprintf (file, " PROTECT"); - if (val & EISD__M_LASTCLU) - fprintf (file, " LASTCLU"); - if (val & EISD__M_EXE) - fprintf (file, " EXE"); - if (val & EISD__M_NONSHRADR) - fprintf (file, " NONSHRADR"); - if (val & EISD__M_QUAD_LENGTH) - fprintf (file, " QUAD_LENGTH"); - if (val & EISD__M_ALLOC_64BIT) - fprintf (file, " ALLOC_64BIT"); - fprintf (file, "\n"); - if (val & EISD__M_FIXUPVEC) - { - eiaf_vbn = bfd_getl32 (eisd.vbn); - eiaf_size = bfd_getl32 (eisd.secsize); - } - fprintf (file, _(" vbn: %u, pfc: %u, matchctl: %u type: %u ("), - (unsigned)bfd_getl32 (eisd.vbn), - eisd.pfc, eisd.matchctl, eisd.type); - switch (eisd.type) - { - case EISD__K_NORMAL: - fputs (_("NORMAL"), file); - break; - case EISD__K_SHRFXD: - fputs (_("SHRFXD"), file); - break; - case EISD__K_PRVFXD: - fputs (_("PRVFXD"), file); - break; - case EISD__K_SHRPIC: - fputs (_("SHRPIC"), file); - break; - case EISD__K_PRVPIC: - fputs (_("PRVPIC"), file); - break; - case EISD__K_USRSTACK: - fputs (_("USRSTACK"), file); - break; - default: - fputs (_("*unknown*"), file); - break; - } - fputs (_(")\n"), file); - if (val & EISD__M_GBL) - fprintf (file, _(" ident: 0x%08x, name: %.*s\n"), - (unsigned)bfd_getl32 (eisd.ident), - eisd.gblnam[0], eisd.gblnam + 1); - eisd_off += len; - } - - if (dmt_vbn != 0) - { - if (bfd_seek (abfd, (file_ptr) (dmt_vbn - 1) * VMS_BLOCK_SIZE, SEEK_SET)) - { - fprintf (file, _("cannot read DMT\n")); - return; - } - - fprintf (file, _("Debug module table:\n")); - - while (dmt_size > 0) - { - struct vms_dmt_header dmth; - unsigned int count; - - if (bfd_bread (&dmth, sizeof (dmth), abfd) != sizeof (dmth)) - { - fprintf (file, _("cannot read DMT header\n")); - return; - } - count = bfd_getl16 (dmth.psect_count); - fprintf (file, - _(" module offset: 0x%08x, size: 0x%08x, (%u psects)\n"), - (unsigned)bfd_getl32 (dmth.modbeg), - (unsigned)bfd_getl32 (dmth.size), count); - dmt_size -= sizeof (dmth); - while (count > 0) - { - struct vms_dmt_psect dmtp; - - if (bfd_bread (&dmtp, sizeof (dmtp), abfd) != sizeof (dmtp)) - { - fprintf (file, _("cannot read DMT psect\n")); - return; - } - fprintf (file, _(" psect start: 0x%08x, length: %u\n"), - (unsigned)bfd_getl32 (dmtp.start), - (unsigned)bfd_getl32 (dmtp.length)); - count--; - dmt_size -= sizeof (dmtp); - } - } - } - - if (dst_vbn != 0) - { - if (bfd_seek (abfd, (file_ptr) (dst_vbn - 1) * VMS_BLOCK_SIZE, SEEK_SET)) - { - fprintf (file, _("cannot read DST\n")); - return; - } - - evax_bfd_print_dst (abfd, dst_size, file); - } - if (gst_vbn != 0) - { - if (bfd_seek (abfd, (file_ptr) (gst_vbn - 1) * VMS_BLOCK_SIZE, SEEK_SET)) - { - fprintf (file, _("cannot read GST\n")); - return; - } - - fprintf (file, _("Global symbol table:\n")); - evax_bfd_print_eobj (abfd, file); - } - if (eiaf_vbn != 0) - { - unsigned char *buf; - struct vms_eiaf *eiaf; - unsigned int qrelfixoff; - unsigned int lrelfixoff; - unsigned int qdotadroff; - unsigned int ldotadroff; - unsigned int shrimgcnt; - unsigned int shlstoff; - unsigned int codeadroff; - unsigned int lpfixoff; - unsigned int chgprtoff; - - buf = bfd_malloc (eiaf_size); - - if (bfd_seek (abfd, (file_ptr) (eiaf_vbn - 1) * VMS_BLOCK_SIZE, SEEK_SET) - || bfd_bread (buf, eiaf_size, abfd) != eiaf_size) - { - fprintf (file, _("cannot read EIHA\n")); - free (buf); - return; - } - eiaf = (struct vms_eiaf *)buf; - fprintf (file, - _("Image activator fixup: (major: %u, minor: %u)\n"), - (unsigned)bfd_getl32 (eiaf->majorid), - (unsigned)bfd_getl32 (eiaf->minorid)); - fprintf (file, _(" iaflink : 0x%08x %08x\n"), - (unsigned)bfd_getl32 (eiaf->iaflink + 0), - (unsigned)bfd_getl32 (eiaf->iaflink + 4)); - fprintf (file, _(" fixuplnk: 0x%08x %08x\n"), - (unsigned)bfd_getl32 (eiaf->fixuplnk + 0), - (unsigned)bfd_getl32 (eiaf->fixuplnk + 4)); - fprintf (file, _(" size : %u\n"), - (unsigned)bfd_getl32 (eiaf->size)); - fprintf (file, _(" flags: 0x%08x\n"), - (unsigned)bfd_getl32 (eiaf->flags)); - qrelfixoff = bfd_getl32 (eiaf->qrelfixoff); - lrelfixoff = bfd_getl32 (eiaf->lrelfixoff); - fprintf (file, _(" qrelfixoff: %5u, lrelfixoff: %5u\n"), - qrelfixoff, lrelfixoff); - qdotadroff = bfd_getl32 (eiaf->qdotadroff); - ldotadroff = bfd_getl32 (eiaf->ldotadroff); - fprintf (file, _(" qdotadroff: %5u, ldotadroff: %5u\n"), - qdotadroff, ldotadroff); - codeadroff = bfd_getl32 (eiaf->codeadroff); - lpfixoff = bfd_getl32 (eiaf->lpfixoff); - fprintf (file, _(" codeadroff: %5u, lpfixoff : %5u\n"), - codeadroff, lpfixoff); - chgprtoff = bfd_getl32 (eiaf->chgprtoff); - fprintf (file, _(" chgprtoff : %5u\n"), chgprtoff); - shrimgcnt = bfd_getl32 (eiaf->shrimgcnt); - shlstoff = bfd_getl32 (eiaf->shlstoff); - fprintf (file, _(" shlstoff : %5u, shrimgcnt : %5u\n"), - shlstoff, shrimgcnt); - fprintf (file, _(" shlextra : %5u, permctx : %5u\n"), - (unsigned)bfd_getl32 (eiaf->shlextra), - (unsigned)bfd_getl32 (eiaf->permctx)); - fprintf (file, _(" base_va : 0x%08x\n"), - (unsigned)bfd_getl32 (eiaf->base_va)); - fprintf (file, _(" lppsbfixoff: %5u\n"), - (unsigned)bfd_getl32 (eiaf->lppsbfixoff)); - - if (shlstoff) - { - struct vms_shl *shl = (struct vms_shl *)(buf + shlstoff); - unsigned int j; - - fprintf (file, _(" Shareable images:\n")); - for (j = 0; j < shrimgcnt; j++, shl++) - { - fprintf (file, - _(" %u: size: %u, flags: 0x%02x, name: %.*s\n"), - j, shl->size, shl->flags, - shl->imgnam[0], shl->imgnam + 1); - } - } - if (qrelfixoff != 0) - { - fprintf (file, _(" quad-word relocation fixups:\n")); - evax_bfd_print_relocation_records (file, buf + qrelfixoff, 8); - } - if (lrelfixoff != 0) - { - fprintf (file, _(" long-word relocation fixups:\n")); - evax_bfd_print_relocation_records (file, buf + lrelfixoff, 4); - } - if (qdotadroff != 0) - { - fprintf (file, _(" quad-word .address reference fixups:\n")); - evax_bfd_print_address_fixups (file, buf + qdotadroff); - } - if (ldotadroff != 0) - { - fprintf (file, _(" long-word .address reference fixups:\n")); - evax_bfd_print_address_fixups (file, buf + ldotadroff); - } - if (codeadroff != 0) - { - fprintf (file, _(" Code Address Reference Fixups:\n")); - evax_bfd_print_reference_fixups (file, buf + codeadroff); - } - if (lpfixoff != 0) - { - fprintf (file, _(" Linkage Pairs Reference Fixups:\n")); - evax_bfd_print_reference_fixups (file, buf + lpfixoff); - } - if (chgprtoff) - { - unsigned int count = (unsigned)bfd_getl32 (buf + chgprtoff); - struct vms_eicp *eicp = (struct vms_eicp *)(buf + chgprtoff + 4); - unsigned int j; - - fprintf (file, _(" Change Protection (%u entries):\n"), count); - for (j = 0; j < count; j++, eicp++) - { - unsigned int prot = bfd_getl32 (eicp->newprt); - fprintf (file, - _(" base: 0x%08x %08x, size: 0x%08x, prot: 0x%08x "), - (unsigned)bfd_getl32 (eicp->baseva + 4), - (unsigned)bfd_getl32 (eicp->baseva + 0), - (unsigned)bfd_getl32 (eicp->size), - (unsigned)bfd_getl32 (eicp->newprt)); - switch (prot) - { - case PRT__C_NA: - fprintf (file, "NA"); - break; - case PRT__C_RESERVED: - fprintf (file, "RES"); - break; - case PRT__C_KW: - fprintf (file, "KW"); - break; - case PRT__C_KR: - fprintf (file, "KR"); - break; - case PRT__C_UW: - fprintf (file, "UW"); - break; - case PRT__C_EW: - fprintf (file, "EW"); - break; - case PRT__C_ERKW: - fprintf (file, "ERKW"); - break; - case PRT__C_ER: - fprintf (file, "ER"); - break; - case PRT__C_SW: - fprintf (file, "SW"); - break; - case PRT__C_SREW: - fprintf (file, "SREW"); - break; - case PRT__C_SRKW: - fprintf (file, "SRKW"); - break; - case PRT__C_SR: - fprintf (file, "SR"); - break; - case PRT__C_URSW: - fprintf (file, "URSW"); - break; - case PRT__C_UREW: - fprintf (file, "UREW"); - break; - case PRT__C_URKW: - fprintf (file, "URKW"); - break; - case PRT__C_UR: - fprintf (file, "UR"); - break; - default: - fputs ("??", file); - break; - } - fputc ('\n', file); - } - } - free (buf); - } -} - -static bfd_boolean -vms_bfd_print_private_bfd_data (bfd *abfd, void *ptr) -{ - FILE *file = (FILE *)ptr; - - if (bfd_get_file_flags (abfd) & (EXEC_P | DYNAMIC)) - evax_bfd_print_image (abfd, file); - else - { - if (bfd_seek (abfd, 0, SEEK_SET)) - return FALSE; - evax_bfd_print_eobj (abfd, file); - } - return TRUE; -} - -/* Linking. */ - -/* Slurp ETIR/EDBG/ETBT VMS object records. */ - -static bfd_boolean -alpha_vms_read_sections_content (bfd *abfd, struct bfd_link_info *info) -{ - asection *cur_section; - file_ptr cur_offset; - asection *dst_section; - file_ptr dst_offset; - - if (bfd_seek (abfd, 0, SEEK_SET) != 0) - return FALSE; - - cur_section = NULL; - cur_offset = 0; - - dst_section = PRIV (dst_section); - dst_offset = 0; - if (info) - { - if (info->strip == strip_all || info->strip == strip_debugger) - { - /* Discard the DST section. */ - dst_offset = 0; - dst_section = NULL; - } - else if (dst_section) - { - dst_offset = dst_section->output_offset; - dst_section = dst_section->output_section; - } - } - - while (1) - { - int type; - bfd_boolean res; - - type = _bfd_vms_get_object_record (abfd); - if (type < 0) - { - vms_debug2 ((2, "next_record failed\n")); - return FALSE; - } - switch (type) - { - case EOBJ__C_ETIR: - PRIV (image_section) = cur_section; - PRIV (image_offset) = cur_offset; - res = _bfd_vms_slurp_etir (abfd, info); - cur_section = PRIV (image_section); - cur_offset = PRIV (image_offset); - break; - case EOBJ__C_EDBG: - case EOBJ__C_ETBT: - if (dst_section == NULL) - continue; - PRIV (image_section) = dst_section; - PRIV (image_offset) = dst_offset; - res = _bfd_vms_slurp_etir (abfd, info); - dst_offset = PRIV (image_offset); - break; - case EOBJ__C_EEOM: - return TRUE; - default: - continue; - } - if (!res) - { - vms_debug2 ((2, "slurp eobj type %d failed\n", type)); - return FALSE; - } - } -} - -static int -alpha_vms_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED, - struct bfd_link_info *info ATTRIBUTE_UNUSED) -{ - return 0; -} - -/* Add a linkage pair fixup at address SECT + OFFSET to SHLIB. */ - -static void -alpha_vms_add_fixup_lp (struct bfd_link_info *info, bfd *src, bfd *shlib) -{ - struct alpha_vms_shlib_el *sl; - asection *sect = PRIV2 (src, image_section); - file_ptr offset = PRIV2 (src, image_offset); - - sl = &VEC_EL (alpha_vms_link_hash (info)->shrlibs, - struct alpha_vms_shlib_el, PRIV2 (shlib, shr_index)); - sl->has_fixups = TRUE; - VEC_APPEND_EL (sl->lp, bfd_vma, - sect->output_section->vma + sect->output_offset + offset); - sect->output_section->flags |= SEC_RELOC; -} - -/* Add a code address fixup at address SECT + OFFSET to SHLIB. */ - -static void -alpha_vms_add_fixup_ca (struct bfd_link_info *info, bfd *src, bfd *shlib) -{ - struct alpha_vms_shlib_el *sl; - asection *sect = PRIV2 (src, image_section); - file_ptr offset = PRIV2 (src, image_offset); - - sl = &VEC_EL (alpha_vms_link_hash (info)->shrlibs, - struct alpha_vms_shlib_el, PRIV2 (shlib, shr_index)); - sl->has_fixups = TRUE; - VEC_APPEND_EL (sl->ca, bfd_vma, - sect->output_section->vma + sect->output_offset + offset); - sect->output_section->flags |= SEC_RELOC; -} - -/* Add a quad word relocation fixup at address SECT + OFFSET to SHLIB. */ - -static void -alpha_vms_add_fixup_qr (struct bfd_link_info *info, bfd *src, - bfd *shlib, bfd_vma vec) -{ - struct alpha_vms_shlib_el *sl; - struct alpha_vms_vma_ref *r; - asection *sect = PRIV2 (src, image_section); - file_ptr offset = PRIV2 (src, image_offset); - - sl = &VEC_EL (alpha_vms_link_hash (info)->shrlibs, - struct alpha_vms_shlib_el, PRIV2 (shlib, shr_index)); - sl->has_fixups = TRUE; - r = VEC_APPEND (sl->qr, struct alpha_vms_vma_ref); - r->vma = sect->output_section->vma + sect->output_offset + offset; - r->ref = vec; - sect->output_section->flags |= SEC_RELOC; -} - -static void -alpha_vms_add_fixup_lr (struct bfd_link_info *info ATTRIBUTE_UNUSED, - unsigned int shr ATTRIBUTE_UNUSED, - bfd_vma vec ATTRIBUTE_UNUSED) -{ - /* Not yet supported. */ - abort (); -} - -/* Add relocation. FIXME: Not yet emitted. */ - -static void -alpha_vms_add_lw_reloc (struct bfd_link_info *info ATTRIBUTE_UNUSED) -{ -} - -static void -alpha_vms_add_qw_reloc (struct bfd_link_info *info ATTRIBUTE_UNUSED) -{ -} - -static struct bfd_hash_entry * -alpha_vms_link_hash_newfunc (struct bfd_hash_entry *entry, - struct bfd_hash_table *table, - const char *string) -{ - struct alpha_vms_link_hash_entry *ret = - (struct alpha_vms_link_hash_entry *) entry; - - /* Allocate the structure if it has not already been allocated by a - subclass. */ - if (ret == NULL) - ret = ((struct alpha_vms_link_hash_entry *) - bfd_hash_allocate (table, - sizeof (struct alpha_vms_link_hash_entry))); - if (ret == NULL) - return NULL; - - /* Call the allocation method of the superclass. */ - ret = ((struct alpha_vms_link_hash_entry *) - _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret, - table, string)); - - ret->sym = NULL; - - return (struct bfd_hash_entry *) ret; -} - -/* Create an Alpha/VMS link hash table. */ - -static struct bfd_link_hash_table * -alpha_vms_bfd_link_hash_table_create (bfd *abfd) -{ - struct alpha_vms_link_hash_table *ret; - bfd_size_type amt = sizeof (struct alpha_vms_link_hash_table); - - ret = (struct alpha_vms_link_hash_table *) bfd_malloc (amt); - if (ret == NULL) - return NULL; - if (!_bfd_link_hash_table_init (&ret->root, abfd, - alpha_vms_link_hash_newfunc, - sizeof (struct alpha_vms_link_hash_entry))) - { - free (ret); - return NULL; - } - - VEC_INIT (ret->shrlibs); - ret->fixup = NULL; - - return &ret->root; -} - -static bfd_boolean -alpha_vms_link_add_object_symbols (bfd *abfd, struct bfd_link_info *info) -{ - unsigned int i; - - for (i = 0; i < PRIV (gsd_sym_count); i++) - { - struct vms_symbol_entry *e = PRIV (syms)[i]; - struct alpha_vms_link_hash_entry *h; - struct bfd_link_hash_entry *h_root; - asymbol sym; - - if (!alpha_vms_convert_symbol (abfd, e, &sym)) - return FALSE; - - if ((e->flags & EGSY__V_DEF) && abfd->selective_search) - { - /* In selective_search mode, only add definition that are - required. */ - h = (struct alpha_vms_link_hash_entry *)bfd_link_hash_lookup - (info->hash, sym.name, FALSE, FALSE, FALSE); - if (h == NULL || h->root.type != bfd_link_hash_undefined) - continue; - } - else - h = NULL; - - h_root = (struct bfd_link_hash_entry *) h; - if (_bfd_generic_link_add_one_symbol - (info, abfd, sym.name, sym.flags, sym.section, sym.value, - NULL, FALSE, FALSE, &h_root) == FALSE) - return FALSE; - h = (struct alpha_vms_link_hash_entry *) h_root; - - if ((e->flags & EGSY__V_DEF) - && h->sym == NULL - && abfd->xvec == info->output_bfd->xvec) - h->sym = e; - } - - if (abfd->flags & DYNAMIC) - { - struct alpha_vms_shlib_el *shlib; - - /* We do not want to include any of the sections in a dynamic - object in the output file. See comment in elflink.c. */ - bfd_section_list_clear (abfd); - - shlib = VEC_APPEND (alpha_vms_link_hash (info)->shrlibs, - struct alpha_vms_shlib_el); - shlib->abfd = abfd; - VEC_INIT (shlib->ca); - VEC_INIT (shlib->lp); - VEC_INIT (shlib->qr); - PRIV (shr_index) = VEC_COUNT (alpha_vms_link_hash (info)->shrlibs) - 1; - } - - return TRUE; -} - -static bfd_boolean -alpha_vms_link_add_archive_symbols (bfd *abfd, struct bfd_link_info *info) -{ - int pass; - struct bfd_link_hash_entry **pundef; - struct bfd_link_hash_entry **next_pundef; - - /* We only accept VMS libraries. */ - if (info->output_bfd->xvec != abfd->xvec) - { - bfd_set_error (bfd_error_wrong_format); - return FALSE; - } - - /* The archive_pass field in the archive itself is used to - initialize PASS, since we may search the same archive multiple - times. */ - pass = ++abfd->archive_pass; - - /* Look through the list of undefined symbols. */ - for (pundef = &info->hash->undefs; *pundef != NULL; pundef = next_pundef) - { - struct bfd_link_hash_entry *h; - symindex symidx; - bfd *element; - bfd *orig_element; - - h = *pundef; - next_pundef = &(*pundef)->u.undef.next; - - /* When a symbol is defined, it is not necessarily removed from - the list. */ - if (h->type != bfd_link_hash_undefined - && h->type != bfd_link_hash_common) - { - /* Remove this entry from the list, for general cleanliness - and because we are going to look through the list again - if we search any more libraries. We can't remove the - entry if it is the tail, because that would lose any - entries we add to the list later on. */ - if (*pundef != info->hash->undefs_tail) - { - *pundef = *next_pundef; - next_pundef = pundef; - } - continue; - } - - /* Look for this symbol in the archive hash table. */ - symidx = _bfd_vms_lib_find_symbol (abfd, h->root.string); - if (symidx == BFD_NO_MORE_SYMBOLS) - { - /* Nothing in this slot. */ - continue; - } - - element = bfd_get_elt_at_index (abfd, symidx); - if (element == NULL) - return FALSE; - - if (element->archive_pass == -1 || element->archive_pass == pass) - { - /* Next symbol if this archive is wrong or already handled. */ - continue; - } - - if (! bfd_check_format (element, bfd_object)) - { - element->archive_pass = -1; - return FALSE; - } - - orig_element = element; - if (bfd_is_thin_archive (abfd)) - { - element = _bfd_vms_lib_get_imagelib_file (element); - if (element == NULL || !bfd_check_format (element, bfd_object)) - { - orig_element->archive_pass = -1; - return FALSE; - } - } - - /* Unlike the generic linker, we know that this element provides - a definition for an undefined symbol and we know that we want - to include it. We don't need to check anything. */ - if (!(*info->callbacks - ->add_archive_element) (info, element, h->root.string, &element)) - return FALSE; - if (!alpha_vms_link_add_object_symbols (element, info)) - return FALSE; - - orig_element->archive_pass = pass; - } - - return TRUE; -} - -static bfd_boolean -alpha_vms_bfd_link_add_symbols (bfd *abfd, struct bfd_link_info *info) -{ - switch (bfd_get_format (abfd)) - { - case bfd_object: - vms_debug2 ((2, "vms_link_add_symbols for object %s\n", - abfd->filename)); - return alpha_vms_link_add_object_symbols (abfd, info); - break; - case bfd_archive: - vms_debug2 ((2, "vms_link_add_symbols for archive %s\n", - abfd->filename)); - return alpha_vms_link_add_archive_symbols (abfd, info); - break; - default: - bfd_set_error (bfd_error_wrong_format); - return FALSE; - } -} - -static bfd_boolean -alpha_vms_build_fixups (struct bfd_link_info *info) -{ - struct alpha_vms_link_hash_table *t = alpha_vms_link_hash (info); - unsigned char *content; - unsigned int i; - unsigned int sz = 0; - unsigned int lp_sz = 0; - unsigned int ca_sz = 0; - unsigned int qr_sz = 0; - unsigned int shrimg_cnt = 0; - unsigned int chgprt_num = 0; - unsigned int chgprt_sz = 0; - struct vms_eiaf *eiaf; - unsigned int off; - asection *sec; - - /* Shared libraries. */ - for (i = 0; i < VEC_COUNT (t->shrlibs); i++) - { - struct alpha_vms_shlib_el *shlib; - - shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i); - - if (!shlib->has_fixups) - continue; - - shrimg_cnt++; - - if (VEC_COUNT (shlib->ca) > 0) - { - /* Header + entries. */ - ca_sz += 8; - ca_sz += VEC_COUNT (shlib->ca) * 4; - } - if (VEC_COUNT (shlib->lp) > 0) - { - /* Header + entries. */ - lp_sz += 8; - lp_sz += VEC_COUNT (shlib->lp) * 4; - } - if (VEC_COUNT (shlib->qr) > 0) - { - /* Header + entries. */ - qr_sz += 8; - qr_sz += VEC_COUNT (shlib->qr) * 8; - } - } - /* Add markers. */ - if (ca_sz > 0) - ca_sz += 8; - if (lp_sz > 0) - lp_sz += 8; - if (qr_sz > 0) - qr_sz += 8; - - /* Finish now if there is no content. */ - if (ca_sz + lp_sz + qr_sz == 0) - return TRUE; - - /* Add an eicp entry for the fixup itself. */ - chgprt_num = 1; - for (sec = info->output_bfd->sections; sec != NULL; sec = sec->next) - { - /* This isect could be made RO or EXE after relocations are applied. */ - if ((sec->flags & SEC_RELOC) != 0 - && (sec->flags & (SEC_CODE | SEC_READONLY)) != 0) - chgprt_num++; - } - chgprt_sz = 4 + chgprt_num * sizeof (struct vms_eicp); - - /* Allocate section content (round-up size) */ - sz = sizeof (struct vms_eiaf) + shrimg_cnt * sizeof (struct vms_shl) - + ca_sz + lp_sz + qr_sz + chgprt_sz; - sz = (sz + VMS_BLOCK_SIZE - 1) & ~(VMS_BLOCK_SIZE - 1); - content = bfd_zalloc (info->output_bfd, sz); - if (content == NULL) - return FALSE; - - sec = alpha_vms_link_hash (info)->fixup; - sec->contents = content; - sec->size = sz; - - eiaf = (struct vms_eiaf *)content; - off = sizeof (struct vms_eiaf); - bfd_putl32 (0, eiaf->majorid); - bfd_putl32 (0, eiaf->minorid); - bfd_putl32 (0, eiaf->iaflink); - bfd_putl32 (0, eiaf->fixuplnk); - bfd_putl32 (sizeof (struct vms_eiaf), eiaf->size); - bfd_putl32 (0, eiaf->flags); - bfd_putl32 (0, eiaf->qrelfixoff); - bfd_putl32 (0, eiaf->lrelfixoff); - bfd_putl32 (0, eiaf->qdotadroff); - bfd_putl32 (0, eiaf->ldotadroff); - bfd_putl32 (0, eiaf->codeadroff); - bfd_putl32 (0, eiaf->lpfixoff); - bfd_putl32 (0, eiaf->chgprtoff); - bfd_putl32 (shrimg_cnt ? off : 0, eiaf->shlstoff); - bfd_putl32 (shrimg_cnt, eiaf->shrimgcnt); - bfd_putl32 (0, eiaf->shlextra); - bfd_putl32 (0, eiaf->permctx); - bfd_putl32 (0, eiaf->base_va); - bfd_putl32 (0, eiaf->lppsbfixoff); - - if (shrimg_cnt) - { - shrimg_cnt = 0; - - /* Write shl. */ - for (i = 0; i < VEC_COUNT (t->shrlibs); i++) - { - struct alpha_vms_shlib_el *shlib; - struct vms_shl *shl; - - shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i); - - if (!shlib->has_fixups) - continue; - - /* Renumber shared images. */ - PRIV2 (shlib->abfd, shr_index) = shrimg_cnt++; - - shl = (struct vms_shl *)(content + off); - bfd_putl32 (0, shl->baseva); - bfd_putl32 (0, shl->shlptr); - bfd_putl32 (0, shl->ident); - bfd_putl32 (0, shl->permctx); - shl->size = sizeof (struct vms_shl); - bfd_putl16 (0, shl->fill_1); - shl->flags = 0; - bfd_putl32 (0, shl->icb); - shl->imgnam[0] = strlen (PRIV2 (shlib->abfd, hdr_data.hdr_t_name)); - memcpy (shl->imgnam + 1, PRIV2 (shlib->abfd, hdr_data.hdr_t_name), - shl->imgnam[0]); - - off += sizeof (struct vms_shl); - } - - /* CA fixups. */ - if (ca_sz != 0) - { - bfd_putl32 (off, eiaf->codeadroff); - - for (i = 0; i < VEC_COUNT (t->shrlibs); i++) - { - struct alpha_vms_shlib_el *shlib; - unsigned int j; - - shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i); - - if (VEC_COUNT (shlib->ca) == 0) - continue; - - bfd_putl32 (VEC_COUNT (shlib->ca), content + off); - bfd_putl32 (PRIV2 (shlib->abfd, shr_index), content + off + 4); - off += 8; - - for (j = 0; j < VEC_COUNT (shlib->ca); j++) - { - bfd_putl32 (VEC_EL (shlib->ca, bfd_vma, j) - t->base_addr, - content + off); - off += 4; - } - } - - bfd_putl32 (0, content + off); - bfd_putl32 (0, content + off + 4); - off += 8; - } - - /* LP fixups. */ - if (lp_sz != 0) - { - bfd_putl32 (off, eiaf->lpfixoff); - - for (i = 0; i < VEC_COUNT (t->shrlibs); i++) - { - struct alpha_vms_shlib_el *shlib; - unsigned int j; - - shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i); - - if (VEC_COUNT (shlib->lp) == 0) - continue; - - bfd_putl32 (VEC_COUNT (shlib->lp), content + off); - bfd_putl32 (PRIV2 (shlib->abfd, shr_index), content + off + 4); - off += 8; - - for (j = 0; j < VEC_COUNT (shlib->lp); j++) - { - bfd_putl32 (VEC_EL (shlib->lp, bfd_vma, j) - t->base_addr, - content + off); - off += 4; - } - } - - bfd_putl32 (0, content + off); - bfd_putl32 (0, content + off + 4); - off += 8; - } - - /* QR fixups. */ - if (qr_sz != 0) - { - bfd_putl32 (off, eiaf->qdotadroff); - - for (i = 0; i < VEC_COUNT (t->shrlibs); i++) - { - struct alpha_vms_shlib_el *shlib; - unsigned int j; - - shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i); - - if (VEC_COUNT (shlib->qr) == 0) - continue; - - bfd_putl32 (VEC_COUNT (shlib->qr), content + off); - bfd_putl32 (PRIV2 (shlib->abfd, shr_index), content + off + 4); - off += 8; - - for (j = 0; j < VEC_COUNT (shlib->qr); j++) - { - struct alpha_vms_vma_ref *r; - r = &VEC_EL (shlib->qr, struct alpha_vms_vma_ref, j); - bfd_putl32 (r->vma - t->base_addr, content + off); - bfd_putl32 (r->ref, content + off + 4); - off += 8; - } - } - - bfd_putl32 (0, content + off); - bfd_putl32 (0, content + off + 4); - off += 8; - } - } - - /* Write the change protection table. */ - bfd_putl32 (off, eiaf->chgprtoff); - bfd_putl32 (chgprt_num, content + off); - off += 4; - - for (sec = info->output_bfd->sections; sec != NULL; sec = sec->next) - { - struct vms_eicp *eicp; - unsigned int prot; - - if ((sec->flags & SEC_LINKER_CREATED) != 0 && - strcmp (sec->name, "$FIXUP$") == 0) - prot = PRT__C_UREW; - else if ((sec->flags & SEC_RELOC) != 0 - && (sec->flags & (SEC_CODE | SEC_READONLY)) != 0) - prot = PRT__C_UR; - else - continue; - - eicp = (struct vms_eicp *)(content + off); - bfd_putl64 (sec->vma - t->base_addr, eicp->baseva); - bfd_putl32 ((sec->size + VMS_BLOCK_SIZE - 1) & ~(VMS_BLOCK_SIZE - 1), - eicp->size); - bfd_putl32 (prot, eicp->newprt); - off += sizeof (struct vms_eicp); - } - - return TRUE; -} - -/* Called by bfd_hash_traverse to fill the symbol table. - Return FALSE in case of failure. */ - -static bfd_boolean -alpha_vms_link_output_symbol (struct bfd_hash_entry *bh, void *infov) -{ - struct bfd_link_hash_entry *hc = (struct bfd_link_hash_entry *) bh; - struct bfd_link_info *info = (struct bfd_link_info *)infov; - struct alpha_vms_link_hash_entry *h; - struct vms_symbol_entry *sym; - - if (hc->type == bfd_link_hash_warning) - { - hc = hc->u.i.link; - if (hc->type == bfd_link_hash_new) - return TRUE; - } - h = (struct alpha_vms_link_hash_entry *) hc; - - switch (h->root.type) - { - case bfd_link_hash_undefined: - return TRUE; - case bfd_link_hash_new: - case bfd_link_hash_warning: - abort (); - case bfd_link_hash_undefweak: - return TRUE; - case bfd_link_hash_defined: - case bfd_link_hash_defweak: - { - asection *sec = h->root.u.def.section; - - /* FIXME: this is certainly a symbol from a dynamic library. */ - if (bfd_is_abs_section (sec)) - return TRUE; - - if (sec->owner->flags & DYNAMIC) - return TRUE; - } - break; - case bfd_link_hash_common: - break; - case bfd_link_hash_indirect: - return TRUE; - } - - /* Do not write not kept symbols. */ - if (info->strip == strip_some - && bfd_hash_lookup (info->keep_hash, h->root.root.string, - FALSE, FALSE) != NULL) - return TRUE; - - if (h->sym == NULL) - { - /* This symbol doesn't come from a VMS object. So we suppose it is - a data. */ - int len = strlen (h->root.root.string); - - sym = (struct vms_symbol_entry *)bfd_zalloc (info->output_bfd, - sizeof (*sym) + len); - if (sym == NULL) - abort (); - sym->namelen = len; - memcpy (sym->name, h->root.root.string, len); - sym->name[len] = 0; - sym->owner = info->output_bfd; - - sym->typ = EGSD__C_SYMG; - sym->data_type = 0; - sym->flags = EGSY__V_DEF | EGSY__V_REL; - sym->symbol_vector = h->root.u.def.value; - sym->section = h->root.u.def.section; - sym->value = h->root.u.def.value; - } - else - sym = h->sym; - - if (!add_symbol_entry (info->output_bfd, sym)) - return FALSE; - - return TRUE; -} - -static bfd_boolean -alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info) -{ - asection *o; - struct bfd_link_order *p; - bfd *sub; - asection *fixupsec; - bfd_vma base_addr; - bfd_vma last_addr; - asection *dst; - asection *dmt; - - if (info->relocatable) - { - /* FIXME: we do not yet support relocatable link. It is not obvious - how to do it for debug infos. */ - (*info->callbacks->einfo)(_("%P: relocatable link is not supported\n")); - return FALSE; - } - - bfd_get_outsymbols (abfd) = NULL; - bfd_get_symcount (abfd) = 0; - - /* Mark all sections which will be included in the output file. */ - for (o = abfd->sections; o != NULL; o = o->next) - for (p = o->map_head.link_order; p != NULL; p = p->next) - if (p->type == bfd_indirect_link_order) - p->u.indirect.section->linker_mark = TRUE; - -#if 0 - /* Handle all the link order information for the sections. */ - for (o = abfd->sections; o != NULL; o = o->next) - { - printf ("For section %s (at 0x%08x, flags=0x%08x):\n", - o->name, (unsigned)o->vma, (unsigned)o->flags); - - for (p = o->map_head.link_order; p != NULL; p = p->next) - { - printf (" at 0x%08x - 0x%08x: ", - (unsigned)p->offset, (unsigned)(p->offset + p->size - 1)); - switch (p->type) - { - case bfd_section_reloc_link_order: - case bfd_symbol_reloc_link_order: - printf (" section/symbol reloc\n"); - break; - case bfd_indirect_link_order: - printf (" section %s of %s\n", - p->u.indirect.section->name, - p->u.indirect.section->owner->filename); - break; - case bfd_data_link_order: - printf (" explicit data\n"); - break; - default: - printf (" *unknown* type %u\n", p->type); - break; - } - } - } -#endif - - /* Generate the symbol table. */ - BFD_ASSERT (PRIV (syms) == NULL); - if (info->strip != strip_all) - bfd_hash_traverse (&info->hash->table, alpha_vms_link_output_symbol, info); - - /* Find the entry point. */ - if (bfd_get_start_address (abfd) == 0) - { - bfd *startbfd = NULL; - - for (sub = info->input_bfds; sub != NULL; sub = sub->link_next) - { - /* Consider only VMS object files. */ - if (sub->xvec != abfd->xvec) - continue; - - if (!PRIV2 (sub, eom_data).eom_has_transfer) - continue; - if ((PRIV2 (sub, eom_data).eom_b_tfrflg & EEOM__M_WKTFR) && startbfd) - continue; - if (startbfd != NULL - && !(PRIV2 (sub, eom_data).eom_b_tfrflg & EEOM__M_WKTFR)) - { - (*info->callbacks->einfo) - (_("%P: multiple entry points: in modules %B and %B\n"), - startbfd, sub); - continue; - } - startbfd = sub; - } - - if (startbfd) - { - unsigned int ps_idx = PRIV2 (startbfd, eom_data).eom_l_psindx; - bfd_vma tfradr = PRIV2 (startbfd, eom_data).eom_l_tfradr; - asection *sec; - - sec = PRIV2 (startbfd, sections)[ps_idx]; - - bfd_set_start_address - (abfd, sec->output_section->vma + sec->output_offset + tfradr); - } - } - - /* Set transfer addresses. */ - { - int i; - struct bfd_link_hash_entry *h; - - i = 0; - PRIV (transfer_address[i++]) = 0xffffffff00000340ULL; /* SYS$IMGACT */ - h = bfd_link_hash_lookup (info->hash, "LIB$INITIALIZE", FALSE, FALSE, TRUE); - if (h != NULL && h->type == bfd_link_hash_defined) - PRIV (transfer_address[i++]) = - alpha_vms_get_sym_value (h->u.def.section, h->u.def.value); - PRIV (transfer_address[i++]) = bfd_get_start_address (abfd); - while (i < 4) - PRIV (transfer_address[i++]) = 0; - } - - /* Allocate contents. - Also compute the virtual base address. */ - base_addr = (bfd_vma)-1; - last_addr = 0; - for (o = abfd->sections; o != NULL; o = o->next) - { - if (o->flags & SEC_HAS_CONTENTS) - { - o->contents = bfd_alloc (abfd, o->size); - if (o->contents == NULL) - return FALSE; - } - if (o->flags & SEC_LOAD) - { - if (o->vma < base_addr) - base_addr = o->vma; - if (o->vma + o->size > last_addr) - last_addr = o->vma + o->size; - } - /* Clear the RELOC flags. Currently we don't support incremental - linking. We use the RELOC flag for computing the eicp entries. */ - o->flags &= ~SEC_RELOC; - } - - /* Create the fixup section. */ - fixupsec = bfd_make_section_anyway_with_flags - (info->output_bfd, "$FIXUP$", - SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_LINKER_CREATED); - if (fixupsec == NULL) - return FALSE; - last_addr = (last_addr + 0xffff) & ~0xffff; - fixupsec->vma = last_addr; - - alpha_vms_link_hash (info)->fixup = fixupsec; - alpha_vms_link_hash (info)->base_addr = base_addr; - - /* Create the DMT section, if necessary. */ - BFD_ASSERT (PRIV (dst_section) == NULL); - dst = bfd_get_section_by_name (abfd, "$DST$"); - if (dst != NULL && dst->size == 0) - dst = NULL; - if (dst != NULL) - { - PRIV (dst_section) = dst; - dmt = bfd_make_section_anyway_with_flags - (info->output_bfd, "$DMT$", - SEC_DEBUGGING | SEC_HAS_CONTENTS | SEC_LINKER_CREATED); - if (dmt == NULL) - return FALSE; - } - else - dmt = NULL; - - /* Read all sections from the inputs. */ - for (sub = info->input_bfds; sub != NULL; sub = sub->link_next) - { - if (sub->flags & DYNAMIC) - { - alpha_vms_create_eisd_for_shared (abfd, sub); - continue; - } - - if (!alpha_vms_read_sections_content (sub, info)) - return FALSE; - } - - /* Handle all the link order information for the sections. - Note: past this point, it is not possible to create new sections. */ - for (o = abfd->sections; o != NULL; o = o->next) - { - for (p = o->map_head.link_order; p != NULL; p = p->next) - { - switch (p->type) - { - case bfd_section_reloc_link_order: - case bfd_symbol_reloc_link_order: - abort (); - return FALSE; - case bfd_indirect_link_order: - /* Already done. */ - break; - default: - if (! _bfd_default_link_order (abfd, info, o, p)) - return FALSE; - break; - } - } - } - - /* Compute fixups. */ - if (!alpha_vms_build_fixups (info)) - return FALSE; - - /* Compute the DMT. */ - if (dmt != NULL) - { - int pass; - unsigned char *contents = NULL; - - /* In pass 1, compute the size. In pass 2, write the DMT contents. */ - for (pass = 0; pass < 2; pass++) - { - unsigned int off = 0; - - /* For each object file (ie for each module). */ - for (sub = info->input_bfds; sub != NULL; sub = sub->link_next) - { - asection *sub_dst; - struct vms_dmt_header *dmth = NULL; - unsigned int psect_count; - - /* Skip this module if it has no DST. */ - sub_dst = PRIV2 (sub, dst_section); - if (sub_dst == NULL || sub_dst->size == 0) - continue; - - if (pass == 1) - { - /* Write the header. */ - dmth = (struct vms_dmt_header *)(contents + off); - bfd_putl32 (sub_dst->output_offset, dmth->modbeg); - bfd_putl32 (sub_dst->size, dmth->size); - } - - off += sizeof (struct vms_dmt_header); - psect_count = 0; - - /* For each section (ie for each psect). */ - for (o = sub->sections; o != NULL; o = o->next) - { - /* Only consider interesting sections. */ - if (!(o->flags & SEC_ALLOC)) - continue; - if (o->flags & SEC_LINKER_CREATED) - continue; - - if (pass == 1) - { - /* Write an entry. */ - struct vms_dmt_psect *dmtp; - - dmtp = (struct vms_dmt_psect *)(contents + off); - bfd_putl32 (o->output_offset + o->output_section->vma, - dmtp->start); - bfd_putl32 (o->size, dmtp->length); - psect_count++; - } - off += sizeof (struct vms_dmt_psect); - } - if (pass == 1) - bfd_putl32 (psect_count, dmth->psect_count); - } - - if (pass == 0) - { - contents = bfd_zalloc (info->output_bfd, off); - if (contents == NULL) - return FALSE; - dmt->contents = contents; - dmt->size = off; - } - else - { - BFD_ASSERT (off == dmt->size); - } - } - } - - return TRUE; -} - -/* 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 -alpha_vms_get_section_contents (bfd *abfd, asection *section, - void *buf, file_ptr offset, - bfd_size_type count) -{ - asection *sec; - - /* Image are easy. */ - if (bfd_get_file_flags (abfd) & (EXEC_P | DYNAMIC)) - return _bfd_generic_get_section_contents (abfd, section, - buf, offset, count); - - /* Safety check. */ - if (offset + count < count - || offset + count > section->size) - { - bfd_set_error (bfd_error_invalid_operation); - return FALSE; - } - - /* If the section is already in memory, just copy it. */ - if (section->flags & SEC_IN_MEMORY) - { - BFD_ASSERT (section->contents != NULL); - memcpy (buf, section->contents + offset, count); - return TRUE; - } - if (section->size == 0) - return TRUE; - - /* Alloc in memory and read ETIRs. */ - for (sec = abfd->sections; sec; sec = sec->next) - { - BFD_ASSERT (sec->contents == NULL); - - if (sec->size != 0 && (sec->flags & SEC_HAS_CONTENTS)) - { - sec->contents = bfd_alloc (abfd, sec->size); - if (sec->contents == NULL) - return FALSE; - } - } - if (!alpha_vms_read_sections_content (abfd, NULL)) - return FALSE; - for (sec = abfd->sections; sec; sec = sec->next) - if (sec->contents) - sec->flags |= SEC_IN_MEMORY; - memcpy (buf, section->contents + offset, count); - return TRUE; -} - - -/* Set the format of a file being written. */ - -static bfd_boolean -alpha_vms_mkobject (bfd * abfd) -{ - const bfd_arch_info_type *arch; - - vms_debug2 ((1, "alpha_vms_mkobject (%p)\n", abfd)); - - if (!vms_initialize (abfd)) - return FALSE; - - PRIV (recwr.buf) = bfd_alloc (abfd, MAX_OUTREC_SIZE); - if (PRIV (recwr.buf) == NULL) - return FALSE; - - arch = bfd_scan_arch ("alpha"); - - if (arch == 0) - { - bfd_set_error (bfd_error_wrong_format); - return FALSE; - } - - abfd->arch_info = arch; - 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) -{ - vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd)); - - if (abfd == NULL || abfd->tdata.any == NULL) - return TRUE; - - if (abfd->format == bfd_archive) - { - bfd_release (abfd, abfd->tdata.any); - abfd->tdata.any = NULL; - return TRUE; - } - - if (PRIV (recrd.buf) != NULL) - free (PRIV (recrd.buf)); - - if (PRIV (sections) != NULL) - free (PRIV (sections)); - - 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 (_bfd_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; - - vms_debug2 ((1, "vms_new_section_hook (%p, [%d]%s)\n", - abfd, section->index, section->name)); - - if (! bfd_set_section_alignment (abfd, section, 0)) - return FALSE; - - vms_debug2 ((7, "%d: %s\n", section->index, section->name)); - - amt = sizeof (struct vms_section_data_struct); - section->used_by_bfd = bfd_zalloc (abfd, amt); - if (section->used_by_bfd == NULL) - return FALSE; - - /* Create the section symbol. */ - return _bfd_generic_new_section_hook (abfd, section); -} - -/* Part 4.5, symbols. */ - -/* 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 == NULL) - 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 ((symbol->flags & BSF_FUNCTION) - || (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) -{ - return name[0] == '$'; -} - -/* Part 4.7, writing an object file. */ - -/* 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 -_bfd_vms_set_section_contents (bfd * abfd, - asection *section, - const void * location, - file_ptr offset, - bfd_size_type count) -{ - 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; -} - -/* 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 -alpha_vms_set_arch_mach (bfd *abfd, - enum bfd_architecture arch, unsigned long mach) -{ - if (arch != bfd_arch_alpha - && arch != bfd_arch_unknown) - return FALSE; - - return bfd_default_set_arch_mach (abfd, arch, mach); -} - -/* Set section VMS flags. Clear NO_FLAGS and set FLAGS. */ - -void -bfd_vms_set_section_flags (bfd *abfd ATTRIBUTE_UNUSED, - asection *sec, flagword no_flags, flagword flags) -{ - vms_section_data (sec)->no_flags = no_flags; - vms_section_data (sec)->flags = flags; -} - -struct vms_private_data_struct * -bfd_vms_get_data (bfd *abfd) -{ - return (struct vms_private_data_struct *)abfd->tdata.any; -} - -#define vms_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false) -#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_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 - -/* Symbols table. */ -#define alpha_vms_make_empty_symbol _bfd_generic_make_empty_symbol -#define alpha_vms_bfd_is_target_special_symbol \ - ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false) -#define alpha_vms_print_symbol vms_print_symbol -#define alpha_vms_get_symbol_info vms_get_symbol_info -#define alpha_vms_read_minisymbols _bfd_generic_read_minisymbols -#define alpha_vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol -#define alpha_vms_get_lineno _bfd_nosymbols_get_lineno -#define alpha_vms_find_inliner_info _bfd_nosymbols_find_inliner_info -#define alpha_vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol -#define alpha_vms_find_nearest_line _bfd_vms_find_nearest_dst_line -#define _bfd_generic_find_nearest_line_discriminator \ - _bfd_vms_find_nearest_line_discriminator -#define alpha_vms_bfd_is_local_label_name vms_bfd_is_local_label_name - -/* Generic table. */ -#define alpha_vms_close_and_cleanup vms_close_and_cleanup -#define alpha_vms_bfd_free_cached_info vms_bfd_free_cached_info -#define alpha_vms_new_section_hook vms_new_section_hook -#define alpha_vms_set_section_contents _bfd_vms_set_section_contents -#define alpha_vms_get_section_contents_in_window _bfd_generic_get_section_contents_in_window - -#define alpha_vms_bfd_get_relocated_section_contents \ - bfd_generic_get_relocated_section_contents - -#define alpha_vms_bfd_relax_section bfd_generic_relax_section -#define alpha_vms_bfd_gc_sections bfd_generic_gc_sections -#define alpha_vms_bfd_lookup_section_flags bfd_generic_lookup_section_flags -#define alpha_vms_bfd_merge_sections bfd_generic_merge_sections -#define alpha_vms_bfd_is_group_section bfd_generic_is_group_section -#define alpha_vms_bfd_discard_group bfd_generic_discard_group -#define alpha_vms_section_already_linked \ - _bfd_generic_section_already_linked - -#define alpha_vms_bfd_define_common_symbol bfd_generic_define_common_symbol -#define alpha_vms_bfd_link_hash_table_free _bfd_generic_link_hash_table_free -#define alpha_vms_bfd_link_just_syms _bfd_generic_link_just_syms -#define alpha_vms_bfd_copy_link_hash_symbol_type \ - _bfd_generic_copy_link_hash_symbol_type - -#define alpha_vms_bfd_link_split_section _bfd_generic_link_split_section - -#define alpha_vms_get_dynamic_symtab_upper_bound \ - _bfd_nodynamic_get_dynamic_symtab_upper_bound -#define alpha_vms_canonicalize_dynamic_symtab \ - _bfd_nodynamic_canonicalize_dynamic_symtab -#define alpha_vms_get_dynamic_reloc_upper_bound \ - _bfd_nodynamic_get_dynamic_reloc_upper_bound -#define alpha_vms_canonicalize_dynamic_reloc \ - _bfd_nodynamic_canonicalize_dynamic_reloc - -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. */ - 0, /* match priority. */ - 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, alpha_vms_object_p, /* bfd_check_format. */ - _bfd_vms_lib_alpha_archive_p, _bfd_dummy_target}, - {bfd_false, alpha_vms_mkobject, /* bfd_set_format. */ - _bfd_vms_lib_alpha_mkarchive, bfd_false}, - {bfd_false, alpha_vms_write_object_contents, /* bfd_write_contents. */ - _bfd_vms_lib_write_archive_contents, bfd_false}, - - BFD_JUMP_TABLE_GENERIC (alpha_vms), - BFD_JUMP_TABLE_COPY (vms), - BFD_JUMP_TABLE_CORE (_bfd_nocore), - BFD_JUMP_TABLE_ARCHIVE (_bfd_vms_lib), - BFD_JUMP_TABLE_SYMBOLS (alpha_vms), - BFD_JUMP_TABLE_RELOCS (alpha_vms), - BFD_JUMP_TABLE_WRITE (alpha_vms), - BFD_JUMP_TABLE_LINK (alpha_vms), - BFD_JUMP_TABLE_DYNAMIC (alpha_vms), - - NULL, - - NULL -}; |