1 # This shell script emits a C file. -*- C -*-
2 # Copyright (C) 1991, 93, 94, 95, 97, 99, 2000
3 # Free Software Foundation, Inc.
5 # This file is part of GLD, the Gnu Linker.
7 # This program is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 2 of the License, or
10 # (at your option) any later version.
12 # This program is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
22 # This file is sourced from elf32.em, and defines extra hppa-elf
25 cat >>e${EMULATION_NAME}.c <<EOF
28 #include "elf32-hppa.h"
30 static void hppaelf_create_output_section_statements PARAMS ((void));
31 static void hppaelf_delete_padding_statements
32 PARAMS ((lang_statement_list_type *));
33 static asection *hppaelf_add_stub_section
34 PARAMS ((const char *, asection *));
35 static void hppaelf_layaout_sections_again PARAMS ((void));
36 static void hppaelf_finish PARAMS ((void));
39 /* Fake input file for stubs. */
40 static lang_input_statement_type *stub_file;
42 /* Type of import/export stubs to build. For a single sub-space model,
43 we can build smaller import stubs and there is no need for export
45 static int multi_subspace = 0;
48 /* This is called before the input files are opened. We create a new
49 fake input file to hold the stub sections. */
52 hppaelf_create_output_section_statements ()
54 stub_file = lang_add_input_file ("linker stubs",
55 lang_input_file_is_fake_enum,
57 stub_file->the_bfd = bfd_create ("linker stubs", output_bfd);
58 if (stub_file->the_bfd == NULL
59 || ! bfd_set_arch_mach (stub_file->the_bfd,
60 bfd_get_arch (output_bfd),
61 bfd_get_mach (output_bfd)))
63 einfo ("%X%P: can not create BFD %E\n");
67 ldlang_add_file (stub_file);
70 /* Walk all the lang statements splicing out any padding statements from
74 hppaelf_delete_padding_statements (list)
75 lang_statement_list_type *list;
77 lang_statement_union_type *s;
78 lang_statement_union_type **ps;
79 for (ps = &list->head; (s = *ps) != NULL; ps = &s->next)
81 switch (s->header.type)
84 /* We want to recursively walk these sections. */
85 case lang_constructors_statement_enum:
86 hppaelf_delete_padding_statements (&constructor_list);
89 case lang_output_section_statement_enum:
90 hppaelf_delete_padding_statements (&s->output_section_statement.children);
93 case lang_group_statement_enum:
94 hppaelf_delete_padding_statements (&s->group_statement.children);
97 case lang_wild_statement_enum:
98 hppaelf_delete_padding_statements (&s->wild_statement.children);
101 /* Here's what we are really looking for. Splice these out of
103 case lang_padding_statement_enum:
109 /* We don't care about these cases. */
110 case lang_data_statement_enum:
111 case lang_object_symbols_statement_enum:
112 case lang_output_statement_enum:
113 case lang_target_statement_enum:
114 case lang_input_section_enum:
115 case lang_input_statement_enum:
116 case lang_assignment_statement_enum:
117 case lang_address_statement_enum:
128 struct hook_stub_info
130 lang_statement_list_type add;
131 asection *input_section;
134 /* Traverse the linker tree to find the spot where the stub goes. */
136 static boolean hook_in_stub
137 PARAMS ((struct hook_stub_info *, lang_statement_union_type **));
140 hook_in_stub (info, lp)
141 struct hook_stub_info *info;
142 lang_statement_union_type **lp;
144 lang_statement_union_type *l;
147 for (; (l = *lp) != NULL; lp = &l->next)
149 switch (l->header.type)
151 case lang_constructors_statement_enum:
152 ret = hook_in_stub (info, &constructor_list.head);
157 case lang_output_section_statement_enum:
158 ret = hook_in_stub (info,
159 &l->output_section_statement.children.head);
164 case lang_wild_statement_enum:
165 ret = hook_in_stub (info, &l->wild_statement.children.head);
170 case lang_group_statement_enum:
171 ret = hook_in_stub (info, &l->group_statement.children.head);
176 case lang_input_section_enum:
177 if (l->input_section.section == info->input_section)
179 /* We've found our section. Insert the stub immediately
180 before its associated input section. */
181 *lp = info->add.head;
182 *(info->add.tail) = l;
187 case lang_data_statement_enum:
188 case lang_reloc_statement_enum:
189 case lang_object_symbols_statement_enum:
190 case lang_output_statement_enum:
191 case lang_target_statement_enum:
192 case lang_input_statement_enum:
193 case lang_assignment_statement_enum:
194 case lang_padding_statement_enum:
195 case lang_address_statement_enum:
196 case lang_fill_statement_enum:
208 /* Call-back for elf32_hppa_size_stubs. */
210 /* Create a new stub section, and arrange for it to be linked
211 immediately before INPUT_SECTION. */
214 hppaelf_add_stub_section (stub_sec_name, input_section)
215 const char *stub_sec_name;
216 asection *input_section;
220 asection *output_section;
222 lang_output_section_statement_type *os;
223 struct hook_stub_info info;
225 stub_sec = bfd_make_section_anyway (stub_file->the_bfd, stub_sec_name);
226 if (stub_sec == NULL)
229 flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE
230 | SEC_HAS_CONTENTS | SEC_RELOC | SEC_IN_MEMORY | SEC_KEEP);
231 if (!bfd_set_section_flags (stub_file->the_bfd, stub_sec, flags))
234 output_section = input_section->output_section;
235 secname = bfd_get_section_name (output_section->owner, output_section);
236 os = lang_output_section_find (secname);
238 info.input_section = input_section;
239 lang_list_init (&info.add);
240 wild_doit (&info.add, stub_sec, os, stub_file);
242 if (info.add.head == NULL)
245 if (hook_in_stub (&info, &os->children.head))
249 einfo ("%X%P: can not make stub section: %E\n");
254 /* Another call-back for elf32_hppa_size_stubs. */
257 hppaelf_layaout_sections_again ()
259 /* If we have changed sizes of the stub sections, then we need
260 to recalculate all the section offsets. This may mean we need to
261 add even more stubs. */
263 /* Delete all the padding statements, they're no longer valid. */
264 hppaelf_delete_padding_statements (stat_ptr);
266 /* Resize the sections. */
267 lang_size_sections (stat_ptr->head, abs_output_section,
268 &stat_ptr->head, 0, (bfd_vma) 0, false);
270 /* Redo special stuff. */
271 ldemul_after_allocation ();
273 /* Do the assignments again. */
274 lang_do_assignments (stat_ptr->head, abs_output_section,
275 (fill_type) 0, (bfd_vma) 0);
279 /* Final emulation specific call. For the PA we use this opportunity
280 to build linker stubs. */
285 /* If generating a relocateable output file, then we don't
286 have to examine the relocs. */
287 if (link_info.relocateable)
290 /* Call into the BFD backend to do the real work. */
291 if (! elf32_hppa_size_stubs (output_bfd,
295 &hppaelf_add_stub_section,
296 &hppaelf_layaout_sections_again))
298 einfo ("%X%P: can not size stub section: %E\n");
302 /* Set the global data pointer. */
303 if (! elf32_hppa_set_gp (output_bfd, &link_info))
305 einfo ("%X%P: can not set gp\n");
309 /* Now build the linker stubs. */
310 if (stub_file->the_bfd->sections != NULL)
312 if (! elf32_hppa_build_stubs (&link_info))
313 einfo ("%X%P: can not build stubs: %E\n");
318 /* Avoid processing the fake stub_file in vercheck, stat_needed and
319 check_needed routines. */
321 static void hppa_for_each_input_file_wrapper
322 PARAMS ((lang_input_statement_type *));
323 static void hppa_lang_for_each_input_file
324 PARAMS ((void (*) (lang_input_statement_type *)));
326 static void (*real_func) PARAMS ((lang_input_statement_type *));
328 static void hppa_for_each_input_file_wrapper (l)
329 lang_input_statement_type *l;
336 hppa_lang_for_each_input_file (func)
337 void (*func) PARAMS ((lang_input_statement_type *));
340 lang_for_each_input_file (&hppa_for_each_input_file_wrapper);
343 #define lang_for_each_input_file hppa_lang_for_each_input_file
347 # Define some shell vars to insert bits of code into the standard elf
348 # parse_args and list_options functions.
350 PARSE_AND_LIST_PROLOGUE='
351 #define OPTION_MULTI_SUBSPACE 301
354 PARSE_AND_LIST_LONGOPTS='
355 { "multi-subspace", no_argument, NULL, OPTION_MULTI_SUBSPACE},
358 PARSE_AND_LIST_OPTIONS='
360 --multi-subspace Generate import and export stubs to support\n\
361 multiple sub-space shared libraries\n"
365 PARSE_AND_LIST_ARGS_CASES='
366 case OPTION_MULTI_SUBSPACE:
371 # Put these extra hppaelf routines in ld_${EMULATION_NAME}_emulation
373 LDEMUL_FINISH=hppaelf_finish
374 LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=hppaelf_create_output_section_statements