1# This shell script emits a C file. -*- C -*- 2# Copyright 1991, 1993, 1994, 1997, 1999, 2000, 2001, 2002, 2003, 2004, 3# 2005, 2006, 2007, 2008, 2009, 2012 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 after_parse_default (); 64} 65 66/* This is called before the input files are opened. We create a new 67 fake input file to hold the stub sections. */ 68 69static void 70hppaelf_create_output_section_statements (void) 71{ 72 if (!(bfd_get_flavour (link_info.output_bfd) == bfd_target_elf_flavour 73 && (elf_object_id (link_info.output_bfd) == HPPA32_ELF_DATA 74 || elf_object_id (link_info.output_bfd) == HPPA64_ELF_DATA))) 75 return; 76 77 stub_file = lang_add_input_file ("linker stubs", 78 lang_input_file_is_fake_enum, 79 NULL); 80 stub_file->the_bfd = bfd_create ("linker stubs", link_info.output_bfd); 81 if (stub_file->the_bfd == NULL 82 || ! bfd_set_arch_mach (stub_file->the_bfd, 83 bfd_get_arch (link_info.output_bfd), 84 bfd_get_mach (link_info.output_bfd))) 85 { 86 einfo ("%X%P: can not create BFD %E\n"); 87 return; 88 } 89 90 stub_file->the_bfd->flags |= BFD_LINKER_CREATED; 91 ldlang_add_file (stub_file); 92} 93 94 95struct hook_stub_info 96{ 97 lang_statement_list_type add; 98 asection *input_section; 99}; 100 101/* Traverse the linker tree to find the spot where the stub goes. */ 102 103static bfd_boolean 104hook_in_stub (struct hook_stub_info *info, lang_statement_union_type **lp) 105{ 106 lang_statement_union_type *l; 107 bfd_boolean ret; 108 109 for (; (l = *lp) != NULL; lp = &l->header.next) 110 { 111 switch (l->header.type) 112 { 113 case lang_constructors_statement_enum: 114 ret = hook_in_stub (info, &constructor_list.head); 115 if (ret) 116 return ret; 117 break; 118 119 case lang_output_section_statement_enum: 120 ret = hook_in_stub (info, 121 &l->output_section_statement.children.head); 122 if (ret) 123 return ret; 124 break; 125 126 case lang_wild_statement_enum: 127 ret = hook_in_stub (info, &l->wild_statement.children.head); 128 if (ret) 129 return ret; 130 break; 131 132 case lang_group_statement_enum: 133 ret = hook_in_stub (info, &l->group_statement.children.head); 134 if (ret) 135 return ret; 136 break; 137 138 case lang_input_section_enum: 139 if (l->input_section.section == info->input_section) 140 { 141 /* We've found our section. Insert the stub immediately 142 before its associated input section. */ 143 *lp = info->add.head; 144 *(info->add.tail) = l; 145 return TRUE; 146 } 147 break; 148 149 case lang_data_statement_enum: 150 case lang_reloc_statement_enum: 151 case lang_object_symbols_statement_enum: 152 case lang_output_statement_enum: 153 case lang_target_statement_enum: 154 case lang_input_statement_enum: 155 case lang_assignment_statement_enum: 156 case lang_padding_statement_enum: 157 case lang_address_statement_enum: 158 case lang_fill_statement_enum: 159 break; 160 161 default: 162 FAIL (); 163 break; 164 } 165 } 166 return FALSE; 167} 168 169 170/* Call-back for elf32_hppa_size_stubs. */ 171 172/* Create a new stub section, and arrange for it to be linked 173 immediately before INPUT_SECTION. */ 174 175static asection * 176hppaelf_add_stub_section (const char *stub_sec_name, asection *input_section) 177{ 178 asection *stub_sec; 179 flagword flags; 180 asection *output_section; 181 const char *secname; 182 lang_output_section_statement_type *os; 183 struct hook_stub_info info; 184 185 flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE 186 | SEC_HAS_CONTENTS | SEC_RELOC | SEC_IN_MEMORY | SEC_KEEP); 187 stub_sec = bfd_make_section_anyway_with_flags (stub_file->the_bfd, 188 stub_sec_name, flags); 189 if (stub_sec == NULL) 190 goto err_ret; 191 192 output_section = input_section->output_section; 193 secname = bfd_get_section_name (output_section->owner, output_section); 194 os = lang_output_section_find (secname); 195 196 info.input_section = input_section; 197 lang_list_init (&info.add); 198 lang_add_section (&info.add, stub_sec, NULL, os); 199 200 if (info.add.head == NULL) 201 goto err_ret; 202 203 if (hook_in_stub (&info, &os->children.head)) 204 return stub_sec; 205 206 err_ret: 207 einfo ("%X%P: can not make stub section: %E\n"); 208 return NULL; 209} 210 211 212/* Another call-back for elf32_hppa_size_stubs. */ 213 214static void 215hppaelf_layout_sections_again (void) 216{ 217 /* If we have changed sizes of the stub sections, then we need 218 to recalculate all the section offsets. This may mean we need to 219 add even more stubs. */ 220 gld${EMULATION_NAME}_map_segments (TRUE); 221 need_laying_out = -1; 222} 223 224 225static void 226build_section_lists (lang_statement_union_type *statement) 227{ 228 if (statement->header.type == lang_input_section_enum) 229 { 230 asection *i = statement->input_section.section; 231 232 if (i->sec_info_type != SEC_INFO_TYPE_JUST_SYMS 233 && (i->flags & SEC_EXCLUDE) == 0 234 && i->output_section != NULL 235 && i->output_section->owner == link_info.output_bfd) 236 { 237 elf32_hppa_next_input_section (&link_info, i); 238 } 239 } 240} 241 242 243/* For the PA we use this opportunity to size and build linker stubs. */ 244 245static void 246gld${EMULATION_NAME}_after_allocation (void) 247{ 248 /* bfd_elf_discard_info just plays with data and debugging sections, 249 ie. doesn't affect code size, so we can delay resizing the 250 sections. It's likely we'll resize everything in the process of 251 adding stubs. */ 252 if (bfd_elf_discard_info (link_info.output_bfd, &link_info)) 253 need_laying_out = 1; 254 255 /* If generating a relocatable output file, then we don't 256 have to examine the relocs. */ 257 if (stub_file != NULL && !link_info.relocatable) 258 { 259 int ret = elf32_hppa_setup_section_lists (link_info.output_bfd, 260 &link_info); 261 262 if (ret != 0) 263 { 264 if (ret < 0) 265 { 266 einfo ("%X%P: can not size stub section: %E\n"); 267 return; 268 } 269 270 lang_for_each_statement (build_section_lists); 271 272 /* Call into the BFD backend to do the real work. */ 273 if (! elf32_hppa_size_stubs (link_info.output_bfd, 274 stub_file->the_bfd, 275 &link_info, 276 multi_subspace, 277 group_size, 278 &hppaelf_add_stub_section, 279 &hppaelf_layout_sections_again)) 280 { 281 einfo ("%X%P: can not size stub section: %E\n"); 282 return; 283 } 284 } 285 } 286 287 if (need_laying_out != -1) 288 gld${EMULATION_NAME}_map_segments (need_laying_out); 289 290 if (! link_info.relocatable) 291 { 292 /* Set the global data pointer. */ 293 if (! elf32_hppa_set_gp (link_info.output_bfd, &link_info)) 294 { 295 einfo ("%X%P: can not set gp\n"); 296 return; 297 } 298 299 /* Now build the linker stubs. */ 300 if (stub_file != NULL && stub_file->the_bfd->sections != NULL) 301 { 302 if (! elf32_hppa_build_stubs (&link_info)) 303 einfo ("%X%P: can not build stubs: %E\n"); 304 } 305 } 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_AFTER_ALLOCATION=gld${EMULATION_NAME}_after_allocation 380LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=hppaelf_create_output_section_statements 381