262 lines
8.1 KiB
Plaintext
262 lines
8.1 KiB
Plaintext
# This shell script emits a C file. -*- C -*-
|
||
# Copyright 2001, 2002, 2003, 2004 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.
|
||
|
||
cat >>e${EMULATION_NAME}.c <<EOF
|
||
/* Need to have this define before mmix-elfnmmo, which includes
|
||
needrelax.em which uses this name for the before_allocation function,
|
||
normally defined in elf32.em. */
|
||
#define gldmmo_before_allocation before_allocation_default
|
||
EOF
|
||
|
||
. ${srcdir}/emultempl/mmix-elfnmmo.em
|
||
|
||
cat >>e${EMULATION_NAME}.c <<EOF
|
||
|
||
/* Find the last output section before given output statement.
|
||
Used by place_orphan. */
|
||
|
||
static asection *
|
||
output_prev_sec_find (lang_output_section_statement_type *os)
|
||
{
|
||
asection *s = 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 bfd_boolean
|
||
mmo_place_orphan (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.relocatable
|
||
|| (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,
|
||
(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, NULL);
|
||
|
||
/* Restore the global list pointer. */
|
||
stat_ptr = old;
|
||
|
||
snew = os->bfd_section;
|
||
if (snew == NULL)
|
||
/* /DISCARD/ section. */
|
||
return TRUE;
|
||
|
||
/* We need an output section for .text as a root, so if there was none
|
||
(might happen with a peculiar linker script such as in "map
|
||
addresses", map-address.exp), we grab the output section created
|
||
above. */
|
||
if (hold_text.os == NULL)
|
||
{
|
||
if (os == NULL)
|
||
return FALSE;
|
||
hold_text.os = os;
|
||
}
|
||
|
||
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)
|
||
;
|
||
bfd_section_list_remove (output_bfd, pps);
|
||
|
||
/* Now tack it on to the "place->os" section list. */
|
||
bfd_section_list_insert (output_bfd, 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 (bfd *abfd, asection *sec, void *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 (void)
|
||
{
|
||
bfd_map_over_sections (output_bfd, mmo_wipe_sec_reloc_flag, NULL);
|
||
}
|
||
|
||
/* To get on-demand global register allocation right, we need to parse the
|
||
relocs, like what happens when linking to ELF. It needs to be done
|
||
before all input sections are supposed to be present. When linking to
|
||
ELF, it's done when reading symbols. When linking to mmo, we do it
|
||
when all input files are seen, which is equivalent. */
|
||
|
||
static void
|
||
mmo_after_open (void)
|
||
{
|
||
/* When there's a mismatch between the output format and the emulation
|
||
(using weird combinations like "-m mmo --oformat elf64-mmix" for
|
||
example), we'd count relocs twice because they'd also be counted
|
||
along the usual route for ELF-only linking, which would lead to an
|
||
internal accounting error. */
|
||
if (bfd_get_flavour (output_bfd) != bfd_target_elf_flavour)
|
||
{
|
||
LANG_FOR_EACH_INPUT_STATEMENT (is)
|
||
{
|
||
if (bfd_get_flavour (is->the_bfd) == bfd_target_elf_flavour
|
||
&& !_bfd_mmix_check_all_relocs (is->the_bfd, &link_info))
|
||
einfo ("%X%P: Internal problems scanning %B after opening it",
|
||
is->the_bfd);
|
||
}
|
||
}
|
||
}
|
||
EOF
|
||
|
||
LDEMUL_PLACE_ORPHAN=mmo_place_orphan
|
||
LDEMUL_FINISH=mmo_finish
|
||
LDEMUL_AFTER_OPEN=mmo_after_open
|