123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935 |
- /* pecoff.c -- Get debug data from a PE/COFFF file for backtraces.
- Copyright (C) 2015-2022 Free Software Foundation, Inc.
- Adapted from elf.c by Tristan Gingold, AdaCore.
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are
- met:
- (1) Redistributions of source code must retain the above copyright
- notice, this list of conditions and the following disclaimer.
- (2) Redistributions in binary form must reproduce the above copyright
- notice, this list of conditions and the following disclaimer in
- the documentation and/or other materials provided with the
- distribution.
- (3) The name of the author may not be used to
- endorse or promote products derived from this software without
- specific prior written permission.
- THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
- IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
- INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
- (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
- SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
- STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
- IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
- POSSIBILITY OF SUCH DAMAGE. */
- #include "config.h"
- #include <stdlib.h>
- #include <string.h>
- #include <sys/types.h>
- #include "backtrace.h"
- #include "internal.h"
- /* Coff file header. */
- typedef struct {
- uint16_t machine;
- uint16_t number_of_sections;
- uint32_t time_date_stamp;
- uint32_t pointer_to_symbol_table;
- uint32_t number_of_symbols;
- uint16_t size_of_optional_header;
- uint16_t characteristics;
- } b_coff_file_header;
- /* Coff optional header. */
- typedef struct {
- uint16_t magic;
- uint8_t major_linker_version;
- uint8_t minor_linker_version;
- uint32_t size_of_code;
- uint32_t size_of_initialized_data;
- uint32_t size_of_uninitialized_data;
- uint32_t address_of_entry_point;
- uint32_t base_of_code;
- union {
- struct {
- uint32_t base_of_data;
- uint32_t image_base;
- } pe;
- struct {
- uint64_t image_base;
- } pep;
- } u;
- } b_coff_optional_header;
- /* Values of magic in optional header. */
- #define PE_MAGIC 0x10b /* PE32 executable. */
- #define PEP_MAGIC 0x20b /* PE32+ executable (for 64bit targets). */
- /* Coff section header. */
- typedef struct {
- char name[8];
- uint32_t virtual_size;
- uint32_t virtual_address;
- uint32_t size_of_raw_data;
- uint32_t pointer_to_raw_data;
- uint32_t pointer_to_relocations;
- uint32_t pointer_to_line_numbers;
- uint16_t number_of_relocations;
- uint16_t number_of_line_numbers;
- uint32_t characteristics;
- } b_coff_section_header;
- /* Coff symbol name. */
- typedef union {
- char short_name[8];
- struct {
- unsigned char zeroes[4];
- unsigned char off[4];
- } long_name;
- } b_coff_name;
- /* Coff symbol (external representation which is unaligned). */
- typedef struct {
- b_coff_name name;
- unsigned char value[4];
- unsigned char section_number[2];
- unsigned char type[2];
- unsigned char storage_class;
- unsigned char number_of_aux_symbols;
- } b_coff_external_symbol;
- /* Symbol types. */
- #define N_TBSHFT 4 /* Shift for the derived type. */
- #define IMAGE_SYM_DTYPE_FUNCTION 2 /* Function derived type. */
- /* Size of a coff symbol. */
- #define SYM_SZ 18
- /* Coff symbol, internal representation (aligned). */
- typedef struct {
- const char *name;
- uint32_t value;
- int16_t sec;
- uint16_t type;
- uint16_t sc;
- } b_coff_internal_symbol;
- /* Names of sections, indexed by enum dwarf_section in internal.h. */
- static const char * const debug_section_names[DEBUG_MAX] =
- {
- ".debug_info",
- ".debug_line",
- ".debug_abbrev",
- ".debug_ranges",
- ".debug_str",
- ".debug_addr",
- ".debug_str_offsets",
- ".debug_line_str",
- ".debug_rnglists"
- };
- /* Information we gather for the sections we care about. */
- struct debug_section_info
- {
- /* Section file offset. */
- off_t offset;
- /* Section size. */
- size_t size;
- };
- /* Information we keep for an coff symbol. */
- struct coff_symbol
- {
- /* The name of the symbol. */
- const char *name;
- /* The address of the symbol. */
- uintptr_t address;
- };
- /* Information to pass to coff_syminfo. */
- struct coff_syminfo_data
- {
- /* Symbols for the next module. */
- struct coff_syminfo_data *next;
- /* The COFF symbols, sorted by address. */
- struct coff_symbol *symbols;
- /* The number of symbols. */
- size_t count;
- };
- /* A dummy callback function used when we can't find any debug info. */
- static int
- coff_nodebug (struct backtrace_state *state ATTRIBUTE_UNUSED,
- uintptr_t pc ATTRIBUTE_UNUSED,
- backtrace_full_callback callback ATTRIBUTE_UNUSED,
- backtrace_error_callback error_callback, void *data)
- {
- error_callback (data, "no debug info in PE/COFF executable", -1);
- return 0;
- }
- /* A dummy callback function used when we can't find a symbol
- table. */
- static void
- coff_nosyms (struct backtrace_state *state ATTRIBUTE_UNUSED,
- uintptr_t addr ATTRIBUTE_UNUSED,
- backtrace_syminfo_callback callback ATTRIBUTE_UNUSED,
- backtrace_error_callback error_callback, void *data)
- {
- error_callback (data, "no symbol table in PE/COFF executable", -1);
- }
- /* Read a potentially unaligned 4 byte word at P, using native endianness. */
- static uint32_t
- coff_read4 (const unsigned char *p)
- {
- uint32_t res;
- memcpy (&res, p, 4);
- return res;
- }
- /* Read a potentially unaligned 2 byte word at P, using native endianness.
- All 2 byte word in symbols are always aligned, but for coherency all
- fields are declared as char arrays. */
- static uint16_t
- coff_read2 (const unsigned char *p)
- {
- uint16_t res;
- memcpy (&res, p, sizeof (res));
- return res;
- }
- /* Return the length (without the trailing 0) of a COFF short name. */
- static size_t
- coff_short_name_len (const char *name)
- {
- int i;
- for (i = 0; i < 8; i++)
- if (name[i] == 0)
- return i;
- return 8;
- }
- /* Return true iff COFF short name CNAME is the same as NAME (a NUL-terminated
- string). */
- static int
- coff_short_name_eq (const char *name, const char *cname)
- {
- int i;
- for (i = 0; i < 8; i++)
- {
- if (name[i] != cname[i])
- return 0;
- if (name[i] == 0)
- return 1;
- }
- return name[8] == 0;
- }
- /* Return true iff NAME is the same as string at offset OFF. */
- static int
- coff_long_name_eq (const char *name, unsigned int off,
- struct backtrace_view *str_view)
- {
- if (off >= str_view->len)
- return 0;
- return strcmp (name, (const char *)str_view->data + off) == 0;
- }
- /* Compare struct coff_symbol for qsort. */
- static int
- coff_symbol_compare (const void *v1, const void *v2)
- {
- const struct coff_symbol *e1 = (const struct coff_symbol *) v1;
- const struct coff_symbol *e2 = (const struct coff_symbol *) v2;
- if (e1->address < e2->address)
- return -1;
- else if (e1->address > e2->address)
- return 1;
- else
- return 0;
- }
- /* Convert SYM to internal (and aligned) format ISYM, using string table
- from STRTAB and STRTAB_SIZE, and number of sections SECTS_NUM.
- Return -1 in case of error (invalid section number or string index). */
- static int
- coff_expand_symbol (b_coff_internal_symbol *isym,
- const b_coff_external_symbol *sym,
- uint16_t sects_num,
- const unsigned char *strtab, size_t strtab_size)
- {
- isym->type = coff_read2 (sym->type);
- isym->sec = coff_read2 (sym->section_number);
- isym->sc = sym->storage_class;
- if (isym->sec > 0 && (uint16_t) isym->sec > sects_num)
- return -1;
- if (sym->name.short_name[0] != 0)
- isym->name = sym->name.short_name;
- else
- {
- uint32_t off = coff_read4 (sym->name.long_name.off);
- if (off >= strtab_size)
- return -1;
- isym->name = (const char *) strtab + off;
- }
- return 0;
- }
- /* Return true iff SYM is a defined symbol for a function. Data symbols
- aren't considered because they aren't easily identified (same type as
- section names, presence of symbols defined by the linker script). */
- static int
- coff_is_function_symbol (const b_coff_internal_symbol *isym)
- {
- return (isym->type >> N_TBSHFT) == IMAGE_SYM_DTYPE_FUNCTION
- && isym->sec > 0;
- }
- /* Initialize the symbol table info for coff_syminfo. */
- static int
- coff_initialize_syminfo (struct backtrace_state *state,
- uintptr_t base_address, int is_64,
- const b_coff_section_header *sects, size_t sects_num,
- const b_coff_external_symbol *syms, size_t syms_size,
- const unsigned char *strtab, size_t strtab_size,
- backtrace_error_callback error_callback,
- void *data, struct coff_syminfo_data *sdata)
- {
- size_t syms_count;
- char *coff_symstr;
- size_t coff_symstr_len;
- size_t coff_symbol_count;
- size_t coff_symbol_size;
- struct coff_symbol *coff_symbols;
- struct coff_symbol *coff_sym;
- char *coff_str;
- size_t i;
- syms_count = syms_size / SYM_SZ;
- /* We only care about function symbols. Count them. Also count size of
- strings for in-symbol names. */
- coff_symbol_count = 0;
- coff_symstr_len = 0;
- for (i = 0; i < syms_count; ++i)
- {
- const b_coff_external_symbol *asym = &syms[i];
- b_coff_internal_symbol isym;
- if (coff_expand_symbol (&isym, asym, sects_num, strtab, strtab_size) < 0)
- {
- error_callback (data, "invalid section or offset in coff symbol", 0);
- return 0;
- }
- if (coff_is_function_symbol (&isym))
- {
- ++coff_symbol_count;
- if (asym->name.short_name[0] != 0)
- coff_symstr_len += coff_short_name_len (asym->name.short_name) + 1;
- }
- i += asym->number_of_aux_symbols;
- }
- coff_symbol_size = (coff_symbol_count + 1) * sizeof (struct coff_symbol);
- coff_symbols = ((struct coff_symbol *)
- backtrace_alloc (state, coff_symbol_size, error_callback,
- data));
- if (coff_symbols == NULL)
- return 0;
- /* Allocate memory for symbols strings. */
- if (coff_symstr_len > 0)
- {
- coff_symstr = ((char *)
- backtrace_alloc (state, coff_symstr_len, error_callback,
- data));
- if (coff_symstr == NULL)
- {
- backtrace_free (state, coff_symbols, coff_symbol_size,
- error_callback, data);
- return 0;
- }
- }
- else
- coff_symstr = NULL;
- /* Copy symbols. */
- coff_sym = coff_symbols;
- coff_str = coff_symstr;
- for (i = 0; i < syms_count; ++i)
- {
- const b_coff_external_symbol *asym = &syms[i];
- b_coff_internal_symbol isym;
- if (coff_expand_symbol (&isym, asym, sects_num, strtab, strtab_size))
- {
- /* Should not fail, as it was already tested in the previous
- loop. */
- abort ();
- }
- if (coff_is_function_symbol (&isym))
- {
- const char *name;
- int16_t secnum;
- if (asym->name.short_name[0] != 0)
- {
- size_t len = coff_short_name_len (isym.name);
- name = coff_str;
- memcpy (coff_str, isym.name, len);
- coff_str[len] = 0;
- coff_str += len + 1;
- }
- else
- name = isym.name;
- if (!is_64)
- {
- /* Strip leading '_'. */
- if (name[0] == '_')
- name++;
- }
- /* Symbol value is section relative, so we need to read the address
- of its section. */
- secnum = coff_read2 (asym->section_number);
- coff_sym->name = name;
- coff_sym->address = (coff_read4 (asym->value)
- + sects[secnum - 1].virtual_address
- + base_address);
- coff_sym++;
- }
- i += asym->number_of_aux_symbols;
- }
- /* End of symbols marker. */
- coff_sym->name = NULL;
- coff_sym->address = -1;
- backtrace_qsort (coff_symbols, coff_symbol_count,
- sizeof (struct coff_symbol), coff_symbol_compare);
- sdata->next = NULL;
- sdata->symbols = coff_symbols;
- sdata->count = coff_symbol_count;
- return 1;
- }
- /* Add EDATA to the list in STATE. */
- static void
- coff_add_syminfo_data (struct backtrace_state *state,
- struct coff_syminfo_data *sdata)
- {
- if (!state->threaded)
- {
- struct coff_syminfo_data **pp;
- for (pp = (struct coff_syminfo_data **) (void *) &state->syminfo_data;
- *pp != NULL;
- pp = &(*pp)->next)
- ;
- *pp = sdata;
- }
- else
- {
- while (1)
- {
- struct coff_syminfo_data **pp;
- pp = (struct coff_syminfo_data **) (void *) &state->syminfo_data;
- while (1)
- {
- struct coff_syminfo_data *p;
- p = backtrace_atomic_load_pointer (pp);
- if (p == NULL)
- break;
- pp = &p->next;
- }
- if (__sync_bool_compare_and_swap (pp, NULL, sdata))
- break;
- }
- }
- }
- /* Compare an ADDR against an elf_symbol for bsearch. We allocate one
- extra entry in the array so that this can look safely at the next
- entry. */
- static int
- coff_symbol_search (const void *vkey, const void *ventry)
- {
- const uintptr_t *key = (const uintptr_t *) vkey;
- const struct coff_symbol *entry = (const struct coff_symbol *) ventry;
- uintptr_t addr;
- addr = *key;
- if (addr < entry->address)
- return -1;
- else if (addr >= entry[1].address)
- return 1;
- else
- return 0;
- }
- /* Return the symbol name and value for an ADDR. */
- static void
- coff_syminfo (struct backtrace_state *state, uintptr_t addr,
- backtrace_syminfo_callback callback,
- backtrace_error_callback error_callback ATTRIBUTE_UNUSED,
- void *data)
- {
- struct coff_syminfo_data *sdata;
- struct coff_symbol *sym = NULL;
- if (!state->threaded)
- {
- for (sdata = (struct coff_syminfo_data *) state->syminfo_data;
- sdata != NULL;
- sdata = sdata->next)
- {
- sym = ((struct coff_symbol *)
- bsearch (&addr, sdata->symbols, sdata->count,
- sizeof (struct coff_symbol), coff_symbol_search));
- if (sym != NULL)
- break;
- }
- }
- else
- {
- struct coff_syminfo_data **pp;
- pp = (struct coff_syminfo_data **) (void *) &state->syminfo_data;
- while (1)
- {
- sdata = backtrace_atomic_load_pointer (pp);
- if (sdata == NULL)
- break;
- sym = ((struct coff_symbol *)
- bsearch (&addr, sdata->symbols, sdata->count,
- sizeof (struct coff_symbol), coff_symbol_search));
- if (sym != NULL)
- break;
- pp = &sdata->next;
- }
- }
- if (sym == NULL)
- callback (data, addr, NULL, 0, 0);
- else
- callback (data, addr, sym->name, sym->address, 0);
- }
- /* Add the backtrace data for one PE/COFF file. Returns 1 on success,
- 0 on failure (in both cases descriptor is closed). */
- static int
- coff_add (struct backtrace_state *state, int descriptor,
- backtrace_error_callback error_callback, void *data,
- fileline *fileline_fn, int *found_sym, int *found_dwarf)
- {
- struct backtrace_view fhdr_view;
- off_t fhdr_off;
- int magic_ok;
- b_coff_file_header fhdr;
- off_t opt_sects_off;
- size_t opt_sects_size;
- unsigned int sects_num;
- struct backtrace_view sects_view;
- int sects_view_valid;
- const b_coff_optional_header *opt_hdr;
- const b_coff_section_header *sects;
- struct backtrace_view str_view;
- int str_view_valid;
- size_t str_size;
- off_t str_off;
- struct backtrace_view syms_view;
- off_t syms_off;
- size_t syms_size;
- int syms_view_valid;
- unsigned int syms_num;
- unsigned int i;
- struct debug_section_info sections[DEBUG_MAX];
- off_t min_offset;
- off_t max_offset;
- struct backtrace_view debug_view;
- int debug_view_valid;
- int is_64;
- uintptr_t image_base;
- struct dwarf_sections dwarf_sections;
- *found_sym = 0;
- *found_dwarf = 0;
- sects_view_valid = 0;
- syms_view_valid = 0;
- str_view_valid = 0;
- debug_view_valid = 0;
- /* Map the MS-DOS stub (if any) and extract file header offset. */
- if (!backtrace_get_view (state, descriptor, 0, 0x40, error_callback,
- data, &fhdr_view))
- goto fail;
- {
- const unsigned char *vptr = fhdr_view.data;
- if (vptr[0] == 'M' && vptr[1] == 'Z')
- fhdr_off = coff_read4 (vptr + 0x3c);
- else
- fhdr_off = 0;
- }
- backtrace_release_view (state, &fhdr_view, error_callback, data);
- /* Map the coff file header. */
- if (!backtrace_get_view (state, descriptor, fhdr_off,
- sizeof (b_coff_file_header) + 4,
- error_callback, data, &fhdr_view))
- goto fail;
- if (fhdr_off != 0)
- {
- const char *magic = (const char *) fhdr_view.data;
- magic_ok = memcmp (magic, "PE\0", 4) == 0;
- fhdr_off += 4;
- memcpy (&fhdr, fhdr_view.data + 4, sizeof fhdr);
- }
- else
- {
- memcpy (&fhdr, fhdr_view.data, sizeof fhdr);
- /* TODO: test fhdr.machine for coff but non-PE platforms. */
- magic_ok = 0;
- }
- backtrace_release_view (state, &fhdr_view, error_callback, data);
- if (!magic_ok)
- {
- error_callback (data, "executable file is not COFF", 0);
- goto fail;
- }
- sects_num = fhdr.number_of_sections;
- syms_num = fhdr.number_of_symbols;
- opt_sects_off = fhdr_off + sizeof (fhdr);
- opt_sects_size = (fhdr.size_of_optional_header
- + sects_num * sizeof (b_coff_section_header));
- /* To translate PC to file/line when using DWARF, we need to find
- the .debug_info and .debug_line sections. */
- /* Read the optional header and the section headers. */
- if (!backtrace_get_view (state, descriptor, opt_sects_off, opt_sects_size,
- error_callback, data, §s_view))
- goto fail;
- sects_view_valid = 1;
- opt_hdr = (const b_coff_optional_header *) sects_view.data;
- sects = (const b_coff_section_header *)
- (sects_view.data + fhdr.size_of_optional_header);
- is_64 = 0;
- if (fhdr.size_of_optional_header > sizeof (*opt_hdr))
- {
- if (opt_hdr->magic == PE_MAGIC)
- image_base = opt_hdr->u.pe.image_base;
- else if (opt_hdr->magic == PEP_MAGIC)
- {
- image_base = opt_hdr->u.pep.image_base;
- is_64 = 1;
- }
- else
- {
- error_callback (data, "bad magic in PE optional header", 0);
- goto fail;
- }
- }
- else
- image_base = 0;
- /* Read the symbol table and the string table. */
- if (fhdr.pointer_to_symbol_table == 0)
- {
- /* No symbol table, no string table. */
- str_off = 0;
- str_size = 0;
- syms_num = 0;
- syms_size = 0;
- }
- else
- {
- /* Symbol table is followed by the string table. The string table
- starts with its length (on 4 bytes).
- Map the symbol table and the length of the string table. */
- syms_off = fhdr.pointer_to_symbol_table;
- syms_size = syms_num * SYM_SZ;
- if (!backtrace_get_view (state, descriptor, syms_off, syms_size + 4,
- error_callback, data, &syms_view))
- goto fail;
- syms_view_valid = 1;
- str_size = coff_read4 (syms_view.data + syms_size);
- str_off = syms_off + syms_size;
- if (str_size > 4)
- {
- /* Map string table (including the length word). */
- if (!backtrace_get_view (state, descriptor, str_off, str_size,
- error_callback, data, &str_view))
- goto fail;
- str_view_valid = 1;
- }
- }
- memset (sections, 0, sizeof sections);
- /* Look for the symbol table. */
- for (i = 0; i < sects_num; ++i)
- {
- const b_coff_section_header *s = sects + i;
- unsigned int str_off;
- int j;
- if (s->name[0] == '/')
- {
- /* Extended section name. */
- str_off = atoi (s->name + 1);
- }
- else
- str_off = 0;
- for (j = 0; j < (int) DEBUG_MAX; ++j)
- {
- const char *dbg_name = debug_section_names[j];
- int match;
- if (str_off != 0)
- match = coff_long_name_eq (dbg_name, str_off, &str_view);
- else
- match = coff_short_name_eq (dbg_name, s->name);
- if (match)
- {
- sections[j].offset = s->pointer_to_raw_data;
- sections[j].size = s->virtual_size <= s->size_of_raw_data ?
- s->virtual_size : s->size_of_raw_data;
- break;
- }
- }
- }
- if (syms_num != 0)
- {
- struct coff_syminfo_data *sdata;
- sdata = ((struct coff_syminfo_data *)
- backtrace_alloc (state, sizeof *sdata, error_callback, data));
- if (sdata == NULL)
- goto fail;
- if (!coff_initialize_syminfo (state, image_base, is_64,
- sects, sects_num,
- syms_view.data, syms_size,
- str_view.data, str_size,
- error_callback, data, sdata))
- {
- backtrace_free (state, sdata, sizeof *sdata, error_callback, data);
- goto fail;
- }
- *found_sym = 1;
- coff_add_syminfo_data (state, sdata);
- }
- backtrace_release_view (state, §s_view, error_callback, data);
- sects_view_valid = 0;
- if (syms_view_valid)
- {
- backtrace_release_view (state, &syms_view, error_callback, data);
- syms_view_valid = 0;
- }
- /* Read all the debug sections in a single view, since they are
- probably adjacent in the file. We never release this view. */
- min_offset = 0;
- max_offset = 0;
- for (i = 0; i < (int) DEBUG_MAX; ++i)
- {
- off_t end;
- if (sections[i].size == 0)
- continue;
- if (min_offset == 0 || sections[i].offset < min_offset)
- min_offset = sections[i].offset;
- end = sections[i].offset + sections[i].size;
- if (end > max_offset)
- max_offset = end;
- }
- if (min_offset == 0 || max_offset == 0)
- {
- if (!backtrace_close (descriptor, error_callback, data))
- goto fail;
- *fileline_fn = coff_nodebug;
- return 1;
- }
- if (!backtrace_get_view (state, descriptor, min_offset,
- max_offset - min_offset,
- error_callback, data, &debug_view))
- goto fail;
- debug_view_valid = 1;
- /* We've read all we need from the executable. */
- if (!backtrace_close (descriptor, error_callback, data))
- goto fail;
- descriptor = -1;
- for (i = 0; i < (int) DEBUG_MAX; ++i)
- {
- size_t size = sections[i].size;
- dwarf_sections.size[i] = size;
- if (size == 0)
- dwarf_sections.data[i] = NULL;
- else
- dwarf_sections.data[i] = ((const unsigned char *) debug_view.data
- + (sections[i].offset - min_offset));
- }
- if (!backtrace_dwarf_add (state, /* base_address */ 0, &dwarf_sections,
- 0, /* FIXME: is_bigendian */
- NULL, /* altlink */
- error_callback, data, fileline_fn,
- NULL /* returned fileline_entry */))
- goto fail;
- *found_dwarf = 1;
- return 1;
- fail:
- if (sects_view_valid)
- backtrace_release_view (state, §s_view, error_callback, data);
- if (str_view_valid)
- backtrace_release_view (state, &str_view, error_callback, data);
- if (syms_view_valid)
- backtrace_release_view (state, &syms_view, error_callback, data);
- if (debug_view_valid)
- backtrace_release_view (state, &debug_view, error_callback, data);
- if (descriptor != -1)
- backtrace_close (descriptor, error_callback, data);
- return 0;
- }
- /* Initialize the backtrace data we need from an ELF executable. At
- the ELF level, all we need to do is find the debug info
- sections. */
- int
- backtrace_initialize (struct backtrace_state *state,
- const char *filename ATTRIBUTE_UNUSED, int descriptor,
- backtrace_error_callback error_callback,
- void *data, fileline *fileline_fn)
- {
- int ret;
- int found_sym;
- int found_dwarf;
- fileline coff_fileline_fn;
- ret = coff_add (state, descriptor, error_callback, data,
- &coff_fileline_fn, &found_sym, &found_dwarf);
- if (!ret)
- return 0;
- if (!state->threaded)
- {
- if (found_sym)
- state->syminfo_fn = coff_syminfo;
- else if (state->syminfo_fn == NULL)
- state->syminfo_fn = coff_nosyms;
- }
- else
- {
- if (found_sym)
- backtrace_atomic_store_pointer (&state->syminfo_fn, coff_syminfo);
- else
- (void) __sync_bool_compare_and_swap (&state->syminfo_fn, NULL,
- coff_nosyms);
- }
- if (!state->threaded)
- {
- if (state->fileline_fn == NULL || state->fileline_fn == coff_nodebug)
- *fileline_fn = coff_fileline_fn;
- }
- else
- {
- fileline current_fn;
- current_fn = backtrace_atomic_load_pointer (&state->fileline_fn);
- if (current_fn == NULL || current_fn == coff_nodebug)
- *fileline_fn = coff_fileline_fn;
- }
- return 1;
- }
|