# This shell script emits a C file. -*- C -*-
-# Copyright 1991, 1993, 1996, 1997, 1998, 1999, 2000, 2002
+# Copyright 1991, 1993, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004
# Free Software Foundation, Inc.
#
# This file is part of GLD, the Gnu Linker.
#
cat >>e${EMULATION_NAME}.c <<EOF
-#include "elf-bfd.h"
-#include "elf/arm.h"
-
-static int no_pipeline_knowledge = 0;
-static char * thumb_entry_symbol = NULL;
-static bfd * bfd_for_interwork;
-
-static void arm_elf_after_open PARAMS ((void));
-static void arm_elf_set_bfd_for_interworking PARAMS ((lang_statement_union_type *));
-static void arm_elf_before_allocation PARAMS ((void));
-static void arm_elf_stringify_thumb_address PARAMS ((struct bfd_link_hash_entry *, char *));
-static void arm_elf_finish PARAMS ((void));
-
+static int no_pipeline_knowledge = 0;
+static char *thumb_entry_symbol = NULL;
+static bfd *bfd_for_interwork;
+static int byteswap_code = 0;
static void
-gld${EMULATION_NAME}_before_parse ()
+gld${EMULATION_NAME}_before_parse (void)
{
#ifndef TARGET_ /* I.e., if not generic. */
- ldfile_set_output_arch ("`echo ${ARCH}`");
+ ldfile_set_output_arch ("`echo ${ARCH}`", bfd_arch_unknown);
#endif /* not TARGET_ */
- config.dynamic_link = ${DYNAMIC_LINK-true};
- config.has_shared = `if test -n "$GENERATE_SHLIB_SCRIPT" ; then echo true ; else echo false ; fi`;
+ config.dynamic_link = ${DYNAMIC_LINK-TRUE};
+ config.has_shared = `if test -n "$GENERATE_SHLIB_SCRIPT" ; then echo TRUE ; else echo FALSE ; fi`;
}
static void
-arm_elf_after_open ()
+arm_elf_after_open (void)
{
if (strstr (bfd_get_target (output_bfd), "arm") == NULL)
{
}
static void
-arm_elf_set_bfd_for_interworking (statement)
- lang_statement_union_type * statement;
+arm_elf_set_bfd_for_interworking (lang_statement_union_type *statement)
{
if (statement->header.type == lang_input_section_enum
- && statement->input_section.ifile->just_syms_flag == false)
+ && !statement->input_section.ifile->just_syms_flag
+ && (statement->input_section.section->flags & SEC_EXCLUDE) == 0)
{
- asection * i = statement->input_section.section;
- asection * output_section = i->output_section;
+ asection *i = statement->input_section.section;
+ asection *output_section = i->output_section;
ASSERT (output_section->owner == output_bfd);
&& ! i->owner->output_has_begun)
{
bfd_for_interwork = i->owner;
- bfd_for_interwork->output_has_begun = true;
+ bfd_for_interwork->output_has_begun = TRUE;
}
}
}
static void
-arm_elf_before_allocation ()
+arm_elf_before_allocation (void)
{
- bfd * tem;
+ bfd *tem;
/* Call the standard elf routine. */
gld${EMULATION_NAME}_before_allocation ();
/* The interworking bfd must be the last one in the link. */
bfd_for_interwork = NULL;
for (tem = link_info.input_bfds; tem != NULL; tem = tem->link_next)
- tem->output_has_begun = false;
+ tem->output_has_begun = FALSE;
lang_for_each_statement (arm_elf_set_bfd_for_interworking);
- ASSERT (bfd_for_interwork != NULL);
for (tem = link_info.input_bfds; tem != NULL; tem = tem->link_next)
- tem->output_has_begun = false;
-
- bfd_elf32_arm_get_bfd_for_interworking (bfd_for_interwork, &link_info);
+ tem->output_has_begun = FALSE;
+
+ /* If bfd_for_interwork is NULL, then there are no loadable sections
+ with real contents to be linked, so we are not going to have to
+ create any interworking stubs, so it is OK not to call
+ bfd_elf32_arm_get_bfd_for_interworking. */
+ if (bfd_for_interwork != NULL)
+ bfd_elf32_arm_get_bfd_for_interworking (bfd_for_interwork, &link_info);
}
/* We should be able to set the size of the interworking stub section. */
LANG_FOR_EACH_INPUT_STATEMENT (is)
{
if (!bfd_elf32_arm_process_before_allocation (is->the_bfd, & link_info,
- no_pipeline_knowledge))
+ no_pipeline_knowledge,
+ byteswap_code))
{
/* xgettext:c-format */
einfo (_("Errors encountered processing file %s"), is->filename);
bfd_elf32_arm_allocate_interworking_sections (& link_info);
}
-void
-arm_elf_stringify_thumb_address (h, buffer)
- struct bfd_link_hash_entry * h;
- char * buffer;
-{
- bfd_vma val;
-
- /* Get the address of the symbol. */
- val = (h->u.def.value
- + bfd_get_section_vma (output_bfd,
- h->u.def.section->output_section)
- + h->u.def.section->output_offset);
- /* This is a thumb address, so the bottom bit of its address must be set. */
- val |= 1;
-
- /* Now convert this value into a string. */
- buffer[0] = '0';
- buffer[1] = 'x';
-
- sprintf_vma (buffer + 2, val);
-}
-
static void
-arm_elf_finish ()
+arm_elf_finish (void)
{
struct bfd_link_hash_entry * h;
/* Call the elf32.em routine. */
gld${EMULATION_NAME}_finish ();
- if (thumb_entry_symbol != NULL)
- {
- static char buffer[32];
-
- h = bfd_link_hash_lookup (link_info.hash, thumb_entry_symbol,
- false, false, true);
-
- if (h != (struct bfd_link_hash_entry *) NULL
- && (h->type == bfd_link_hash_defined
- || h->type == bfd_link_hash_defweak)
- && h->u.def.section->output_section != NULL)
- {
- if (entry_symbol.name != NULL && entry_from_cmdline)
- einfo (_("%P: warning: '--thumb-entry %s' is overriding '-e %s'\n"),
- thumb_entry_symbol, entry_symbol.name);
-
- arm_elf_stringify_thumb_address (h, buffer);
- entry_symbol.name = buffer;
- }
- else
- einfo (_("%P: warning: cannot find thumb start symbol %s\n"),
- thumb_entry_symbol);
- }
+ if (thumb_entry_symbol == NULL)
+ return;
- /* If init is a Thumb function set the LSB. */
- h = bfd_link_hash_lookup (link_info.hash, link_info.init_function, false,
- false, true);
+ h = bfd_link_hash_lookup (link_info.hash, thumb_entry_symbol,
+ FALSE, FALSE, TRUE);
if (h != (struct bfd_link_hash_entry *) NULL
&& (h->type == bfd_link_hash_defined
|| h->type == bfd_link_hash_defweak)
- && ELF_ST_TYPE (((struct elf_link_hash_entry *)h)->type) == STT_ARM_TFUNC
&& h->u.def.section->output_section != NULL)
{
static char buffer[32];
+ bfd_vma val;
- arm_elf_stringify_thumb_address (h, buffer);
- link_info.init_function = buffer;
- }
+ /* Special procesing is required for a Thumb entry symbol. The
+ bottom bit of its address must be set. */
+ val = (h->u.def.value
+ + bfd_get_section_vma (output_bfd,
+ h->u.def.section->output_section)
+ + h->u.def.section->output_offset);
- /* If fini is a Thumb function set the LSB. */
- h = bfd_link_hash_lookup (link_info.hash, link_info.fini_function, false,
- false, true);
+ val |= 1;
- if (h != (struct bfd_link_hash_entry *) NULL
- && (h->type == bfd_link_hash_defined
- || h->type == bfd_link_hash_defweak)
- && ELF_ST_TYPE (((struct elf_link_hash_entry *)h)->type) == STT_ARM_TFUNC
- && h->u.def.section->output_section != NULL)
- {
- static char buffer[32];
+ /* Now convert this value into a string and store it in entry_symbol
+ where the lang_finish() function will pick it up. */
+ buffer[0] = '0';
+ buffer[1] = 'x';
- arm_elf_stringify_thumb_address (h, buffer);
- link_info.fini_function = buffer;
+ sprintf_vma (buffer + 2, val);
+
+ if (entry_symbol.name != NULL && entry_from_cmdline)
+ einfo (_("%P: warning: '--thumb-entry %s' is overriding '-e %s'\n"),
+ thumb_entry_symbol, entry_symbol.name);
+ entry_symbol.name = buffer;
}
+ else
+ einfo (_("%P: warning: connot find thumb start symbol %s\n"),
+ thumb_entry_symbol);
}
EOF
#
PARSE_AND_LIST_PROLOGUE='
#define OPTION_THUMB_ENTRY 301
+#define OPTION_BE8 302
'
-# Note we add 'n' to the short option list in order to prevent
-# getopt_long_only from thinking that -n is a unique abbreviation
-# for --no-pipeline-knowledge. There is no case to handle 'n' here
-# however, so instead it will be passed back to parse_args() in
-# lexsup.c where it will be handled.
-PARSE_AND_LIST_SHORTOPTS=pn
+PARSE_AND_LIST_SHORTOPTS=p
PARSE_AND_LIST_LONGOPTS='
{ "no-pipeline-knowledge", no_argument, NULL, '\'p\''},
{ "thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY},
+ { "be8", no_argument, NULL, OPTION_BE8},
'
PARSE_AND_LIST_OPTIONS='
fprintf (file, _(" -p --no-pipeline-knowledge Stop the linker knowing about the pipeline length\n"));
fprintf (file, _(" --thumb-entry=<sym> Set the entry point to be Thumb symbol <sym>\n"));
+ fprintf (file, _(" --be8 Oputput BE8 format image\n"));
'
PARSE_AND_LIST_ARGS_CASES='
case OPTION_THUMB_ENTRY:
thumb_entry_symbol = optarg;
break;
+
+ case OPTION_BE8:
+ byteswap_code = 1;
+ break;
'
# We have our own after_open and before_allocation functions, but they call