diff options
author | Andrew Hsieh <andrewhsieh@google.com> | 2014-06-13 12:38:00 -0700 |
---|---|---|
committer | Andrew Hsieh <andrewhsieh@google.com> | 2014-06-13 12:38:00 -0700 |
commit | 54f1b3cf509cd889905287cb8ce6c5ae33911a21 (patch) | |
tree | e39b1a7fa04db86a8215b7f9d4656d74e394aec0 /binutils-2.25/ld/emultempl/vms.em | |
parent | 2a6558a8ecfb81d75215b4ec7dc61113e12cfd5f (diff) | |
download | toolchain_binutils-54f1b3cf509cd889905287cb8ce6c5ae33911a21.tar.gz toolchain_binutils-54f1b3cf509cd889905287cb8ce6c5ae33911a21.tar.bz2 toolchain_binutils-54f1b3cf509cd889905287cb8ce6c5ae33911a21.zip |
Add upstream binutils-2.25 snapshot 4/4 2014
For MIPS -mmsa support
Change-Id: I08c4f002fa7b33dec85ed75956e6ab551bb03c96
Diffstat (limited to 'binutils-2.25/ld/emultempl/vms.em')
-rw-r--r-- | binutils-2.25/ld/emultempl/vms.em | 238 |
1 files changed, 238 insertions, 0 deletions
diff --git a/binutils-2.25/ld/emultempl/vms.em b/binutils-2.25/ld/emultempl/vms.em new file mode 100644 index 00000000..30c1a160 --- /dev/null +++ b/binutils-2.25/ld/emultempl/vms.em @@ -0,0 +1,238 @@ +# This shell script emits a C file. -*- C -*- +# Copyright 2010, 2012 +# Free Software Foundation, Inc. +# +# This file is part of the GNU Binutils. +# +# 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. +# + +# This file is sourced from generic.em. + +fragment <<EOF +#include "getopt.h" + +static void +gld${EMULATION_NAME}_before_parse (void) +{ + ldfile_set_output_arch ("${ARCH}", bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`); + input_flags.dynamic = TRUE; + config.has_shared = FALSE; /* Not yet. */ + + /* For ia64, harmless for alpha. */ + link_info.emit_hash = FALSE; + link_info.spare_dynamic_tags = 0; +} + +/* This is called before the input files are opened. We add the + standard library. */ + +static void +gld${EMULATION_NAME}_create_output_section_statements (void) +{ + lang_add_input_file ("imagelib", lang_input_file_is_l_enum, NULL); + lang_add_input_file ("starlet", lang_input_file_is_l_enum, NULL); + lang_add_input_file ("sys\$public_vectors", lang_input_file_is_l_enum, NULL); +} + +/* Try to open a dynamic archive. This is where we know that VMS + shared images (dynamic libraries) have an extension of .exe. */ + +static bfd_boolean +gld${EMULATION_NAME}_open_dynamic_archive (const char *arch ATTRIBUTE_UNUSED, + search_dirs_type *search, + lang_input_statement_type *entry) +{ + char *string; + + if (! entry->flags.maybe_archive) + return FALSE; + + string = (char *) xmalloc (strlen (search->name) + + strlen (entry->filename) + + sizeof "/.exe"); + + sprintf (string, "%s/%s.exe", search->name, entry->filename); + + if (! ldfile_try_open_bfd (string, entry)) + { + free (string); + return FALSE; + } + + entry->filename = string; + + return TRUE; +} + +static int +gld${EMULATION_NAME}_find_potential_libraries + (char *name, lang_input_statement_type *entry) +{ + return ldfile_open_file_search (name, entry, "", ".olb"); +} + +/* Place an orphan section. We use this to put random OVR sections. + Much borrowed from elf32.em. */ + +static lang_output_section_statement_type * +vms_place_orphan (asection *s, + const char *secname ATTRIBUTE_UNUSED, + int constraint ATTRIBUTE_UNUSED) +{ + static struct orphan_save hold_data = + { + "\$DATA\$", + SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA, + 0, 0, 0, 0 + }; + + /* We have nothing to say for anything other than a final link or an excluded + section. */ + if (link_info.relocatable + || (s->flags & (SEC_EXCLUDE | SEC_LOAD)) != SEC_LOAD) + return NULL; + + /* FIXME: we should place sections by VMS program section flags. */ + + /* Only handle data sections. */ + if ((s->flags & SEC_DATA) == 0) + return NULL; + + if (hold_data.os == NULL) + hold_data.os = lang_output_section_find (hold_data.name); + + if (hold_data.os != NULL) + { + lang_add_section (&hold_data.os->children, s, NULL, hold_data.os); + return hold_data.os; + } + else + return NULL; +} + +/* VMS specific options. */ +#define OPTION_IDENTIFICATION (300 + 1) + +static void +gld${EMULATION_NAME}_add_options + (int ns ATTRIBUTE_UNUSED, + char **shortopts ATTRIBUTE_UNUSED, + int nl, + struct option **longopts, + int nrl ATTRIBUTE_UNUSED, + struct option **really_longopts ATTRIBUTE_UNUSED) +{ + static const struct option xtra_long[] = + { + {"identification", required_argument, NULL, OPTION_IDENTIFICATION}, + {NULL, no_argument, NULL, 0} + }; + + *longopts + = xrealloc (*longopts, nl * sizeof (struct option) + sizeof (xtra_long)); + memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long)); +} + +static void +gld${EMULATION_NAME}_list_options (FILE *file) +{ + fprintf (file, _(" --identification <string> Set the identification of the output\n")); +} + +static bfd_boolean +gld${EMULATION_NAME}_handle_option (int optc) +{ + switch (optc) + { + default: + return FALSE; + + case OPTION_IDENTIFICATION: + /* Currently ignored. */ + break; + } + + return TRUE; +} + +EOF + +if test "$OUTPUT_FORMAT" = "elf64-ia64-vms"; then + +fragment <<EOF +#include "elf-bfd.h" +EOF + +source_em ${srcdir}/emultempl/elf-generic.em + +fragment <<EOF + +/* This is called after the sections have been attached to output + sections, but before any sizes or addresses have been set. */ + +static void +gld${EMULATION_NAME}_before_allocation (void) +{ + const struct elf_backend_data *bed; + + if (!is_elf_hash_table (link_info.hash)) + return; + + bed = get_elf_backend_data (link_info.output_bfd); + + /* The backend must work out the sizes of all the other dynamic + sections. */ + if (elf_hash_table (&link_info)->dynamic_sections_created + && bed->elf_backend_size_dynamic_sections + && ! (*bed->elf_backend_size_dynamic_sections) (link_info.output_bfd, + &link_info)) + einfo ("%P%F: failed to set dynamic section sizes: %E\n"); + + before_allocation_default (); +} + +static void +gld${EMULATION_NAME}_after_allocation (void) +{ + bfd_boolean need_layout = bfd_elf_discard_info (link_info.output_bfd, + &link_info); + gld${EMULATION_NAME}_map_segments (need_layout); +} + +static void +gld${EMULATION_NAME}_after_parse (void) +{ + link_info.relax_pass = 2; + after_parse_default (); +} +EOF + +LDEMUL_BEFORE_ALLOCATION=gld"$EMULATION_NAME"_before_allocation +LDEMUL_AFTER_ALLOCATION=gld"$EMULATION_NAME"_after_allocation + +LDEMUL_AFTER_PARSE=gld${EMULATION_NAME}_after_parse +source_em ${srcdir}/emultempl/needrelax.em +fi + +LDEMUL_PLACE_ORPHAN=vms_place_orphan +LDEMUL_BEFORE_PARSE=gld"$EMULATION_NAME"_before_parse +LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=gld"$EMULATION_NAME"_create_output_section_statements +LDEMUL_FIND_POTENTIAL_LIBRARIES=gld"$EMULATION_NAME"_find_potential_libraries +LDEMUL_OPEN_DYNAMIC_ARCHIVE=gld"$EMULATION_NAME"_open_dynamic_archive +LDEMUL_ADD_OPTIONS=gld"$EMULATION_NAME"_add_options +LDEMUL_HANDLE_OPTION=gld"$EMULATION_NAME"_handle_option +LDEMUL_LIST_OPTIONS=gld"$EMULATION_NAME"_list_options |