#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "elf-bfd.h"
#include "elf/dlx.h"
int set_dlx_skip_hi16_flag PARAMS ((int));
static bfd_boolean elf32_dlx_check_relocs
PARAMS ((bfd *, struct bfd_link_info *, asection *,
const Elf_Internal_Rela *));
static void elf32_dlx_info_to_howto
PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
static void elf32_dlx_info_to_howto_rel
PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
static bfd_reloc_status_type elf32_dlx_relocate16
PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
static bfd_reloc_status_type elf32_dlx_relocate26
PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
static reloc_howto_type *elf32_dlx_reloc_type_lookup
PARAMS ((bfd *, bfd_reloc_code_real_type));
static bfd_reloc_status_type _bfd_dlx_elf_hi16_reloc
PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
static reloc_howto_type * dlx_rtype_to_howto
PARAMS ((unsigned int));
#define USE_REL 1
#define bfd_elf32_bfd_reloc_type_lookup elf32_dlx_reloc_type_lookup
#define elf_info_to_howto elf32_dlx_info_to_howto
#define elf_info_to_howto_rel elf32_dlx_info_to_howto_rel
#define elf_backend_check_relocs elf32_dlx_check_relocs
static reloc_howto_type dlx_elf_howto_table[]=
{
HOWTO (R_DLX_NONE,
0,
0,
0,
FALSE,
0,
complain_overflow_dont,
bfd_elf_generic_reloc,
"R_DLX_NONE",
FALSE,
0,
0,
FALSE),
HOWTO (R_DLX_RELOC_8,
0,
0,
8,
FALSE,
0,
complain_overflow_dont,
bfd_elf_generic_reloc,
"R_DLX_RELOC_8",
TRUE,
0xff,
0xff,
FALSE),
HOWTO (R_DLX_RELOC_16,
0,
1,
16,
FALSE,
0,
complain_overflow_dont,
bfd_elf_generic_reloc,
"R_DLX_RELOC_16",
TRUE,
0xffff,
0xffff,
FALSE),
#if 0
HOWTO (R_DLX_RELOC_26,
0,
2,
26,
FALSE,
0,
complain_overflow_dont,
bfd_elf_generic_reloc,
"R_DLX_RELOC_26",
TRUE,
0x3ffffff,
0x3ffffff,
FALSE),
#endif
HOWTO (R_DLX_RELOC_32,
0,
2,
32,
FALSE,
0,
complain_overflow_dont,
bfd_elf_generic_reloc,
"R_DLX_RELOC_32",
TRUE,
0xffffffff,
0xffffffff,
FALSE),
HOWTO (R_DLX_GNU_VTINHERIT,
0,
2,
0,
FALSE,
0,
complain_overflow_dont,
NULL,
"R_DLX_GNU_VTINHERIT",
FALSE,
0,
0,
FALSE),
HOWTO (R_DLX_GNU_VTENTRY,
0,
2,
0,
FALSE,
0,
complain_overflow_dont,
_bfd_elf_rel_vtable_reloc_fn,
"R_DLX_GNU_VTENTRY",
FALSE,
0,
0,
FALSE)
};
static reloc_howto_type elf_dlx_gnu_rel16_s2 =
HOWTO (R_DLX_RELOC_16_PCREL,
0,
1,
16,
TRUE,
0,
complain_overflow_signed,
elf32_dlx_relocate16,
"R_DLX_RELOC_16_PCREL",
TRUE,
0xffff,
0xffff,
TRUE);
static reloc_howto_type elf_dlx_gnu_rel26_s2 =
HOWTO (R_DLX_RELOC_26_PCREL,
0,
2,
26,
TRUE,
0,
complain_overflow_dont,
elf32_dlx_relocate26,
"R_DLX_RELOC_26_PCREL",
TRUE,
0xffff,
0xffff,
TRUE);
static reloc_howto_type elf_dlx_reloc_16_hi =
HOWTO (R_DLX_RELOC_16_HI,
16,
2,
32,
FALSE,
0,
complain_overflow_dont,
_bfd_dlx_elf_hi16_reloc,
"R_DLX_RELOC_16_HI",
TRUE,
0xFFFF,
0xffff,
FALSE);
static reloc_howto_type elf_dlx_reloc_16_lo =
HOWTO (R_DLX_RELOC_16_LO,
0,
1,
16,
FALSE,
0,
complain_overflow_dont,
bfd_elf_generic_reloc,
"R_DLX_RELOC_16_LO",
TRUE,
0xffff,
0xffff,
FALSE);
static int skip_dlx_elf_hi16_reloc = 0;
int
set_dlx_skip_hi16_flag (flag)
int flag;
{
skip_dlx_elf_hi16_reloc = flag;
return flag;
}
static bfd_reloc_status_type
_bfd_dlx_elf_hi16_reloc (abfd, reloc_entry, symbol, data,
input_section, output_bfd, error_message)
bfd *abfd;
arelent *reloc_entry;
asymbol *symbol;
PTR data;
asection *input_section;
bfd *output_bfd;
char **error_message;
{
bfd_reloc_status_type ret;
bfd_vma relocation;
#if 0
printf ("DEBUG: skip_dlx_elf_hi16_reloc = 0x%08x\n", skip_dlx_elf_hi16_reloc);
#endif
if (skip_dlx_elf_hi16_reloc)
return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
input_section, output_bfd, error_message);
if (output_bfd != (bfd *) NULL
&& (symbol->flags & BSF_SECTION_SYM) == 0
&& reloc_entry->addend == 0)
{
reloc_entry->address += input_section->output_offset;
return bfd_reloc_ok;
}
ret = bfd_reloc_ok;
if (bfd_is_und_section (symbol->section)
&& output_bfd == (bfd *) NULL)
ret = bfd_reloc_undefined;
#if 0
{
unsigned long vallo, val;
vallo = bfd_get_16 (abfd, (bfd_byte *) data + reloc_entry->address);
printf ("DEBUG: The relocation address = 0x%08x\n", reloc_entry->address);
printf ("DEBUG: The symbol = 0x%08x\n", vallo);
printf ("DEBUG: The symbol name = %s\n", bfd_asymbol_name (symbol));
printf ("DEBUG: The symbol->value = 0x%08x\n", symbol->value);
printf ("DEBUG: The vma = 0x%08x\n", symbol->section->output_section->vma);
printf ("DEBUG: The output_offset = 0x%08x\n", symbol->section->output_offset);
printf ("DEBUG: The input_offset = 0x%08x\n", input_section->output_offset);
printf ("DEBUG: The input_vma = 0x%08x\n", input_section->vma);
printf ("DEBUG: The addend = 0x%08x\n", reloc_entry->addend);
}
#endif
relocation = (bfd_is_com_section (symbol->section)) ? 0 : symbol->value;
relocation += symbol->section->output_section->vma;
relocation += symbol->section->output_offset;
relocation += reloc_entry->addend;
relocation += bfd_get_16 (abfd, (bfd_byte *)data + reloc_entry->address);
if (reloc_entry->address > input_section->_cooked_size)
return bfd_reloc_outofrange;
#if 0
printf ("DEBUG: The finial relocation value = 0x%08x\n", relocation);
#endif
bfd_put_16 (abfd, (short)((relocation >> 16) & 0xFFFF),
(bfd_byte *)data + reloc_entry->address);
return ret;
}
static bfd_reloc_status_type
elf32_dlx_relocate16 (abfd, reloc_entry, symbol, data,
input_section, output_bfd, error_message)
bfd *abfd;
arelent *reloc_entry;
asymbol *symbol;
PTR data;
asection *input_section;
bfd *output_bfd;
char **error_message ATTRIBUTE_UNUSED;
{
unsigned long insn, vallo, allignment;
int val;
if (skip_dlx_elf_hi16_reloc)
return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
input_section, output_bfd, error_message);
if (bfd_is_und_section (symbol->section)
&& output_bfd == (bfd *) NULL)
return bfd_reloc_undefined;
if (strcmp (input_section->name, symbol->section->output_section->name) != 0)
{
fprintf (stderr,
"BFD Link Error: branch (PC rel16) to section (%s) not supported\n",
symbol->section->output_section->name);
return bfd_reloc_undefined;
}
insn = bfd_get_32 (abfd, (bfd_byte *)data + reloc_entry->address);
allignment = 1 << (input_section->output_section->alignment_power - 1);
vallo = insn & 0x0000FFFF;
if (vallo & 0x8000)
vallo = ~(vallo | 0xFFFF0000) + 1;
vallo += (((unsigned long)(input_section->output_section->vma +
input_section->output_offset) +
allignment) & ~allignment);
val = (symbol->section->output_offset +
symbol->section->output_section->vma +
symbol->value) - vallo;
#if 0
printf ("DEBUG elf32_dlx_relocate: We are here\n");
printf ("DEBUG: The insn = 0x%08x\n", insn);
printf ("DEBUG: The vallo = 0x%08x\n", vallo);
printf ("DEBUG: The val = 0x%08x\n", val);
printf ("DEBUG: The symbol name = %s\n", bfd_asymbol_name (symbol));
printf ("DEBUG: The symbol->value = 0x%08x\n", symbol->value);
printf ("DEBUG: The vma = 0x%08x\n", symbol->section->output_section->vma);
printf ("DEBUG: The lma = 0x%08x\n", symbol->section->output_section->lma);
printf ("DEBUG: The alignment_power = 0x%08x\n", symbol->section->output_section->alignment_power);
printf ("DEBUG: The output_offset = 0x%08x\n", symbol->section->output_offset);
printf ("DEBUG: The addend = 0x%08x\n", reloc_entry->addend);
#endif
if (abs ((int) val) > 0x00007FFF)
return bfd_reloc_outofrange;
insn = (insn & 0xFFFF0000) | (val & 0x0000FFFF);
bfd_put_32 (abfd, insn,
(bfd_byte *) data + reloc_entry->address);
return bfd_reloc_ok;
}
static bfd_reloc_status_type
elf32_dlx_relocate26 (abfd, reloc_entry, symbol, data,
input_section, output_bfd, error_message)
bfd *abfd;
arelent *reloc_entry;
asymbol *symbol;
PTR data;
asection *input_section;
bfd *output_bfd;
char **error_message ATTRIBUTE_UNUSED;
{
unsigned long insn, vallo, allignment;
int val;
if (skip_dlx_elf_hi16_reloc)
return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
input_section, output_bfd, error_message);
if (bfd_is_und_section (symbol->section)
&& output_bfd == (bfd *) NULL)
return bfd_reloc_undefined;
if (strcmp (input_section->name, symbol->section->output_section->name) != 0)
{
fprintf (stderr,
"BFD Link Error: jump (PC rel26) to section (%s) not supported\n",
symbol->section->output_section->name);
return bfd_reloc_undefined;
}
insn = bfd_get_32 (abfd, (bfd_byte *)data + reloc_entry->address);
allignment = 1 << (input_section->output_section->alignment_power - 1);
vallo = insn & 0x03FFFFFF;
if (vallo & 0x03000000)
vallo = ~(vallo | 0xFC000000) + 1;
vallo += (((unsigned long) (input_section->output_section->vma +
input_section->output_offset) +
allignment) & ~allignment);
val = (symbol->section->output_offset +
symbol->section->output_section->vma + symbol->value)
- vallo;
#if 0
printf ("DEBUG elf32_dlx_relocate26: We are here\n");
printf ("DEBUG: The insn = 0x%08x\n", insn);
printf ("DEBUG: The vallo = 0x%08x\n", vallo);
printf ("DEBUG: The val = 0x%08x\n", val);
printf ("DEBUG: The abs(val) = 0x%08x\n", abs (val));
printf ("DEBUG: The symbol name = %s\n", bfd_asymbol_name (symbol));
printf ("DEBUG: The symbol->value = 0x%08x\n", symbol->value);
printf ("DEBUG: The vma = 0x%08x\n", symbol->section->output_section->vma);
printf ("DEBUG: The output_offset = 0x%08x\n", symbol->section->output_offset);
printf ("DEBUG: The input_vma = 0x%08x\n", input_section->output_section->vma);
printf ("DEBUG: The input_offset = 0x%08x\n", input_section->output_offset);
printf ("DEBUG: The input_name = %s\n", input_section->name);
printf ("DEBUG: The addend = 0x%08x\n", reloc_entry->addend);
#endif
if (abs ((int) val) > 0x01FFFFFF)
return bfd_reloc_outofrange;
insn = (insn & 0xFC000000) | (val & 0x03FFFFFF);
bfd_put_32 (abfd, insn,
(bfd_byte *) data + reloc_entry->address);
return bfd_reloc_ok;
}
struct elf_reloc_map
{
bfd_reloc_code_real_type bfd_reloc_val;
enum elf_dlx_reloc_type elf_reloc_val;
};
static const struct elf_reloc_map dlx_reloc_map[] =
{
{ BFD_RELOC_NONE, R_DLX_NONE },
{ BFD_RELOC_16, R_DLX_RELOC_16 },
#if 0
{ BFD_RELOC_DLX_JMP26, R_DLX_RELOC_26_PCREL },
#endif
{ BFD_RELOC_32, R_DLX_RELOC_32 },
{ BFD_RELOC_DLX_HI16_S, R_DLX_RELOC_16_HI },
{ BFD_RELOC_DLX_LO16, R_DLX_RELOC_16_LO },
{ BFD_RELOC_VTABLE_INHERIT, R_DLX_GNU_VTINHERIT },
{ BFD_RELOC_VTABLE_ENTRY, R_DLX_GNU_VTENTRY }
};
static bfd_boolean
elf32_dlx_check_relocs (abfd, info, sec, relocs)
bfd *abfd;
struct bfd_link_info *info;
asection *sec;
const Elf_Internal_Rela *relocs;
{
Elf_Internal_Shdr *symtab_hdr;
struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
const Elf_Internal_Rela *rel;
const Elf_Internal_Rela *rel_end;
if (info->relocatable)
return TRUE;
symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
sym_hashes = elf_sym_hashes (abfd);
sym_hashes_end = sym_hashes + symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
if (!elf_bad_symtab (abfd))
sym_hashes_end -= symtab_hdr->sh_info;
rel_end = relocs + sec->reloc_count;
for (rel = relocs; rel < rel_end; rel++)
{
struct elf_link_hash_entry *h;
unsigned long r_symndx;
r_symndx = ELF32_R_SYM (rel->r_info);
if (r_symndx < symtab_hdr->sh_info)
h = NULL;
else
h = sym_hashes[r_symndx - symtab_hdr->sh_info];
switch (ELF32_R_TYPE (rel->r_info))
{
case R_DLX_GNU_VTINHERIT:
if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
return FALSE;
break;
case R_DLX_GNU_VTENTRY:
if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
return FALSE;
break;
}
}
return TRUE;
}
static reloc_howto_type *
elf32_dlx_reloc_type_lookup (abfd, code)
bfd *abfd ATTRIBUTE_UNUSED;
bfd_reloc_code_real_type code;
{
unsigned int i;
for (i = 0; i < sizeof (dlx_reloc_map) / sizeof (struct elf_reloc_map); i++)
if (dlx_reloc_map[i].bfd_reloc_val == code)
return &dlx_elf_howto_table[(int) dlx_reloc_map[i].elf_reloc_val];
switch (code)
{
default:
bfd_set_error (bfd_error_bad_value);
return NULL;
case BFD_RELOC_16_PCREL_S2:
return &elf_dlx_gnu_rel16_s2;
case BFD_RELOC_DLX_JMP26:
return &elf_dlx_gnu_rel26_s2;
case BFD_RELOC_HI16_S:
return &elf_dlx_reloc_16_hi;
case BFD_RELOC_LO16:
return &elf_dlx_reloc_16_lo;
}
}
static reloc_howto_type *
dlx_rtype_to_howto (r_type)
unsigned int r_type;
{
switch (r_type)
{
case R_DLX_RELOC_16_PCREL:
return & elf_dlx_gnu_rel16_s2;
break;
case R_DLX_RELOC_26_PCREL:
return & elf_dlx_gnu_rel26_s2;
break;
case R_DLX_RELOC_16_HI:
return & elf_dlx_reloc_16_hi;
break;
case R_DLX_RELOC_16_LO:
return & elf_dlx_reloc_16_lo;
break;
default:
BFD_ASSERT (r_type < (unsigned int) R_DLX_max);
return & dlx_elf_howto_table[r_type];
break;
}
}
static void
elf32_dlx_info_to_howto (abfd, cache_ptr, dst)
bfd * abfd ATTRIBUTE_UNUSED;
arelent * cache_ptr ATTRIBUTE_UNUSED;
Elf_Internal_Rela * dst ATTRIBUTE_UNUSED;
{
abort ();
}
static void
elf32_dlx_info_to_howto_rel (abfd, cache_ptr, dst)
bfd *abfd ATTRIBUTE_UNUSED;
arelent *cache_ptr;
Elf_Internal_Rela *dst;
{
unsigned int r_type;
r_type = ELF32_R_TYPE (dst->r_info);
cache_ptr->howto = dlx_rtype_to_howto (r_type);
return;
}
#define TARGET_BIG_SYM bfd_elf32_dlx_big_vec
#define TARGET_BIG_NAME "elf32-dlx"
#define ELF_ARCH bfd_arch_dlx
#define ELF_MACHINE_CODE EM_DLX
#define ELF_MAXPAGESIZE 1
#include "elf32-target.h"