1 # This shell script emits a C file. -*- C -*-
2 # Copyright 1991, 1993, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
3 # 2004, 2005, 2007, 2008
4 # Free Software Foundation, Inc.
6 # This file is part of the GNU Binutils.
8 # This program is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software
20 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
24 # This file is sourced from elf32.em, and defines extra arm-elf
27 test -z "$TARGET2_TYPE" && TARGET2_TYPE="rel"
33 static char *thumb_entry_symbol = NULL;
34 static int byteswap_code = 0;
35 static int target1_is_rel = 0${TARGET1_IS_REL};
36 static char *target2_type = "${TARGET2_TYPE}";
37 static int fix_v4bx = 0;
38 static int use_blx = 0;
39 static bfd_arm_vfp11_fix vfp11_denorm_fix = BFD_ARM_VFP11_FIX_DEFAULT;
40 static int no_enum_size_warning = 0;
41 static int no_wchar_size_warning = 0;
42 static int pic_veneer = 0;
45 gld${EMULATION_NAME}_before_parse (void)
47 #ifndef TARGET_ /* I.e., if not generic. */
48 ldfile_set_output_arch ("`echo ${ARCH}`", bfd_arch_unknown);
49 #endif /* not TARGET_ */
50 config.dynamic_link = ${DYNAMIC_LINK-TRUE};
51 config.has_shared = `if test -n "$GENERATE_SHLIB_SCRIPT" ; then echo TRUE ; else echo FALSE ; fi`;
55 arm_elf_before_allocation (void)
57 bfd_elf32_arm_set_byteswap_code (&link_info, byteswap_code);
59 /* Choose type of VFP11 erratum fix, or warn if specified fix is unnecessary
60 due to architecture version. */
61 bfd_elf32_arm_set_vfp11_fix (link_info.output_bfd, &link_info);
63 /* We should be able to set the size of the interworking stub section. We
64 can't do it until later if we have dynamic sections, though. */
65 if (! elf_hash_table (&link_info)->dynamic_sections_created)
67 /* Here we rummage through the found bfds to collect glue information. */
68 LANG_FOR_EACH_INPUT_STATEMENT (is)
70 /* Initialise mapping tables for code/data. */
71 bfd_elf32_arm_init_maps (is->the_bfd);
73 if (!bfd_elf32_arm_process_before_allocation (is->the_bfd,
75 || !bfd_elf32_arm_vfp11_erratum_scan (is->the_bfd, &link_info))
76 /* xgettext:c-format */
77 einfo (_("Errors encountered processing file %s"), is->filename);
80 /* We have seen it all. Allocate it, and carry on. */
81 bfd_elf32_arm_allocate_interworking_sections (& link_info);
84 /* Call the standard elf routine. */
85 gld${EMULATION_NAME}_before_allocation ();
89 arm_elf_after_allocation (void)
91 /* Call the standard elf routine. */
92 after_allocation_default ();
95 LANG_FOR_EACH_INPUT_STATEMENT (is)
97 /* Figure out where VFP11 erratum veneers (and the labels returning
98 from same) have been placed. */
99 bfd_elf32_arm_vfp11_fix_veneer_locations (is->the_bfd, &link_info);
104 /* Fake input file for stubs. */
105 static lang_input_statement_type *stub_file;
107 /* Whether we need to call gldarm_layout_sections_again. */
108 static int need_laying_out = 0;
110 /* Maximum size of a group of input sections that can be handled by
111 one stub section. A value of +/-1 indicates the bfd back-end
112 should use a suitable default size. */
113 static bfd_signed_vma group_size = 1;
115 struct hook_stub_info
117 lang_statement_list_type add;
118 asection *input_section;
121 /* Traverse the linker tree to find the spot where the stub goes. */
124 hook_in_stub (struct hook_stub_info *info, lang_statement_union_type **lp)
126 lang_statement_union_type *l;
129 for (; (l = *lp) != NULL; lp = &l->header.next)
131 switch (l->header.type)
133 case lang_constructors_statement_enum:
134 ret = hook_in_stub (info, &constructor_list.head);
139 case lang_output_section_statement_enum:
140 ret = hook_in_stub (info,
141 &l->output_section_statement.children.head);
146 case lang_wild_statement_enum:
147 ret = hook_in_stub (info, &l->wild_statement.children.head);
152 case lang_group_statement_enum:
153 ret = hook_in_stub (info, &l->group_statement.children.head);
158 case lang_input_section_enum:
159 if (l->input_section.section == info->input_section)
161 /* We've found our section. Insert the stub immediately
162 after its associated input section. */
163 *(info->add.tail) = l->header.next;
164 l->header.next = info->add.head;
169 case lang_data_statement_enum:
170 case lang_reloc_statement_enum:
171 case lang_object_symbols_statement_enum:
172 case lang_output_statement_enum:
173 case lang_target_statement_enum:
174 case lang_input_statement_enum:
175 case lang_assignment_statement_enum:
176 case lang_padding_statement_enum:
177 case lang_address_statement_enum:
178 case lang_fill_statement_enum:
190 /* Call-back for elf32_arm_size_stubs. */
192 /* Create a new stub section, and arrange for it to be linked
193 immediately after INPUT_SECTION. */
196 elf32_arm_add_stub_section (const char *stub_sec_name,
197 asection *input_section)
201 asection *output_section;
203 lang_output_section_statement_type *os;
204 struct hook_stub_info info;
206 flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE
207 | SEC_HAS_CONTENTS | SEC_RELOC | SEC_IN_MEMORY | SEC_KEEP);
208 stub_sec = bfd_make_section_anyway_with_flags (stub_file->the_bfd,
209 stub_sec_name, flags);
210 if (stub_sec == NULL)
213 bfd_set_section_alignment (stub_file->the_bfd, stub_sec, 3);
215 output_section = input_section->output_section;
216 secname = bfd_get_section_name (output_section->owner, output_section);
217 os = lang_output_section_find (secname);
219 info.input_section = input_section;
220 lang_list_init (&info.add);
221 lang_add_section (&info.add, stub_sec, os);
223 if (info.add.head == NULL)
226 if (hook_in_stub (&info, &os->children.head))
230 einfo ("%X%P: can not make stub section: %E\n");
234 /* Another call-back for elf_arm_size_stubs. */
237 gldarm_layout_sections_again (void)
239 /* If we have changed sizes of the stub sections, then we need
240 to recalculate all the section offsets. This may mean we need to
241 add even more stubs. */
242 gld${EMULATION_NAME}_map_segments (TRUE);
243 need_laying_out = -1;
247 build_section_lists (lang_statement_union_type *statement)
249 if (statement->header.type == lang_input_section_enum)
251 asection *i = statement->input_section.section;
253 if (!((lang_input_statement_type *) i->owner->usrdata)->just_syms_flag
254 && (i->flags & SEC_EXCLUDE) == 0
255 && i->output_section != NULL
256 && i->output_section->owner == link_info.output_bfd)
257 elf32_arm_next_input_section (& link_info, i);
262 compare_output_sec_vma (const void *a, const void *b)
264 asection *asec = *(asection **) a, *bsec = *(asection **) b;
265 asection *aout = asec->output_section, *bout = bsec->output_section;
268 /* If there's no output section for some reason, compare equal. */
272 avma = aout->vma + asec->output_offset;
273 bvma = bout->vma + bsec->output_offset;
277 else if (avma < bvma)
284 gld${EMULATION_NAME}_finish (void)
286 struct bfd_link_hash_entry * h;
287 unsigned int list_size = 10;
288 asection **sec_list = xmalloc (list_size * sizeof (asection *));
289 unsigned int sec_count = 0;
291 if (!link_info.relocatable)
293 /* Build a sorted list of input text sections, then use that to process
294 the unwind table index. */
295 LANG_FOR_EACH_INPUT_STATEMENT (is)
297 bfd *abfd = is->the_bfd;
300 if ((abfd->flags & (EXEC_P | DYNAMIC)) != 0)
303 for (sec = abfd->sections; sec != NULL; sec = sec->next)
305 asection *out_sec = sec->output_section;
308 && elf_section_type (sec) == SHT_PROGBITS
309 && (elf_section_flags (sec) & SHF_EXECINSTR) != 0
310 && (sec->flags & SEC_EXCLUDE) == 0
311 && sec->sec_info_type != ELF_INFO_TYPE_JUST_SYMS
312 && out_sec != bfd_abs_section_ptr)
314 if (sec_count == list_size)
317 sec_list = xrealloc (sec_list,
318 list_size * sizeof (asection *));
321 sec_list[sec_count++] = sec;
326 qsort (sec_list, sec_count, sizeof (asection *), &compare_output_sec_vma);
328 if (elf32_arm_fix_exidx_coverage (sec_list, sec_count, &link_info))
334 /* bfd_elf32_discard_info just plays with debugging sections,
335 ie. doesn't affect any code, so we can delay resizing the
336 sections. It's likely we'll resize everything in the process of
338 if (bfd_elf_discard_info (link_info.output_bfd, & link_info))
341 /* If generating a relocatable output file, then we don't
342 have to examine the relocs. */
343 if (stub_file != NULL && !link_info.relocatable)
345 int ret = elf32_arm_setup_section_lists (link_info.output_bfd, & link_info);
351 einfo ("%X%P: could not compute sections lists for stub generation: %E\n");
355 lang_for_each_statement (build_section_lists);
357 /* Call into the BFD backend to do the real work. */
358 if (! elf32_arm_size_stubs (link_info.output_bfd,
362 & elf32_arm_add_stub_section,
363 & gldarm_layout_sections_again))
365 einfo ("%X%P: cannot size stub section: %E\n");
371 if (need_laying_out != -1)
372 gld${EMULATION_NAME}_map_segments (need_laying_out);
374 if (! link_info.relocatable)
376 /* Now build the linker stubs. */
377 if (stub_file->the_bfd->sections != NULL)
379 if (! elf32_arm_build_stubs (& link_info))
380 einfo ("%X%P: can not build stubs: %E\n");
386 if (thumb_entry_symbol)
388 h = bfd_link_hash_lookup (link_info.hash, thumb_entry_symbol,
393 struct elf_link_hash_entry * eh;
395 if (!entry_symbol.name)
398 h = bfd_link_hash_lookup (link_info.hash, entry_symbol.name,
400 eh = (struct elf_link_hash_entry *)h;
401 if (!h || ELF_ST_TYPE(eh->type) != STT_ARM_TFUNC)
406 if (h != (struct bfd_link_hash_entry *) NULL
407 && (h->type == bfd_link_hash_defined
408 || h->type == bfd_link_hash_defweak)
409 && h->u.def.section->output_section != NULL)
411 static char buffer[32];
414 /* Special procesing is required for a Thumb entry symbol. The
415 bottom bit of its address must be set. */
416 val = (h->u.def.value
417 + bfd_get_section_vma (link_info.output_bfd,
418 h->u.def.section->output_section)
419 + h->u.def.section->output_offset);
423 /* Now convert this value into a string and store it in entry_symbol
424 where the lang_finish() function will pick it up. */
428 sprintf_vma (buffer + 2, val);
430 if (thumb_entry_symbol != NULL && entry_symbol.name != NULL
431 && entry_from_cmdline)
432 einfo (_("%P: warning: '--thumb-entry %s' is overriding '-e %s'\n"),
433 thumb_entry_symbol, entry_symbol.name);
434 entry_symbol.name = buffer;
437 einfo (_("%P: warning: cannot find thumb start symbol %s\n"),
441 /* This is a convenient point to tell BFD about target specific flags.
442 After the output has been created, but before inputs are read. */
444 arm_elf_create_output_section_statements (void)
446 if (strstr (bfd_get_target (link_info.output_bfd), "arm") == NULL)
448 /* The arm backend needs special fields in the output hash structure.
449 These will only be created if the output format is an arm format,
450 hence we do not support linking and changing output formats at the
451 same time. Use a link followed by objcopy to change output formats. */
452 einfo ("%F%X%P: error: Cannot change output format whilst linking ARM binaries.\n");
456 bfd_elf32_arm_set_target_relocs (link_info.output_bfd, &link_info,
458 target2_type, fix_v4bx, use_blx,
459 vfp11_denorm_fix, no_enum_size_warning,
460 no_wchar_size_warning,
463 stub_file = lang_add_input_file ("linker stubs",
464 lang_input_file_is_fake_enum,
466 stub_file->the_bfd = bfd_create ("linker stubs", link_info.output_bfd);
467 if (stub_file->the_bfd == NULL
468 || ! bfd_set_arch_mach (stub_file->the_bfd,
469 bfd_get_arch (link_info.output_bfd),
470 bfd_get_mach (link_info.output_bfd)))
472 einfo ("%X%P: can not create BFD %E\n");
476 stub_file->the_bfd->flags |= BFD_LINKER_CREATED;
477 ldlang_add_file (stub_file);
479 /* Also use the stub file for stubs placed in a single output section. */
480 bfd_elf32_arm_add_glue_sections_to_bfd (stub_file->the_bfd, &link_info);
481 bfd_elf32_arm_get_bfd_for_interworking (stub_file->the_bfd, &link_info);
484 /* Avoid processing the fake stub_file in vercheck, stat_needed and
485 check_needed routines. */
487 static void (*real_func) (lang_input_statement_type *);
489 static void arm_for_each_input_file_wrapper (lang_input_statement_type *l)
496 arm_lang_for_each_input_file (void (*func) (lang_input_statement_type *))
499 lang_for_each_input_file (&arm_for_each_input_file_wrapper);
502 #define lang_for_each_input_file arm_lang_for_each_input_file
506 # Define some shell vars to insert bits of code into the standard elf
507 # parse_args and list_options functions.
509 PARSE_AND_LIST_PROLOGUE='
510 #define OPTION_THUMB_ENTRY 301
511 #define OPTION_BE8 302
512 #define OPTION_TARGET1_REL 303
513 #define OPTION_TARGET1_ABS 304
514 #define OPTION_TARGET2 305
515 #define OPTION_FIX_V4BX 306
516 #define OPTION_USE_BLX 307
517 #define OPTION_VFP11_DENORM_FIX 308
518 #define OPTION_NO_ENUM_SIZE_WARNING 309
519 #define OPTION_PIC_VENEER 310
520 #define OPTION_FIX_V4BX_INTERWORKING 311
521 #define OPTION_STUBGROUP_SIZE 312
522 #define OPTION_NO_WCHAR_SIZE_WARNING 313
525 PARSE_AND_LIST_SHORTOPTS=p
527 PARSE_AND_LIST_LONGOPTS='
528 { "no-pipeline-knowledge", no_argument, NULL, '\'p\''},
529 { "thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY},
530 { "be8", no_argument, NULL, OPTION_BE8},
531 { "target1-rel", no_argument, NULL, OPTION_TARGET1_REL},
532 { "target1-abs", no_argument, NULL, OPTION_TARGET1_ABS},
533 { "target2", required_argument, NULL, OPTION_TARGET2},
534 { "fix-v4bx", no_argument, NULL, OPTION_FIX_V4BX},
535 { "fix-v4bx-interworking", no_argument, NULL, OPTION_FIX_V4BX_INTERWORKING},
536 { "use-blx", no_argument, NULL, OPTION_USE_BLX},
537 { "vfp11-denorm-fix", required_argument, NULL, OPTION_VFP11_DENORM_FIX},
538 { "no-enum-size-warning", no_argument, NULL, OPTION_NO_ENUM_SIZE_WARNING},
539 { "pic-veneer", no_argument, NULL, OPTION_PIC_VENEER},
540 { "stub-group-size", required_argument, NULL, OPTION_STUBGROUP_SIZE },
541 { "no-wchar-size-warning", no_argument, NULL, OPTION_NO_WCHAR_SIZE_WARNING},
544 PARSE_AND_LIST_OPTIONS='
545 fprintf (file, _(" --thumb-entry=<sym> Set the entry point to be Thumb symbol <sym>\n"));
546 fprintf (file, _(" --be8 Output BE8 format image\n"));
547 fprintf (file, _(" --target1=rel Interpret R_ARM_TARGET1 as R_ARM_REL32\n"));
548 fprintf (file, _(" --target1=abs Interpret R_ARM_TARGET1 as R_ARM_ABS32\n"));
549 fprintf (file, _(" --target2=<type> Specify definition of R_ARM_TARGET2\n"));
550 fprintf (file, _(" --fix-v4bx Rewrite BX rn as MOV pc, rn for ARMv4\n"));
551 fprintf (file, _(" --fix-v4bx-interworking Rewrite BX rn branch to ARMv4 interworking veneer\n"));
552 fprintf (file, _(" --use-blx Enable use of BLX instructions\n"));
553 fprintf (file, _(" --vfp11-denorm-fix Specify how to fix VFP11 denorm erratum\n"));
554 fprintf (file, _(" --no-enum-size-warning Don'\''t warn about objects with incompatible\n"
556 fprintf (file, _(" --no-wchar-size-warning Don'\''t warn about objects with incompatible"
557 " wchar_t sizes\n"));
558 fprintf (file, _(" --pic-veneer Always generate PIC interworking veneers\n"));
560 --stub-group-size=N Maximum size of a group of input sections that can be\n\
561 handled by one stub section. A negative value\n\
562 locates all stubs after their branches (with a\n\
563 group size of -N), while a positive value allows\n\
564 two groups of input sections, one before, and one\n\
565 after each stub section. Values of +/-1 indicate\n\
566 the linker should choose suitable defaults.\n"
570 PARSE_AND_LIST_ARGS_CASES='
572 /* Only here for backwards compatibility. */
575 case OPTION_THUMB_ENTRY:
576 thumb_entry_symbol = optarg;
583 case OPTION_TARGET1_REL:
587 case OPTION_TARGET1_ABS:
592 target2_type = optarg;
595 case OPTION_FIX_V4BX:
599 case OPTION_FIX_V4BX_INTERWORKING:
607 case OPTION_VFP11_DENORM_FIX:
608 if (strcmp (optarg, "none") == 0)
609 vfp11_denorm_fix = BFD_ARM_VFP11_FIX_NONE;
610 else if (strcmp (optarg, "scalar") == 0)
611 vfp11_denorm_fix = BFD_ARM_VFP11_FIX_SCALAR;
612 else if (strcmp (optarg, "vector") == 0)
613 vfp11_denorm_fix = BFD_ARM_VFP11_FIX_VECTOR;
615 einfo (_("Unrecognized VFP11 fix type '\''%s'\''.\n"), optarg);
618 case OPTION_NO_ENUM_SIZE_WARNING:
619 no_enum_size_warning = 1;
622 case OPTION_NO_WCHAR_SIZE_WARNING:
623 no_wchar_size_warning = 1;
626 case OPTION_PIC_VENEER:
630 case OPTION_STUBGROUP_SIZE:
634 group_size = bfd_scan_vma (optarg, &end, 0);
636 einfo (_("%P%F: invalid number `%s'\''\n"), optarg);
641 # We have our own before_allocation etc. functions, but they call
642 # the standard routines, so give them a different name.
643 LDEMUL_BEFORE_ALLOCATION=arm_elf_before_allocation
644 LDEMUL_AFTER_ALLOCATION=arm_elf_after_allocation
645 LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=arm_elf_create_output_section_statements
647 # Replace the elf before_parse function with our own.
648 LDEMUL_BEFORE_PARSE=gld"${EMULATION_NAME}"_before_parse
650 # Call the extra arm-elf function
651 LDEMUL_FINISH=gld${EMULATION_NAME}_finish