mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-03 04:12:10 +08:00
07d6d2b834
Binutils is supposed to use tabs. In my git config I have whitespace = indent-with-non-tab,space-before-tab,trailing-space and I got annoyed enough seeing red in "git diff" output to fix the problems. * doc/header.sed: Trim trailing space when splitting lines. * aix386-core.c, * aout-adobe.c, * aout-arm.c, * aout-cris.c, * aout-ns32k.c, * aout-target.h, * aout-tic30.c, * aoutf1.h, * aoutx.h, * arc-got.h, * arc-plt.def, * arc-plt.h, * archive.c, * archive64.c, * archures.c, * armnetbsd.c, * bfd-in.h, * bfd.c, * bfdio.c, * binary.c, * bout.c, * cache.c, * cisco-core.c, * coff-alpha.c, * coff-apollo.c, * coff-arm.c, * coff-h8300.c, * coff-i386.c, * coff-i860.c, * coff-i960.c, * coff-m68k.c, * coff-m88k.c, * coff-mcore.c, * coff-mips.c, * coff-ppc.c, * coff-rs6000.c, * coff-sh.c, * coff-stgo32.c, * coff-tic4x.c, * coff-tic54x.c, * coff-tic80.c, * coff-we32k.c, * coff-x86_64.c, * coff-z80.c, * coff-z8k.c, * coff64-rs6000.c, * coffcode.h, * coffgen.c, * cofflink.c, * coffswap.h, * compress.c, * corefile.c, * cpu-alpha.c, * cpu-arm.c, * cpu-avr.c, * cpu-bfin.c, * cpu-cr16.c, * cpu-cr16c.c, * cpu-crx.c, * cpu-d10v.c, * cpu-frv.c, * cpu-ft32.c, * cpu-i370.c, * cpu-i960.c, * cpu-ia64-opc.c, * cpu-ip2k.c, * cpu-lm32.c, * cpu-m32r.c, * cpu-mcore.c, * cpu-microblaze.c, * cpu-mips.c, * cpu-moxie.c, * cpu-mt.c, * cpu-nios2.c, * cpu-ns32k.c, * cpu-or1k.c, * cpu-powerpc.c, * cpu-pru.c, * cpu-sh.c, * cpu-spu.c, * cpu-v850.c, * cpu-v850_rh850.c, * cpu-xgate.c, * cpu-z80.c, * dwarf1.c, * dwarf2.c, * ecoff.c, * ecofflink.c, * ecoffswap.h, * elf-bfd.h, * elf-eh-frame.c, * elf-hppa.h, * elf-m10200.c, * elf-m10300.c, * elf-s390-common.c, * elf-strtab.c, * elf-vxworks.c, * elf.c, * elf32-am33lin.c, * elf32-arc.c, * elf32-arm.c, * elf32-avr.c, * elf32-avr.h, * elf32-bfin.c, * elf32-cr16.c, * elf32-cr16c.c, * elf32-cris.c, * elf32-crx.c, * elf32-d10v.c, * elf32-d30v.c, * elf32-dlx.c, * elf32-epiphany.c, * elf32-fr30.c, * elf32-frv.c, * elf32-ft32.c, * elf32-h8300.c, * elf32-hppa.c, * elf32-i386.c, * elf32-i860.c, * elf32-i960.c, * elf32-ip2k.c, * elf32-lm32.c, * elf32-m32c.c, * elf32-m32r.c, * elf32-m68hc11.c, * elf32-m68hc12.c, * elf32-m68hc1x.c, * elf32-m68hc1x.h, * elf32-m68k.c, * elf32-m88k.c, * elf32-mcore.c, * elf32-mep.c, * elf32-metag.c, * elf32-microblaze.c, * elf32-mips.c, * elf32-moxie.c, * elf32-msp430.c, * elf32-mt.c, * elf32-nds32.c, * elf32-nds32.h, * elf32-nios2.c, * elf32-or1k.c, * elf32-pj.c, * elf32-ppc.c, * elf32-ppc.h, * elf32-pru.c, * elf32-rl78.c, * elf32-rx.c, * elf32-s390.c, * elf32-score.c, * elf32-score.h, * elf32-score7.c, * elf32-sh-symbian.c, * elf32-sh.c, * elf32-sh64.c, * elf32-sparc.c, * elf32-spu.c, * elf32-tic6x.c, * elf32-tilegx.c, * elf32-tilegx.h, * elf32-tilepro.c, * elf32-tilepro.h, * elf32-v850.c, * elf32-vax.c, * elf32-wasm32.c, * elf32-xc16x.c, * elf32-xgate.c, * elf32-xgate.h, * elf32-xstormy16.c, * elf32-xtensa.c, * elf64-alpha.c, * elf64-hppa.c, * elf64-ia64-vms.c, * elf64-mips.c, * elf64-mmix.c, * elf64-ppc.c, * elf64-s390.c, * elf64-sh64.c, * elf64-sparc.c, * elf64-tilegx.c, * elf64-tilegx.h, * elf64-x86-64.c, * elfcore.h, * elflink.c, * elfn32-mips.c, * elfnn-aarch64.c, * elfnn-ia64.c, * elfnn-riscv.c, * elfxx-aarch64.c, * elfxx-aarch64.h, * elfxx-ia64.c, * elfxx-ia64.h, * elfxx-mips.c, * elfxx-riscv.c, * elfxx-sparc.c, * elfxx-tilegx.c, * elfxx-x86.c, * elfxx-x86.h, * freebsd.h, * hash.c, * host-aout.c, * hp300hpux.c, * hppabsd-core.c, * hpux-core.c, * i386aout.c, * i386linux.c, * i386lynx.c, * i386mach3.c, * i386msdos.c, * i386netbsd.c, * ieee.c, * ihex.c, * irix-core.c, * libaout.h, * libbfd-in.h, * libbfd.c, * libcoff-in.h, * libnlm.h, * libpei.h, * libxcoff.h, * linker.c, * lynx-core.c, * m68k4knetbsd.c, * m68klinux.c, * m68knetbsd.c, * m88kmach3.c, * mach-o-aarch64.c, * mach-o-arm.c, * mach-o-i386.c, * mach-o-target.c, * mach-o-x86-64.c, * mach-o.c, * mach-o.h, * merge.c, * mipsbsd.c, * mmo.c, * netbsd.h, * netbsd-core.c, * newsos3.c, * nlm-target.h, * nlm32-ppc.c, * nlm32-sparc.c, * nlmcode.h, * ns32k.h, * ns32knetbsd.c, * oasys.c, * opncls.c, * pc532-mach.c, * pdp11.c, * pe-arm.c, * pe-i386.c, * pe-mcore.c, * pe-mips.c, * pe-x86_64.c, * peXXigen.c, * pef.c, * pef.h, * pei-arm.c, * pei-i386.c, * pei-mcore.c, * pei-x86_64.c, * peicode.h, * plugin.c, * ppcboot.c, * ptrace-core.c, * reloc.c, * riscix.c, * rs6000-core.c, * section.c, * som.c, * som.h, * sparclinux.c, * sparcnetbsd.c, * srec.c, * stabs.c, * sunos.c, * syms.c, * targets.c, * tekhex.c, * trad-core.c, * vax1knetbsd.c, * vaxnetbsd.c, * verilog.c, * versados.c, * vms-alpha.c, * vms-lib.c, * vms-misc.c, * wasm-module.c, * wasm-module.h, * xcofflink.c, * xsym.c, * xsym.h: Whitespace fixes. * bfd-in2.h, * libbfd.h, * libcoff.h: Regenerate.
616 lines
18 KiB
C
616 lines
18 KiB
C
/* Renesas / SuperH specific support for Symbian 32-bit ELF files
|
|
Copyright (C) 2004-2017 Free Software Foundation, Inc.
|
|
Contributed by Red Hat
|
|
|
|
This file is part of BFD, the Binary File Descriptor library.
|
|
|
|
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 3 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. */
|
|
|
|
|
|
/* Stop elf32-sh.c from defining any target vectors. */
|
|
#define SH_TARGET_ALREADY_DEFINED
|
|
#define sh_find_elf_flags sh_symbian_find_elf_flags
|
|
#define sh_elf_get_flags_from_mach sh_symbian_elf_get_flags_from_mach
|
|
#include "elf32-sh.c"
|
|
|
|
|
|
//#define SYMBIAN_DEBUG 1
|
|
#define SYMBIAN_DEBUG 0
|
|
|
|
#define DIRECTIVE_HEADER "#<SYMEDIT>#\n"
|
|
#define DIRECTIVE_IMPORT "IMPORT "
|
|
#define DIRECTIVE_EXPORT "EXPORT "
|
|
#define DIRECTIVE_AS "AS "
|
|
|
|
/* Macro to advance 's' until either it reaches 'e' or the
|
|
character pointed to by 's' is equal to 'c'. If 'e' is
|
|
reached and SYMBIAN_DEBUG is enabled then the error message 'm'
|
|
is displayed. */
|
|
#define SKIP_UNTIL(s,e,c,m) \
|
|
do \
|
|
{ \
|
|
while (s < e && *s != c) \
|
|
++ s; \
|
|
if (s >= e) \
|
|
{ \
|
|
if (SYMBIAN_DEBUG) \
|
|
fprintf (stderr, "Corrupt directive: %s\n", m); \
|
|
result = FALSE; \
|
|
} \
|
|
} \
|
|
while (0); \
|
|
if (!result) \
|
|
break;
|
|
|
|
/* Like SKIP_UNTIL except there are two terminator characters
|
|
c1 and c2. */
|
|
#define SKIP_UNTIL2(s,e,c1,c2,m) \
|
|
do \
|
|
{ \
|
|
while (s < e && *s != c1 && *s != c2) \
|
|
++ s; \
|
|
if (s >= e) \
|
|
{ \
|
|
if (SYMBIAN_DEBUG) \
|
|
fprintf (stderr, "Corrupt directive: %s\n", m); \
|
|
result = FALSE; \
|
|
} \
|
|
} \
|
|
while (0); \
|
|
if (!result) \
|
|
break;
|
|
|
|
/* Macro to advance 's' until either it reaches 'e' or the
|
|
character pointed to by 's' is not equal to 'c'. If 'e'
|
|
is reached and SYMBIAN_DEBUG is enabled then the error message
|
|
'm' is displayed. */
|
|
#define SKIP_WHILE(s,e,c,m) \
|
|
do \
|
|
{ \
|
|
while (s < e && *s == c) \
|
|
++ s; \
|
|
if (s >= e) \
|
|
{ \
|
|
if (SYMBIAN_DEBUG) \
|
|
fprintf (stderr, "Corrupt directive: %s\n", m); \
|
|
result = FALSE; \
|
|
} \
|
|
} \
|
|
while (0); \
|
|
if (!result) \
|
|
break;
|
|
|
|
|
|
typedef struct symbol_rename
|
|
{
|
|
struct symbol_rename * next;
|
|
char * current_name;
|
|
char * new_name;
|
|
struct elf_link_hash_entry * current_hash;
|
|
unsigned long new_symndx;
|
|
}
|
|
symbol_rename;
|
|
|
|
static symbol_rename * rename_list = NULL;
|
|
|
|
/* Accumulate a list of symbols to be renamed. */
|
|
|
|
static bfd_boolean
|
|
sh_symbian_import_as (struct bfd_link_info *info, bfd * abfd,
|
|
char * current_name, char * new_name)
|
|
{
|
|
struct elf_link_hash_entry * new_hash;
|
|
symbol_rename * node;
|
|
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "IMPORT '%s' AS '%s'\n", current_name, new_name);
|
|
|
|
for (node = rename_list; node; node = node->next)
|
|
if (strcmp (node->current_name, current_name) == 0)
|
|
{
|
|
if (strcmp (node->new_name, new_name) == 0)
|
|
/* Already added to rename list. */
|
|
return TRUE;
|
|
|
|
bfd_set_error (bfd_error_invalid_operation);
|
|
/* xgettext:c-format */
|
|
_bfd_error_handler (_("%B: IMPORT AS directive for %s conceals previous IMPORT AS"),
|
|
abfd, current_name);
|
|
return FALSE;
|
|
}
|
|
|
|
if ((node = bfd_malloc (sizeof * node)) == NULL)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "IMPORT AS: No mem for new rename node\n");
|
|
return FALSE;
|
|
}
|
|
|
|
if ((node->current_name = bfd_malloc (strlen (current_name) + 1)) == NULL)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "IMPORT AS: No mem for current name field in rename node\n");
|
|
free (node);
|
|
return FALSE;
|
|
}
|
|
else
|
|
strcpy (node->current_name, current_name);
|
|
|
|
if ((node->new_name = bfd_malloc (strlen (new_name) + 1)) == NULL)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "IMPORT AS: No mem for new name field in rename node\n");
|
|
free (node->current_name);
|
|
free (node);
|
|
return FALSE;
|
|
}
|
|
else
|
|
strcpy (node->new_name, new_name);
|
|
|
|
node->next = rename_list;
|
|
node->current_hash = NULL;
|
|
node->new_symndx = 0;
|
|
rename_list = node;
|
|
|
|
new_hash = elf_link_hash_lookup (elf_hash_table (info), node->new_name, TRUE, FALSE, TRUE);
|
|
bfd_elf_link_record_dynamic_symbol (info, new_hash);
|
|
if (new_hash->root.type == bfd_link_hash_new)
|
|
new_hash->root.type = bfd_link_hash_undefined;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
static bfd_boolean
|
|
sh_symbian_import (bfd * abfd ATTRIBUTE_UNUSED, char * name)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "IMPORT '%s'\n", name);
|
|
|
|
/* XXX: Generate an import somehow ? */
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static bfd_boolean
|
|
sh_symbian_export (bfd * abfd ATTRIBUTE_UNUSED, char * name)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "EXPORT '%s'\n", name);
|
|
|
|
/* XXX: Generate an export somehow ? */
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
/* Process any magic embedded commands in the .directive. section.
|
|
Returns TRUE upon sucecss, but if it fails it sets bfd_error and
|
|
returns FALSE. */
|
|
|
|
static bfd_boolean
|
|
sh_symbian_process_embedded_commands (struct bfd_link_info *info, bfd * abfd,
|
|
asection * sec, bfd_byte * contents)
|
|
{
|
|
char *s;
|
|
char *e;
|
|
bfd_boolean result = TRUE;
|
|
bfd_size_type sz = sec->rawsize ? sec->rawsize : sec->size;
|
|
|
|
for (s = (char *) contents, e = s + sz; s < e;)
|
|
{
|
|
char * directive = s;
|
|
|
|
switch (*s)
|
|
{
|
|
/* I want to use "case DIRECTIVE_HEADER [0]:" here but gcc won't let me :-( */
|
|
case '#':
|
|
if (strcmp (s, DIRECTIVE_HEADER))
|
|
result = FALSE;
|
|
else
|
|
/* Just ignore the header.
|
|
XXX: Strictly speaking we ought to check that the header
|
|
is present and that it is the first thing in the file. */
|
|
s += strlen (DIRECTIVE_HEADER) + 1;
|
|
break;
|
|
|
|
case 'I':
|
|
if (! CONST_STRNEQ (s, DIRECTIVE_IMPORT))
|
|
result = FALSE;
|
|
else
|
|
{
|
|
char * new_name;
|
|
char * new_name_end;
|
|
char name_end_char;
|
|
|
|
/* Skip the IMPORT directive. */
|
|
s += strlen (DIRECTIVE_IMPORT);
|
|
|
|
new_name = s;
|
|
/* Find the end of the new name. */
|
|
while (s < e && *s != ' ' && *s != '\n')
|
|
++ s;
|
|
if (s >= e)
|
|
{
|
|
/* We have reached the end of the .directive section
|
|
without encountering a string terminator. This is
|
|
allowed for IMPORT directives. */
|
|
new_name_end = e - 1;
|
|
name_end_char = * new_name_end;
|
|
* new_name_end = 0;
|
|
result = sh_symbian_import (abfd, new_name);
|
|
* new_name_end = name_end_char;
|
|
break;
|
|
}
|
|
|
|
/* Remember where the name ends. */
|
|
new_name_end = s;
|
|
/* Skip any whitespace before the 'AS'. */
|
|
SKIP_WHILE (s, e, ' ', "IMPORT: Name just followed by spaces");
|
|
/* Terminate the new name. (Do this after skiping...) */
|
|
name_end_char = * new_name_end;
|
|
* new_name_end = 0;
|
|
|
|
/* Check to see if 'AS '... is present. If so we have an
|
|
IMPORT AS directive, otherwise we have an IMPORT directive. */
|
|
if (! CONST_STRNEQ (s, DIRECTIVE_AS))
|
|
{
|
|
/* Skip the new-line at the end of the name. */
|
|
if (SYMBIAN_DEBUG && name_end_char != '\n')
|
|
fprintf (stderr, "IMPORT: No newline at end of directive\n");
|
|
else
|
|
s ++;
|
|
|
|
result = sh_symbian_import (abfd, new_name);
|
|
|
|
/* Skip past the NUL character. */
|
|
if (* s ++ != 0)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "IMPORT: No NUL at end of directive\n");
|
|
}
|
|
}
|
|
else
|
|
{
|
|
char * current_name;
|
|
char * current_name_end;
|
|
char current_name_end_char;
|
|
|
|
/* Skip the 'AS '. */
|
|
s += strlen (DIRECTIVE_AS);
|
|
/* Skip any white space after the 'AS '. */
|
|
SKIP_WHILE (s, e, ' ', "IMPORT AS: Nothing after AS");
|
|
current_name = s;
|
|
/* Find the end of the current name. */
|
|
SKIP_UNTIL2 (s, e, ' ', '\n', "IMPORT AS: No newline at the end of the current name");
|
|
/* Skip (backwards) over spaces at the end of the current name. */
|
|
current_name_end = s;
|
|
current_name_end_char = * current_name_end;
|
|
|
|
SKIP_WHILE (s, e, ' ', "IMPORT AS: Current name just followed by spaces");
|
|
/* Skip past the newline character. */
|
|
if (* s ++ != '\n')
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "IMPORT AS: No newline at end of directive\n");
|
|
|
|
/* Terminate the current name after having performed the skips. */
|
|
* current_name_end = 0;
|
|
|
|
result = sh_symbian_import_as (info, abfd, current_name, new_name);
|
|
|
|
/* The next character should be a NUL. */
|
|
if (* s != 0)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "IMPORT AS: Junk at end of directive\n");
|
|
result = FALSE;
|
|
}
|
|
s ++;
|
|
|
|
* current_name_end = current_name_end_char;
|
|
}
|
|
|
|
/* Restore the characters we overwrote, since
|
|
the .directive section will be emitted. */
|
|
* new_name_end = name_end_char;
|
|
}
|
|
break;
|
|
|
|
case 'E':
|
|
if (! CONST_STRNEQ (s, DIRECTIVE_EXPORT))
|
|
result = FALSE;
|
|
else
|
|
{
|
|
char * name;
|
|
char * name_end;
|
|
char name_end_char;
|
|
|
|
/* Skip the directive. */
|
|
s += strlen (DIRECTIVE_EXPORT);
|
|
name = s;
|
|
/* Find the end of the name to be exported. */
|
|
SKIP_UNTIL (s, e, '\n', "EXPORT: no newline at end of directive");
|
|
/* Skip (backwards) over spaces at end of exported name. */
|
|
for (name_end = s; name_end[-1] == ' '; name_end --)
|
|
;
|
|
/* name_end now points at the first character after the
|
|
end of the exported name, so we can termiante it */
|
|
name_end_char = * name_end;
|
|
* name_end = 0;
|
|
/* Skip passed the newline character. */
|
|
s ++;
|
|
|
|
result = sh_symbian_export (abfd, name);
|
|
|
|
/* The next character should be a NUL. */
|
|
if (* s != 0)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "EXPORT: Junk at end of directive\n");
|
|
result = FALSE;
|
|
}
|
|
s++;
|
|
|
|
/* Restore the character we deleted. */
|
|
* name_end = name_end_char;
|
|
}
|
|
break;
|
|
|
|
default:
|
|
result = FALSE;
|
|
break;
|
|
}
|
|
|
|
if (! result)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "offset into .directive section: %ld\n",
|
|
(long) (directive - (char *) contents));
|
|
|
|
bfd_set_error (bfd_error_invalid_operation);
|
|
/* xgettext:c-format */
|
|
_bfd_error_handler (_("%B: Unrecognised .directive command: %s"),
|
|
abfd, directive);
|
|
break;
|
|
}
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
/* Scan a bfd for a .directive section, and if found process it.
|
|
Returns TRUE upon success, FALSE otherwise. */
|
|
|
|
static bfd_boolean
|
|
sh_symbian_process_directives (bfd *abfd, struct bfd_link_info *info)
|
|
{
|
|
bfd_boolean result = FALSE;
|
|
bfd_byte * contents;
|
|
asection * sec = bfd_get_section_by_name (abfd, ".directive");
|
|
bfd_size_type sz;
|
|
|
|
if (!sec)
|
|
return TRUE;
|
|
|
|
sz = sec->rawsize ? sec->rawsize : sec->size;
|
|
contents = bfd_malloc (sz);
|
|
|
|
if (!contents)
|
|
bfd_set_error (bfd_error_no_memory);
|
|
else
|
|
{
|
|
if (bfd_get_section_contents (abfd, sec, contents, 0, sz))
|
|
result = sh_symbian_process_embedded_commands (info, abfd, sec, contents);
|
|
free (contents);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
/* Intercept the normal sh_relocate_section() function
|
|
and magle the relocs to allow for symbol renaming. */
|
|
|
|
static bfd_boolean
|
|
sh_symbian_relocate_section (bfd * output_bfd,
|
|
struct bfd_link_info * info,
|
|
bfd * input_bfd,
|
|
asection * input_section,
|
|
bfd_byte * contents,
|
|
Elf_Internal_Rela * relocs,
|
|
Elf_Internal_Sym * local_syms,
|
|
asection ** local_sections)
|
|
{
|
|
/* When performing a final link we implement the IMPORT AS directives. */
|
|
if (!bfd_link_relocatable (info))
|
|
{
|
|
Elf_Internal_Rela * rel;
|
|
Elf_Internal_Rela * relend;
|
|
Elf_Internal_Shdr * symtab_hdr;
|
|
struct elf_link_hash_entry ** sym_hashes;
|
|
struct elf_link_hash_entry ** sym_hashes_end;
|
|
struct elf_link_hash_table * hash_table;
|
|
symbol_rename * ptr;
|
|
bfd_size_type num_global_syms;
|
|
unsigned long num_local_syms;
|
|
|
|
BFD_ASSERT (! elf_bad_symtab (input_bfd));
|
|
|
|
symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
|
|
hash_table = elf_hash_table (info);
|
|
num_local_syms = symtab_hdr->sh_info;
|
|
num_global_syms = symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
|
|
num_global_syms -= num_local_syms;
|
|
sym_hashes = elf_sym_hashes (input_bfd);
|
|
sym_hashes_end = sym_hashes + num_global_syms;
|
|
|
|
/* First scan the rename table, caching the hash entry and the new index. */
|
|
for (ptr = rename_list; ptr; ptr = ptr->next)
|
|
{
|
|
struct elf_link_hash_entry * new_hash;
|
|
struct elf_link_hash_entry ** h;
|
|
|
|
ptr->current_hash = elf_link_hash_lookup (hash_table, ptr->current_name, FALSE, FALSE, TRUE);
|
|
|
|
if (ptr->current_hash == NULL)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "IMPORT AS: current symbol '%s' does not exist\n", ptr->current_name);
|
|
continue;
|
|
}
|
|
|
|
new_hash = elf_link_hash_lookup (hash_table, ptr->new_name,
|
|
FALSE, FALSE, TRUE);
|
|
/* If we could not find the symbol then it is a new, undefined symbol.
|
|
Symbian want this behaviour - ie they want to be able to rename the
|
|
reference in a reloc from one undefined symbol to another, new and
|
|
undefined symbol. So we create that symbol here. */
|
|
if (new_hash == NULL)
|
|
{
|
|
struct bfd_link_hash_entry *bh = NULL;
|
|
bfd_boolean collect = get_elf_backend_data (input_bfd)->collect;
|
|
if (_bfd_generic_link_add_one_symbol (info, input_bfd,
|
|
ptr->new_name, BSF_GLOBAL,
|
|
bfd_und_section_ptr, 0,
|
|
NULL, FALSE, collect,
|
|
&bh))
|
|
{
|
|
new_hash = (struct elf_link_hash_entry *) bh;
|
|
new_hash->type = STT_FUNC;
|
|
new_hash->non_elf = 0;
|
|
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "Created new symbol %s\n", ptr->new_name);
|
|
}
|
|
}
|
|
|
|
if (new_hash == NULL)
|
|
{
|
|
/* xgettext:c-format */
|
|
_bfd_error_handler (_("%B: Failed to add renamed symbol %s"),
|
|
input_bfd, ptr->new_name);
|
|
continue;
|
|
}
|
|
|
|
/* Convert the new_hash value into a index into the table of symbol hashes. */
|
|
for (h = sym_hashes; h < sym_hashes_end; h ++)
|
|
{
|
|
if (* h == new_hash)
|
|
{
|
|
ptr->new_symndx = h - sym_hashes + num_local_syms;
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "Converted new hash to index of %ld\n", ptr->new_symndx);
|
|
break;
|
|
}
|
|
}
|
|
/* If the new symbol is not in the hash table then it must be
|
|
because it is one of the newly created undefined symbols
|
|
manufactured above. So we extend the sym has table here to
|
|
include this extra symbol. */
|
|
if (h == sym_hashes_end)
|
|
{
|
|
struct elf_link_hash_entry ** new_sym_hashes;
|
|
|
|
/* This is not very efficient, but it works. */
|
|
++ num_global_syms;
|
|
new_sym_hashes = bfd_alloc (input_bfd, num_global_syms * sizeof * sym_hashes);
|
|
if (new_sym_hashes == NULL)
|
|
{
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "Out of memory extending hash table\n");
|
|
continue;
|
|
}
|
|
memcpy (new_sym_hashes, sym_hashes, (num_global_syms - 1) * sizeof * sym_hashes);
|
|
new_sym_hashes[num_global_syms - 1] = new_hash;
|
|
elf_sym_hashes (input_bfd) = sym_hashes = new_sym_hashes;
|
|
sym_hashes_end = sym_hashes + num_global_syms;
|
|
symtab_hdr->sh_size = (num_global_syms + num_local_syms) * sizeof (Elf32_External_Sym);
|
|
|
|
ptr->new_symndx = num_global_syms - 1 + num_local_syms;
|
|
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "Extended symbol hash table to insert new symbol as index %ld\n",
|
|
ptr->new_symndx);
|
|
}
|
|
}
|
|
|
|
/* Walk the reloc list looking for references to renamed symbols.
|
|
When we find one, we alter the index in the reloc to point to the new symbol. */
|
|
for (rel = relocs, relend = relocs + input_section->reloc_count;
|
|
rel < relend;
|
|
rel ++)
|
|
{
|
|
int r_type;
|
|
unsigned long r_symndx;
|
|
struct elf_link_hash_entry * h;
|
|
|
|
r_symndx = ELF32_R_SYM (rel->r_info);
|
|
r_type = ELF32_R_TYPE (rel->r_info);
|
|
|
|
/* Ignore unused relocs. */
|
|
if ((r_type >= (int) R_SH_GNU_VTINHERIT
|
|
&& r_type <= (int) R_SH_LABEL)
|
|
|| r_type == (int) R_SH_NONE
|
|
|| r_type < 0
|
|
|| r_type >= R_SH_max)
|
|
continue;
|
|
|
|
/* Ignore relocs against local symbols. */
|
|
if (r_symndx < num_local_syms)
|
|
continue;
|
|
|
|
BFD_ASSERT (r_symndx < (num_global_syms + num_local_syms));
|
|
h = sym_hashes[r_symndx - num_local_syms];
|
|
BFD_ASSERT (h != NULL);
|
|
|
|
while ( h->root.type == bfd_link_hash_indirect
|
|
|| h->root.type == bfd_link_hash_warning)
|
|
h = (struct elf_link_hash_entry *) h->root.u.i.link;
|
|
|
|
/* If the symbol is defined there is no need to rename it.
|
|
XXX - is this true ? */
|
|
if ( h->root.type == bfd_link_hash_defined
|
|
|| h->root.type == bfd_link_hash_defweak
|
|
|| h->root.type == bfd_link_hash_undefweak)
|
|
continue;
|
|
|
|
for (ptr = rename_list; ptr; ptr = ptr->next)
|
|
if (h == ptr->current_hash)
|
|
{
|
|
BFD_ASSERT (ptr->new_symndx);
|
|
if (SYMBIAN_DEBUG)
|
|
fprintf (stderr, "convert reloc %lx from using index %ld to using index %ld\n",
|
|
(unsigned long) rel->r_info,
|
|
(long) ELF32_R_SYM (rel->r_info), ptr->new_symndx);
|
|
rel->r_info = ELF32_R_INFO (ptr->new_symndx, r_type);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
return sh_elf_relocate_section (output_bfd, info, input_bfd, input_section,
|
|
contents, relocs, local_syms, local_sections);
|
|
}
|
|
|
|
#define TARGET_LITTLE_SYM sh_elf32_symbian_le_vec
|
|
#define TARGET_LITTLE_NAME "elf32-shl-symbian"
|
|
|
|
#undef elf_backend_relocate_section
|
|
#define elf_backend_relocate_section sh_symbian_relocate_section
|
|
#undef elf_backend_check_directives
|
|
#define elf_backend_check_directives sh_symbian_process_directives
|
|
|
|
#include "elf32-target.h"
|