#include "libpei.h"
static boolean (*pe_saved_coff_bfd_print_private_bfd_data)
PARAMS ((bfd *, PTR)) =
#ifndef coff_bfd_print_private_bfd_data
NULL;
#else
coff_bfd_print_private_bfd_data;
#undef coff_bfd_print_private_bfd_data
#endif
static boolean pe_print_private_bfd_data PARAMS ((bfd *, PTR));
#define coff_bfd_print_private_bfd_data pe_print_private_bfd_data
static boolean (*pe_saved_coff_bfd_copy_private_bfd_data)
PARAMS ((bfd *, bfd *)) =
#ifndef coff_bfd_copy_private_bfd_data
NULL;
#else
coff_bfd_copy_private_bfd_data;
#undef coff_bfd_copy_private_bfd_data
#endif
static boolean pe_bfd_copy_private_bfd_data PARAMS ((bfd *, bfd *));
#define coff_bfd_copy_private_bfd_data pe_bfd_copy_private_bfd_data
#define coff_mkobject pe_mkobject
#define coff_mkobject_hook pe_mkobject_hook
#ifndef NO_COFF_RELOCS
static void coff_swap_reloc_in PARAMS ((bfd *, PTR, PTR));
static unsigned int coff_swap_reloc_out PARAMS ((bfd *, PTR, PTR));
#endif
static void coff_swap_filehdr_in PARAMS ((bfd *, PTR, PTR));
static void coff_swap_scnhdr_in PARAMS ((bfd *, PTR, PTR));
static boolean pe_mkobject PARAMS ((bfd *));
static PTR pe_mkobject_hook PARAMS ((bfd *, PTR, PTR));
#ifdef COFF_IMAGE_WITH_PE
typedef asection * asection_ptr;
typedef struct
{
bfd * abfd;
bfd_byte * data;
struct bfd_in_memory * bim;
unsigned short magic;
arelent * reltab;
unsigned int relcount;
coff_symbol_type * sym_cache;
coff_symbol_type * sym_ptr;
unsigned int sym_index;
unsigned int * sym_table;
unsigned int * table_ptr;
combined_entry_type * native_syms;
combined_entry_type * native_ptr;
coff_symbol_type ** sym_ptr_table;
coff_symbol_type ** sym_ptr_ptr;
unsigned int sec_index;
char * string_table;
char * string_ptr;
char * end_string_ptr;
SYMENT * esym_table;
SYMENT * esym_ptr;
struct internal_reloc * int_reltab;
}
pe_ILF_vars;
static asection_ptr pe_ILF_make_a_section PARAMS ((pe_ILF_vars *, const char *, unsigned int, flagword));
static void pe_ILF_make_a_reloc PARAMS ((pe_ILF_vars *, bfd_vma, bfd_reloc_code_real_type, asection_ptr));
static void pe_ILF_make_a_symbol PARAMS ((pe_ILF_vars *, const char *, const char *, asection_ptr, flagword));
static void pe_ILF_save_relocs PARAMS ((pe_ILF_vars *, asection_ptr));
static void pe_ILF_make_a_symbol_reloc PARAMS ((pe_ILF_vars *, bfd_vma, bfd_reloc_code_real_type, struct symbol_cache_entry **, unsigned int));
static boolean pe_ILF_build_a_bfd PARAMS ((bfd *, unsigned int, bfd_byte *, bfd_byte *, unsigned int, unsigned int));
static const bfd_target * pe_ILF_object_p PARAMS ((bfd *));
static const bfd_target * pe_bfd_object_p PARAMS ((bfd *));
#endif
#ifndef NO_COFF_RELOCS
static void
coff_swap_reloc_in (abfd, src, dst)
bfd *abfd;
PTR src;
PTR dst;
{
RELOC *reloc_src = (RELOC *) src;
struct internal_reloc *reloc_dst = (struct internal_reloc *) dst;
reloc_dst->r_vaddr = H_GET_32 (abfd, reloc_src->r_vaddr);
reloc_dst->r_symndx = H_GET_S32 (abfd, reloc_src->r_symndx);
reloc_dst->r_type = H_GET_16 (abfd, reloc_src->r_type);
#ifdef SWAP_IN_RELOC_OFFSET
reloc_dst->r_offset = SWAP_IN_RELOC_OFFSET (abfd, reloc_src->r_offset);
#endif
}
static unsigned int
coff_swap_reloc_out (abfd, src, dst)
bfd *abfd;
PTR src;
PTR dst;
{
struct internal_reloc *reloc_src = (struct internal_reloc *)src;
struct external_reloc *reloc_dst = (struct external_reloc *)dst;
H_PUT_32 (abfd, reloc_src->r_vaddr, reloc_dst->r_vaddr);
H_PUT_32 (abfd, reloc_src->r_symndx, reloc_dst->r_symndx);
H_PUT_16 (abfd, reloc_src->r_type, reloc_dst->r_type);
#ifdef SWAP_OUT_RELOC_OFFSET
SWAP_OUT_RELOC_OFFSET (abfd, reloc_src->r_offset, reloc_dst->r_offset);
#endif
#ifdef SWAP_OUT_RELOC_EXTRA
SWAP_OUT_RELOC_EXTRA(abfd, reloc_src, reloc_dst);
#endif
return RELSZ;
}
#endif
static void
coff_swap_filehdr_in (abfd, src, dst)
bfd *abfd;
PTR src;
PTR dst;
{
FILHDR *filehdr_src = (FILHDR *) src;
struct internal_filehdr *filehdr_dst = (struct internal_filehdr *) dst;
filehdr_dst->f_magic = H_GET_16 (abfd, filehdr_src->f_magic);
filehdr_dst->f_nscns = H_GET_16 (abfd, filehdr_src-> f_nscns);
filehdr_dst->f_timdat = H_GET_32 (abfd, filehdr_src-> f_timdat);
filehdr_dst->f_nsyms = H_GET_32 (abfd, filehdr_src-> f_nsyms);
filehdr_dst->f_flags = H_GET_16 (abfd, filehdr_src-> f_flags);
filehdr_dst->f_symptr = H_GET_32 (abfd, filehdr_src->f_symptr);
if (filehdr_dst->f_nsyms != 0 && filehdr_dst->f_symptr == 0)
{
filehdr_dst->f_nsyms = 0;
filehdr_dst->f_flags |= F_LSYMS;
}
filehdr_dst->f_opthdr = H_GET_16 (abfd, filehdr_src-> f_opthdr);
}
#ifdef COFF_IMAGE_WITH_PE
# define coff_swap_filehdr_out _bfd_XXi_only_swap_filehdr_out
#else
# define coff_swap_filehdr_out _bfd_pe_only_swap_filehdr_out
#endif
static void
coff_swap_scnhdr_in (abfd, ext, in)
bfd *abfd;
PTR ext;
PTR in;
{
SCNHDR *scnhdr_ext = (SCNHDR *) ext;
struct internal_scnhdr *scnhdr_int = (struct internal_scnhdr *) in;
memcpy(scnhdr_int->s_name, scnhdr_ext->s_name, sizeof (scnhdr_int->s_name));
scnhdr_int->s_vaddr = GET_SCNHDR_VADDR (abfd, scnhdr_ext->s_vaddr);
scnhdr_int->s_paddr = GET_SCNHDR_PADDR (abfd, scnhdr_ext->s_paddr);
scnhdr_int->s_size = GET_SCNHDR_SIZE (abfd, scnhdr_ext->s_size);
scnhdr_int->s_scnptr = GET_SCNHDR_SCNPTR (abfd, scnhdr_ext->s_scnptr);
scnhdr_int->s_relptr = GET_SCNHDR_RELPTR (abfd, scnhdr_ext->s_relptr);
scnhdr_int->s_lnnoptr = GET_SCNHDR_LNNOPTR (abfd, scnhdr_ext->s_lnnoptr);
scnhdr_int->s_flags = H_GET_32 (abfd, scnhdr_ext->s_flags);
#ifdef COFF_IMAGE_WITH_PE
scnhdr_int->s_nlnno = (H_GET_16 (abfd, scnhdr_ext->s_nlnno)
+ (H_GET_16 (abfd, scnhdr_ext->s_nreloc) << 16));
scnhdr_int->s_nreloc = 0;
#else
scnhdr_int->s_nreloc = H_GET_16 (abfd, scnhdr_ext->s_nreloc);
scnhdr_int->s_nlnno = H_GET_16 (abfd, scnhdr_ext->s_nlnno);
#endif
if (scnhdr_int->s_vaddr != 0)
{
scnhdr_int->s_vaddr += pe_data (abfd)->pe_opthdr.ImageBase;
scnhdr_int->s_vaddr &= 0xffffffff;
}
#ifndef COFF_NO_HACK_SCNHDR_SIZE
if ((scnhdr_int->s_flags & IMAGE_SCN_CNT_UNINITIALIZED_DATA) != 0
&& (scnhdr_int->s_paddr > 0))
{
scnhdr_int->s_size = scnhdr_int->s_paddr;
}
#endif
}
static boolean
pe_mkobject (abfd)
bfd * abfd;
{
pe_data_type *pe;
bfd_size_type amt = sizeof (pe_data_type);
abfd->tdata.pe_obj_data = (struct pe_tdata *) bfd_zalloc (abfd, amt);
if (abfd->tdata.pe_obj_data == 0)
return false;
pe = pe_data (abfd);
pe->coff.pe = 1;
pe->in_reloc_p = in_reloc_p;
#ifdef PEI_FORCE_MINIMUM_ALIGNMENT
pe->force_minimum_alignment = 1;
#endif
#ifdef PEI_TARGET_SUBSYSTEM
pe->target_subsystem = PEI_TARGET_SUBSYSTEM;
#endif
return true;
}
static PTR
pe_mkobject_hook (abfd, filehdr, aouthdr)
bfd * abfd;
PTR filehdr;
PTR aouthdr ATTRIBUTE_UNUSED;
{
struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
pe_data_type *pe;
if (pe_mkobject (abfd) == false)
return NULL;
pe = pe_data (abfd);
pe->coff.sym_filepos = internal_f->f_symptr;
pe->coff.local_n_btmask = N_BTMASK;
pe->coff.local_n_btshft = N_BTSHFT;
pe->coff.local_n_tmask = N_TMASK;
pe->coff.local_n_tshift = N_TSHIFT;
pe->coff.local_symesz = SYMESZ;
pe->coff.local_auxesz = AUXESZ;
pe->coff.local_linesz = LINESZ;
pe->coff.timestamp = internal_f->f_timdat;
obj_raw_syment_count (abfd) =
obj_conv_table_size (abfd) =
internal_f->f_nsyms;
pe->real_flags = internal_f->f_flags;
if ((internal_f->f_flags & F_DLL) != 0)
pe->dll = 1;
if ((internal_f->f_flags & IMAGE_FILE_DEBUG_STRIPPED) == 0)
abfd->flags |= HAS_DEBUG;
#ifdef COFF_IMAGE_WITH_PE
if (aouthdr)
pe->pe_opthdr = ((struct internal_aouthdr *)aouthdr)->pe;
#endif
#ifdef ARM
if (! _bfd_coff_arm_set_private_flags (abfd, internal_f->f_flags))
coff_data (abfd) ->flags = 0;
#endif
return (PTR) pe;
}
static boolean
pe_print_private_bfd_data (abfd, vfile)
bfd *abfd;
PTR vfile;
{
FILE *file = (FILE *) vfile;
if (!_bfd_XX_print_private_bfd_data_common (abfd, vfile))
return false;
if (pe_saved_coff_bfd_print_private_bfd_data != NULL)
{
fputc ('\n', file);
return pe_saved_coff_bfd_print_private_bfd_data (abfd, vfile);
}
return true;
}
static boolean
pe_bfd_copy_private_bfd_data (ibfd, obfd)
bfd *ibfd, *obfd;
{
if (!_bfd_XX_bfd_copy_private_bfd_data_common (ibfd, obfd))
return false;
if (pe_saved_coff_bfd_copy_private_bfd_data)
return pe_saved_coff_bfd_copy_private_bfd_data (ibfd, obfd);
return true;
}
#define coff_bfd_copy_private_section_data \
_bfd_XX_bfd_copy_private_section_data
#define coff_get_symbol_info _bfd_XX_get_symbol_info
#ifdef COFF_IMAGE_WITH_PE
#define NUM_ILF_RELOCS 8
#define NUM_ILF_SECTIONS 6
#define NUM_ILF_SYMS (2 + NUM_ILF_SECTIONS)
#define SIZEOF_ILF_SYMS (NUM_ILF_SYMS * sizeof (* vars.sym_cache))
#define SIZEOF_ILF_SYM_TABLE (NUM_ILF_SYMS * sizeof (* vars.sym_table))
#define SIZEOF_ILF_NATIVE_SYMS (NUM_ILF_SYMS * sizeof (* vars.native_syms))
#define SIZEOF_ILF_SYM_PTR_TABLE (NUM_ILF_SYMS * sizeof (* vars.sym_ptr_table))
#define SIZEOF_ILF_EXT_SYMS (NUM_ILF_SYMS * sizeof (* vars.esym_table))
#define SIZEOF_ILF_RELOCS (NUM_ILF_RELOCS * sizeof (* vars.reltab))
#define SIZEOF_ILF_INT_RELOCS (NUM_ILF_RELOCS * sizeof (* vars.int_reltab))
#define SIZEOF_ILF_STRINGS (strlen (symbol_name) * 2 + 8 \
+ 21 + strlen (source_dll) \
+ NUM_ILF_SECTIONS * 9 \
+ STRING_SIZE_SIZE)
#define SIZEOF_IDATA2 (5 * 4)
#define SIZEOF_IDATA4 (1 * 4)
#define SIZEOF_IDATA5 (1 * 4)
#define SIZEOF_IDATA6 (2 + strlen (symbol_name) + 1 + 1)
#define SIZEOF_IDATA7 (strlen (source_dll) + 1 + 1)
#define SIZEOF_ILF_SECTIONS (NUM_ILF_SECTIONS * sizeof (struct coff_section_tdata))
#define ILF_DATA_SIZE \
sizeof (* vars.bim) \
+ SIZEOF_ILF_SYMS \
+ SIZEOF_ILF_SYM_TABLE \
+ SIZEOF_ILF_NATIVE_SYMS \
+ SIZEOF_ILF_SYM_PTR_TABLE \
+ SIZEOF_ILF_EXT_SYMS \
+ SIZEOF_ILF_RELOCS \
+ SIZEOF_ILF_INT_RELOCS \
+ SIZEOF_ILF_STRINGS \
+ SIZEOF_IDATA2 \
+ SIZEOF_IDATA4 \
+ SIZEOF_IDATA5 \
+ SIZEOF_IDATA6 \
+ SIZEOF_IDATA7 \
+ SIZEOF_ILF_SECTIONS \
+ MAX_TEXT_SECTION_SIZE
static void
pe_ILF_make_a_symbol_reloc (pe_ILF_vars * vars,
bfd_vma address,
bfd_reloc_code_real_type reloc,
struct symbol_cache_entry ** sym,
unsigned int sym_index)
{
arelent * entry;
struct internal_reloc * internal;
entry = vars->reltab + vars->relcount;
internal = vars->int_reltab + vars->relcount;
entry->address = address;
entry->addend = 0;
entry->howto = bfd_reloc_type_lookup (vars->abfd, reloc);
entry->sym_ptr_ptr = sym;
internal->r_vaddr = address;
internal->r_symndx = sym_index;
internal->r_type = entry->howto->type;
#if 0
internal->r_size = 0;
internal->r_extern = 0;
internal->r_offset = 0;
#endif
vars->relcount ++;
BFD_ASSERT (vars->relcount <= NUM_ILF_RELOCS);
}
static void
pe_ILF_make_a_reloc (pe_ILF_vars * vars,
bfd_vma address,
bfd_reloc_code_real_type reloc,
asection_ptr sec)
{
pe_ILF_make_a_symbol_reloc (vars, address, reloc, sec->symbol_ptr_ptr,
coff_section_data (vars->abfd, sec)->i);
}
static void
pe_ILF_save_relocs (pe_ILF_vars * vars,
asection_ptr sec)
{
if (coff_section_data (vars->abfd, sec) == NULL)
abort ();
coff_section_data (vars->abfd, sec)->relocs = vars->int_reltab;
coff_section_data (vars->abfd, sec)->keep_relocs = true;
sec->relocation = vars->reltab;
sec->reloc_count = vars->relcount;
sec->flags |= SEC_RELOC;
vars->reltab += vars->relcount;
vars->int_reltab += vars->relcount;
vars->relcount = 0;
BFD_ASSERT ((bfd_byte *) vars->int_reltab < (bfd_byte *) vars->string_table);
}
static void
pe_ILF_make_a_symbol (pe_ILF_vars * vars,
const char * prefix,
const char * symbol_name,
asection_ptr section,
flagword extra_flags)
{
coff_symbol_type * sym;
combined_entry_type * ent;
SYMENT * esym;
unsigned short sclass;
if (extra_flags & BSF_LOCAL)
sclass = C_STAT;
else
sclass = C_EXT;
#ifdef THUMBPEMAGIC
if (vars->magic == THUMBPEMAGIC)
{
if (extra_flags & BSF_FUNCTION)
sclass = C_THUMBEXTFUNC;
else if (extra_flags & BSF_LOCAL)
sclass = C_THUMBSTAT;
else
sclass = C_THUMBEXT;
}
#endif
BFD_ASSERT (vars->sym_index < NUM_ILF_SYMS);
sym = vars->sym_ptr;
ent = vars->native_ptr;
esym = vars->esym_ptr;
sprintf (vars->string_ptr, "%s%s", prefix, symbol_name);
if (section == NULL)
section = (asection_ptr) & bfd_und_section;
H_PUT_32 (vars->abfd, vars->string_ptr - vars->string_table,
esym->e.e.e_offset);
H_PUT_16 (vars->abfd, section->target_index, esym->e_scnum);
esym->e_sclass[0] = sclass;
#if 0
esym->e.e.e_zeroes = 0;
esym->e_value = 0;
esym->e_type = T_NULL;
esym->e_numaux = 0;
#endif
ent->u.syment.n_sclass = sclass;
ent->u.syment.n_scnum = section->target_index;
ent->u.syment._n._n_n._n_offset = (long) sym;
#if 0
ent->u.syment.n_value = 0;
ent->u.syment.n_flags = 0;
ent->u.syment.n_type = T_NULL;
ent->u.syment.n_numaux = 0;
ent->fix_value = 0;
#endif
sym->symbol.the_bfd = vars->abfd;
sym->symbol.name = vars->string_ptr;
sym->symbol.flags = BSF_EXPORT | BSF_GLOBAL | extra_flags;
sym->symbol.section = section;
sym->native = ent;
#if 0
sym->symbol.value = 0;
sym->symbol.udata.i = 0;
sym->done_lineno = false;
sym->lineno = NULL;
#endif
* vars->table_ptr = vars->sym_index;
* vars->sym_ptr_ptr = sym;
vars->sym_index ++;
vars->sym_ptr ++;
vars->sym_ptr_ptr ++;
vars->table_ptr ++;
vars->native_ptr ++;
vars->esym_ptr ++;
vars->string_ptr += strlen (symbol_name) + strlen (prefix) + 1;
BFD_ASSERT (vars->string_ptr < vars->end_string_ptr);
}
static asection_ptr
pe_ILF_make_a_section (pe_ILF_vars * vars,
const char * name,
unsigned int size,
flagword extra_flags)
{
asection_ptr sec;
flagword flags;
sec = bfd_make_section_old_way (vars->abfd, name);
if (sec == NULL)
return NULL;
flags = SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_KEEP | SEC_IN_MEMORY;
bfd_set_section_flags (vars->abfd, sec, flags | extra_flags);
bfd_set_section_alignment (vars->abfd, sec, 2);
BFD_ASSERT (vars->data + size < vars->bim->buffer + vars->bim->size);
bfd_set_section_size (vars->abfd, sec, (bfd_size_type) size);
sec->contents = vars->data;
sec->target_index = vars->sec_index ++;
vars->data += size;
if (size & 1)
vars->data --;
sec->used_by_bfd = (struct coff_section_tdata *) vars->data;
vars->data += sizeof (struct coff_section_tdata);
BFD_ASSERT (vars->data <= vars->bim->buffer + vars->bim->size);
pe_ILF_make_a_symbol (vars, "", name, sec, BSF_LOCAL);
coff_section_data (vars->abfd, sec)->i = vars->sym_index - 1;
return sec;
}
#define MAX_TEXT_SECTION_SIZE 32
typedef struct
{
unsigned short magic;
unsigned char data[MAX_TEXT_SECTION_SIZE];
unsigned int size;
unsigned int offset;
}
jump_table;
static jump_table jtab[] =
{
#ifdef I386MAGIC
{ I386MAGIC,
{ 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90 },
8, 2
},
#endif
#ifdef MC68MAGIC
{ MC68MAGIC, { }, 0, 0 },
#endif
#ifdef MIPS_ARCH_MAGIC_WINCE
{ MIPS_ARCH_MAGIC_WINCE,
{ 0x00, 0x00, 0x08, 0x3c, 0x00, 0x00, 0x08, 0x8d,
0x08, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00 },
16, 0
},
#endif
#ifdef SH_ARCH_MAGIC_WINCE
{ SH_ARCH_MAGIC_WINCE,
{ 0x01, 0xd0, 0x02, 0x60, 0x2b, 0x40,
0x09, 0x00, 0x00, 0x00, 0x00, 0x00 },
12, 8
},
#endif
#ifdef ARMPEMAGIC
{ ARMPEMAGIC,
{ 0x00, 0xc0, 0x9f, 0xe5, 0x00, 0xf0,
0x9c, 0xe5, 0x00, 0x00, 0x00, 0x00},
12, 8
},
#endif
#ifdef THUMBPEMAGIC
{ THUMBPEMAGIC,
{ 0x40, 0xb4, 0x02, 0x4e, 0x36, 0x68, 0xb4, 0x46,
0x40, 0xbc, 0x60, 0x47, 0x00, 0x00, 0x00, 0x00 },
16, 12
},
#endif
{ 0, { 0 }, 0, 0 }
};
#ifndef NUM_ENTRIES
#define NUM_ENTRIES(a) (sizeof (a) / sizeof (a)[0])
#endif
static boolean
pe_ILF_build_a_bfd (bfd * abfd,
unsigned int magic,
bfd_byte * symbol_name,
bfd_byte * source_dll,
unsigned int ordinal,
unsigned int types)
{
bfd_byte * ptr;
pe_ILF_vars vars;
struct internal_filehdr internal_f;
unsigned int import_type;
unsigned int import_name_type;
asection_ptr id4, id5, id6 = NULL, text = NULL;
coff_symbol_type ** imp_sym;
unsigned int imp_index;
import_type = types & 0x3;
import_name_type = (types & 0x1c) >> 2;
switch (import_type)
{
case IMPORT_CODE:
case IMPORT_DATA:
break;
case IMPORT_CONST:
_bfd_error_handler (_("%s: Unhandled import type; %x"),
bfd_archive_filename (abfd), import_type);
return false;
default:
_bfd_error_handler (_("%s: Unrecognised import type; %x"),
bfd_archive_filename (abfd), import_type);
return false;
}
switch (import_name_type)
{
case IMPORT_ORDINAL:
case IMPORT_NAME:
case IMPORT_NAME_NOPREFIX:
case IMPORT_NAME_UNDECORATE:
break;
default:
_bfd_error_handler (_("%s: Unrecognised import name type; %x"),
bfd_archive_filename (abfd), import_name_type);
return false;
}
ptr = bfd_zalloc (abfd, (bfd_size_type) ILF_DATA_SIZE);
if (ptr == NULL)
return false;
vars.bim = (struct bfd_in_memory *) ptr;
vars.bim->buffer = ptr;
vars.bim->size = ILF_DATA_SIZE;
ptr += sizeof (* vars.bim);
vars.sym_cache = (coff_symbol_type *) ptr;
vars.sym_ptr = (coff_symbol_type *) ptr;
vars.sym_index = 0;
ptr += SIZEOF_ILF_SYMS;
vars.sym_table = (unsigned int *) ptr;
vars.table_ptr = (unsigned int *) ptr;
ptr += SIZEOF_ILF_SYM_TABLE;
vars.native_syms = (combined_entry_type *) ptr;
vars.native_ptr = (combined_entry_type *) ptr;
ptr += SIZEOF_ILF_NATIVE_SYMS;
vars.sym_ptr_table = (coff_symbol_type **) ptr;
vars.sym_ptr_ptr = (coff_symbol_type **) ptr;
ptr += SIZEOF_ILF_SYM_PTR_TABLE;
vars.esym_table = (SYMENT *) ptr;
vars.esym_ptr = (SYMENT *) ptr;
ptr += SIZEOF_ILF_EXT_SYMS;
vars.reltab = (arelent *) ptr;
vars.relcount = 0;
ptr += SIZEOF_ILF_RELOCS;
vars.int_reltab = (struct internal_reloc *) ptr;
ptr += SIZEOF_ILF_INT_RELOCS;
vars.string_table = ptr;
vars.string_ptr = ptr + STRING_SIZE_SIZE;
ptr += SIZEOF_ILF_STRINGS;
vars.end_string_ptr = ptr;
vars.data = ptr;
vars.abfd = abfd;
vars.sec_index = 0;
vars.magic = magic;
id4 = pe_ILF_make_a_section (& vars, ".idata$4", SIZEOF_IDATA4, 0);
id5 = pe_ILF_make_a_section (& vars, ".idata$5", SIZEOF_IDATA5, 0);
if (id4 == NULL || id5 == NULL)
return false;
if (import_name_type == IMPORT_ORDINAL)
{
if (ordinal == 0)
abort ();
* (unsigned int *) id4->contents = ordinal | 0x80000000;
* (unsigned int *) id5->contents = ordinal | 0x80000000;
}
else
{
char * symbol;
id6 = pe_ILF_make_a_section (& vars, ".idata$6", SIZEOF_IDATA6, 0);
if (id6 == NULL)
return false;
symbol = symbol_name;
if (import_name_type != IMPORT_NAME)
while (*symbol == '@' || * symbol == '?' || * symbol == '_')
++ symbol;
if (import_name_type == IMPORT_NAME_UNDECORATE)
{
while (* symbol != 0 && * symbol != '@')
symbol ++;
* symbol = 0;
}
id6->contents[0] = ordinal & 0xff;
id6->contents[1] = ordinal >> 8;
strcpy (id6->contents + 2, symbol);
}
if (import_name_type != IMPORT_ORDINAL)
{
pe_ILF_make_a_reloc (&vars, (bfd_vma) 0, BFD_RELOC_RVA, id6);
pe_ILF_save_relocs (&vars, id4);
pe_ILF_make_a_reloc (&vars, (bfd_vma) 0, BFD_RELOC_RVA, id6);
pe_ILF_save_relocs (&vars, id5);
}
switch (import_type)
{
int i;
case IMPORT_CODE:
for (i = NUM_ENTRIES (jtab); i--;)
{
if (jtab[i].size == 0)
continue;
if (jtab[i].magic == magic)
break;
}
if (i < 0)
abort ();
text = pe_ILF_make_a_section (& vars, ".text", jtab[i].size, SEC_CODE);
if (text == NULL)
return false;
memcpy (text->contents, jtab[i].data, jtab[i].size);
pe_ILF_make_a_symbol (& vars, "__imp_", symbol_name, id5, 0);
imp_sym = vars.sym_ptr_ptr - 1;
imp_index = vars.sym_index - 1;
#ifdef MIPS_ARCH_MAGIC_WINCE
if (magic == MIPS_ARCH_MAGIC_WINCE)
{
pe_ILF_make_a_symbol_reloc (&vars, (bfd_vma) 0, BFD_RELOC_HI16_S,
(struct symbol_cache_entry **) imp_sym,
imp_index);
pe_ILF_make_a_reloc (&vars, (bfd_vma) 0, BFD_RELOC_LO16, text);
pe_ILF_make_a_symbol_reloc (&vars, (bfd_vma) 4, BFD_RELOC_LO16,
(struct symbol_cache_entry **) imp_sym,
imp_index);
}
else
#endif
pe_ILF_make_a_symbol_reloc (&vars, (bfd_vma) jtab[i].offset,
BFD_RELOC_32, (asymbol **) imp_sym,
imp_index);
pe_ILF_save_relocs (& vars, text);
break;
case IMPORT_DATA:
break;
default:
abort ();
}
memset (& internal_f, 0, sizeof (internal_f));
internal_f.f_magic = magic;
internal_f.f_symptr = 0;
internal_f.f_nsyms = 0;
internal_f.f_flags = F_AR32WR | F_LNNO;
if ( ! bfd_set_start_address (abfd, (bfd_vma) 0)
|| ! bfd_coff_set_arch_mach_hook (abfd, & internal_f))
return false;
if (bfd_coff_mkobject_hook (abfd, (PTR) & internal_f, NULL) == NULL)
return false;
coff_data (abfd)->pe = 1;
#ifdef THUMBPEMAGIC
if (vars.magic == THUMBPEMAGIC)
coff_data (abfd)->flags |= F_INTERWORK | F_INTERWORK_SET;
#endif
bfd_cache_close (abfd);
abfd->iostream = (PTR) vars.bim;
abfd->flags |= BFD_IN_MEMORY ;
abfd->where = 0;
obj_sym_filepos (abfd) = 0;
switch (import_type)
{
case IMPORT_CODE:
pe_ILF_make_a_symbol (& vars, "", symbol_name, text,
BSF_NOT_AT_END | BSF_FUNCTION);
ptr = strrchr (source_dll, '.');
if (ptr)
* ptr = 0;
pe_ILF_make_a_symbol (& vars, "__IMPORT_DESCRIPTOR_", source_dll, NULL, 0);
if (ptr)
* ptr = '.';
break;
case IMPORT_DATA:
break;
default:
abort ();
}
obj_symbols (abfd) = vars.sym_cache;
bfd_get_symcount (abfd) = vars.sym_index;
obj_raw_syments (abfd) = vars.native_syms;
obj_raw_syment_count (abfd) = vars.sym_index;
obj_coff_external_syms (abfd) = (PTR) vars.esym_table;
obj_coff_keep_syms (abfd) = true;
obj_convert (abfd) = vars.sym_table;
obj_conv_table_size (abfd) = vars.sym_index;
obj_coff_strings (abfd) = vars.string_table;
obj_coff_keep_strings (abfd) = true;
abfd->flags |= HAS_SYMS;
return true;
}
static const bfd_target *
pe_ILF_object_p (bfd * abfd)
{
bfd_byte buffer[16];
bfd_byte * ptr;
bfd_byte * symbol_name;
bfd_byte * source_dll;
unsigned int machine;
bfd_size_type size;
unsigned int ordinal;
unsigned int types;
unsigned int magic;
if (bfd_bread (buffer, (bfd_size_type) 16, abfd) != 16)
return NULL;
ptr = buffer;
ptr += 2;
machine = H_GET_16 (abfd, ptr);
ptr += 2;
magic = 0;
switch (machine)
{
case IMAGE_FILE_MACHINE_UNKNOWN:
case IMAGE_FILE_MACHINE_ALPHA:
case IMAGE_FILE_MACHINE_ALPHA64:
case IMAGE_FILE_MACHINE_IA64:
break;
case IMAGE_FILE_MACHINE_I386:
#ifdef I386MAGIC
magic = I386MAGIC;
#endif
break;
case IMAGE_FILE_MACHINE_M68K:
#ifdef MC68AGIC
magic = MC68MAGIC;
#endif
break;
case IMAGE_FILE_MACHINE_R3000:
case IMAGE_FILE_MACHINE_R4000:
case IMAGE_FILE_MACHINE_R10000:
case IMAGE_FILE_MACHINE_MIPS16:
case IMAGE_FILE_MACHINE_MIPSFPU:
case IMAGE_FILE_MACHINE_MIPSFPU16:
#ifdef MIPS_ARCH_MAGIC_WINCE
magic = MIPS_ARCH_MAGIC_WINCE;
#endif
break;
case IMAGE_FILE_MACHINE_SH3:
case IMAGE_FILE_MACHINE_SH4:
#ifdef SH_ARCH_MAGIC_WINCE
magic = SH_ARCH_MAGIC_WINCE;
#endif
break;
case IMAGE_FILE_MACHINE_ARM:
#ifdef ARMPEMAGIC
magic = ARMPEMAGIC;
#endif
break;
case IMAGE_FILE_MACHINE_THUMB:
#ifdef THUMBPEMAGIC
{
extern const bfd_target TARGET_LITTLE_SYM;
if (abfd->xvec == & TARGET_LITTLE_SYM)
magic = THUMBPEMAGIC;
}
#endif
break;
case IMAGE_FILE_MACHINE_POWERPC:
default:
_bfd_error_handler
(
_("%s: Unrecognised machine type (0x%x) in Import Library Format archive"),
bfd_archive_filename (abfd), machine);
bfd_set_error (bfd_error_malformed_archive);
return NULL;
break;
}
if (magic == 0)
{
_bfd_error_handler
(
_("%s: Recognised but unhandled machine type (0x%x) in Import Library Format archive"),
bfd_archive_filename (abfd), machine);
bfd_set_error (bfd_error_wrong_format);
return NULL;
}
ptr += 4;
size = H_GET_32 (abfd, ptr);
ptr += 4;
if (size == 0)
{
_bfd_error_handler
(_("%s: size field is zero in Import Library Format header"),
bfd_archive_filename (abfd));
bfd_set_error (bfd_error_malformed_archive);
return NULL;
}
ordinal = H_GET_16 (abfd, ptr);
ptr += 2;
types = H_GET_16 (abfd, ptr);
ptr = bfd_alloc (abfd, size);
if (ptr == NULL)
return NULL;
if (bfd_bread (ptr, size, abfd) != size)
return NULL;
symbol_name = ptr;
source_dll = ptr + strlen (ptr) + 1;
if (ptr[size - 1] != 0 || ((unsigned long) (source_dll - ptr) >= size))
{
_bfd_error_handler
(_("%s: string not null terminated in ILF object file."),
bfd_archive_filename (abfd));
bfd_set_error (bfd_error_malformed_archive);
return NULL;
}
if (! pe_ILF_build_a_bfd (abfd, magic, symbol_name,
source_dll, ordinal, types))
return NULL;
return abfd->xvec;
}
static const bfd_target *
pe_bfd_object_p (bfd * abfd)
{
bfd_byte buffer[4];
struct external_PEI_DOS_hdr dos_hdr;
struct external_PEI_IMAGE_hdr image_hdr;
file_ptr offset;
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
|| bfd_bread (buffer, (bfd_size_type) 4, abfd) != 4)
{
if (bfd_get_error () != bfd_error_system_call)
bfd_set_error (bfd_error_wrong_format);
return NULL;
}
if (H_GET_32 (abfd, buffer) == 0xffff0000)
return pe_ILF_object_p (abfd);
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
|| bfd_bread (&dos_hdr, (bfd_size_type) sizeof (dos_hdr), abfd)
!= sizeof (dos_hdr))
{
if (bfd_get_error () != bfd_error_system_call)
bfd_set_error (bfd_error_wrong_format);
return NULL;
}
if (H_GET_16 (abfd, dos_hdr.e_magic) != DOSMAGIC)
{
bfd_set_error (bfd_error_wrong_format);
return NULL;
}
offset = H_GET_32 (abfd, dos_hdr.e_lfanew);
if (bfd_seek (abfd, offset, SEEK_SET) != 0
|| (bfd_bread (&image_hdr, (bfd_size_type) sizeof (image_hdr), abfd)
!= sizeof (image_hdr)))
{
if (bfd_get_error () != bfd_error_system_call)
bfd_set_error (bfd_error_wrong_format);
return NULL;
}
if (H_GET_32 (abfd, image_hdr.nt_signature) != 0x4550)
{
bfd_set_error (bfd_error_wrong_format);
return NULL;
}
if (bfd_seek (abfd, (file_ptr) (offset - sizeof (dos_hdr)), SEEK_SET) != 0)
{
if (bfd_get_error () != bfd_error_system_call)
bfd_set_error (bfd_error_wrong_format);
return NULL;
}
return coff_object_p (abfd);
}
#define coff_object_p pe_bfd_object_p
#endif