summaryrefslogtreecommitdiffstats
path: root/binutils-2.25/ld/emultempl/vms.em
diff options
context:
space:
mode:
authorAndrew Hsieh <andrewhsieh@google.com>2014-06-13 12:38:00 -0700
committerAndrew Hsieh <andrewhsieh@google.com>2014-06-13 12:38:00 -0700
commit54f1b3cf509cd889905287cb8ce6c5ae33911a21 (patch)
treee39b1a7fa04db86a8215b7f9d4656d74e394aec0 /binutils-2.25/ld/emultempl/vms.em
parent2a6558a8ecfb81d75215b4ec7dc61113e12cfd5f (diff)
downloadtoolchain_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.em238
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