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