233 lines
6.8 KiB
Plaintext
233 lines
6.8 KiB
Plaintext
# 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 <<EOF
|
|
|
|
static boolean mmo_place_orphan
|
|
PARAMS ((lang_input_statement_type *, asection *));
|
|
static asection *output_prev_sec_find
|
|
PARAMS ((lang_output_section_statement_type *));
|
|
static void mmo_finish PARAMS ((void));
|
|
static void mmo_wipe_sec_reloc_flag PARAMS ((bfd *, asection *, PTR));
|
|
|
|
/* Find the last output section before given output statement.
|
|
Used by place_orphan. */
|
|
|
|
static asection *
|
|
output_prev_sec_find (os)
|
|
lang_output_section_statement_type *os;
|
|
{
|
|
asection *s = (asection *) NULL;
|
|
lang_statement_union_type *u;
|
|
lang_output_section_statement_type *lookup;
|
|
|
|
for (u = lang_output_section_statement.head;
|
|
u != (lang_statement_union_type *) NULL;
|
|
u = lookup->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;
|
|
if (snew->next == NULL)
|
|
snew->owner->section_tail = pps;
|
|
|
|
/* Now tack it on to the "place->os" section list. */
|
|
snew->next = *place->section;
|
|
*place->section = snew;
|
|
if (snew->next == NULL)
|
|
snew->owner->section_tail = &snew->next;
|
|
}
|
|
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
|