diff options
Diffstat (limited to 'binutils-2.24/binutils/rescoff.c')
| -rw-r--r-- | binutils-2.24/binutils/rescoff.c | 750 |
1 files changed, 0 insertions, 750 deletions
diff --git a/binutils-2.24/binutils/rescoff.c b/binutils-2.24/binutils/rescoff.c deleted file mode 100644 index 8799ea2b..00000000 --- a/binutils-2.24/binutils/rescoff.c +++ /dev/null @@ -1,750 +0,0 @@ -/* rescoff.c -- read and write resources in Windows COFF files. - Copyright 1997, 1998, 1999, 2000, 2003, 2005, 2007, 2008 - Free Software Foundation, Inc. - Written by Ian Lance Taylor, Cygnus Support. - Rewritten by Kai Tietz, Onevision. - - This file is part of GNU Binutils. - - 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. */ - -/* This file contains function that read and write Windows resources - in COFF files. */ - -#include "sysdep.h" -#include "bfd.h" -#include "bucomm.h" -#include "libiberty.h" -#include "windres.h" - -#include <assert.h> - -/* In order to use the address of a resource data entry, we need to - get the image base of the file. Right now we extract it from - internal BFD information. FIXME. */ - -#include "coff/internal.h" -#include "libcoff.h" - -/* Information we extract from the file. */ - -struct coff_file_info -{ - /* File name. */ - const char *filename; - /* Data read from the file. */ - const bfd_byte *data; - /* End of data read from file. */ - const bfd_byte *data_end; - /* Address of the resource section minus the image base of the file. */ - rc_uint_type secaddr; -}; - -/* A resource directory table in a COFF file. */ - -struct __attribute__ ((__packed__)) extern_res_directory -{ - /* Characteristics. */ - bfd_byte characteristics[4]; - /* Time stamp. */ - bfd_byte time[4]; - /* Major version number. */ - bfd_byte major[2]; - /* Minor version number. */ - bfd_byte minor[2]; - /* Number of named directory entries. */ - bfd_byte name_count[2]; - /* Number of directory entries with IDs. */ - bfd_byte id_count[2]; -}; - -/* A resource directory entry in a COFF file. */ - -struct extern_res_entry -{ - /* Name or ID. */ - bfd_byte name[4]; - /* Address of resource entry or subdirectory. */ - bfd_byte rva[4]; -}; - -/* A resource data entry in a COFF file. */ - -struct extern_res_data -{ - /* Address of resource data. This is apparently a file relative - address, rather than a section offset. */ - bfd_byte rva[4]; - /* Size of resource data. */ - bfd_byte size[4]; - /* Code page. */ - bfd_byte codepage[4]; - /* Reserved. */ - bfd_byte reserved[4]; -}; - -/* Local functions. */ - -static void overrun (const struct coff_file_info *, const char *); -static rc_res_directory *read_coff_res_dir (windres_bfd *, const bfd_byte *, - const struct coff_file_info *, - const rc_res_id *, int); -static rc_res_resource *read_coff_data_entry (windres_bfd *, const bfd_byte *, - const struct coff_file_info *, - const rc_res_id *); - -/* Read the resources in a COFF file. */ - -rc_res_directory * -read_coff_rsrc (const char *filename, const char *target) -{ - rc_res_directory *ret; - bfd *abfd; - windres_bfd wrbfd; - char **matching; - asection *sec; - bfd_size_type size; - bfd_byte *data; - struct coff_file_info flaginfo; - - if (filename == NULL) - fatal (_("filename required for COFF input")); - - abfd = bfd_openr (filename, target); - if (abfd == NULL) - bfd_fatal (filename); - - if (! bfd_check_format_matches (abfd, bfd_object, &matching)) - { - bfd_nonfatal (bfd_get_filename (abfd)); - if (bfd_get_error () == bfd_error_file_ambiguously_recognized) - list_matching_formats (matching); - xexit (1); - } - - sec = bfd_get_section_by_name (abfd, ".rsrc"); - if (sec == NULL) - { - fatal (_("%s: no resource section"), filename); - } - - set_windres_bfd (&wrbfd, abfd, sec, WR_KIND_BFD); - size = bfd_section_size (abfd, sec); - data = (bfd_byte *) res_alloc (size); - - get_windres_bfd_content (&wrbfd, data, 0, size); - - flaginfo.filename = filename; - flaginfo.data = data; - flaginfo.data_end = data + size; - flaginfo.secaddr = (bfd_get_section_vma (abfd, sec) - - pe_data (abfd)->pe_opthdr.ImageBase); - - /* Now just read in the top level resource directory. Note that we - don't free data, since we create resource entries that point into - it. If we ever want to free up the resource information we read, - this will have to be cleaned up. */ - - ret = read_coff_res_dir (&wrbfd, data, &flaginfo, (const rc_res_id *) NULL, 0); - - bfd_close (abfd); - - return ret; -} - -/* Give an error if we are out of bounds. */ - -static void -overrun (const struct coff_file_info *flaginfo, const char *msg) -{ - fatal (_("%s: %s: address out of bounds"), flaginfo->filename, msg); -} - -/* Read a resource directory. */ - -static rc_res_directory * -read_coff_res_dir (windres_bfd *wrbfd, const bfd_byte *data, - const struct coff_file_info *flaginfo, - const rc_res_id *type, int level) -{ - const struct extern_res_directory *erd; - rc_res_directory *rd; - int name_count, id_count, i; - rc_res_entry **pp; - const struct extern_res_entry *ere; - - if ((size_t) (flaginfo->data_end - data) < sizeof (struct extern_res_directory)) - overrun (flaginfo, _("directory")); - - erd = (const struct extern_res_directory *) data; - - rd = (rc_res_directory *) res_alloc (sizeof (rc_res_directory)); - rd->characteristics = windres_get_32 (wrbfd, erd->characteristics, 4); - rd->time = windres_get_32 (wrbfd, erd->time, 4); - rd->major = windres_get_16 (wrbfd, erd->major, 2); - rd->minor = windres_get_16 (wrbfd, erd->minor, 2); - rd->entries = NULL; - - name_count = windres_get_16 (wrbfd, erd->name_count, 2); - id_count = windres_get_16 (wrbfd, erd->id_count, 2); - - pp = &rd->entries; - - /* The resource directory entries immediately follow the directory - table. */ - ere = (const struct extern_res_entry *) (erd + 1); - - for (i = 0; i < name_count; i++, ere++) - { - rc_uint_type name, rva; - rc_res_entry *re; - const bfd_byte *ers; - int length, j; - - if ((const bfd_byte *) ere >= flaginfo->data_end) - overrun (flaginfo, _("named directory entry")); - - name = windres_get_32 (wrbfd, ere->name, 4); - rva = windres_get_32 (wrbfd, ere->rva, 4); - - /* For some reason the high bit in NAME is set. */ - name &=~ 0x80000000; - - if (name > (rc_uint_type) (flaginfo->data_end - flaginfo->data)) - overrun (flaginfo, _("directory entry name")); - - ers = flaginfo->data + name; - - re = (rc_res_entry *) res_alloc (sizeof *re); - re->next = NULL; - re->id.named = 1; - length = windres_get_16 (wrbfd, ers, 2); - re->id.u.n.length = length; - re->id.u.n.name = (unichar *) res_alloc (length * sizeof (unichar)); - for (j = 0; j < length; j++) - re->id.u.n.name[j] = windres_get_16 (wrbfd, ers + j * 2 + 2, 2); - - if (level == 0) - type = &re->id; - - if ((rva & 0x80000000) != 0) - { - rva &=~ 0x80000000; - if (rva >= (rc_uint_type) (flaginfo->data_end - flaginfo->data)) - overrun (flaginfo, _("named subdirectory")); - re->subdir = 1; - re->u.dir = read_coff_res_dir (wrbfd, flaginfo->data + rva, flaginfo, type, - level + 1); - } - else - { - if (rva >= (rc_uint_type) (flaginfo->data_end - flaginfo->data)) - overrun (flaginfo, _("named resource")); - re->subdir = 0; - re->u.res = read_coff_data_entry (wrbfd, flaginfo->data + rva, flaginfo, type); - } - - *pp = re; - pp = &re->next; - } - - for (i = 0; i < id_count; i++, ere++) - { - unsigned long name, rva; - rc_res_entry *re; - - if ((const bfd_byte *) ere >= flaginfo->data_end) - overrun (flaginfo, _("ID directory entry")); - - name = windres_get_32 (wrbfd, ere->name, 4); - rva = windres_get_32 (wrbfd, ere->rva, 4); - - re = (rc_res_entry *) res_alloc (sizeof *re); - re->next = NULL; - re->id.named = 0; - re->id.u.id = name; - - if (level == 0) - type = &re->id; - - if ((rva & 0x80000000) != 0) - { - rva &=~ 0x80000000; - if (rva >= (rc_uint_type) (flaginfo->data_end - flaginfo->data)) - overrun (flaginfo, _("ID subdirectory")); - re->subdir = 1; - re->u.dir = read_coff_res_dir (wrbfd, flaginfo->data + rva, flaginfo, type, - level + 1); - } - else - { - if (rva >= (rc_uint_type) (flaginfo->data_end - flaginfo->data)) - overrun (flaginfo, _("ID resource")); - re->subdir = 0; - re->u.res = read_coff_data_entry (wrbfd, flaginfo->data + rva, flaginfo, type); - } - - *pp = re; - pp = &re->next; - } - - return rd; -} - -/* Read a resource data entry. */ - -static rc_res_resource * -read_coff_data_entry (windres_bfd *wrbfd, const bfd_byte *data, - const struct coff_file_info *flaginfo, - const rc_res_id *type) -{ - const struct extern_res_data *erd; - rc_res_resource *r; - rc_uint_type size, rva; - const bfd_byte *resdata; - - if (type == NULL) - fatal (_("resource type unknown")); - - if ((size_t) (flaginfo->data_end - data) < sizeof (struct extern_res_data)) - overrun (flaginfo, _("data entry")); - - erd = (const struct extern_res_data *) data; - - size = windres_get_32 (wrbfd, erd->size, 4); - rva = windres_get_32 (wrbfd, erd->rva, 4); - if (rva < flaginfo->secaddr - || rva - flaginfo->secaddr >= (rc_uint_type) (flaginfo->data_end - flaginfo->data)) - overrun (flaginfo, _("resource data")); - - resdata = flaginfo->data + (rva - flaginfo->secaddr); - - if (size > (rc_uint_type) (flaginfo->data_end - resdata)) - overrun (flaginfo, _("resource data size")); - - r = bin_to_res (wrbfd, *type, resdata, size); - - memset (&r->res_info, 0, sizeof (rc_res_res_info)); - r->coff_info.codepage = windres_get_32 (wrbfd, erd->codepage, 4); - r->coff_info.reserved = windres_get_32 (wrbfd, erd->reserved, 4); - - return r; -} - -/* This structure is used to build a list of bindata structures. */ - -struct bindata_build -{ - /* The data. */ - bindata *d; - /* The last structure we have added to the list. */ - bindata *last; - /* The size of the list as a whole. */ - unsigned long length; -}; - -struct coff_res_data_build -{ - /* The data. */ - coff_res_data *d; - /* The last structure we have added to the list. */ - coff_res_data *last; - /* The size of the list as a whole. */ - unsigned long length; -}; - -/* This structure keeps track of information as we build the directory - tree. */ - -struct coff_write_info -{ - /* These fields are based on the BFD. */ - /* The BFD itself. */ - windres_bfd *wrbfd; - /* Pointer to section symbol used to build RVA relocs. */ - asymbol **sympp; - - /* These fields are computed initially, and then not changed. */ - /* Length of directory tables and entries. */ - unsigned long dirsize; - /* Length of directory entry strings. */ - unsigned long dirstrsize; - /* Length of resource data entries. */ - unsigned long dataentsize; - - /* These fields are updated as we add data. */ - /* Directory tables and entries. */ - struct bindata_build dirs; - /* Directory entry strings. */ - struct bindata_build dirstrs; - /* Resource data entries. */ - struct bindata_build dataents; - /* Actual resource data. */ - struct coff_res_data_build resources; - /* Relocations. */ - arelent **relocs; - /* Number of relocations. */ - unsigned int reloc_count; -}; - -static void coff_bin_sizes (const rc_res_directory *, struct coff_write_info *); -static bfd_byte *coff_alloc (struct bindata_build *, rc_uint_type); -static void coff_to_bin - (const rc_res_directory *, struct coff_write_info *); -static void coff_res_to_bin - (const rc_res_resource *, struct coff_write_info *); - -/* Write resources to a COFF file. RESOURCES should already be - sorted. - - Right now we always create a new file. Someday we should also - offer the ability to merge resources into an existing file. This - would require doing the basic work of objcopy, just modifying or - adding the .rsrc section. */ - -void -write_coff_file (const char *filename, const char *target, - const rc_res_directory *resources) -{ - bfd *abfd; - asection *sec; - struct coff_write_info cwi; - windres_bfd wrbfd; - bindata *d; - coff_res_data *rd; - unsigned long length, offset; - - if (filename == NULL) - fatal (_("filename required for COFF output")); - - abfd = bfd_openw (filename, target); - if (abfd == NULL) - bfd_fatal (filename); - - if (! bfd_set_format (abfd, bfd_object)) - bfd_fatal ("bfd_set_format"); - -#if defined DLLTOOL_SH - if (! bfd_set_arch_mach (abfd, bfd_arch_sh, 0)) - bfd_fatal ("bfd_set_arch_mach(sh)"); -#elif defined DLLTOOL_MIPS - if (! bfd_set_arch_mach (abfd, bfd_arch_mips, 0)) - bfd_fatal ("bfd_set_arch_mach(mips)"); -#elif defined DLLTOOL_ARM - if (! bfd_set_arch_mach (abfd, bfd_arch_arm, 0)) - bfd_fatal ("bfd_set_arch_mach(arm)"); -#else - /* FIXME: This is obviously i386 specific. */ - if (! bfd_set_arch_mach (abfd, bfd_arch_i386, 0)) - bfd_fatal ("bfd_set_arch_mach(i386)"); -#endif - - if (! bfd_set_file_flags (abfd, HAS_SYMS | HAS_RELOC)) - bfd_fatal ("bfd_set_file_flags"); - - sec = bfd_make_section_with_flags (abfd, ".rsrc", - (SEC_HAS_CONTENTS | SEC_ALLOC - | SEC_LOAD | SEC_DATA)); - if (sec == NULL) - bfd_fatal ("bfd_make_section"); - - if (! bfd_set_symtab (abfd, sec->symbol_ptr_ptr, 1)) - bfd_fatal ("bfd_set_symtab"); - - /* Requiring this is probably a bug in BFD. */ - sec->output_section = sec; - - /* The order of data in the .rsrc section is - resource directory tables and entries - resource directory strings - resource data entries - actual resource data - - We build these different types of data in different lists. */ - - set_windres_bfd (&wrbfd, abfd, sec, WR_KIND_BFD); - - cwi.wrbfd = &wrbfd; - cwi.sympp = sec->symbol_ptr_ptr; - cwi.dirsize = 0; - cwi.dirstrsize = 0; - cwi.dataentsize = 0; - cwi.dirs.d = NULL; - cwi.dirs.last = NULL; - cwi.dirs.length = 0; - cwi.dirstrs.d = NULL; - cwi.dirstrs.last = NULL; - cwi.dirstrs.length = 0; - cwi.dataents.d = NULL; - cwi.dataents.last = NULL; - cwi.dataents.length = 0; - cwi.resources.d = NULL; - cwi.resources.last = NULL; - cwi.resources.length = 0; - cwi.relocs = NULL; - cwi.reloc_count = 0; - - /* Work out the sizes of the resource directory entries, so that we - know the various offsets we will need. */ - coff_bin_sizes (resources, &cwi); - - /* Force the directory strings to be 32 bit aligned. Every other - structure is 32 bit aligned anyhow. */ - cwi.dirstrsize = (cwi.dirstrsize + 3) &~ 3; - - /* Actually convert the resources to binary. */ - coff_to_bin (resources, &cwi); - - /* Add another 2 bytes to the directory strings if needed for - alignment. */ - if ((cwi.dirstrs.length & 3) != 0) - { - bfd_byte *ex; - - ex = coff_alloc (&cwi.dirstrs, 2); - ex[0] = 0; - ex[1] = 0; - } - - /* Make sure that the data we built came out to the same size as we - calculated initially. */ - assert (cwi.dirs.length == cwi.dirsize); - assert (cwi.dirstrs.length == cwi.dirstrsize); - assert (cwi.dataents.length == cwi.dataentsize); - - length = (cwi.dirsize - + cwi.dirstrsize - + cwi.dataentsize - + cwi.resources.length); - - if (! bfd_set_section_size (abfd, sec, length)) - bfd_fatal ("bfd_set_section_size"); - - bfd_set_reloc (abfd, sec, cwi.relocs, cwi.reloc_count); - - offset = 0; - for (d = cwi.dirs.d; d != NULL; d = d->next) - { - if (! bfd_set_section_contents (abfd, sec, d->data, offset, d->length)) - bfd_fatal ("bfd_set_section_contents"); - offset += d->length; - } - for (d = cwi.dirstrs.d; d != NULL; d = d->next) - { - set_windres_bfd_content (&wrbfd, d->data, offset, d->length); - offset += d->length; - } - for (d = cwi.dataents.d; d != NULL; d = d->next) - { - set_windres_bfd_content (&wrbfd, d->data, offset, d->length); - offset += d->length; - } - for (rd = cwi.resources.d; rd != NULL; rd = rd->next) - { - res_to_bin (cwi.wrbfd, (rc_uint_type) offset, rd->res); - offset += rd->length; - } - - assert (offset == length); - - if (! bfd_close (abfd)) - bfd_fatal ("bfd_close"); - - /* We allocated the relocs array using malloc. */ - free (cwi.relocs); -} - -/* Work out the sizes of the various fixed size resource directory - entries. This updates fields in CWI. */ - -static void -coff_bin_sizes (const rc_res_directory *resdir, - struct coff_write_info *cwi) -{ - const rc_res_entry *re; - - cwi->dirsize += sizeof (struct extern_res_directory); - - for (re = resdir->entries; re != NULL; re = re->next) - { - cwi->dirsize += sizeof (struct extern_res_entry); - - if (re->id.named) - cwi->dirstrsize += re->id.u.n.length * 2 + 2; - - if (re->subdir) - coff_bin_sizes (re->u.dir, cwi); - else - cwi->dataentsize += sizeof (struct extern_res_data); - } -} - -/* Allocate data for a particular list. */ - -static bfd_byte * -coff_alloc (struct bindata_build *bb, rc_uint_type size) -{ - bindata *d; - - d = (bindata *) reswr_alloc (sizeof (bindata)); - - d->next = NULL; - d->data = (bfd_byte *) reswr_alloc (size); - d->length = size; - - if (bb->d == NULL) - bb->d = d; - else - bb->last->next = d; - bb->last = d; - bb->length += size; - - return d->data; -} - -/* Convert the resource directory RESDIR to binary. */ - -static void -coff_to_bin (const rc_res_directory *resdir, struct coff_write_info *cwi) -{ - struct extern_res_directory *erd; - int ci, cn; - const rc_res_entry *e; - struct extern_res_entry *ere; - - /* Write out the directory table. */ - - erd = ((struct extern_res_directory *) - coff_alloc (&cwi->dirs, sizeof (*erd))); - - windres_put_32 (cwi->wrbfd, erd->characteristics, resdir->characteristics); - windres_put_32 (cwi->wrbfd, erd->time, resdir->time); - windres_put_16 (cwi->wrbfd, erd->major, resdir->major); - windres_put_16 (cwi->wrbfd, erd->minor, resdir->minor); - - ci = 0; - cn = 0; - for (e = resdir->entries; e != NULL; e = e->next) - { - if (e->id.named) - ++cn; - else - ++ci; - } - - windres_put_16 (cwi->wrbfd, erd->name_count, cn); - windres_put_16 (cwi->wrbfd, erd->id_count, ci); - - /* Write out the data entries. Note that we allocate space for all - the entries before writing them out. That permits a recursive - call to work correctly when writing out subdirectories. */ - - ere = ((struct extern_res_entry *) - coff_alloc (&cwi->dirs, (ci + cn) * sizeof (*ere))); - for (e = resdir->entries; e != NULL; e = e->next, ere++) - { - if (! e->id.named) - windres_put_32 (cwi->wrbfd, ere->name, e->id.u.id); - else - { - bfd_byte *str; - rc_uint_type i; - - /* For some reason existing files seem to have the high bit - set on the address of the name, although that is not - documented. */ - windres_put_32 (cwi->wrbfd, ere->name, - 0x80000000 | (cwi->dirsize + cwi->dirstrs.length)); - - str = coff_alloc (&cwi->dirstrs, e->id.u.n.length * 2 + 2); - windres_put_16 (cwi->wrbfd, str, e->id.u.n.length); - for (i = 0; i < e->id.u.n.length; i++) - windres_put_16 (cwi->wrbfd, str + (i + 1) * sizeof (unichar), e->id.u.n.name[i]); - } - - if (e->subdir) - { - windres_put_32 (cwi->wrbfd, ere->rva, 0x80000000 | cwi->dirs.length); - coff_to_bin (e->u.dir, cwi); - } - else - { - windres_put_32 (cwi->wrbfd, ere->rva, - cwi->dirsize + cwi->dirstrsize + cwi->dataents.length); - - coff_res_to_bin (e->u.res, cwi); - } - } -} - -/* Convert the resource RES to binary. */ - -static void -coff_res_to_bin (const rc_res_resource *res, struct coff_write_info *cwi) -{ - arelent *r; - struct extern_res_data *erd; - coff_res_data *d; - - /* For some reason, although every other address is a section - offset, the address of the resource data itself is an RVA. That - means that we need to generate a relocation for it. We allocate - the relocs array using malloc so that we can use realloc. FIXME: - This relocation handling is correct for the i386, but probably - not for any other target. */ - - r = (arelent *) reswr_alloc (sizeof (arelent)); - r->sym_ptr_ptr = cwi->sympp; - r->address = cwi->dirsize + cwi->dirstrsize + cwi->dataents.length; - r->addend = 0; - r->howto = bfd_reloc_type_lookup (WR_BFD (cwi->wrbfd), BFD_RELOC_RVA); - if (r->howto == NULL) - bfd_fatal (_("can't get BFD_RELOC_RVA relocation type")); - - cwi->relocs = xrealloc (cwi->relocs, - (cwi->reloc_count + 2) * sizeof (arelent *)); - cwi->relocs[cwi->reloc_count] = r; - cwi->relocs[cwi->reloc_count + 1] = NULL; - ++cwi->reloc_count; - - erd = (struct extern_res_data *) coff_alloc (&cwi->dataents, sizeof (*erd)); - - windres_put_32 (cwi->wrbfd, erd->rva, - (cwi->dirsize - + cwi->dirstrsize - + cwi->dataentsize - + cwi->resources.length)); - windres_put_32 (cwi->wrbfd, erd->codepage, res->coff_info.codepage); - windres_put_32 (cwi->wrbfd, erd->reserved, res->coff_info.reserved); - - d = (coff_res_data *) reswr_alloc (sizeof (coff_res_data)); - d->length = res_to_bin (NULL, (rc_uint_type) 0, res); - d->res = res; - d->next = NULL; - - if (cwi->resources.d == NULL) - cwi->resources.d = d; - else - cwi->resources.last->next = d; - - cwi->resources.last = d; - cwi->resources.length += (d->length + 3) & ~3; - - windres_put_32 (cwi->wrbfd, erd->size, d->length); - - /* Force the next resource to have 32 bit alignment. */ - d->length = (d->length + 3) & ~3; -} |