| Current Path : /usr/src/contrib/binutils/ld/emultempl/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //usr/src/contrib/binutils/ld/emultempl/spuelf.em |
# This shell script emits a C file. -*- C -*-
# Copyright 2006, 2007 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.,
# 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
#
# This file is sourced from elf32.em, and defines extra spu specific
# features.
#
cat >>e${EMULATION_NAME}.c <<EOF
#include "ldctor.h"
#include "elf32-spu.h"
/* Non-zero if no overlay processing should be done. */
static int no_overlays = 0;
/* Non-zero if we want stubs on all calls out of overlay regions. */
static int non_overlay_stubs = 0;
/* Whether to emit symbols for stubs. */
static int emit_stub_syms = 0;
/* Non-zero to perform stack space analysis. */
static int stack_analysis = 0;
/* Whether to emit symbols with stack requirements for each function. */
static int emit_stack_syms = 0;
/* Range of valid addresses for loadable sections. */
static bfd_vma local_store_lo = 0;
static bfd_vma local_store_hi = 0x3ffff;
static const char ovl_mgr[] = {
EOF
../binutils/bin2c < ${srcdir}/emultempl/spu_ovl.o >> e${EMULATION_NAME}.c
cat >>e${EMULATION_NAME}.c <<EOF
};
static const struct _ovl_stream ovl_mgr_stream = {
ovl_mgr,
ovl_mgr + sizeof (ovl_mgr)
};
static asection *toe = NULL;
static int
is_spu_target (void)
{
extern const bfd_target bfd_elf32_spu_vec;
return link_info.hash->creator == &bfd_elf32_spu_vec;
}
/* Create our note section. */
static void
spu_after_open (void)
{
if (is_spu_target ()
&& !link_info.relocatable
&& link_info.input_bfds != NULL
&& !spu_elf_create_sections (output_bfd, &link_info,
stack_analysis, emit_stack_syms))
einfo ("%X%P: can not create note section: %E\n");
gld${EMULATION_NAME}_after_open ();
}
/* Add section S at the end of output section OUTPUT_NAME.
Really, we should be duplicating ldlang.c map_input_to_output_sections
logic here, ie. using the linker script to find where the section
goes. That's rather a lot of code, and we don't want to run
map_input_to_output_sections again because most sections are already
mapped. So cheat, and put the section in a fixed place, ignoring any
attempt via a linker script to put .stub, .ovtab, and built-in
overlay manager code somewhere else. */
static void
spu_place_special_section (asection *s, const char *output_name)
{
lang_output_section_statement_type *os;
os = lang_output_section_find (output_name);
if (os == NULL)
{
const char *save = s->name;
s->name = output_name;
gld${EMULATION_NAME}_place_orphan (s);
s->name = save;
}
else
lang_add_section (&os->children, s, os);
s->output_section->size += s->size;
}
/* Load built-in overlay manager, and tweak overlay section alignment. */
static void
spu_elf_load_ovl_mgr (void)
{
lang_output_section_statement_type *os;
struct elf_link_hash_entry *h;
h = elf_link_hash_lookup (elf_hash_table (&link_info),
"__ovly_load", FALSE, FALSE, FALSE);
if (h != NULL
&& (h->root.type == bfd_link_hash_defined
|| h->root.type == bfd_link_hash_defweak)
&& h->def_regular)
{
/* User supplied __ovly_load. */
}
else if (ovl_mgr_stream.start == ovl_mgr_stream.end)
einfo ("%F%P: no built-in overlay manager\n");
else
{
lang_input_statement_type *ovl_is;
ovl_is = lang_add_input_file ("builtin ovl_mgr",
lang_input_file_is_file_enum,
NULL);
if (!spu_elf_open_builtin_lib (&ovl_is->the_bfd, &ovl_mgr_stream))
einfo ("%X%P: can not open built-in overlay manager: %E\n");
else
{
asection *in;
if (!load_symbols (ovl_is, NULL))
einfo ("%X%P: can not load built-in overlay manager: %E\n");
/* Map overlay manager sections to output sections. */
for (in = ovl_is->the_bfd->sections; in != NULL; in = in->next)
if ((in->flags & (SEC_ALLOC | SEC_LOAD))
== (SEC_ALLOC | SEC_LOAD))
spu_place_special_section (in, ".text");
}
}
/* Ensure alignment of overlay sections is sufficient. */
for (os = &lang_output_section_statement.head->output_section_statement;
os != NULL;
os = os->next)
if (os->bfd_section != NULL
&& spu_elf_section_data (os->bfd_section) != NULL
&& spu_elf_section_data (os->bfd_section)->ovl_index != 0)
{
if (os->bfd_section->alignment_power < 4)
os->bfd_section->alignment_power = 4;
/* Also ensure size rounds up. */
os->block_value = 16;
}
}
/* Go find if we need to do anything special for overlays. */
static void
spu_before_allocation (void)
{
if (is_spu_target ()
&& !link_info.relocatable
&& !no_overlays)
{
/* Size the sections. This is premature, but we need to know the
rough layout so that overlays can be found. */
expld.phase = lang_mark_phase_enum;
expld.dataseg.phase = exp_dataseg_none;
one_lang_size_sections_pass (NULL, TRUE);
/* Find overlays by inspecting section vmas. */
if (spu_elf_find_overlays (output_bfd, &link_info))
{
asection *stub, *ovtab;
if (!spu_elf_size_stubs (output_bfd, &link_info, non_overlay_stubs,
stack_analysis, &stub, &ovtab, &toe))
einfo ("%X%P: can not size overlay stubs: %E\n");
if (stub != NULL)
{
spu_place_special_section (stub, ".text");
spu_place_special_section (ovtab, ".data");
spu_place_special_section (toe, ".toe");
spu_elf_load_ovl_mgr ();
}
}
/* We must not cache anything from the preliminary sizing. */
lang_reset_memory_regions ();
}
gld${EMULATION_NAME}_before_allocation ();
}
/* Final emulation specific call. */
static void
gld${EMULATION_NAME}_finish (void)
{
int need_laying_out;
need_laying_out = bfd_elf_discard_info (output_bfd, &link_info);
gld${EMULATION_NAME}_map_segments (need_laying_out);
if (is_spu_target () && local_store_lo < local_store_hi)
{
asection *s;
s = spu_elf_check_vma (output_bfd, local_store_lo, local_store_hi);
if (s != NULL)
einfo ("%X%P: %A exceeds local store range\n", s);
}
if (toe != NULL
&& !spu_elf_build_stubs (&link_info,
emit_stub_syms || link_info.emitrelocations,
toe))
einfo ("%X%P: can not build overlay stubs: %E\n");
finish_default ();
}
EOF
if grep -q 'ld_elf.*ppc.*_emulation' ldemul-list.h; then
cat >>e${EMULATION_NAME}.c <<EOF
#include "filenames.h"
#include <fcntl.h>
#include <sys/wait.h>
struct tflist {
struct tflist *next;
char name[9];
};
static struct tflist *tmp_file_list;
static void clean_tmp (void)
{
for (; tmp_file_list != NULL; tmp_file_list = tmp_file_list->next)
unlink (tmp_file_list->name);
}
static const char *
base_name (const char *path)
{
const char *file = strrchr (path, '/');
#ifdef HAVE_DOS_BASED_FILE_SYSTEM
{
char *bslash = strrchr (path, '\\\\');
if (file == NULL || (bslash != NULL && bslash > file))
file = bslash;
if (file == NULL
&& path[0] != '\0'
&& path[1] == ':')
file = path + 1;
}
#endif
if (file == NULL)
file = path;
else
++file;
return file;
}
/* This function is called when building a ppc32 or ppc64 executable
to handle embedded spu images. */
extern bfd_boolean embedded_spu_file (lang_input_statement_type *, const char *);
bfd_boolean
embedded_spu_file (lang_input_statement_type *entry, const char *flags)
{
const char *cmd[6];
const char *sym;
char *handle, *p;
struct tflist *tf;
char *oname;
int fd;
pid_t pid;
int status;
union lang_statement_union **old_stat_tail;
union lang_statement_union **old_file_tail;
union lang_statement_union *new_ent;
lang_input_statement_type *search;
if (entry->the_bfd->format != bfd_object
|| strcmp (entry->the_bfd->xvec->name, "elf32-spu") != 0
|| (entry->the_bfd->tdata.elf_obj_data->elf_header->e_type != ET_EXEC
&& entry->the_bfd->tdata.elf_obj_data->elf_header->e_type != ET_DYN))
return FALSE;
/* Use the filename as the symbol marking the program handle struct. */
sym = base_name (entry->the_bfd->filename);
handle = xstrdup (sym);
for (p = handle; *p; ++p)
if (!(ISALNUM (*p) || *p == '$' || *p == '.'))
*p = '_';
if (tmp_file_list == NULL)
atexit (clean_tmp);
tf = xmalloc (sizeof (*tf));
tf->next = tmp_file_list;
tmp_file_list = tf;
oname = tf->name;
memcpy (tf->name, "ldXXXXXX", sizeof (tf->name));
#ifdef HAVE_MKSTEMP
fd = mkstemp (oname);
#else
oname = mktemp (oname);
if (oname == NULL)
return FALSE;
fd = open (oname, O_RDWR | O_CREAT | O_EXCL, 0600);
#endif
if (fd == -1)
return FALSE;
close (fd);
for (search = (lang_input_statement_type *) input_file_chain.head;
search != NULL;
search = (lang_input_statement_type *) search->next_real_file)
{
const char *infile = base_name (search->filename);
if (infile != NULL
&& strncmp (infile, "crtbegin", 8) == 0)
{
if (infile[8] == 'S')
flags = concat (flags, " -fPIC", NULL);
else if (infile[8] == 'T')
flags = concat (flags, " -fpie", NULL);
break;
}
}
/* Use fork() and exec() rather than system() so that we don't
need to worry about quoting args. */
cmd[0] = EMBEDSPU;
cmd[1] = flags;
cmd[2] = handle;
cmd[3] = entry->the_bfd->filename;
cmd[4] = oname;
cmd[5] = NULL;
if (trace_file_tries)
{
info_msg (_("running: %s \"%s\" \"%s\" \"%s\" \"%s\"\n"),
cmd[0], cmd[1], cmd[2], cmd[3], cmd[4]);
fflush (stdout);
}
pid = fork ();
if (pid == -1)
return FALSE;
if (pid == 0)
{
execvp (cmd[0], (char *const *) cmd);
if (strcmp ("embedspu", EMBEDSPU) != 0)
{
cmd[0] = "embedspu";
execvp (cmd[0], (char *const *) cmd);
}
perror (cmd[0]);
_exit (127);
}
#ifdef HAVE_WAITPID
#define WAITFOR(PID, STAT) waitpid (PID, STAT, 0)
#else
#define WAITFOR(PID, STAT) wait (STAT)
#endif
if (WAITFOR (pid, &status) != pid
|| !WIFEXITED (status)
|| WEXITSTATUS (status) != 0)
return FALSE;
#undef WAITFOR
old_stat_tail = stat_ptr->tail;
old_file_tail = input_file_chain.tail;
if (lang_add_input_file (oname, lang_input_file_is_file_enum, NULL) == NULL)
return FALSE;
/* lang_add_input_file put the new list entry at the end of the statement
and input file lists. Move it to just after the current entry. */
new_ent = *old_stat_tail;
*old_stat_tail = NULL;
stat_ptr->tail = old_stat_tail;
*old_file_tail = NULL;
input_file_chain.tail = old_file_tail;
new_ent->header.next = entry->header.next;
entry->header.next = new_ent;
new_ent->input_statement.next_real_file = entry->next_real_file;
entry->next_real_file = new_ent;
/* Ensure bfd sections are excluded from the output. */
bfd_section_list_clear (entry->the_bfd);
entry->loaded = TRUE;
return TRUE;
}
EOF
fi
# Define some shell vars to insert bits of code into the standard elf
# parse_args and list_options functions.
#
PARSE_AND_LIST_PROLOGUE='
#define OPTION_SPU_PLUGIN 301
#define OPTION_SPU_NO_OVERLAYS (OPTION_SPU_PLUGIN + 1)
#define OPTION_SPU_STUB_SYMS (OPTION_SPU_NO_OVERLAYS + 1)
#define OPTION_SPU_NON_OVERLAY_STUBS (OPTION_SPU_STUB_SYMS + 1)
#define OPTION_SPU_LOCAL_STORE (OPTION_SPU_NON_OVERLAY_STUBS + 1)
#define OPTION_SPU_STACK_ANALYSIS (OPTION_SPU_LOCAL_STORE + 1)
#define OPTION_SPU_STACK_SYMS (OPTION_SPU_STACK_ANALYSIS + 1)
'
PARSE_AND_LIST_LONGOPTS='
{ "plugin", no_argument, NULL, OPTION_SPU_PLUGIN },
{ "no-overlays", no_argument, NULL, OPTION_SPU_NO_OVERLAYS },
{ "emit-stub-syms", no_argument, NULL, OPTION_SPU_STUB_SYMS },
{ "extra-overlay-stubs", no_argument, NULL, OPTION_SPU_NON_OVERLAY_STUBS },
{ "local-store", required_argument, NULL, OPTION_SPU_LOCAL_STORE },
{ "stack-analysis", no_argument, NULL, OPTION_SPU_STACK_ANALYSIS },
{ "emit-stack-syms", no_argument, NULL, OPTION_SPU_STACK_SYMS },
'
PARSE_AND_LIST_OPTIONS='
fprintf (file, _("\
--plugin Make SPU plugin.\n\
--no-overlays No overlay handling.\n\
--emit-stub-syms Add symbols on overlay call stubs.\n\
--extra-overlay-stubs Add stubs on all calls out of overlay regions.\n\
--local-store=lo:hi Valid address range.\n\
--stack-analysis Estimate maximum stack requirement.\n\
--emit-stack-syms Add __stack_func giving stack needed for each func.\n"
));
'
PARSE_AND_LIST_ARGS_CASES='
case OPTION_SPU_PLUGIN:
spu_elf_plugin (1);
break;
case OPTION_SPU_NO_OVERLAYS:
no_overlays = 1;
break;
case OPTION_SPU_STUB_SYMS:
emit_stub_syms = 1;
break;
case OPTION_SPU_NON_OVERLAY_STUBS:
non_overlay_stubs = 1;
break;
case OPTION_SPU_LOCAL_STORE:
{
char *end;
local_store_lo = strtoul (optarg, &end, 0);
if (*end == '\'':'\'')
{
local_store_hi = strtoul (end + 1, &end, 0);
if (*end == 0)
break;
}
einfo (_("%P%F: invalid --local-store address range `%s'\''\n"), optarg);
}
break;
case OPTION_SPU_STACK_ANALYSIS:
stack_analysis = 1;
break;
case OPTION_SPU_STACK_SYMS:
emit_stack_syms = 1;
break;
'
LDEMUL_AFTER_OPEN=spu_after_open
LDEMUL_BEFORE_ALLOCATION=spu_before_allocation
LDEMUL_FINISH=gld${EMULATION_NAME}_finish