1# This shell script emits a C file. -*- C -*- 2# Copyright (C) 2010-2022 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 bool 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 elf.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, 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 bool 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" 177#include "ldelfgen.h" 178EOF 179 180source_em ${srcdir}/emultempl/elf-generic.em 181 182fragment <<EOF 183 184/* This is called after the sections have been attached to output 185 sections, but before any sizes or addresses have been set. */ 186 187static void 188gld${EMULATION_NAME}_before_allocation (void) 189{ 190 const struct elf_backend_data *bed; 191 192 if (!is_elf_hash_table (link_info.hash)) 193 return; 194 195 bed = get_elf_backend_data (link_info.output_bfd); 196 197 /* The backend must work out the sizes of all the other dynamic 198 sections. */ 199 if (elf_hash_table (&link_info)->dynamic_sections_created 200 && bed->elf_backend_size_dynamic_sections 201 && ! (*bed->elf_backend_size_dynamic_sections) (link_info.output_bfd, 202 &link_info)) 203 einfo (_("%F%P: failed to set dynamic section sizes: %E\n")); 204 205 before_allocation_default (); 206} 207 208static void 209gld${EMULATION_NAME}_after_allocation (void) 210{ 211 int need_layout = bfd_elf_discard_info (link_info.output_bfd, &link_info); 212 213 if (need_layout < 0) 214 einfo (_("%X%P: .eh_frame/.stab edit: %E\n")); 215 else 216 ldelf_map_segments (need_layout); 217} 218 219static void 220gld${EMULATION_NAME}_after_parse (void) 221{ 222 link_info.relax_pass = 2; 223 after_parse_default (); 224} 225EOF 226 227LDEMUL_BEFORE_ALLOCATION=gld"$EMULATION_NAME"_before_allocation 228LDEMUL_AFTER_ALLOCATION=gld"$EMULATION_NAME"_after_allocation 229 230LDEMUL_AFTER_PARSE=gld${EMULATION_NAME}_after_parse 231source_em ${srcdir}/emultempl/needrelax.em 232fi 233 234LDEMUL_PLACE_ORPHAN=vms_place_orphan 235LDEMUL_BEFORE_PARSE=gld"$EMULATION_NAME"_before_parse 236LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=gld"$EMULATION_NAME"_create_output_section_statements 237LDEMUL_FIND_POTENTIAL_LIBRARIES=gld"$EMULATION_NAME"_find_potential_libraries 238LDEMUL_OPEN_DYNAMIC_ARCHIVE=gld"$EMULATION_NAME"_open_dynamic_archive 239LDEMUL_ADD_OPTIONS=gld"$EMULATION_NAME"_add_options 240LDEMUL_HANDLE_OPTION=gld"$EMULATION_NAME"_handle_option 241LDEMUL_LIST_OPTIONS=gld"$EMULATION_NAME"_list_options 242