From: Jeff Law Date: Tue, 2 Nov 1993 23:54:04 +0000 (+0000) Subject: * emultempl/hppaosf.em: Various fixes and support for linker stub X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9d9d72fcf51715aed4a55259da21a10577741e63;p=binutils-gdb.git * emultempl/hppaosf.em: Various fixes and support for linker stub generation. (hppaosf_finish, hppaosf_search_for_padding_statements, hppaosf_create_output_section_statements): New functions in support of linker stub generation. (ld_hppaosf_emulation): Redefine to include new emulation-specific routines. --- diff --git a/ld/emultempl/hppaosf.em b/ld/emultempl/hppaosf.em index 93ae02191dd..3bbb9452b7e 100644 --- a/ld/emultempl/hppaosf.em +++ b/ld/emultempl/hppaosf.em @@ -29,6 +29,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "config.h" #include "ldemul.h" #include "ldfile.h" +#include "ldlang.h" #include "ldmisc.h" extern boolean lang_float_flag; @@ -45,6 +46,173 @@ static void hppaosf_before_parse() ldfile_output_architecture = bfd_arch_hppa; } +static lang_input_statement_type *stub_file = 0; + +static lang_input_section_type *stub_input_section = NULL; + +extern lang_statement_list_type *stat_ptr; +/* List of statements needed to handle constructors */ +extern lang_statement_list_type constructor_list; + +static void +hppaosf_search_for_padding_statements(s,prev) + lang_statement_union_type *s; + lang_statement_union_type **prev; +{ + lang_statement_union_type *sprev = NULL; + for (; s != (lang_statement_union_type *) NULL; s = s->next) + { + switch (s->header.type) + { + case lang_constructors_statement_enum: + hppaosf_search_for_padding_statements (constructor_list.head,&constructor_list.head); + break; + case lang_output_section_statement_enum: + hppaosf_search_for_padding_statements + (s->output_section_statement.children.head,&s->output_section_statement.children.head); + break; + case lang_wild_statement_enum: + hppaosf_search_for_padding_statements + (s->wild_statement.children.head,&s->wild_statement.children.head); + break; + case lang_data_statement_enum: + case lang_object_symbols_statement_enum: + case lang_output_statement_enum: + case lang_target_statement_enum: + case lang_input_section_enum: + case lang_input_statement_enum: + case lang_assignment_statement_enum: + case lang_address_statement_enum: + break; + case lang_padding_statement_enum: + if ( sprev ) + { + sprev->header.next = s->header.next; + } + else + { + **prev = *s; + } + break; + default: + FAIL (); + break; + } + sprev = s; + } +} + +static void +hppaosf_finish() +{ + extern asymbol *hppa_look_for_stubs_in_section(); + extern ld_config_type config; + + if (config.relocateable_output == false) + { + /* check for needed stubs */ + LANG_FOR_EACH_INPUT_SECTION + (statement, abfd, section, + ( + { + int new_sym_cnt = 0; + int i,j; + asymbol *syms = hppa_look_for_stubs_in_section (stub_file->the_bfd, + abfd, + output_bfd, + section, + statement->asymbols, + &new_sym_cnt); + + if ( (new_sym_cnt > 0) && syms ) + { + struct symbol_cache_entry **old_asymbols = stub_file->asymbols; + + stub_file->asymbols = ldmalloc((stub_file->symbol_count + new_sym_cnt) * sizeof(asymbol *)); + + for ( j = 0; j < stub_file->symbol_count; j++ ) + stub_file->asymbols[j] = old_asymbols[j]; + + for ( j = 0, i = stub_file->symbol_count; j < new_sym_cnt; j++, i++ ) + stub_file->asymbols[i] = &syms[j]; + + stub_file->symbol_count += new_sym_cnt; + /* Now, attach the contents of the new linker stub(s) */ + /* to the linker stub input section. */ + + + } + } + ) + ) + /* Add a statement to get the linker stubs included in the output */ + lang_add_wild(".hppa_linker_stubs",NULL); + + /* If we've added stubs,remove the padding_statements because */ + /* they are no longer valid */ + hppaosf_search_for_padding_statements(stat_ptr->head,&(stat_ptr->head)); + } +} + +static void +hppaosf_create_output_section_statements() +{ + asection *stub_sec; + asection *output_text_sec = bfd_make_section_old_way(output_bfd,".text"); + lang_input_section_type *new_input_sec; + + stub_file = lang_add_input_file ("linker stubs", + lang_input_file_is_fake_enum, + (char *) NULL); + stub_file->the_bfd = bfd_create ("linker stubs", output_bfd); + stub_file->symbol_count = 0; + stub_file->the_bfd->sections = 0; + + stub_sec = bfd_make_section_old_way(stub_file->the_bfd,".hppa_linker_stubs"); + stub_sec->output_section = output_text_sec; + bfd_set_section_flags(stub_file->the_bfd, stub_sec, SEC_HAS_CONTENTS | SEC_ALLOC | SEC_CODE | SEC_RELOC ); + + /* The user data of a bfd points to the input statement attached */ + stub_file->the_bfd->usrdata = (void *)stub_file; + stub_file->common_section = + bfd_make_section(stub_file->the_bfd,"COMMON"); + + new_input_sec = (lang_input_section_type *)stat_alloc(sizeof(lang_input_section_type)); + if ( new_input_sec ) + { + lang_output_section_statement_type *text_output_sec; + lang_statement_union_type *stmt; + lang_wild_statement_type *stub_statement; + new_input_sec->section = stub_sec; + new_input_sec->ifile = stub_file; + new_input_sec->header.type = lang_input_section_enum; + new_input_sec->header.next = NULL; + + stub_input_section = new_input_sec; + + /* Find the output_section_statement for .text, */ + /* then find the wild_statement for .hppa_linker_stubs */ + + text_output_sec = lang_output_section_find(".text"); + + stmt = text_output_sec->children.head; + + while (stmt && stmt->header.type != lang_wild_statement_enum) + { + stmt = stmt->header.next; + } + + if ( stmt ) + { + lang_wild_statement_type *wstmt = (lang_wild_statement_type *)stmt; + lang_list_init(&wstmt->children); + lang_statement_append(&wstmt->children, + (lang_statement_union_type *)new_input_sec, + &new_input_sec->header.next); + } + } +} + static void hppaosf_set_output_arch() { @@ -126,6 +294,8 @@ struct ld_emulation_xfer_struct ld_hppaosf_emulation = before_allocation_default, hppaosf_get_script, "hppaosf", - "elf32-hppa" + "elf32-hppa", + hppaosf_finish, + hppaosf_create_output_section_statements }; EOF