X-Git-Url: https://git.libre-soc.org/?a=blobdiff_plain;f=ld%2Femultempl%2Fppc64elf.em;h=403fd094c921285a862324470f7c8c8cc0986c4f;hb=f9a6a8f09dc2310d5f4a482a2e7ffc1be3984cd7;hp=3e316af975169c9d67a7ef64d749e68654ef83cf;hpb=759388538d1339f6a634b2777e24f46427dd9c96;p=binutils-gdb.git diff --git a/ld/emultempl/ppc64elf.em b/ld/emultempl/ppc64elf.em index 3e316af9751..403fd094c92 100644 --- a/ld/emultempl/ppc64elf.em +++ b/ld/emultempl/ppc64elf.em @@ -1,5 +1,5 @@ # This shell script emits a C file. -*- C -*- -# Copyright (C) 2002-2014 Free Software Foundation, Inc. +# Copyright (C) 2002-2021 Free Software Foundation, Inc. # # This file is part of the GNU Binutils. # @@ -19,13 +19,12 @@ # MA 02110-1301, USA. # -# This file is sourced from elf32.em, and defines extra powerpc64-elf +# This file is sourced from elf.em, and defines extra powerpc64-elf # specific routines. # fragment <the_bfd; if (params.save_restore_funcs < 0) - params.save_restore_funcs = !link_info.relocatable; + params.save_restore_funcs = !bfd_link_relocatable (&link_info); if (!ppc64_elf_init_stub_bfd (&link_info, ¶ms)) - einfo ("%F%P: can not init BFD: %E\n"); + einfo (_("%F%P: can not init BFD: %E\n")); +} + +/* Called after opening files but before mapping sections. */ + +static void +ppc_after_open (void) +{ + if (stub_file != NULL && link_info.relro && params.object_in_toc) + { + /* We have a .toc section that might be written to at run time. + Don't put .toc into the .got output section. */ + lang_output_section_statement_type *got; + + got = lang_output_section_find (".got"); + if (got != NULL) + { + lang_statement_union_type *s; + for (s = got->children.head; s != NULL; s = s->header.next) + if (s->header.type == lang_wild_statement_enum + && s->wild_statement.filename == NULL) + { + struct wildcard_list **i = &s->wild_statement.section_list; + while (*i != NULL) + if (strcmp ((*i)->spec.name, ".toc") == 0) + *i = (*i)->next; + else + i = &(*i)->next; + } + /* Instead, .toc input sections will be mapped to the + read/write .toc output section. If user scripts don't + provide one then we'll lose toc sorting and multi-toc. */ + toc_section_name = ".toc"; + } + } + gld${EMULATION_NAME}_after_open (); } /* Move the input section statement at *U which happens to be on LIST @@ -233,7 +271,7 @@ prelim_size_sections (void) if (expld.phase != lang_mark_phase_enum) { expld.phase = lang_mark_phase_enum; - expld.dataseg.phase = exp_dataseg_none; + expld.dataseg.phase = exp_seg_none; one_lang_size_sections_pass (NULL, FALSE); /* We must not cache anything from the preliminary sizing. */ lang_reset_memory_regions (); @@ -247,9 +285,30 @@ ppc_before_allocation (void) { if (!no_opd_opt && !ppc64_elf_edit_opd (&link_info)) - einfo ("%X%P: can not edit %s: %E\n", "opd"); + einfo (_("%X%P: can not edit %s: %E\n"), "opd"); + + if (!no_inline_opt + && !bfd_link_relocatable (&link_info)) + { + prelim_size_sections (); + + if (!ppc64_elf_inline_plt (&link_info)) + einfo (_("%X%P: inline PLT: %E\n")); + } - if (ppc64_elf_tls_setup (&link_info) + if (!ppc64_elf_tls_setup (&link_info)) + einfo (_("%X%P: TLS problem %E\n")); + } + + gld${EMULATION_NAME}_before_allocation (); +} + +static void +ppc_edit (void) +{ + if (stub_file != NULL) + { + if (elf_hash_table (&link_info)->tls_sec != NULL && !no_tls_opt) { /* Size the sections. This is premature, but we want to know the @@ -257,29 +316,27 @@ ppc_before_allocation (void) prelim_size_sections (); if (!ppc64_elf_tls_optimize (&link_info)) - einfo ("%X%P: TLS problem %E\n"); + einfo (_("%X%P: TLS problem %E\n")); } if (!no_toc_opt - && !link_info.relocatable) + && !bfd_link_relocatable (&link_info)) { prelim_size_sections (); if (!ppc64_elf_edit_toc (&link_info)) - einfo ("%X%P: can not edit %s: %E\n", "toc"); + einfo (_("%X%P: can not edit %s: %E\n"), "toc"); } if (!no_toc_sort) { lang_output_section_statement_type *toc_os; - toc_os = lang_output_section_find (".got"); + toc_os = lang_output_section_find (toc_section_name); if (toc_os != NULL) sort_toc_sections (&toc_os->children, NULL, NULL); } } - - gld${EMULATION_NAME}_before_allocation (); } struct hook_stub_info @@ -376,8 +433,11 @@ ppc_add_stub_section (const char *stub_sec_name, asection *input_section) stub_sec = bfd_make_section_anyway_with_flags (stub_file->the_bfd, stub_sec_name, flags); if (stub_sec == NULL - || !bfd_set_section_alignment (stub_file->the_bfd, stub_sec, - plt_stub_align > 5 ? plt_stub_align : 5)) + || !bfd_set_section_alignment (stub_sec, (params.plt_stub_align > 5 + ? params.plt_stub_align + : params.plt_stub_align < -5 + ? -params.plt_stub_align + : 5))) goto err_ret; output_section = input_section->output_section; @@ -394,7 +454,7 @@ ppc_add_stub_section (const char *stub_sec_name, asection *input_section) return stub_sec; err_ret: - einfo ("%X%P: can not make stub section: %E\n"); + einfo (_("%X%P: can not make stub section: %E\n")); return NULL; } @@ -407,9 +467,9 @@ ppc_layout_sections_again (void) /* If we have changed sizes of the stub sections, then we need to recalculate all the section offsets. This may mean we need to add even more stubs. */ - gld${EMULATION_NAME}_map_segments (TRUE); + ldelf_map_segments (TRUE); - if (!link_info.relocatable) + if (!bfd_link_relocatable (&link_info)) ppc64_elf_set_toc (&link_info, link_info.output_bfd); need_laying_out = -1; @@ -428,7 +488,7 @@ build_toc_list (lang_statement_union_type *statement) && i->output_section == toc_section) { if (!ppc64_elf_next_toc_section (&link_info, i)) - einfo ("%X%P: linker script separates .got and .toc\n"); + einfo (_("%X%P: linker script separates .got and .toc\n")); } } } @@ -441,13 +501,13 @@ build_section_lists (lang_statement_union_type *statement) { asection *i = statement->input_section.section; - if (!((lang_input_statement_type *) i->owner->usrdata)->flags.just_syms + if (!bfd_input_just_syms (i->owner) && (i->flags & SEC_EXCLUDE) == 0 && i->output_section != NULL && i->output_section->owner == link_info.output_bfd) { if (!ppc64_elf_next_input_section (&link_info, i)) - einfo ("%X%P: can not size stub section: %E\n"); + einfo (_("%X%P: can not size stub section: %E\n")); } } } @@ -460,34 +520,21 @@ gld${EMULATION_NAME}_after_allocation (void) { int ret; - /* bfd_elf_discard_info just plays with data and debugging sections, - ie. doesn't affect code size, so we can delay resizing the - sections. It's likely we'll resize everything in the process of - adding stubs. */ - ret = bfd_elf_discard_info (link_info.output_bfd, &link_info); - if (ret < 0) - { - einfo ("%X%P: .eh_frame/.stab edit: %E\n"); - return; - } - else if (ret > 0) - need_laying_out = 1; - /* If generating a relocatable output file, then we don't have any stubs. */ - if (stub_file != NULL && !link_info.relocatable) + if (stub_file != NULL && !bfd_link_relocatable (&link_info)) { ret = ppc64_elf_setup_section_lists (&link_info); if (ret < 0) - einfo ("%X%P: can not size stub section: %E\n"); - else if (ret > 0) + einfo (_("%X%P: can not size stub section: %E\n")); + else { ppc64_elf_start_multitoc_partition (&link_info); if (!params.no_multi_toc) { toc_section = bfd_get_section_by_name (link_info.output_bfd, - ".got"); + toc_section_name); if (toc_section != NULL) lang_for_each_statement (build_toc_list); } @@ -502,21 +549,37 @@ gld${EMULATION_NAME}_after_allocation (void) lang_for_each_statement (build_section_lists); if (!ppc64_elf_check_init_fini (&link_info)) - einfo ("%P: .init/.fini fragments use differing TOC pointers\n"); + einfo (_("%P: .init/.fini fragments use differing TOC pointers\n")); /* Call into the BFD backend to do the real work. */ if (!ppc64_elf_size_stubs (&link_info)) - einfo ("%X%P: can not size stub section: %E\n"); + einfo (_("%X%P: can not size stub section: %E\n")); } } - if (need_laying_out != -1) + /* We can't parse and merge .eh_frame until the glink .eh_frame has + been generated. Otherwise the glink .eh_frame CIE won't be + merged with other CIEs, and worse, the glink .eh_frame FDEs won't + be listed in .eh_frame_hdr. */ + ret = bfd_elf_discard_info (link_info.output_bfd, &link_info); + if (ret < 0) { - gld${EMULATION_NAME}_map_segments (need_laying_out); - - if (!link_info.relocatable) - ppc64_elf_set_toc (&link_info, link_info.output_bfd); + einfo (_("%X%P: .eh_frame/.stab edit: %E\n")); + return; } + else if (ret > 0) + need_laying_out = 1; + + /* Call map_segments regardless of the state of need_laying_out. + need_laying_out set to -1 means we have just laid everything out, + but ppc64_elf_size_stubs strips .branch_lt and .eh_frame if + unneeded, after ppc_layout_sections_again. Another call removes + these sections from the segment map. Their presence is + innocuous except for confusing ELF_SECTION_IN_SEGMENT. */ + ldelf_map_segments (need_laying_out > 0); + + if (need_laying_out != -1 && !bfd_link_relocatable (&link_info)) + ppc64_elf_set_toc (&link_info, link_info.output_bfd); } @@ -531,15 +594,16 @@ gld${EMULATION_NAME}_finish (void) /* e_entry on PowerPC64 points to the function descriptor for _start. If _start is missing, default to the first function descriptor in the .opd section. */ - if ((elf_elfheader (link_info.output_bfd)->e_flags & EF_PPC64_ABI) == 1) + if (stub_file != NULL + && (elf_elfheader (link_info.output_bfd)->e_flags & EF_PPC64_ABI) == 1) entry_section = ".opd"; if (params.emit_stub_syms < 0) params.emit_stub_syms = 1; if (stub_file != NULL - && !link_info.relocatable + && !bfd_link_relocatable (&link_info) && !ppc64_elf_build_stubs (&link_info, config.stats ? &msg : NULL)) - einfo ("%X%P: can not build stubs: %E\n"); + einfo (_("%X%P: can not build stubs: %E\n")); fflush (stdout); for (line = msg; line != NULL; line = endline) @@ -550,10 +614,8 @@ gld${EMULATION_NAME}_finish (void) fprintf (stderr, "%s: %s\n", program_name, line); } fflush (stderr); - if (msg != NULL) - free (msg); + free (msg); - ppc64_elf_restore_symbols (&link_info); finish_default (); } @@ -600,34 +662,12 @@ gld${EMULATION_NAME}_new_vers_pattern (struct bfd_elf_version_expr *entry) return dot_entry; } - -/* Avoid processing the fake stub_file in vercheck, stat_needed and - check_needed routines. */ - -static void (*real_func) (lang_input_statement_type *); - -static void ppc_for_each_input_file_wrapper (lang_input_statement_type *l) -{ - if (l != stub_file) - (*real_func) (l); -} - -static void -ppc_lang_for_each_input_file (void (*func) (lang_input_statement_type *)) -{ - real_func = func; - lang_for_each_input_file (&ppc_for_each_input_file_wrapper); -} - -#define lang_for_each_input_file ppc_lang_for_each_input_file - EOF if grep -q 'ld_elf32_spu_emulation' ldemul-list.h; then fragment <] Align PLT call stubs to fit cache lines\n" )); fprintf (file, _("\ - --no-plt-static-chain PLT call stubs should not load r11.${DEFAULT_PLT_STATIC_CHAIN+ (default)}\n" + --no-plt-align Dont'\''t align individual PLT call stubs\n" )); fprintf (file, _("\ - --plt-thread-safe PLT call stubs with load-load barrier.\n" + --plt-localentry Optimize calls to ELFv2 localentry:0 functions\n" )); fprintf (file, _("\ - --no-plt-thread-safe PLT call stubs without barrier.\n" + --no-plt-localentry Don'\''t optimize ELFv2 calls\n" )); fprintf (file, _("\ - --plt-align [=] Align PLT call stubs to fit cache lines.\n" + --power10-stubs [=auto] Use Power10 PLT call stubs (default auto)\n" )); fprintf (file, _("\ - --no-plt-align Dont'\''t align individual PLT call stubs.\n" + --no-pcrel-optimize Don'\''t perform R_PPC64_PCREL_OPT optimization\n" )); fprintf (file, _("\ - --emit-stub-syms Label linker stubs with a symbol.\n" + --no-power10-stubs Don'\''t use Power10 PLT call stubs\n" )); fprintf (file, _("\ - --no-emit-stub-syms Don'\''t label linker stubs with a symbol.\n" + --emit-stub-syms Label linker stubs with a symbol\n" + )); + fprintf (file, _("\ + --no-emit-stub-syms Don'\''t label linker stubs with a symbol\n" )); fprintf (file, _("\ --dotsyms For every version pattern \"foo\" in a version\n\ @@ -732,7 +808,7 @@ PARSE_AND_LIST_OPTIONS=${PARSE_AND_LIST_OPTIONS}' descriptor symbols. Defaults to on.\n" )); fprintf (file, _("\ - --no-dotsyms Don'\''t do anything special in version scripts.\n" + --no-dotsyms Don'\''t do anything special in version scripts\n" )); fprintf (file, _("\ --save-restore-funcs Provide register save and restore routines used\n\ @@ -740,29 +816,41 @@ PARSE_AND_LIST_OPTIONS=${PARSE_AND_LIST_OPTIONS}' final link, off for ld -r.\n" )); fprintf (file, _("\ - --no-save-restore-funcs Don'\''t provide these routines.\n" + --no-save-restore-funcs Don'\''t provide these routines\n" + )); + fprintf (file, _("\ + --no-tls-optimize Don'\''t try to optimize TLS accesses\n" + )); + fprintf (file, _("\ + --tls-get-addr-optimize Force use of special __tls_get_addr call\n" + )); + fprintf (file, _("\ + --no-tls-get-addr-optimize Don'\''t use a special __tls_get_addr call\n" + )); + fprintf (file, _("\ + --tls-get-addr-regsave Force register save __tls_get_addr stub\n" )); fprintf (file, _("\ - --no-tls-optimize Don'\''t try to optimize TLS accesses.\n" + --no-tls-get-addr-regsave Don'\''t use register save __tls_get_addr stub\n" )); fprintf (file, _("\ - --no-tls-get-addr-optimize Don'\''t use a special __tls_get_addr call.\n" + --no-opd-optimize Don'\''t optimize the OPD section\n" )); fprintf (file, _("\ - --no-opd-optimize Don'\''t optimize the OPD section.\n" + --no-inline-optimize Don'\''t convert inline PLT to direct calls\n" )); fprintf (file, _("\ - --no-toc-optimize Don'\''t optimize the TOC section.\n" + --no-toc-optimize Don'\''t optimize the TOC section\n" )); fprintf (file, _("\ - --no-multi-toc Disallow automatic multiple toc sections.\n" + --no-multi-toc Disallow automatic multiple toc sections\n" )); fprintf (file, _("\ - --no-toc-sort Don'\''t sort TOC and GOT sections.\n" + --no-toc-sort Don'\''t sort TOC and GOT sections\n" )); fprintf (file, _("\ --non-overlapping-opd Canonicalize .opd, so that there are no\n\ - overlapping .opd entries.\n" + overlapping .opd entries\n" )); ' @@ -770,9 +858,9 @@ PARSE_AND_LIST_ARGS_CASES=${PARSE_AND_LIST_ARGS_CASES}' case OPTION_STUBGROUP_SIZE: { const char *end; - params.group_size = bfd_scan_vma (optarg, &end, 0); - if (*end) - einfo (_("%P%F: invalid number `%s'\''\n"), optarg); + params.group_size = bfd_scan_vma (optarg, &end, 0); + if (*end) + einfo (_("%F%P: invalid number `%s'\''\n"), optarg); } break; @@ -796,17 +884,50 @@ PARSE_AND_LIST_ARGS_CASES=${PARSE_AND_LIST_ARGS_CASES}' if (optarg != NULL) { char *end; - unsigned long val = strtoul (optarg, &end, 0); - if (*end || val > 8) - einfo (_("%P%F: invalid --plt-align `%s'\''\n"), optarg); - plt_stub_align = val; + long val = strtol (optarg, &end, 0); + if (*end || (unsigned long) val + 8 > 16) + einfo (_("%F%P: invalid --plt-align `%s'\''\n"), optarg); + params.plt_stub_align = val; } else - plt_stub_align = 5; + params.plt_stub_align = 5; break; case OPTION_NO_PLT_ALIGN: - plt_stub_align = 0; + params.plt_stub_align = 0; + break; + + case OPTION_PLT_LOCALENTRY: + params.plt_localentry0 = 1; + break; + + case OPTION_NO_PLT_LOCALENTRY: + params.plt_localentry0 = 0; + break; + + case OPTION_POWER10_STUBS: + if (optarg != NULL) + { + if (strcasecmp (optarg, "auto") == 0) + params.power10_stubs = -1; + else if (strcasecmp (optarg, "yes") == 0) + params.power10_stubs = 1; + else if (strcasecmp (optarg, "no") == 0) + params.power10_stubs = 0; + else + einfo (_("%F%P: invalid --power10-stubs argument `%s'\''\n"), + optarg); + } + else + params.power10_stubs = 1; + break; + + case OPTION_NO_POWER10_STUBS: + params.power10_stubs = 0; + break; + + case OPTION_NO_PCREL_OPT: + params.no_pcrel_opt = 1; break; case OPTION_STUBSYMS: @@ -837,14 +958,30 @@ PARSE_AND_LIST_ARGS_CASES=${PARSE_AND_LIST_ARGS_CASES}' no_tls_opt = 1; break; + case OPTION_TLS_GET_ADDR_OPT: + params.tls_get_addr_opt = 1; + break; + case OPTION_NO_TLS_GET_ADDR_OPT: - params.no_tls_get_addr_opt = 1; + params.tls_get_addr_opt = 0; + break; + + case OPTION_TLS_GET_ADDR_REGSAVE: + params.no_tls_get_addr_regsave = 0; + break; + + case OPTION_NO_TLS_GET_ADDR_REGSAVE: + params.no_tls_get_addr_regsave = 1; break; case OPTION_NO_OPD_OPT: no_opd_opt = 1; break; + case OPTION_NO_INLINE_OPT: + no_inline_opt = 1; + break; + case OPTION_NO_TOC_OPT: no_toc_opt = 1; break; @@ -863,19 +1000,21 @@ PARSE_AND_LIST_ARGS_CASES=${PARSE_AND_LIST_ARGS_CASES}' case OPTION_TRADITIONAL_FORMAT: no_tls_opt = 1; - params.no_tls_get_addr_opt = 1; + params.tls_get_addr_opt = 0; no_opd_opt = 1; no_toc_opt = 1; params.no_multi_toc = 1; no_toc_sort = 1; params.plt_static_chain = 1; + params.no_pcrel_opt = 1; return FALSE; ' # Put these extra ppc64elf routines in ld_${EMULATION_NAME}_emulation # +LDEMUL_NEW_VERS_PATTERN=gld${EMULATION_NAME}_new_vers_pattern +LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=ppc_create_output_section_statements +LDEMUL_AFTER_OPEN=ppc_after_open LDEMUL_BEFORE_ALLOCATION=ppc_before_allocation LDEMUL_AFTER_ALLOCATION=gld${EMULATION_NAME}_after_allocation LDEMUL_FINISH=gld${EMULATION_NAME}_finish -LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=ppc_create_output_section_statements -LDEMUL_NEW_VERS_PATTERN=gld${EMULATION_NAME}_new_vers_pattern