1 # This shell script emits a C file. -*- C -*- 2 # Copyright (C) 2010-2025 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 24 fragment <<EOF 25 #include "libiberty.h" 26 #include "getopt.h" 27 #include "ldlex.h" 28 29 static void 30 gld${EMULATION_NAME}_before_parse (void) 31 { 32 ldfile_set_output_arch ("${ARCH}", bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`); 33 input_flags.dynamic = true; 34 config.has_shared = false; /* Not yet. */ 35 36 /* For ia64, harmless for alpha. */ 37 link_info.emit_hash = false; 38 link_info.spare_dynamic_tags = 0; 39 } 40 41 /* This is called before the input files are opened. We add the 42 standard library. */ 43 44 static void 45 gld${EMULATION_NAME}_create_output_section_statements (void) 46 { 47 lang_add_input_file ("imagelib", lang_input_file_is_l_enum, NULL); 48 lang_add_input_file ("starlet", lang_input_file_is_l_enum, NULL); 49 lang_add_input_file ("sys\$public_vectors", lang_input_file_is_l_enum, NULL); 50 } 51 52 /* Try to open a dynamic archive. This is where we know that VMS 53 shared images (dynamic libraries) have an extension of .exe. */ 54 55 static bool 56 gld${EMULATION_NAME}_open_dynamic_archive (const char *arch ATTRIBUTE_UNUSED, 57 search_dirs_type *search, 58 lang_input_statement_type *entry) 59 { 60 char *string; 61 62 if (! entry->flags.maybe_archive || entry->flags.full_name_provided) 63 return false; 64 65 string = (char *) xmalloc (strlen (search->name) 66 + strlen (entry->filename) 67 + sizeof "/.exe"); 68 69 sprintf (string, "%s/%s.exe", search->name, entry->filename); 70 71 if (! ldfile_try_open_bfd (string, entry)) 72 { 73 free (string); 74 return false; 75 } 76 77 entry->filename = string; 78 79 return true; 80 } 81 82 static int 83 gld${EMULATION_NAME}_find_potential_libraries 84 (char *name, lang_input_statement_type *entry) 85 { 86 return ldfile_open_file_search (name, entry, "", ".olb"); 87 } 88 89 /* Place an orphan section. We use this to put random OVR sections. 90 Much borrowed from elf.em. */ 91 92 static lang_output_section_statement_type * 93 vms_place_orphan (asection *s, 94 const char *secname ATTRIBUTE_UNUSED, 95 int constraint ATTRIBUTE_UNUSED) 96 { 97 static struct orphan_save hold_data = 98 { 99 "\$DATA\$", 100 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA, 101 0, 0, 0, 0 102 }; 103 104 /* We have nothing to say for anything other than a final link or an excluded 105 section. */ 106 if (bfd_link_relocatable (&link_info) 107 || (s->flags & (SEC_EXCLUDE | SEC_LOAD)) != SEC_LOAD) 108 return NULL; 109 110 /* FIXME: we should place sections by VMS program section flags. */ 111 112 /* Only handle data sections. */ 113 if ((s->flags & SEC_DATA) == 0) 114 return NULL; 115 116 if (hold_data.os == NULL) 117 hold_data.os = lang_output_section_find (hold_data.name); 118 119 if (hold_data.os != NULL) 120 { 121 lang_add_section (&hold_data.os->children, s, NULL, NULL, hold_data.os); 122 return hold_data.os; 123 } 124 else 125 return NULL; 126 } 127 128 /* VMS specific options. */ 129 130 static void 131 gld${EMULATION_NAME}_add_options 132 (int ns ATTRIBUTE_UNUSED, 133 char **shortopts ATTRIBUTE_UNUSED, 134 int nl, 135 struct option **longopts, 136 int nrl ATTRIBUTE_UNUSED, 137 struct option **really_longopts ATTRIBUTE_UNUSED) 138 { 139 static const struct option xtra_long[] = 140 { 141 {"identification", required_argument, NULL, OPTION_IDENTIFICATION}, 142 {NULL, no_argument, NULL, 0} 143 }; 144 145 *longopts 146 = xrealloc (*longopts, nl * sizeof (struct option) + sizeof (xtra_long)); 147 memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long)); 148 } 149 150 static void 151 gld${EMULATION_NAME}_list_options (FILE *file) 152 { 153 fprintf (file, _(" --identification <string> Set the identification of the output\n")); 154 } 155 156 static bool 157 gld${EMULATION_NAME}_handle_option (int optc) 158 { 159 switch (optc) 160 { 161 default: 162 return false; 163 164 case OPTION_IDENTIFICATION: 165 /* Currently ignored. */ 166 break; 167 } 168 169 return true; 170 } 171 172 EOF 173 174 if test "$OUTPUT_FORMAT" = "elf64-ia64-vms"; then 175 176 fragment <<EOF 177 #include "elf-bfd.h" 178 #include "ldelfgen.h" 179 EOF 180 181 source_em ${srcdir}/emultempl/elf-generic.em 182 183 fragment <<EOF 184 185 /* This is called after the sections have been attached to output 186 sections, but before any sizes or addresses have been set. */ 187 188 static void 189 gld${EMULATION_NAME}_before_allocation (void) 190 { 191 const struct elf_backend_data *bed; 192 193 if (!is_elf_hash_table (link_info.hash)) 194 return; 195 196 bed = get_elf_backend_data (link_info.output_bfd); 197 198 /* The backend must work out the sizes of all the other dynamic 199 sections. */ 200 if (bed->elf_backend_late_size_sections 201 && !bed->elf_backend_late_size_sections (link_info.output_bfd, 202 &link_info)) 203 fatal (_("%P: failed to set dynamic section sizes: %E\n")); 204 205 before_allocation_default (); 206 } 207 208 static void 209 gld${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 219 static void 220 gld${EMULATION_NAME}_after_parse (void) 221 { 222 link_info.relax_pass = 2; 223 after_parse_default (); 224 } 225 EOF 226 227 LDEMUL_BEFORE_ALLOCATION=gld"$EMULATION_NAME"_before_allocation 228 LDEMUL_AFTER_ALLOCATION=gld"$EMULATION_NAME"_after_allocation 229 230 LDEMUL_AFTER_PARSE=gld${EMULATION_NAME}_after_parse 231 source_em ${srcdir}/emultempl/needrelax.em 232 fi 233 234 LDEMUL_PLACE_ORPHAN=vms_place_orphan 235 LDEMUL_BEFORE_PARSE=gld"$EMULATION_NAME"_before_parse 236 LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=gld"$EMULATION_NAME"_create_output_section_statements 237 LDEMUL_FIND_POTENTIAL_LIBRARIES=gld"$EMULATION_NAME"_find_potential_libraries 238 LDEMUL_OPEN_DYNAMIC_ARCHIVE=gld"$EMULATION_NAME"_open_dynamic_archive 239 LDEMUL_ADD_OPTIONS=gld"$EMULATION_NAME"_add_options 240 LDEMUL_HANDLE_OPTION=gld"$EMULATION_NAME"_handle_option 241 LDEMUL_LIST_OPTIONS=gld"$EMULATION_NAME"_list_options 242
Indexes created Sun May 03 00:22:47 UTC 2026