1# This shell script emits a C file. -*- C -*-
2#   Copyright (C) 2010-2016 Free Software Foundation, Inc.
3#
4# This file is part of the GNU Binutils.
5#
6# This program is free software; you can redistribute it and/or modify
7# it under the terms of the GNU General Public License as published by
8# the Free Software Foundation; either version 3 of the License, or
9# (at your option) any later version.
10#
11# This program is distributed in the hope that it will be useful,
12# but WITHOUT ANY WARRANTY; without even the implied warranty of
13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14# GNU General Public License for more details.
15#
16# You should have received a copy of the GNU General Public License
17# along with this program; if not, write to the Free Software
18# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19# MA 02110-1301, USA.
20#
21
22# This file is sourced from generic.em.
23
24fragment <<EOF
25#include "getopt.h"
26
27static void
28gld${EMULATION_NAME}_before_parse (void)
29{
30  ldfile_set_output_arch ("${ARCH}", bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`);
31  input_flags.dynamic = TRUE;
32  config.has_shared = FALSE; /* Not yet.  */
33
34  /* For ia64, harmless for alpha.  */
35  link_info.emit_hash = FALSE;
36  link_info.spare_dynamic_tags = 0;
37}
38
39/* This is called before the input files are opened.  We add the
40   standard library.  */
41
42static void
43gld${EMULATION_NAME}_create_output_section_statements (void)
44{
45  lang_add_input_file ("imagelib", lang_input_file_is_l_enum, NULL);
46  lang_add_input_file ("starlet", lang_input_file_is_l_enum, NULL);
47  lang_add_input_file ("sys\$public_vectors", lang_input_file_is_l_enum, NULL);
48}
49
50/* Try to open a dynamic archive.  This is where we know that VMS
51   shared images (dynamic libraries) have an extension of .exe.  */
52
53static bfd_boolean
54gld${EMULATION_NAME}_open_dynamic_archive (const char *arch ATTRIBUTE_UNUSED,
55                                           search_dirs_type *search,
56                                           lang_input_statement_type *entry)
57{
58  char *string;
59
60  if (! entry->flags.maybe_archive || entry->flags.full_name_provided)
61    return FALSE;
62
63  string = (char *) xmalloc (strlen (search->name)
64			     + strlen (entry->filename)
65			     + sizeof "/.exe");
66
67  sprintf (string, "%s/%s.exe", search->name, entry->filename);
68
69  if (! ldfile_try_open_bfd (string, entry))
70    {
71      free (string);
72      return FALSE;
73    }
74
75  entry->filename = string;
76
77  return TRUE;
78}
79
80static int
81gld${EMULATION_NAME}_find_potential_libraries
82  (char *name, lang_input_statement_type *entry)
83{
84  return ldfile_open_file_search (name, entry, "", ".olb");
85}
86
87/* Place an orphan section.  We use this to put random OVR sections.
88   Much borrowed from elf32.em.  */
89
90static lang_output_section_statement_type *
91vms_place_orphan (asection *s,
92		  const char *secname ATTRIBUTE_UNUSED,
93		  int constraint ATTRIBUTE_UNUSED)
94{
95  static struct orphan_save hold_data =
96    {
97      "\$DATA\$",
98      SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA,
99      0, 0, 0, 0
100    };
101
102  /* We have nothing to say for anything other than a final link or an excluded
103     section.  */
104  if (bfd_link_relocatable (&link_info)
105      || (s->flags & (SEC_EXCLUDE | SEC_LOAD)) != SEC_LOAD)
106    return NULL;
107
108  /* FIXME: we should place sections by VMS program section flags.  */
109
110  /* Only handle data sections.  */
111  if ((s->flags & SEC_DATA) == 0)
112    return NULL;
113
114  if (hold_data.os == NULL)
115    hold_data.os = lang_output_section_find (hold_data.name);
116
117  if (hold_data.os != NULL)
118    {
119      lang_add_section (&hold_data.os->children, s, NULL, hold_data.os);
120      return hold_data.os;
121    }
122  else
123    return NULL;
124}
125
126/* VMS specific options.  */
127#define OPTION_IDENTIFICATION		(300  + 1)
128
129static void
130gld${EMULATION_NAME}_add_options
131  (int ns ATTRIBUTE_UNUSED,
132   char **shortopts ATTRIBUTE_UNUSED,
133   int nl,
134   struct option **longopts,
135   int nrl ATTRIBUTE_UNUSED,
136   struct option **really_longopts ATTRIBUTE_UNUSED)
137{
138  static const struct option xtra_long[] =
139  {
140    {"identification", required_argument, NULL, OPTION_IDENTIFICATION},
141    {NULL, no_argument, NULL, 0}
142  };
143
144  *longopts
145    = xrealloc (*longopts, nl * sizeof (struct option) + sizeof (xtra_long));
146  memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long));
147}
148
149static void
150gld${EMULATION_NAME}_list_options (FILE *file)
151{
152  fprintf (file, _("  --identification <string>          Set the identification of the output\n"));
153}
154
155static bfd_boolean
156gld${EMULATION_NAME}_handle_option (int optc)
157{
158  switch (optc)
159    {
160    default:
161      return FALSE;
162
163    case OPTION_IDENTIFICATION:
164      /* Currently ignored.  */
165      break;
166    }
167
168  return TRUE;
169}
170
171EOF
172
173if test "$OUTPUT_FORMAT" = "elf64-ia64-vms"; then
174
175fragment <<EOF
176#include "elf-bfd.h"
177EOF
178
179source_em ${srcdir}/emultempl/elf-generic.em
180
181fragment <<EOF
182
183/* This is called after the sections have been attached to output
184   sections, but before any sizes or addresses have been set.  */
185
186static void
187gld${EMULATION_NAME}_before_allocation (void)
188{
189  const struct elf_backend_data *bed;
190
191  if (!is_elf_hash_table (link_info.hash))
192    return;
193
194  bed = get_elf_backend_data (link_info.output_bfd);
195
196  /* The backend must work out the sizes of all the other dynamic
197     sections.  */
198  if (elf_hash_table (&link_info)->dynamic_sections_created
199      && bed->elf_backend_size_dynamic_sections
200      && ! (*bed->elf_backend_size_dynamic_sections) (link_info.output_bfd,
201                                                      &link_info))
202    einfo ("%P%F: failed to set dynamic section sizes: %E\n");
203
204  before_allocation_default ();
205}
206
207static void
208gld${EMULATION_NAME}_after_allocation (void)
209{
210  int need_layout = bfd_elf_discard_info (link_info.output_bfd, &link_info);
211
212  if (need_layout < 0)
213    einfo ("%X%P: .eh_frame/.stab edit: %E\n");
214  else
215    gld${EMULATION_NAME}_map_segments (need_layout);
216}
217
218static void
219gld${EMULATION_NAME}_after_parse (void)
220{
221  link_info.relax_pass = 2;
222  after_parse_default ();
223}
224EOF
225
226LDEMUL_BEFORE_ALLOCATION=gld"$EMULATION_NAME"_before_allocation
227LDEMUL_AFTER_ALLOCATION=gld"$EMULATION_NAME"_after_allocation
228
229LDEMUL_AFTER_PARSE=gld${EMULATION_NAME}_after_parse
230source_em ${srcdir}/emultempl/needrelax.em
231fi
232
233LDEMUL_PLACE_ORPHAN=vms_place_orphan
234LDEMUL_BEFORE_PARSE=gld"$EMULATION_NAME"_before_parse
235LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=gld"$EMULATION_NAME"_create_output_section_statements
236LDEMUL_FIND_POTENTIAL_LIBRARIES=gld"$EMULATION_NAME"_find_potential_libraries
237LDEMUL_OPEN_DYNAMIC_ARCHIVE=gld"$EMULATION_NAME"_open_dynamic_archive
238LDEMUL_ADD_OPTIONS=gld"$EMULATION_NAME"_add_options
239LDEMUL_HANDLE_OPTION=gld"$EMULATION_NAME"_handle_option
240LDEMUL_LIST_OPTIONS=gld"$EMULATION_NAME"_list_options
241