+\f
+/* Code to handle Microsoft's Image Library Format.
+ Also known as LINK6 format.
+ Documentation about this format can be found at:
+
+ http://msdn.microsoft.com/library/specs/pecoff_section8.htm */
+
+/* The following constants specify the sizes of the various data
+ structures that we have to create in order to build a bfd describing
+ an ILF object file. The final "+ 1" in the definitions of SIZEOF_IDATA6
+ and SIZEOF_IDATA7 below is to allow for the possibility that we might
+ need a padding byte in order to ensure 16 bit alignment for the section's
+ contents.
+
+ The value for SIZEOF_ILF_STRINGS is computed as follows:
+
+ There will be NUM_ILF_SECTIONS section symbols. Allow 9 characters
+ per symbol for their names (longest section name is .idata$x).
+
+ There will be two symbols for the imported value, one the symbol name
+ and one with _imp__ prefixed. Allowing for the terminating nul's this
+ is strlen (symbol_name) * 2 + 8 + 21 + strlen (source_dll).
+
+ The strings in the string table must start STRING__SIZE_SIZE bytes into
+ the table in order to for the string lookup code in coffgen/coffcode to
+ work. */
+#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)
+
+/* For PEx64 idata4 & 5 have thumb size of 8 bytes. */
+#ifdef COFF_WITH_pex64
+#define SIZEOF_IDATA4 (2 * 4)
+#define SIZEOF_IDATA5 (2 * 4)
+#else
+#define SIZEOF_IDATA4 (1 * 4)
+#define SIZEOF_IDATA5 (1 * 4)
+#endif
+
+#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_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
+
+/* Create an empty relocation against the given symbol. */
+
+static void
+pe_ILF_make_a_symbol_reloc (pe_ILF_vars * vars,
+ bfd_vma address,
+ bfd_reloc_code_real_type reloc,
+ struct bfd_symbol ** 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;
+
+ vars->relcount ++;
+
+ BFD_ASSERT (vars->relcount <= NUM_ILF_RELOCS);
+}
+
+/* Create an empty relocation against the given section. */
+
+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);
+}
+
+/* Move the queued relocs into the given section. */
+
+static void
+pe_ILF_save_relocs (pe_ILF_vars * vars,
+ asection_ptr sec)
+{
+ /* Make sure that there is somewhere to store the internal relocs. */
+ if (coff_section_data (vars->abfd, sec) == NULL)
+ /* We should probably return an error indication here. */
+ 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);
+}
+
+/* Create a global symbol and add it to the relevant tables. */
+
+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;
+
+ /* Copy the symbol's name into the string table. */
+ sprintf (vars->string_ptr, "%s%s", prefix, symbol_name);
+
+ if (section == NULL)
+ section = (asection_ptr) & bfd_und_section;
+
+ /* Initialise the external symbol. */
+ 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;
+
+ /* The following initialisations are unnecessary - the memory is
+ zero initialised. They are just kept here as reminders. */
+
+ /* Initialise the internal symbol structure. */
+ ent->u.syment.n_sclass = sclass;
+ ent->u.syment.n_scnum = section->target_index;
+ ent->u.syment._n._n_n._n_offset = (bfd_hostptr_t) sym;
+
+ 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;
+
+ * vars->table_ptr = vars->sym_index;
+ * vars->sym_ptr_ptr = sym;
+
+ /* Adjust pointers for the next symbol. */
+ 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);
+}
+
+/* Create a section. */
+
+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);
+
+ /* Check that we will not run out of space. */
+ BFD_ASSERT (vars->data + size < vars->bim->buffer + vars->bim->size);
+
+ /* Set the section size and contents. The actual
+ contents are filled in by our parent. */
+ bfd_set_section_size (vars->abfd, sec, (bfd_size_type) size);
+ sec->contents = vars->data;
+ sec->target_index = vars->sec_index ++;
+
+ /* Advance data pointer in the vars structure. */
+ vars->data += size;
+
+ /* Skip the padding byte if it was not needed.
+ The logic here is that if the string length is odd,
+ then the entire string length, including the null byte,
+ is even and so the extra, padding byte, is not needed. */
+ if (size & 1)
+ vars->data --;
+
+ /* Create a coff_section_tdata structure for our use. */
+ 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);
+
+ /* Create a symbol to refer to this section. */
+ pe_ILF_make_a_symbol (vars, "", name, sec, BSF_LOCAL);
+
+ /* Cache the index to the symbol in the coff_section_data structure. */
+ coff_section_data (vars->abfd, sec)->i = vars->sym_index - 1;
+
+ return sec;
+}
+
+/* This structure contains the code that goes into the .text section
+ in order to perform a jump into the DLL lookup table. The entries
+ in the table are index by the magic number used to represent the
+ machine type in the PE file. The contents of the data[] arrays in
+ these entries are stolen from the jtab[] arrays in ld/pe-dll.c.
+ The SIZE field says how many bytes in the DATA array are actually
+ used. The OFFSET field says where in the data array the address
+ of the .idata$5 section should be placed. */
+#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 AMD64MAGIC
+ { AMD64MAGIC,
+ { 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90 },
+ 8, 2
+ },
+#endif
+
+#ifdef MC68MAGIC
+ { MC68MAGIC,
+ { /* XXX fill me in */ },
+ 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
+
+/* Build a full BFD from the information supplied in a ILF object. */
+
+static bfd_boolean
+pe_ILF_build_a_bfd (bfd * abfd,
+ unsigned int magic,
+ char * symbol_name,
+ char * 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;
+
+ /* Decode and verify the types field of the ILF structure. */
+ import_type = types & 0x3;
+ import_name_type = (types & 0x1c) >> 2;
+
+ switch (import_type)
+ {
+ case IMPORT_CODE:
+ case IMPORT_DATA:
+ break;
+
+ case IMPORT_CONST:
+ /* XXX code yet to be written. */
+ _bfd_error_handler (_("%B: Unhandled import type; %x"),
+ abfd, import_type);
+ return FALSE;
+
+ default:
+ _bfd_error_handler (_("%B: Unrecognised import type; %x"),
+ 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 (_("%B: Unrecognised import name type; %x"),
+ abfd, import_name_type);
+ return FALSE;
+ }
+
+ /* Initialise local variables.
+
+ Note these are kept in a structure rather than being
+ declared as statics since bfd frowns on global variables.
+
+ We are going to construct the contents of the BFD in memory,
+ so allocate all the space that we will need right now. */
+ vars.bim
+ = (struct bfd_in_memory *) bfd_malloc ((bfd_size_type) sizeof (*vars.bim));
+ if (vars.bim == NULL)
+ return FALSE;
+
+ ptr = (bfd_byte *) bfd_zmalloc ((bfd_size_type) ILF_DATA_SIZE);
+ vars.bim->buffer = ptr;
+ vars.bim->size = ILF_DATA_SIZE;
+ if (ptr == NULL)
+ goto error_return;
+
+ /* Initialise the pointers to regions of the memory and the
+ other contents of the pe_ILF_vars structure as well. */
+ 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 = (char *) ptr;
+ vars.string_ptr = (char *) ptr + STRING_SIZE_SIZE;
+ ptr += SIZEOF_ILF_STRINGS;
+ vars.end_string_ptr = (char *) ptr;
+
+ /* The remaining space in bim->buffer is used
+ by the pe_ILF_make_a_section() function. */
+ vars.data = ptr;
+ vars.abfd = abfd;
+ vars.sec_index = 0;
+ vars.magic = magic;
+
+ /* Create the initial .idata$<n> sections:
+ [.idata$2: Import Directory Table -- not needed]
+ .idata$4: Import Lookup Table
+ .idata$5: Import Address Table
+
+ Note we do not create a .idata$3 section as this is
+ created for us by the linker script. */
+ 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)
+ goto error_return;
+
+ /* Fill in the contents of these sections. */
+ if (import_name_type == IMPORT_ORDINAL)
+ {
+ if (ordinal == 0)
+ /* XXX - treat as IMPORT_NAME ??? */
+ abort ();
+
+#ifdef COFF_WITH_pex64
+ ((unsigned int *) id4->contents)[0] = ordinal;
+ ((unsigned int *) id4->contents)[1] = 0x80000000;
+ ((unsigned int *) id5->contents)[0] = ordinal;
+ ((unsigned int *) id5->contents)[1] = 0x80000000;
+#else
+ * (unsigned int *) id4->contents = ordinal | 0x80000000;
+ * (unsigned int *) id5->contents = ordinal | 0x80000000;
+#endif
+ }
+ else
+ {
+ char * symbol;
+ unsigned int len;
+
+ /* Create .idata$6 - the Hint Name Table. */
+ id6 = pe_ILF_make_a_section (& vars, ".idata$6", SIZEOF_IDATA6, 0);
+ if (id6 == NULL)
+ goto error_return;
+
+ /* If necessary, trim the import symbol name. */
+ symbol = symbol_name;
+
+ /* As used by MS compiler, '_', '@', and '?' are alternative
+ forms of USER_LABEL_PREFIX, with '?' for c++ mangled names,
+ '@' used for fastcall (in C), '_' everywhere else. Only one
+ of these is used for a symbol. We strip this leading char for
+ IMPORT_NAME_NOPREFIX and IMPORT_NAME_UNDECORATE as per the
+ PE COFF 6.0 spec (section 8.3, Import Name Type). */
+
+ if (import_name_type != IMPORT_NAME)
+ {
+ char c = symbol[0];
+ if (c == '_' || c == '@' || c == '?')
+ symbol++;
+ }
+
+ len = strlen (symbol);
+ if (import_name_type == IMPORT_NAME_UNDECORATE)
+ {
+ /* Truncate at the first '@'. */
+ char *at = strchr (symbol, '@');
+
+ if (at != NULL)
+ len = at - symbol;
+ }
+
+ id6->contents[0] = ordinal & 0xff;
+ id6->contents[1] = ordinal >> 8;
+
+ memcpy ((char *) id6->contents + 2, symbol, len);
+ id6->contents[len + 2] = '\0';
+ }
+
+ 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);
+ }
+
+ /* Create extra sections depending upon the type of import we are dealing with. */
+ switch (import_type)
+ {
+ int i;
+
+ case IMPORT_CODE:
+ /* Create a .text section.
+ First we need to look up its contents in the jump table. */
+ for (i = NUM_ENTRIES (jtab); i--;)
+ {
+ if (jtab[i].size == 0)
+ continue;
+ if (jtab[i].magic == magic)
+ break;
+ }
+ /* If we did not find a matching entry something is wrong. */
+ if (i < 0)
+ abort ();
+
+ /* Create the .text section. */
+ text = pe_ILF_make_a_section (& vars, ".text", jtab[i].size, SEC_CODE);
+ if (text == NULL)
+ goto error_return;
+
+ /* Copy in the jump code. */
+ memcpy (text->contents, jtab[i].data, jtab[i].size);
+
+ /* Create an import symbol. */
+ pe_ILF_make_a_symbol (& vars, "__imp_", symbol_name, id5, 0);
+ imp_sym = vars.sym_ptr_ptr - 1;
+ imp_index = vars.sym_index - 1;
+
+ /* Create a reloc for the data in the text section. */
+#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 bfd_symbol **) 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 bfd_symbol **) 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:
+ /* XXX code not yet written. */
+ abort ();
+ }
+
+ /* Initialise the bfd. */
+ 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; /* XXX is this correct ? */
+
+ if ( ! bfd_set_start_address (abfd, (bfd_vma) 0)
+ || ! bfd_coff_set_arch_mach_hook (abfd, & internal_f))
+ goto error_return;
+
+ if (bfd_coff_mkobject_hook (abfd, (void *) & internal_f, NULL) == NULL)
+ goto error_return;
+
+ coff_data (abfd)->pe = 1;
+#ifdef THUMBPEMAGIC
+ if (vars.magic == THUMBPEMAGIC)
+ /* Stop some linker warnings about thumb code not supporting interworking. */
+ coff_data (abfd)->flags |= F_INTERWORK | F_INTERWORK_SET;
+#endif
+
+ /* Switch from file contents to memory contents. */
+ bfd_cache_close (abfd);
+
+ abfd->iostream = (void *) vars.bim;
+ abfd->flags |= BFD_IN_MEMORY /* | HAS_LOCALS */;
+ abfd->where = 0;
+ obj_sym_filepos (abfd) = 0;
+
+ /* Now create a symbol describing the imported value. */
+ switch (import_type)
+ {
+ case IMPORT_CODE:
+ pe_ILF_make_a_symbol (& vars, "", symbol_name, text,
+ BSF_NOT_AT_END | BSF_FUNCTION);
+
+ /* Create an import symbol for the DLL, without the
+ .dll suffix. */
+ ptr = (bfd_byte *) 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:
+ /* Nothing to do here. */
+ break;
+
+ default:
+ /* XXX code not yet written. */
+ abort ();
+ }
+
+ /* Point the bfd at the symbol table. */
+ 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) = (void *) 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;
+
+ error_return:
+ if (vars.bim->buffer != NULL)
+ free (vars.bim->buffer);
+ free (vars.bim);
+ return FALSE;
+}
+
+/* We have detected a Image Library Format archive element.
+ Decode the element and return the appropriate target. */
+