# This shell script emits a C file. -*- C -*- # Copyright 2001 Free Software Foundation, Inc. # # This file is part of GLD, the Gnu Linker. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # This file is sourced from elf32.em and mmo.em, used to define # linker MMIX-specifics common to ELF and MMO. . ${srcdir}/emultempl/mmix-elfnmmo.em cat >>e${EMULATION_NAME}.c <next) { lookup = &u->output_section_statement; if (lookup == os) break; if (lookup->bfd_section != NULL && lookup->bfd_section != bfd_abs_section_ptr && lookup->bfd_section != bfd_com_section_ptr && lookup->bfd_section != bfd_und_section_ptr) s = lookup->bfd_section; } if (u == NULL) return NULL; return s; } struct orphan_save { lang_output_section_statement_type *os; asection **section; lang_statement_union_type **stmt; }; #define HAVE_SECTION(hold, name) \ (hold.os != NULL || (hold.os = lang_output_section_find (name)) != NULL) /* Place an orphan section. We use this to put random SEC_CODE or SEC_READONLY sections right after MMO_TEXT_SECTION_NAME. Much borrowed from elf32.em. */ static boolean mmo_place_orphan (file, s) lang_input_statement_type *file; asection *s; { static struct orphan_save hold_text; struct orphan_save *place; lang_output_section_statement_type *os; lang_statement_list_type *old; lang_statement_list_type add; asection *snew, **pps, *bfd_section; /* We have nothing to say for anything other than a final link. */ if (link_info.relocateable || (bfd_get_section_flags (s->owner, s) & (SEC_EXCLUDE | SEC_LOAD)) != SEC_LOAD) return false; /* Only care for sections we're going to load. */ os = lang_output_section_find (bfd_get_section_name (s->owner, s)); /* We have an output section by this name. Place the section inside it (regardless of whether the linker script lists it as input). */ if (os != NULL) { lang_add_section (&os->children, s, os, file); return true; } /* If this section does not have .text-type section flags or there's no MMO_TEXT_SECTION_NAME, we don't have anything to say. */ if ((bfd_get_section_flags (s->owner, s) & (SEC_CODE | SEC_READONLY)) == 0) return false; if (hold_text.os == NULL) hold_text.os = lang_output_section_find (MMO_TEXT_SECTION_NAME); place = &hold_text; /* If there's an output section by this name, we'll use it, regardless of section flags, in contrast to what's done in elf32.em. */ /* Start building a list of statements for this section. First save the current statement pointer. */ old = stat_ptr; /* Add the output section statements for this orphan to our own private list, inserting them later into the global statement list. */ stat_ptr = &add; lang_list_init (stat_ptr); os = lang_enter_output_section_statement (bfd_get_section_name (s->owner, s), NULL, 0, (bfd_vma) 0, (etree_type *) NULL, (etree_type *) NULL, (etree_type *) NULL); lang_add_section (&os->children, s, os, file); lang_leave_output_section_statement ((bfd_vma) 0, "*default*", (struct lang_output_section_phdr_list *) NULL, "*default*"); /* Restore the global list pointer. */ stat_ptr = old; snew = os->bfd_section; bfd_section = place->os->bfd_section; if (place->section == NULL && bfd_section == NULL) bfd_section = output_prev_sec_find (place->os); if (place->section != NULL || (bfd_section != NULL && bfd_section != snew)) { /* Shuffle the section to make the output file look neater. This is really only cosmetic. */ if (place->section == NULL) /* Put orphans after the first section on the list. */ place->section = &bfd_section->next; /* Unlink the section. */ for (pps = &output_bfd->sections; *pps != snew; pps = &(*pps)->next) ; *pps = snew->next; /* Now tack it on to the "place->os" section list. */ snew->next = *place->section; *place->section = snew; } place->section = &snew->next; /* Save the end of this list. */ if (add.head != NULL) { /* We try to put the output statements in some sort of reasonable order here, because they determine the final load addresses of the orphan sections. */ if (place->stmt == NULL) { /* Put the new statement list right at the head. */ *add.tail = place->os->header.next; place->os->header.next = add.head; } else { /* Put it after the last orphan statement we added. */ *add.tail = *place->stmt; *place->stmt = add.head; } /* Fix the global list pointer if we happened to tack our new list at the tail. */ if (*old->tail == add.head) old->tail = add.tail; /* Save the end of this list. */ place->stmt = add.tail; } return true; } /* Remove the spurious settings of SEC_RELOC that make it to the output at link time. We are as confused as elflink.h:elf_bfd_final_link, and paper over the bug similarly. */ static void mmo_wipe_sec_reloc_flag (abfd, sec, ptr) bfd *abfd; asection *sec; PTR ptr ATTRIBUTE_UNUSED; { bfd_set_section_flags (abfd, sec, bfd_get_section_flags (abfd, sec) & ~SEC_RELOC); } /* Iterate with bfd_map_over_sections over mmo_wipe_sec_reloc_flag... */ static void mmo_finish () { bfd_map_over_sections (output_bfd, mmo_wipe_sec_reloc_flag, NULL); } EOF LDEMUL_PLACE_ORPHAN=mmo_place_orphan LDEMUL_FINISH=mmo_finish