1 # This shell script emits a C file. -*- C -*-
2 # Copyright (C) 2013-2019 Free Software Foundation, Inc.
4 # This file is part of GNU Binutils.
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.
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.
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,
21 # This file is sourced from elf32.em, and defines extra C-SKY ELF
29 /* To use branch stub or not. */
30 extern bfd_boolean use_branch_stub;
32 /* Fake input file for stubs. */
33 static lang_input_statement_type *stub_file;
35 /* Whether we need to call gldcsky_layout_sections_again. */
36 static int need_laying_out = 0;
38 /* Maximum size of a group of input sections that can be handled by
39 one stub section. A value of +/-1 indicates the bfd back-end
40 should use a suitable default size. */
41 static bfd_signed_vma group_size = 1;
45 lang_statement_list_type add;
46 asection *input_section;
49 /* Traverse the linker tree to find the spot where the stub goes. */
51 hook_in_stub (struct hook_stub_info *info, lang_statement_union_type **lp)
53 lang_statement_union_type *l;
56 for (l = *lp; l != NULL; lp = &l->header.next, l = *lp)
57 switch (l->header.type)
59 case lang_constructors_statement_enum:
60 ret = hook_in_stub (info, &constructor_list.head);
65 case lang_output_section_statement_enum:
66 ret = hook_in_stub (info,
67 &l->output_section_statement.children.head);
72 case lang_wild_statement_enum:
73 ret = hook_in_stub (info, &l->wild_statement.children.head);
78 case lang_group_statement_enum:
79 ret = hook_in_stub (info, &l->group_statement.children.head);
84 case lang_input_section_enum:
85 if (l->input_section.section == info->input_section)
87 /* We've found our section. Insert the stub immediately
88 after its associated input section. */
89 *(info->add.tail) = l->header.next;
90 l->header.next = info->add.head;
95 case lang_data_statement_enum:
96 case lang_reloc_statement_enum:
97 case lang_object_symbols_statement_enum:
98 case lang_output_statement_enum:
99 case lang_target_statement_enum:
100 case lang_input_statement_enum:
101 case lang_assignment_statement_enum:
102 case lang_padding_statement_enum:
103 case lang_address_statement_enum:
104 case lang_fill_statement_enum:
121 csky_elf_before_parse (void)
123 use_branch_stub = FALSE;
124 gld${EMULATION_NAME}_before_parse ();
132 /* This is a convenient point to tell BFD about target specific flags.
133 After the output has been created, but before inputs are read. */
135 csky_elf_create_output_section_statements (void)
137 if (!(bfd_get_flavour (link_info.output_bfd) == bfd_target_elf_flavour
138 && elf_object_id (link_info.output_bfd) == CSKY_ELF_DATA))
139 use_branch_stub = FALSE;
141 /* If don't use branch stub, just do not emit stub_file. */
142 if (!use_branch_stub)
145 stub_file = lang_add_input_file ("linker stubs",
146 lang_input_file_is_fake_enum, NULL);
147 stub_file->the_bfd = bfd_create ("linker stubs", link_info.output_bfd);
148 if (stub_file->the_bfd == NULL
149 || !bfd_set_arch_mach (stub_file->the_bfd,
150 bfd_get_arch (link_info.output_bfd),
151 bfd_get_mach (link_info.output_bfd)))
153 einfo (_("%F%P: can not create BFD: %E\n"));
157 stub_file->the_bfd->flags |= BFD_LINKER_CREATED;
158 ldlang_add_file (stub_file);
161 /* Call-back for elf32_csky_size_stubs. */
163 /* Create a new stub section, and arrange for it to be linked
164 immediately after INPUT_SECTION. */
166 elf32_csky_add_stub_section (const char *stub_sec_name,
167 asection *input_section)
171 asection *output_section;
173 lang_output_section_statement_type *os;
174 struct hook_stub_info info;
176 flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE
177 | SEC_HAS_CONTENTS | SEC_RELOC | SEC_IN_MEMORY | SEC_KEEP);
178 stub_sec = bfd_make_section_anyway_with_flags (stub_file->the_bfd,
179 stub_sec_name, flags);
180 if (stub_sec == NULL)
183 bfd_set_section_alignment (stub_file->the_bfd, stub_sec, 3);
185 output_section = input_section->output_section;
186 secname = bfd_get_section_name (output_section->owner, output_section);
187 os = lang_output_section_find (secname);
189 info.input_section = input_section;
190 lang_list_init (&info.add);
191 lang_add_section (&info.add, stub_sec, NULL, os);
193 if (info.add.head == NULL)
196 if (hook_in_stub (&info, &os->children.head))
200 einfo (_("%X%P: can not make stub section: %E\n"));
204 /* Another call-back for elf_csky_size_stubs. */
206 gldcsky_layout_sections_again (void)
208 /* If we have changed sizes of the stub sections, then we need
209 to recalculate all the section offsets. This may mean we need to
210 add even more stubs. */
211 gld${EMULATION_NAME}_map_segments (TRUE);
212 need_laying_out = -1;
216 build_section_lists (lang_statement_union_type *statement)
218 if (statement->header.type == lang_input_section_enum)
220 asection *i = statement->input_section.section;
222 if (i->sec_info_type != SEC_INFO_TYPE_JUST_SYMS
223 && (i->flags & SEC_EXCLUDE) == 0
224 && i->output_section != NULL
225 && i->output_section->owner == link_info.output_bfd)
226 elf32_csky_next_input_section (&link_info, i);
231 gld${EMULATION_NAME}_after_allocation (void)
233 /* bfd_elf32_discard_info just plays with debugging sections,
234 ie. doesn't affect any code, so we can delay resizing the
235 sections. It's likely we'll resize everything in the process of
237 if (bfd_elf_discard_info (link_info.output_bfd, &link_info))
240 /* If generating a relocatable output file, then we don't
241 have to examine the relocs. */
243 if (stub_file != NULL && !bfd_link_relocatable (&link_info))
245 int ret = elf32_csky_setup_section_lists (link_info.output_bfd,
250 einfo (_("%X%P: could not compute sections lists for stub generation: %E\n"));
255 lang_for_each_statement (build_section_lists);
257 /* Call into the BFD backend to do the real work. */
258 if (! elf32_csky_size_stubs (link_info.output_bfd,
262 &elf32_csky_add_stub_section,
263 &gldcsky_layout_sections_again))
265 einfo (_("%X%P: cannot size stub section: %E\n"));
271 if (need_laying_out != -1)
272 gld${EMULATION_NAME}_map_segments (need_laying_out);
276 gld${EMULATION_NAME}_finish (void)
278 if (stub_file != NULL
279 && !bfd_link_relocatable (&link_info)
280 && stub_file->the_bfd->sections != NULL
281 && !elf32_csky_build_stubs (&link_info))
282 einfo (_("%X%P: cannot build stubs: %E\n"));
286 /* Avoid processing the fake stub_file in vercheck, stat_needed and
287 check_needed routines. */
289 static void (*real_func) (lang_input_statement_type *);
291 static void csky_for_each_input_file_wrapper (lang_input_statement_type *l)
298 csky_lang_for_each_input_file (void (*func) (lang_input_statement_type *))
301 lang_for_each_input_file (&csky_for_each_input_file_wrapper);
304 #define lang_for_each_input_file csky_lang_for_each_input_file
308 # This code gets inserted into the generic elf32.sc linker script
309 # and allows us to define our own command line switches.
310 PARSE_AND_LIST_PROLOGUE='
311 #define OPTION_BRANCH_STUB 301
312 #define OPTION_NO_BRANCH_STUB 302
313 #define OPTION_STUBGROUP_SIZE 303
316 PARSE_AND_LIST_LONGOPTS='
317 {"branch-stub", no_argument, NULL, OPTION_BRANCH_STUB},
318 {"no-branch-stub", no_argument, NULL, OPTION_NO_BRANCH_STUB},
319 {"stub-group-size", required_argument, NULL, OPTION_STUBGROUP_SIZE},
321 PARSE_AND_LIST_OPTIONS='
322 fprintf (file, _(" --[no-]branch-stub\n"));
323 fprintf (file, _("\t\t\tDisable/enable use of stubs to expand branch "
324 "instructions that cannot reach the target.\n"));
325 fprintf (file, _(" --stub-group-size=N\n"));
326 fprintf (file, _("\t\t\tMaximum size of a group of input sections "
327 "handled by one stub section."));
330 PARSE_AND_LIST_ARGS_CASES='
331 case OPTION_BRANCH_STUB:
332 use_branch_stub = TRUE;
334 case OPTION_NO_BRANCH_STUB:
335 use_branch_stub = FALSE;
338 case OPTION_STUBGROUP_SIZE:
342 group_size = bfd_scan_vma (optarg, &end, 0);
344 einfo (_("%F%P: invalid number `%s'\''\n"), optarg);
350 csky-*-linux-*) LDEMUL_BEFORE_PARSE=csky_elf_before_parse ;;
352 LDEMUL_AFTER_ALLOCATION=gld${EMULATION_NAME}_after_allocation
353 LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=csky_elf_create_output_section_statements
354 LDEMUL_FINISH=gld${EMULATION_NAME}_finish