| 1 | # This shell script emits a C file. -*- C -*- |
| 2 | # It does some substitutions. |
| 3 | fragment <<EOF |
| 4 | /* This file is is generated by a shell script. DO NOT EDIT! */ |
| 5 | |
| 6 | /* emulate the original gld for the given ${EMULATION_NAME} |
| 7 | Copyright (C) 1991-2019 Free Software Foundation, Inc. |
| 8 | Written by Steve Chamberlain steve@cygnus.com |
| 9 | |
| 10 | This file is part of the GNU Binutils. |
| 11 | |
| 12 | This program is free software; you can redistribute it and/or modify |
| 13 | it under the terms of the GNU General Public License as published by |
| 14 | the Free Software Foundation; either version 3 of the License, or |
| 15 | (at your option) any later version. |
| 16 | |
| 17 | This program is distributed in the hope that it will be useful, |
| 18 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 19 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 20 | GNU General Public License for more details. |
| 21 | |
| 22 | You should have received a copy of the GNU General Public License |
| 23 | along with this program; if not, write to the Free Software |
| 24 | Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, |
| 25 | MA 02110-1301, USA. */ |
| 26 | |
| 27 | #define TARGET_IS_${EMULATION_NAME} |
| 28 | |
| 29 | #include "sysdep.h" |
| 30 | #include "bfd.h" |
| 31 | #include "bfdlink.h" |
| 32 | #include "ctf-api.h" |
| 33 | #include "getopt.h" |
| 34 | |
| 35 | #include "ld.h" |
| 36 | #include "ldmain.h" |
| 37 | #include "ldmisc.h" |
| 38 | |
| 39 | #include "ldexp.h" |
| 40 | #include "ldlang.h" |
| 41 | #include "ldfile.h" |
| 42 | #include "ldemul.h" |
| 43 | |
| 44 | /* If TRUE, then interworking stubs which support calls to old, |
| 45 | non-interworking aware ARM code should be generated. */ |
| 46 | |
| 47 | static int support_old_code = 0; |
| 48 | static char * thumb_entry_symbol = NULL; |
| 49 | |
| 50 | #define OPTION_SUPPORT_OLD_CODE 300 |
| 51 | #define OPTION_THUMB_ENTRY 301 |
| 52 | |
| 53 | static void |
| 54 | gld${EMULATION_NAME}_add_options |
| 55 | (int ns ATTRIBUTE_UNUSED, char **shortopts ATTRIBUTE_UNUSED, int nl, |
| 56 | struct option **longopts, int nrl ATTRIBUTE_UNUSED, |
| 57 | struct option **really_longopts ATTRIBUTE_UNUSED) |
| 58 | { |
| 59 | static const struct option xtra_long[] = { |
| 60 | {"support-old-code", no_argument, NULL, OPTION_SUPPORT_OLD_CODE}, |
| 61 | {"thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY}, |
| 62 | {NULL, no_argument, NULL, 0} |
| 63 | }; |
| 64 | |
| 65 | *longopts = xrealloc (*longopts, |
| 66 | nl * sizeof (struct option) + sizeof (xtra_long)); |
| 67 | memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long)); |
| 68 | } |
| 69 | |
| 70 | static void |
| 71 | gld${EMULATION_NAME}_list_options (FILE *file) |
| 72 | { |
| 73 | fprintf (file, _(" --support-old-code Support interworking with old code\n")); |
| 74 | fprintf (file, _(" --thumb-entry=<sym> Set the entry point to be Thumb symbol <sym>\n")); |
| 75 | } |
| 76 | |
| 77 | static bfd_boolean |
| 78 | gld${EMULATION_NAME}_handle_option (int optc) |
| 79 | { |
| 80 | switch (optc) |
| 81 | { |
| 82 | default: |
| 83 | return FALSE; |
| 84 | |
| 85 | case OPTION_SUPPORT_OLD_CODE: |
| 86 | support_old_code = 1; |
| 87 | break; |
| 88 | |
| 89 | case OPTION_THUMB_ENTRY: |
| 90 | thumb_entry_symbol = optarg; |
| 91 | break; |
| 92 | } |
| 93 | |
| 94 | return TRUE; |
| 95 | } |
| 96 | \f |
| 97 | static void |
| 98 | gld${EMULATION_NAME}_before_parse (void) |
| 99 | { |
| 100 | #ifndef TARGET_ /* I.e., if not generic. */ |
| 101 | ldfile_set_output_arch ("`echo ${ARCH}`", bfd_arch_unknown); |
| 102 | #endif /* not TARGET_ */ |
| 103 | } |
| 104 | |
| 105 | /* This is called after the sections have been attached to output |
| 106 | sections, but before any sizes or addresses have been set. */ |
| 107 | |
| 108 | static void |
| 109 | gld${EMULATION_NAME}_before_allocation (void) |
| 110 | { |
| 111 | /* we should be able to set the size of the interworking stub section */ |
| 112 | |
| 113 | /* Here we rummage through the found bfds to collect glue information */ |
| 114 | /* FIXME: should this be based on a command line option? krk@cygnus.com */ |
| 115 | { |
| 116 | LANG_FOR_EACH_INPUT_STATEMENT (is) |
| 117 | { |
| 118 | if (! bfd_arm_process_before_allocation |
| 119 | (is->the_bfd, & link_info, support_old_code)) |
| 120 | { |
| 121 | /* xgettext:c-format */ |
| 122 | einfo (_("%P: errors encountered processing file %s\n"), |
| 123 | is->filename); |
| 124 | } |
| 125 | } |
| 126 | } |
| 127 | |
| 128 | /* We have seen it all. Allocate it, and carry on */ |
| 129 | bfd_arm_allocate_interworking_sections (& link_info); |
| 130 | |
| 131 | before_allocation_default (); |
| 132 | } |
| 133 | |
| 134 | static void |
| 135 | gld${EMULATION_NAME}_after_open (void) |
| 136 | { |
| 137 | after_open_default (); |
| 138 | |
| 139 | if (strstr (bfd_get_target (link_info.output_bfd), "arm") == NULL) |
| 140 | { |
| 141 | /* The arm backend needs special fields in the output hash structure. |
| 142 | These will only be created if the output format is an arm format, |
| 143 | hence we do not support linking and changing output formats at the |
| 144 | same time. Use a link followed by objcopy to change output formats. */ |
| 145 | einfo (_("%F%P: error: cannot change output format " |
| 146 | "whilst linking %s binaries\n"), "ARM"); |
| 147 | return; |
| 148 | } |
| 149 | |
| 150 | { |
| 151 | LANG_FOR_EACH_INPUT_STATEMENT (is) |
| 152 | { |
| 153 | if (bfd_arm_get_bfd_for_interworking (is->the_bfd, & link_info)) |
| 154 | break; |
| 155 | } |
| 156 | } |
| 157 | } |
| 158 | |
| 159 | static void |
| 160 | gld${EMULATION_NAME}_finish (void) |
| 161 | { |
| 162 | if (thumb_entry_symbol != NULL) |
| 163 | { |
| 164 | struct bfd_link_hash_entry * h; |
| 165 | |
| 166 | h = bfd_link_hash_lookup (link_info.hash, thumb_entry_symbol, |
| 167 | FALSE, FALSE, TRUE); |
| 168 | |
| 169 | if (h != (struct bfd_link_hash_entry *) NULL |
| 170 | && (h->type == bfd_link_hash_defined |
| 171 | || h->type == bfd_link_hash_defweak) |
| 172 | && h->u.def.section->output_section != NULL) |
| 173 | { |
| 174 | static char buffer[32]; |
| 175 | bfd_vma val; |
| 176 | |
| 177 | /* Special procesing is required for a Thumb entry symbol. The |
| 178 | bottom bit of its address must be set. */ |
| 179 | val = (h->u.def.value |
| 180 | + bfd_section_vma (h->u.def.section->output_section) |
| 181 | + h->u.def.section->output_offset); |
| 182 | |
| 183 | val |= 1; |
| 184 | |
| 185 | /* Now convert this value into a string and store it in entry_symbol |
| 186 | where the lang_finish() function will pick it up. */ |
| 187 | buffer[0] = '0'; |
| 188 | buffer[1] = 'x'; |
| 189 | |
| 190 | sprintf_vma (buffer + 2, val); |
| 191 | |
| 192 | if (entry_symbol.name != NULL && entry_from_cmdline) |
| 193 | einfo (_("%P: warning: '--thumb-entry %s' is overriding '-e %s'\n"), |
| 194 | thumb_entry_symbol, entry_symbol.name); |
| 195 | entry_symbol.name = buffer; |
| 196 | } |
| 197 | else |
| 198 | einfo (_("%P: warning: cannot find thumb start symbol %s\n"), |
| 199 | thumb_entry_symbol); |
| 200 | } |
| 201 | |
| 202 | finish_default (); |
| 203 | } |
| 204 | |
| 205 | static char * |
| 206 | gld${EMULATION_NAME}_get_script (int *isfile) |
| 207 | EOF |
| 208 | |
| 209 | if test x"$COMPILE_IN" = xyes |
| 210 | then |
| 211 | # Scripts compiled in. |
| 212 | |
| 213 | # sed commands to quote an ld script as a C string. |
| 214 | sc="-f stringify.sed" |
| 215 | |
| 216 | fragment <<EOF |
| 217 | { |
| 218 | *isfile = 0; |
| 219 | |
| 220 | if (bfd_link_relocatable (&link_info) && config.build_constructors) |
| 221 | return |
| 222 | EOF |
| 223 | sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c |
| 224 | echo ' ; else if (bfd_link_relocatable (&link_info)) return' >> e${EMULATION_NAME}.c |
| 225 | sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c |
| 226 | echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c |
| 227 | sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c |
| 228 | echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c |
| 229 | sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c |
| 230 | echo ' ; else return' >> e${EMULATION_NAME}.c |
| 231 | sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c |
| 232 | echo '; }' >> e${EMULATION_NAME}.c |
| 233 | |
| 234 | else |
| 235 | # Scripts read from the filesystem. |
| 236 | |
| 237 | fragment <<EOF |
| 238 | { |
| 239 | *isfile = 1; |
| 240 | |
| 241 | if (bfd_link_relocatable (&link_info) && config.build_constructors) |
| 242 | return "ldscripts/${EMULATION_NAME}.xu"; |
| 243 | else if (bfd_link_relocatable (&link_info)) |
| 244 | return "ldscripts/${EMULATION_NAME}.xr"; |
| 245 | else if (!config.text_read_only) |
| 246 | return "ldscripts/${EMULATION_NAME}.xbn"; |
| 247 | else if (!config.magic_demand_paged) |
| 248 | return "ldscripts/${EMULATION_NAME}.xn"; |
| 249 | else |
| 250 | return "ldscripts/${EMULATION_NAME}.x"; |
| 251 | } |
| 252 | EOF |
| 253 | |
| 254 | fi |
| 255 | |
| 256 | fragment <<EOF |
| 257 | |
| 258 | struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation = |
| 259 | { |
| 260 | gld${EMULATION_NAME}_before_parse, |
| 261 | syslib_default, |
| 262 | hll_default, |
| 263 | after_parse_default, |
| 264 | gld${EMULATION_NAME}_after_open, |
| 265 | after_check_relocs_default, |
| 266 | after_allocation_default, |
| 267 | set_output_arch_default, |
| 268 | ldemul_default_target, |
| 269 | gld${EMULATION_NAME}_before_allocation, |
| 270 | gld${EMULATION_NAME}_get_script, |
| 271 | "${EMULATION_NAME}", |
| 272 | "${OUTPUT_FORMAT}", |
| 273 | gld${EMULATION_NAME}_finish, |
| 274 | NULL, /* create output section statements */ |
| 275 | NULL, /* open dynamic archive */ |
| 276 | NULL, /* place orphan */ |
| 277 | NULL, /* set symbols */ |
| 278 | NULL, /* parse_args */ |
| 279 | gld${EMULATION_NAME}_add_options, |
| 280 | gld${EMULATION_NAME}_handle_option, |
| 281 | NULL, /* unrecognised file */ |
| 282 | gld${EMULATION_NAME}_list_options, |
| 283 | NULL, /* recognized file */ |
| 284 | NULL, /* find_potential_libraries */ |
| 285 | NULL, /* new_vers_pattern */ |
| 286 | NULL, /* extra_map_file_text */ |
| 287 | ${LDEMUL_EMIT_CTF_EARLY-NULL}, |
| 288 | ${LDEMUL_EXAMINE_STRTAB_FOR_CTF-NULL} |
| 289 | }; |
| 290 | EOF |