1# This shell script emits a C file. -*- C -*-
2#   Copyright 1991, 1993, 1994, 1997, 1999, 2000, 2001, 2002, 2003, 2004,
3#   2005, 2007, 2008 Free Software Foundation, Inc.
4#
5# This file is part of the GNU Binutils.
6#
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 3 of the License, or
10# (at your option) any later version.
11#
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.
16#
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., 51 Franklin Street - Fifth Floor, Boston,
20# MA 02110-1301, USA.
21#
22
23# This file is sourced from elf32.em, and defines extra hppa-elf
24# specific routines.
25#
26fragment <<EOF
27
28#include "ldctor.h"
29#include "elf32-hppa.h"
30
31
32/* Fake input file for stubs.  */
33static lang_input_statement_type *stub_file;
34
35/* Type of import/export stubs to build.  For a single sub-space model,
36   we can build smaller import stubs and there is no need for export
37   stubs.  */
38static int multi_subspace = 0;
39
40/* Whether we need to call hppa_layout_sections_again.  */
41static int need_laying_out = 0;
42
43/* Maximum size of a group of input sections that can be handled by
44   one stub section.  A value of +/-1 indicates the bfd back-end
45   should use a suitable default size.  */
46static bfd_signed_vma group_size = 1;
47
48/* Stops the linker merging .text sections on a relocatable link,
49   and adds millicode library to the list of input files.  */
50
51static void
52hppaelf_after_parse (void)
53{
54  if (link_info.relocatable)
55    lang_add_unique (".text");
56
57  /* Enable this once we split millicode stuff from libgcc:
58     lang_add_input_file ("milli",
59     			  lang_input_file_is_l_enum,
60			  NULL);
61  */
62}
63
64/* This is called before the input files are opened.  We create a new
65   fake input file to hold the stub sections.  */
66
67static void
68hppaelf_create_output_section_statements (void)
69{
70  if (!(bfd_get_flavour (link_info.output_bfd) == bfd_target_elf_flavour
71	&& elf_object_id (link_info.output_bfd) == HPPA_ELF_TDATA))
72    return;
73
74  stub_file = lang_add_input_file ("linker stubs",
75				   lang_input_file_is_fake_enum,
76				   NULL);
77  stub_file->the_bfd = bfd_create ("linker stubs", link_info.output_bfd);
78  if (stub_file->the_bfd == NULL
79      || ! bfd_set_arch_mach (stub_file->the_bfd,
80			      bfd_get_arch (link_info.output_bfd),
81			      bfd_get_mach (link_info.output_bfd)))
82    {
83      einfo ("%X%P: can not create BFD %E\n");
84      return;
85    }
86
87  stub_file->the_bfd->flags |= BFD_LINKER_CREATED;
88  ldlang_add_file (stub_file);
89}
90
91
92struct hook_stub_info
93{
94  lang_statement_list_type add;
95  asection *input_section;
96};
97
98/* Traverse the linker tree to find the spot where the stub goes.  */
99
100static bfd_boolean
101hook_in_stub (struct hook_stub_info *info, lang_statement_union_type **lp)
102{
103  lang_statement_union_type *l;
104  bfd_boolean ret;
105
106  for (; (l = *lp) != NULL; lp = &l->header.next)
107    {
108      switch (l->header.type)
109	{
110	case lang_constructors_statement_enum:
111	  ret = hook_in_stub (info, &constructor_list.head);
112	  if (ret)
113	    return ret;
114	  break;
115
116	case lang_output_section_statement_enum:
117	  ret = hook_in_stub (info,
118			      &l->output_section_statement.children.head);
119	  if (ret)
120	    return ret;
121	  break;
122
123	case lang_wild_statement_enum:
124	  ret = hook_in_stub (info, &l->wild_statement.children.head);
125	  if (ret)
126	    return ret;
127	  break;
128
129	case lang_group_statement_enum:
130	  ret = hook_in_stub (info, &l->group_statement.children.head);
131	  if (ret)
132	    return ret;
133	  break;
134
135	case lang_input_section_enum:
136	  if (l->input_section.section == info->input_section)
137	    {
138	      /* We've found our section.  Insert the stub immediately
139		 before its associated input section.  */
140	      *lp = info->add.head;
141	      *(info->add.tail) = l;
142	      return TRUE;
143	    }
144	  break;
145
146	case lang_data_statement_enum:
147	case lang_reloc_statement_enum:
148	case lang_object_symbols_statement_enum:
149	case lang_output_statement_enum:
150	case lang_target_statement_enum:
151	case lang_input_statement_enum:
152	case lang_assignment_statement_enum:
153	case lang_padding_statement_enum:
154	case lang_address_statement_enum:
155	case lang_fill_statement_enum:
156	  break;
157
158	default:
159	  FAIL ();
160	  break;
161	}
162    }
163  return FALSE;
164}
165
166
167/* Call-back for elf32_hppa_size_stubs.  */
168
169/* Create a new stub section, and arrange for it to be linked
170   immediately before INPUT_SECTION.  */
171
172static asection *
173hppaelf_add_stub_section (const char *stub_sec_name, asection *input_section)
174{
175  asection *stub_sec;
176  flagword flags;
177  asection *output_section;
178  const char *secname;
179  lang_output_section_statement_type *os;
180  struct hook_stub_info info;
181
182  flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE
183	   | SEC_HAS_CONTENTS | SEC_RELOC | SEC_IN_MEMORY | SEC_KEEP);
184  stub_sec = bfd_make_section_anyway_with_flags (stub_file->the_bfd,
185						 stub_sec_name, flags);
186  if (stub_sec == NULL)
187    goto err_ret;
188
189  output_section = input_section->output_section;
190  secname = bfd_get_section_name (output_section->owner, output_section);
191  os = lang_output_section_find (secname);
192
193  info.input_section = input_section;
194  lang_list_init (&info.add);
195  lang_add_section (&info.add, stub_sec, os);
196
197  if (info.add.head == NULL)
198    goto err_ret;
199
200  if (hook_in_stub (&info, &os->children.head))
201    return stub_sec;
202
203 err_ret:
204  einfo ("%X%P: can not make stub section: %E\n");
205  return NULL;
206}
207
208
209/* Another call-back for elf32_hppa_size_stubs.  */
210
211static void
212hppaelf_layout_sections_again (void)
213{
214  /* If we have changed sizes of the stub sections, then we need
215     to recalculate all the section offsets.  This may mean we need to
216     add even more stubs.  */
217  gld${EMULATION_NAME}_map_segments (TRUE);
218  need_laying_out = -1;
219}
220
221
222static void
223build_section_lists (lang_statement_union_type *statement)
224{
225  if (statement->header.type == lang_input_section_enum)
226    {
227      asection *i = statement->input_section.section;
228
229      if (!((lang_input_statement_type *) i->owner->usrdata)->just_syms_flag
230	  && (i->flags & SEC_EXCLUDE) == 0
231	  && i->output_section != NULL
232	  && i->output_section->owner == link_info.output_bfd)
233	{
234	  elf32_hppa_next_input_section (&link_info, i);
235	}
236    }
237}
238
239
240/* Final emulation specific call.  For the PA we use this opportunity
241   to build linker stubs.  */
242
243static void
244gld${EMULATION_NAME}_finish (void)
245{
246  /* bfd_elf_discard_info just plays with debugging sections,
247     ie. doesn't affect any code, so we can delay resizing the
248     sections.  It's likely we'll resize everything in the process of
249     adding stubs.  */
250  if (bfd_elf_discard_info (link_info.output_bfd, &link_info))
251    need_laying_out = 1;
252
253  /* If generating a relocatable output file, then we don't
254     have to examine the relocs.  */
255  if (stub_file != NULL && !link_info.relocatable)
256    {
257      int ret = elf32_hppa_setup_section_lists (link_info.output_bfd,
258						&link_info);
259
260      if (ret != 0)
261	{
262	  if (ret < 0)
263	    {
264	      einfo ("%X%P: can not size stub section: %E\n");
265	      return;
266	    }
267
268	  lang_for_each_statement (build_section_lists);
269
270	  /* Call into the BFD backend to do the real work.  */
271	  if (! elf32_hppa_size_stubs (link_info.output_bfd,
272				       stub_file->the_bfd,
273				       &link_info,
274				       multi_subspace,
275				       group_size,
276				       &hppaelf_add_stub_section,
277				       &hppaelf_layout_sections_again))
278	    {
279	      einfo ("%X%P: can not size stub section: %E\n");
280	      return;
281	    }
282	}
283    }
284
285  if (need_laying_out != -1)
286    gld${EMULATION_NAME}_map_segments (need_laying_out);
287
288  if (! link_info.relocatable)
289    {
290      /* Set the global data pointer.  */
291      if (! elf32_hppa_set_gp (link_info.output_bfd, &link_info))
292	{
293	  einfo ("%X%P: can not set gp\n");
294	  return;
295	}
296
297      /* Now build the linker stubs.  */
298      if (stub_file != NULL && stub_file->the_bfd->sections != NULL)
299	{
300	  if (! elf32_hppa_build_stubs (&link_info))
301	    einfo ("%X%P: can not build stubs: %E\n");
302	}
303    }
304
305  finish_default ();
306}
307
308
309/* Avoid processing the fake stub_file in vercheck, stat_needed and
310   check_needed routines.  */
311
312static void (*real_func) (lang_input_statement_type *);
313
314static void hppa_for_each_input_file_wrapper (lang_input_statement_type *l)
315{
316  if (l != stub_file)
317    (*real_func) (l);
318}
319
320static void
321hppa_lang_for_each_input_file (void (*func) (lang_input_statement_type *))
322{
323  real_func = func;
324  lang_for_each_input_file (&hppa_for_each_input_file_wrapper);
325}
326
327#define lang_for_each_input_file hppa_lang_for_each_input_file
328
329EOF
330
331# Define some shell vars to insert bits of code into the standard elf
332# parse_args and list_options functions.
333#
334PARSE_AND_LIST_PROLOGUE='
335#define OPTION_MULTI_SUBSPACE		301
336#define OPTION_STUBGROUP_SIZE		(OPTION_MULTI_SUBSPACE + 1)
337'
338
339PARSE_AND_LIST_LONGOPTS='
340  { "multi-subspace", no_argument, NULL, OPTION_MULTI_SUBSPACE },
341  { "stub-group-size", required_argument, NULL, OPTION_STUBGROUP_SIZE },
342'
343
344PARSE_AND_LIST_OPTIONS='
345  fprintf (file, _("\
346  --multi-subspace            Generate import and export stubs to support\n\
347                                multiple sub-space shared libraries\n"
348		   ));
349  fprintf (file, _("\
350  --stub-group-size=N         Maximum size of a group of input sections that\n\
351                                can be handled by one stub section.  A negative\n\
352                                value locates all stubs before their branches\n\
353                                (with a group size of -N), while a positive\n\
354                                value allows two groups of input sections, one\n\
355                                before, and one after each stub section.\n\
356                                Values of +/-1 indicate the linker should\n\
357                                choose suitable defaults.\n"
358		   ));
359'
360
361PARSE_AND_LIST_ARGS_CASES='
362    case OPTION_MULTI_SUBSPACE:
363      multi_subspace = 1;
364      break;
365
366    case OPTION_STUBGROUP_SIZE:
367      {
368	const char *end;
369        group_size = bfd_scan_vma (optarg, &end, 0);
370        if (*end)
371	  einfo (_("%P%F: invalid number `%s'\''\n"), optarg);
372      }
373      break;
374'
375
376# Put these extra hppaelf routines in ld_${EMULATION_NAME}_emulation
377#
378LDEMUL_AFTER_PARSE=hppaelf_after_parse
379LDEMUL_FINISH=gld${EMULATION_NAME}_finish
380LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=hppaelf_create_output_section_statements
381