reactos/wine
1
0
Fork 0
mirror of https://github.com/reactos/wine.git synced 2024-11-29 22:50:43 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
ec8328d1b1
wine/dlls/dbghelp/dwarf.c
Eric Pouech ec8328d1b1 dbghelp: Dwarf & new scheme. 
- add some helpers for the rewrite
- module is now part of the dwarf2_parse_context
2006-06-20 11:42:45 +02:00

1892 lines
54 KiB
C
Raw Blame History

/*
* File dwarf.c - read dwarf2 information from the ELF modules
*
* Copyright (C) 2005, Raphael Junqueira
* Copyright (C) 2006, Eric Pouech
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include "config.h"
#include <sys/types.h>
#include <fcntl.h>
#ifdef HAVE_SYS_STAT_H
# include <sys/stat.h>
#endif
#ifdef HAVE_SYS_MMAN_H
#include <sys/mman.h>
#endif
#include <limits.h>
#include <stdlib.h>
#include <string.h>
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#include <stdio.h>
#ifndef PATH_MAX
#define PATH_MAX MAX_PATH
#endif
#include <assert.h>
#include <stdarg.h>
#include "windef.h"
#include "winbase.h"
#include "winreg.h"
#include "winnls.h"
#include "dbghelp_private.h"
#include "wine/debug.h"
WINE_DEFAULT_DEBUG_CHANNEL(dbghelp_dwarf);
#if 0
static void dump(const void* ptr, unsigned len)
{
int i, j;
BYTE msg[128];
static const char hexof[] = "0123456789abcdef";
const BYTE* x = (const BYTE*)ptr;
for (i = 0; i < len; i += 16)
{
sprintf(msg, "%08x: ", i);
memset(msg + 10, ' ', 3 * 16 + 1 + 16);
for (j = 0; j < min(16, len - i); j++)
{
msg[10 + 3 * j + 0] = hexof[x[i + j] >> 4];
msg[10 + 3 * j + 1] = hexof[x[i + j] & 15];
msg[10 + 3 * j + 2] = ' ';
msg[10 + 3 * 16 + 1 + j] = (x[i + j] >= 0x20 && x[i + j] < 0x7f) ?
x[i + j] : '.';
}
msg[10 + 3 * 16] = ' ';
msg[10 + 3 * 16 + 1 + 16] = '\0';
TRACE("%s\n", msg);
}
}
#endif
/**
*
* Main Specs:
* http://www.eagercon.com/dwarf/dwarf3std.htm
* http://www.eagercon.com/dwarf/dwarf-2.0.0.pdf
*
* dwarf2.h: http://www.hakpetzna.com/b/binutils/dwarf2_8h-source.html
*
* example of projects who do dwarf2 parsing:
* http://www.x86-64.org/cgi-bin/cvsweb.cgi/binutils.dead/binutils/readelf.c?rev=1.1.1.2
* http://elis.ugent.be/diota/log/ltrace_elf.c
*/
#include "dwarf.h"
/**
* Parsers
*/
typedef struct dwarf2_abbrev_entry_attr_s {
unsigned long attribute;
unsigned long form;
struct dwarf2_abbrev_entry_attr_s* next;
} dwarf2_abbrev_entry_attr_t;
typedef struct dwarf2_abbrev_entry_s
{
unsigned long entry_code;
unsigned long tag;
unsigned char have_child;
unsigned num_attr;
dwarf2_abbrev_entry_attr_t* attrs;
} dwarf2_abbrev_entry_t;
union attribute
{
unsigned long uvalue;
long svalue;
const char* string;
};
typedef struct dwarf2_debug_info_s
{
unsigned long offset;
const dwarf2_abbrev_entry_t*abbrev;
struct symt* symt;
union attribute* attributes;
struct vector children;
} dwarf2_debug_info_t;
typedef struct dwarf2_parse_context_s {
struct pool pool;
struct module* module;
struct sparse_array abbrev_table;
struct sparse_array debug_info_table;
const unsigned char* data_stream;
const unsigned char* data;
const unsigned char* start_data;
const unsigned char* end_data;
const unsigned char* str_section;
unsigned long offset;
unsigned char word_size;
} dwarf2_parse_context_t;
/* forward declarations */
static struct symt_enum* dwarf2_parse_enumeration_type(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry);
static unsigned char dwarf2_parse_byte(dwarf2_parse_context_t* ctx)
{
unsigned char uvalue = *(const unsigned char*) ctx->data;
ctx->data += 1;
return uvalue;
}
static unsigned short dwarf2_parse_u2(dwarf2_parse_context_t* ctx)
{
unsigned short uvalue = *(const unsigned short*) ctx->data;
ctx->data += 2;
return uvalue;
}
static unsigned long dwarf2_parse_u4(dwarf2_parse_context_t* ctx)
{
unsigned long uvalue = *(const unsigned int*) ctx->data;
ctx->data += 4;
return uvalue;
}
static unsigned long dwarf2_leb128_as_unsigned(dwarf2_parse_context_t* ctx)
{
unsigned long ret = 0;
unsigned char byte;
unsigned shift = 0;
assert( NULL != ctx );
while (1) {
byte = dwarf2_parse_byte(ctx);
ret |= (byte & 0x7f) << shift;
shift += 7;
if (0 == (byte & 0x80)) { break ; }
}
return ret;
}
static long dwarf2_leb128_as_signed(dwarf2_parse_context_t* ctx)
{
long ret = 0;
unsigned char byte;
unsigned shift = 0;
const unsigned size = sizeof(int) * 8;
assert( NULL != ctx );
while (1) {
byte = dwarf2_parse_byte(ctx);
ret |= (byte & 0x7f) << shift;
shift += 7;
if (0 == (byte & 0x80)) { break ; }
}
/* as spec: sign bit of byte is 2nd high order bit (80x40)
* -> 0x80 is used as flag.
*/
if ((shift < size) && (byte & 0x40)) {
ret |= - (1 << shift);
}
return ret;
}
static unsigned long dwarf2_parse_addr(dwarf2_parse_context_t* ctx)
{
unsigned long ret;
switch (ctx->word_size)
{
case 4:
ret = dwarf2_parse_u4(ctx);
break;
default:
FIXME("Unsupported Word Size %u\n", ctx->word_size);
ret = 0;
}
return ret;
}
static const char* dwarf2_debug_ctx(dwarf2_parse_context_t* ctx)
{
/*return wine_dbg_sprintf("ctx(0x%x,%u)", ctx->data - ctx->start_data, ctx->level); */
return wine_dbg_sprintf("ctx(0x%x)", ctx->data - ctx->data_stream);
}
static const char* dwarf2_debug_attr(dwarf2_abbrev_entry_attr_t* attr)
{
return wine_dbg_sprintf("attr(attr:0x%lx,form:0x%lx)", attr->attribute, attr->form);
}
static void dwarf2_check_sibling(dwarf2_parse_context_t* ctx, unsigned long next_sibling)
{
if (0 < next_sibling && ctx->data != ctx->data_stream + next_sibling) {
if ((ctx->data + 1) != ctx->data_stream + next_sibling) {
/** padding check */
WARN("cursor error for %s should be sibling<0x%lx>\n", dwarf2_debug_ctx(ctx), next_sibling);
}
ctx->data = ctx->data_stream + next_sibling;
}
}
static dwarf2_abbrev_entry_t*
dwarf2_abbrev_table_find_entry(struct sparse_array* abbrev_table,
unsigned long entry_code)
{
assert( NULL != abbrev_table );
return sparse_array_find(abbrev_table, entry_code);
}
static void dwarf2_parse_abbrev_set(dwarf2_parse_context_t* abbrev_ctx,
struct sparse_array* abbrev_table,
struct pool* pool)
{
unsigned long entry_code;
dwarf2_abbrev_entry_t* abbrev_entry;
dwarf2_abbrev_entry_attr_t* new = NULL;
dwarf2_abbrev_entry_attr_t* last = NULL;
unsigned long attribute;
unsigned long form;
TRACE("%s, end at %p\n", dwarf2_debug_ctx(abbrev_ctx), abbrev_ctx->end_data);
assert( NULL != abbrev_ctx );
sparse_array_init(abbrev_table, sizeof(dwarf2_abbrev_entry_t), 32);
while (abbrev_ctx->data < abbrev_ctx->end_data)
{
TRACE("now at %s\n", dwarf2_debug_ctx(abbrev_ctx));
entry_code = dwarf2_leb128_as_unsigned(abbrev_ctx);
TRACE("found entry_code %lu\n", entry_code);
if (!entry_code)
{
TRACE("NULL entry code at %s\n", dwarf2_debug_ctx(abbrev_ctx));
break;
}
abbrev_entry = sparse_array_add(abbrev_table, entry_code, pool);
assert( NULL != abbrev_entry );
abbrev_entry->entry_code = entry_code;
abbrev_entry->tag = dwarf2_leb128_as_unsigned(abbrev_ctx);
abbrev_entry->have_child = dwarf2_parse_byte(abbrev_ctx);
abbrev_entry->attrs = NULL;
abbrev_entry->num_attr = 0;
TRACE("table:(%p,#%u) entry_code(%lu) tag(0x%lx) have_child(%u) -> %p\n",
abbrev_table, sparse_array_length(abbrev_table),
entry_code, abbrev_entry->tag, abbrev_entry->have_child, abbrev_entry);
last = NULL;
while (1)
{
attribute = dwarf2_leb128_as_unsigned(abbrev_ctx);
form = dwarf2_leb128_as_unsigned(abbrev_ctx);
if (!attribute) break;
new = pool_alloc(pool, sizeof(dwarf2_abbrev_entry_attr_t));
assert(new);
new->attribute = attribute;
new->form = form;
new->next = NULL;
if (abbrev_entry->attrs) last->next = new;
else abbrev_entry->attrs = new;
last = new;
abbrev_entry->num_attr++;
}
}
TRACE("found %u entries\n", sparse_array_length(abbrev_table));
}
static const char* dwarf2_parse_attr_as_string(dwarf2_abbrev_entry_attr_t* attr,
dwarf2_parse_context_t* ctx)
{
const char* ret = NULL;
switch (attr->form) {
case DW_FORM_string:
ret = (const char*) ctx->data;
ctx->data += strlen(ret) + 1;
break;
case DW_FORM_strp:
{
unsigned long offset = dwarf2_parse_u4(ctx);
ret = (const char*) ctx->str_section + offset;
/*FIXME("Unsupported indirect string format offset 0x%lx (in .debug_str)\n", offset);*/
}
break;
default:
ERR("Unsupported string format 0x%lx for attr 0x%lx\n", attr->form, attr->attribute);
}
return ret;
}
static unsigned long dwarf2_parse_attr_as_addr(dwarf2_abbrev_entry_attr_t* attr,
dwarf2_parse_context_t* ctx)
{
unsigned long offset = 0;
switch (ctx->word_size) {
case 4:
offset = *(const unsigned int*) ctx->data;
break;
case 8:
default:
FIXME("Unsupported Word Size %u\n", ctx->word_size);
}
ctx->data += ctx->word_size;
return offset;
}
static unsigned long dwarf2_parse_attr_as_ref(dwarf2_abbrev_entry_attr_t* attr,
dwarf2_parse_context_t* ctx)
{
unsigned long uvalue = 0;
switch (attr->form) {
case DW_FORM_ref1:
uvalue = ctx->offset + dwarf2_parse_byte(ctx);
TRACE("ref1<0x%lx>\n", uvalue);
break;
case DW_FORM_ref2:
uvalue = ctx->offset + dwarf2_parse_u2(ctx);
TRACE("ref2<0x%lx>\n", uvalue);
break;
case DW_FORM_ref4:
uvalue = ctx->offset + dwarf2_parse_u4(ctx);
TRACE("ref4<0x%lx>\n", uvalue);
break;
case DW_FORM_ref8:
/* FIXME: 64bits support */
/*
uvalue = ctx->offset + dwarf2_parse_u8(ctx);
TRACE("ref8<0x%lx>\n", uvalue);
*/
ctx->data += 8;
break;
}
return uvalue;
}
static unsigned long dwarf2_parse_attr_as_data(dwarf2_abbrev_entry_attr_t* attr,
dwarf2_parse_context_t* ctx)
{
unsigned long uvalue = 0;
switch (attr->form) {
case DW_FORM_data1:
uvalue = dwarf2_parse_byte(ctx);
TRACE("data1<%lu>\n", uvalue);
break;
case DW_FORM_data2:
uvalue = dwarf2_parse_u2(ctx);
TRACE("data2<%lu>\n", uvalue);
break;
case DW_FORM_data4:
uvalue = dwarf2_parse_u4(ctx);
TRACE("data4<%lu>\n", uvalue);
break;
case DW_FORM_data8:
FIXME("Unsupported 64bits support\n");
ctx->data += 8;
break;
}
return uvalue;
}
static void dwarf2_parse_attr(dwarf2_abbrev_entry_attr_t* attr,
dwarf2_parse_context_t* ctx)
{
const unsigned long attribute = attr->attribute;
const unsigned long form = attr->form;
unsigned long uvalue = 0;
long svalue = 0;
const char* str = NULL;
TRACE("(attr:0x%lx,form:0x%lx)\n", attribute, form);
switch (form) {
case DW_FORM_ref_addr:
case DW_FORM_addr:
uvalue = dwarf2_parse_attr_as_addr(attr, ctx);
break;
case DW_FORM_flag:
uvalue = dwarf2_parse_byte(ctx);
TRACE("flag<0x%lx>\n", uvalue);
break;
case DW_FORM_data1:
uvalue = dwarf2_parse_byte(ctx);
TRACE("data1<%lu>\n", uvalue);
break;
case DW_FORM_data2:
uvalue = dwarf2_parse_u2(ctx);
TRACE("data2<%lu>\n", uvalue);
break;
case DW_FORM_data4:
uvalue = dwarf2_parse_u4(ctx);
TRACE("data4<%lu>\n", uvalue);
break;
case DW_FORM_ref1:
case DW_FORM_ref2:
case DW_FORM_ref4:
case DW_FORM_ref8:
uvalue = dwarf2_parse_attr_as_ref(attr, ctx);
/*TRACE("ref<0x%lx>\n", ctx->offset + uvalue);*/
break;
case DW_FORM_data8:
FIXME("Unsupported 64bits support\n");
ctx->data += 8;
break;
case DW_FORM_sdata:
svalue = dwarf2_leb128_as_signed(ctx);
break;
case DW_FORM_ref_udata:
case DW_FORM_udata:
uvalue = dwarf2_leb128_as_unsigned(ctx);
break;
case DW_FORM_string:
case DW_FORM_strp:
str = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("string<%s>\n", str);
break;
case DW_FORM_block:
uvalue = dwarf2_leb128_as_unsigned(ctx);
ctx->data += uvalue;
break;
case DW_FORM_block1:
uvalue = dwarf2_parse_byte(ctx);
ctx->data += uvalue;
break;
case DW_FORM_block2:
uvalue = dwarf2_parse_u2(ctx);
ctx->data += uvalue;
break;
case DW_FORM_block4:
uvalue = dwarf2_parse_u4(ctx);
ctx->data += uvalue;
break;
default:
break;
}
}
static void dwarf2_parse_attr_into_di(dwarf2_parse_context_t* ctx,
const dwarf2_abbrev_entry_attr_t* abbrev_attr,
union attribute* attr)
{
TRACE("(attr:0x%lx,form:0x%lx)\n", abbrev_attr->attribute, abbrev_attr->form);
switch (abbrev_attr->form) {
case DW_FORM_ref_addr:
case DW_FORM_addr:
attr->uvalue = dwarf2_parse_addr(ctx);
TRACE("addr<0x%lx>\n", attr->uvalue);
break;
case DW_FORM_flag:
attr->uvalue = dwarf2_parse_byte(ctx);
TRACE("flag<0x%lx>\n", attr->uvalue);
break;
case DW_FORM_data1:
attr->uvalue = dwarf2_parse_byte(ctx);
TRACE("data1<%lu>\n", attr->uvalue);
break;
case DW_FORM_data2:
attr->uvalue = dwarf2_parse_u2(ctx);
TRACE("data2<%lu>\n", attr->uvalue);
break;
case DW_FORM_data4:
attr->uvalue = dwarf2_parse_u4(ctx);
TRACE("data4<%lu>\n", attr->uvalue);
break;
case DW_FORM_data8:
FIXME("Unhandled 64bits support\n");
ctx->data += 8;
break;
case DW_FORM_ref1:
attr->uvalue = ctx->offset + dwarf2_parse_byte(ctx);
TRACE("ref1<0x%lx>\n", attr->uvalue);
break;
case DW_FORM_ref2:
attr->uvalue = ctx->offset + dwarf2_parse_u2(ctx);
TRACE("ref2<0x%lx>\n", attr->uvalue);
break;
case DW_FORM_ref4:
attr->uvalue = ctx->offset + dwarf2_parse_u4(ctx);
TRACE("ref4<0x%lx>\n", attr->uvalue);
break;
case DW_FORM_ref8:
FIXME("Unhandled 64 bit support\n");
ctx->data += 8;
break;
case DW_FORM_sdata:
attr->svalue = dwarf2_leb128_as_signed(ctx);
break;
case DW_FORM_ref_udata:
attr->uvalue = dwarf2_leb128_as_unsigned(ctx);
break;
case DW_FORM_udata:
attr->uvalue = dwarf2_leb128_as_unsigned(ctx);
break;
case DW_FORM_string:
attr->string = (const char*)ctx->data;
ctx->data += strlen(attr->string) + 1;
TRACE("string<%s>\n", attr->string);
break;
case DW_FORM_strp:
{
unsigned long offset = dwarf2_parse_u4(ctx);
attr->string = (const char*)ctx->str_section + offset;
}
TRACE("strp<%s>\n", attr->string);
break;
case DW_FORM_block:
attr->uvalue = dwarf2_leb128_as_unsigned(ctx);
ctx->data += attr->uvalue;
break;
case DW_FORM_block1:
attr->uvalue = dwarf2_parse_byte(ctx);
ctx->data += attr->uvalue;
break;
case DW_FORM_block2:
attr->uvalue = dwarf2_parse_u2(ctx);
ctx->data += attr->uvalue;
break;
case DW_FORM_block4:
attr->uvalue = dwarf2_parse_u4(ctx);
ctx->data += attr->uvalue;
break;
default:
FIXME("Unhandled attribute form %lx\n", abbrev_attr->form);
break;
}
}
static BOOL dwarf2_find_attribute(const dwarf2_debug_info_t* di,
unsigned at, union attribute* attr)
{
unsigned i;
dwarf2_abbrev_entry_attr_t* abbrev_attr;
for (i = 0, abbrev_attr = di->abbrev->attrs; abbrev_attr; i++, abbrev_attr = abbrev_attr->next)
{
if (abbrev_attr->attribute == at)
{
*attr = di->attributes[i];
return TRUE;
}
}
return FALSE;
}
static void dwarf2_find_name(dwarf2_parse_context_t* ctx,
const dwarf2_debug_info_t* di,
union attribute* attr, const char* pfx)
{
static int index;
if (!dwarf2_find_attribute(di, DW_AT_name, attr))
{
char* tmp = pool_alloc(&ctx->pool, strlen(pfx) + 16);
if (tmp) sprintf(tmp, "%s_%d", pfx, index++);
attr->string = tmp;
}
}
static struct symt* dwarf2_find_symt_by_ref(struct module* module, unsigned long ref)
{
WARN("want ref<0x%lx>\n", ref);
return NULL;
}
/******************************************************************
* dwarf2_read_one_debug_info
*
* Loads into memory one debug info entry, and recursively its children (if any)
*/
static BOOL dwarf2_read_one_debug_info(dwarf2_parse_context_t* ctx,
dwarf2_debug_info_t** pdi)
{
const dwarf2_abbrev_entry_t*abbrev;
unsigned long entry_code;
unsigned long offset;
dwarf2_debug_info_t* di;
dwarf2_debug_info_t* child;
dwarf2_debug_info_t** where;
dwarf2_abbrev_entry_attr_t* attr;
unsigned i;
offset = ctx->data - ctx->data_stream;
entry_code = dwarf2_leb128_as_unsigned(ctx);
TRACE("found entry_code %lu at 0x%lx\n", entry_code, offset);
if (!entry_code)
{
*pdi = NULL;
return TRUE;
}
abbrev = dwarf2_abbrev_table_find_entry(&ctx->abbrev_table, entry_code);
if (!abbrev)
{
WARN("Cannot find abbrev entry for %lu at 0x%lx\n", entry_code, offset);
return FALSE;
}
di = sparse_array_add(&ctx->debug_info_table, offset, &ctx->pool);
if (!di) return FALSE;
di->offset = offset;
di->abbrev = abbrev;
di->symt = NULL;
if (abbrev->num_attr)
{
di->attributes = pool_alloc(&ctx->pool,
abbrev->num_attr * sizeof(union attribute));
for (i = 0, attr = abbrev->attrs; attr; i++, attr = attr->next)
{
dwarf2_parse_attr_into_di(ctx, attr, &di->attributes[i]);
}
}
else di->attributes = NULL;
if (abbrev->have_child)
{
vector_init(&di->children, sizeof(dwarf2_debug_info_t*), 16);
while (ctx->data < ctx->end_data)
{
if (!dwarf2_read_one_debug_info(ctx, &child)) return FALSE;
if (!child) break;
where = vector_add(&di->children, &ctx->pool);
if (!where) return FALSE;
*where = child;
}
}
*pdi = di;
return TRUE;
}
static struct symt_basic* dwarf2_parse_base_type(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry)
{
struct symt_basic* symt = NULL;
const char* name = NULL;
unsigned size = 0;
unsigned encoding = 0;
enum BasicType bt;
dwarf2_abbrev_entry_attr_t* attr = NULL;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_byte_size:
size = dwarf2_parse_attr_as_data(attr, ctx);
break;
case DW_AT_encoding:
encoding = dwarf2_parse_byte(ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
switch (encoding) {
case DW_ATE_void: bt = btVoid; break;
case DW_ATE_address: bt = btULong; break;
case DW_ATE_boolean: bt = btBool; break;
case DW_ATE_complex_float: bt = btComplex; break;
case DW_ATE_float: bt = btFloat; break;
case DW_ATE_signed: bt = btInt; break;
case DW_ATE_unsigned: bt = btUInt; break;
case DW_ATE_signed_char: bt = btChar; break;
case DW_ATE_unsigned_char: bt = btChar; break;
default:
bt = btNoType;
}
/*TRACE("symt_new_basic(%p, %u, %s, %u)", module, bt, name, size);*/
symt = symt_new_basic(ctx->module, bt, name, size);
if (entry->have_child) {
FIXME("Unsupported children\n");
}
return symt;
}
static struct symt_typedef* dwarf2_parse_typedef(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry)
{
struct symt_typedef* symt = NULL;
struct symt* ref_type = NULL;
const char* name = NULL;
dwarf2_abbrev_entry_attr_t* attr = NULL;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
ref_type = dwarf2_find_symt_by_ref(ctx->module, ref);
}
break;
case DW_AT_decl_file:
case DW_AT_decl_line:
dwarf2_parse_attr(attr, ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
if (NULL != name) {
symt = symt_new_typedef(ctx->module, ref_type, name);
}
if (entry->have_child) {
FIXME("Unsupported children\n");
}
return symt;
}
static struct symt_pointer* dwarf2_parse_pointer_type(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry)
{
struct symt_pointer* symt = NULL;
struct symt* ref_type = NULL;
unsigned size = 0;
dwarf2_abbrev_entry_attr_t* attr = NULL;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_byte_size:
size = dwarf2_parse_attr_as_data(attr, ctx);
break;
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
ref_type = dwarf2_find_symt_by_ref(ctx->module, ref);
}
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
symt = symt_new_pointer(ctx->module, ref_type);
if (entry->have_child) {
FIXME("Unsupported children\n");
}
return symt;
}
static void dwarf2_parse_array_subrange_type(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry, struct symt_array* parent)
{
unsigned min = 0;
unsigned max = 0;
struct symt* idx_type = NULL;
dwarf2_abbrev_entry_attr_t* attr = NULL;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
idx_type = dwarf2_find_symt_by_ref(ctx->module, ref);
/** check if idx_type is a basic_type integer */
}
break;
case DW_AT_lower_bound:
TRACE("%s %s, lower_bound\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
min = dwarf2_parse_attr_as_data(attr, ctx);
break;
case DW_AT_upper_bound:
TRACE("%s %s, upper_bound\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
max = dwarf2_parse_attr_as_data(attr, ctx);
break;
case DW_AT_count:
TRACE("%s %s, count min:%u\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr), min);
max = min + dwarf2_parse_attr_as_data(attr, ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
parent->start = min;
parent->end = max;
parent->index_type = idx_type;
TRACE("found min:%u max:%u\n", min, max);
if (entry->have_child) {
FIXME("Unsupported children\n");
}
}
static struct symt_array* dwarf2_parse_array_type(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry)
{
struct symt_array* symt = NULL;
struct symt* ref_type = NULL;
unsigned min = 0;
unsigned max = 0;
dwarf2_abbrev_entry_attr_t* attr = NULL;
unsigned long next_sibling = 0;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
ref_type = dwarf2_find_symt_by_ref(ctx->module, ref);
}
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
/* FIXME: ugly as hell */
symt = symt_new_array(ctx->module, min, max, ref_type, NULL);
if (entry->have_child) { /** any interest to not have child ? */
while (ctx->data < ctx->end_data) {
dwarf2_abbrev_entry_t* entry = NULL;
unsigned long entry_code;
unsigned long entry_ref = 0;
entry_ref = ctx->data - ctx->data_stream;
entry_code = dwarf2_leb128_as_unsigned(ctx);
TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
if (0 == entry_code) {
break ;
}
entry = dwarf2_abbrev_table_find_entry(&ctx->abbrev_table, entry_code);
assert( NULL != entry );
switch (entry->tag) {
case DW_TAG_subrange_type:
dwarf2_parse_array_subrange_type(ctx, entry, symt);
break;
default:
{
dwarf2_abbrev_entry_attr_t* attr;
WARN("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
dwarf2_parse_attr(attr, ctx);
}
}
break;
}
}
}
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
return symt;
}
static struct symt* dwarf2_parse_const_type(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry)
{
struct symt* ref_type = NULL;
dwarf2_abbrev_entry_attr_t* attr = NULL;
unsigned long next_sibling = 0;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
ref_type = dwarf2_find_symt_by_ref(ctx->module, ref);
}
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
if (entry->have_child) {
FIXME("Unsupported children\n");
}
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
return ref_type;
}
static struct symt* dwarf2_parse_reference_type(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry)
{
struct symt* symt = NULL;
struct symt* ref_type = NULL;
dwarf2_abbrev_entry_attr_t* attr = NULL;
unsigned long next_sibling = 0;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
ref_type = dwarf2_find_symt_by_ref(ctx->module, ref);
}
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
/* FIXME: for now, we hard-wire C++ references to pointers */
symt = &symt_new_pointer(ctx->module, ref_type)->symt;
if (entry->have_child) {
FIXME("Unsupported children\n");
}
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
return symt;
}
static void dwarf2_parse_udt_member(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry, struct symt_udt* parent)
{
struct symt* elt_type = NULL;
const char* name = NULL;
unsigned long offset = 0;
unsigned size = 0;
dwarf2_abbrev_entry_attr_t* attr = NULL;
unsigned long next_sibling = 0;
assert( NULL != parent );
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
elt_type = dwarf2_find_symt_by_ref(ctx->module, ref);
}
break;
case DW_AT_data_member_location:
{
unsigned long uvalue = 0;
TRACE("found member_location at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
/*offset = dwarf2_parse_attr_as_data(attr, ctx);*/
switch (attr->form) {
case DW_FORM_block:
uvalue = dwarf2_leb128_as_unsigned(ctx);
break;
case DW_FORM_block1:
uvalue = dwarf2_parse_byte(ctx);
break;
case DW_FORM_block2:
uvalue = dwarf2_parse_u2(ctx);
break;
case DW_FORM_block4:
uvalue = dwarf2_parse_u4(ctx);
break;
default:
WARN("Unhandled attr form at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
if (uvalue) {
unsigned char op = dwarf2_parse_byte(ctx);
--uvalue;
switch (op) {
case DW_OP_plus_uconst:
offset = dwarf2_leb128_as_unsigned(ctx);
break;
default:
WARN("Unhandled attr op at %s, for %s, op:%u\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr), op);
ctx->data += uvalue;
}
TRACE("found offset:%lu\n", offset);
}
}
break;
case DW_AT_decl_file:
case DW_AT_decl_line:
dwarf2_parse_attr(attr, ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
symt_add_udt_element(ctx->module, parent, name, elt_type, offset, size);
if (entry->have_child) {
FIXME("Unsupported children\n");
}
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
}
static void dwarf2_parse_udt_members(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry, struct symt_udt* symt)
{
if (entry->have_child) { /** any interest to not have child ? */
while (ctx->data < ctx->end_data) {
dwarf2_abbrev_entry_t* entry = NULL;
unsigned long entry_code;
unsigned long entry_ref = 0;
entry_ref = ctx->data - ctx->data_stream;
entry_code = dwarf2_leb128_as_unsigned(ctx);
TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
if (0 == entry_code) {
break ;
}
entry = dwarf2_abbrev_table_find_entry(&ctx->abbrev_table, entry_code);
assert( NULL != entry );
switch (entry->tag) {
case DW_TAG_member:
dwarf2_parse_udt_member(ctx, entry, symt);
break;
case DW_TAG_enumeration_type:
dwarf2_parse_enumeration_type(ctx, entry);
break;
default:
{
dwarf2_abbrev_entry_attr_t* attr;
WARN("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
dwarf2_parse_attr(attr, ctx);
}
}
break;
}
}
}
}
static struct symt_udt* dwarf2_parse_udt_type(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry, enum UdtKind udt)
{
struct symt_udt* symt = NULL;
const char* name = NULL;
unsigned size = 0;
dwarf2_abbrev_entry_attr_t* attr = NULL;
unsigned long next_sibling = 0;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_byte_size:
size = dwarf2_parse_attr_as_data(attr, ctx);
break;
case DW_AT_decl_file:
case DW_AT_decl_line:
dwarf2_parse_attr(attr, ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
symt = symt_new_udt(ctx->module, name, size, udt);
dwarf2_parse_udt_members(ctx, entry, symt);
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
return symt;
}
static void dwarf2_parse_enumerator(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry, struct symt_enum* parent)
{
const char* name = NULL;
long value = 0;
dwarf2_abbrev_entry_attr_t* attr = NULL;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_const_value:
switch (attr->form) {
case DW_FORM_sdata:
value = dwarf2_leb128_as_signed(ctx);
TRACE("found value %ld\n", value);
break;
case DW_FORM_udata:
value = dwarf2_leb128_as_unsigned(ctx);
TRACE("found value %ld\n", value);
break;
default:
WARN("Unhandled attr form at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
symt_add_enum_element(ctx->module, parent, name, value);
if (entry->have_child) {
FIXME("Unsupported children\n");
}
}
static struct symt_enum* dwarf2_parse_enumeration_type(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry)
{
struct symt_enum* symt = NULL;
const char* name = NULL;
unsigned long size = 0;
dwarf2_abbrev_entry_attr_t* attr = NULL;
unsigned long next_sibling = 0;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_byte_size:
size = dwarf2_parse_attr_as_data(attr, ctx);
break;
case DW_AT_decl_file:
case DW_AT_decl_line:
dwarf2_parse_attr(attr, ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
symt = symt_new_enum(ctx->module, name);
if (entry->have_child) { /** any interest to not have child ? */
while (ctx->data < ctx->end_data) {
dwarf2_abbrev_entry_t* entry = NULL;
unsigned long entry_code;
unsigned long entry_ref = 0;
entry_ref = ctx->data - ctx->data_stream;
entry_code = dwarf2_leb128_as_unsigned(ctx);
TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
if (0 == entry_code) {
break ;
}
entry = dwarf2_abbrev_table_find_entry(&ctx->abbrev_table, entry_code);
assert( NULL != entry );
switch (entry->tag) {
case DW_TAG_enumerator:
dwarf2_parse_enumerator(ctx, entry, symt);
break;
default:
{
dwarf2_abbrev_entry_attr_t* attr;
WARN("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
dwarf2_parse_attr(attr, ctx);
}
}
break;
}
}
}
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
return symt;
}
static void dwarf2_parse_variable(dwarf2_parse_context_t* ctx,
dwarf2_abbrev_entry_t* entry)
{
struct symt* var_type = NULL;
dwarf2_abbrev_entry_attr_t* attr = NULL;
const char* name = NULL;
unsigned long next_sibling = 0;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
var_type = dwarf2_find_symt_by_ref(ctx->module, ref);
}
break;
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_decl_file:
case DW_AT_decl_line:
dwarf2_parse_attr(attr, ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
if (entry->have_child) {
FIXME("Unsupported children\n");
}
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
}
static void dwarf2_parse_subprogram_parameter(dwarf2_parse_context_t* ctx,
dwarf2_abbrev_entry_t* entry,
struct symt_function_signature* sig_type,
struct symt_function* func_type)
{
struct symt* param_type = NULL;
const char* name = NULL;
dwarf2_abbrev_entry_attr_t* attr = NULL;
unsigned long next_sibling = 0;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
param_type = dwarf2_find_symt_by_ref(ctx->module, ref);
}
break;
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_decl_file:
case DW_AT_decl_line:
dwarf2_parse_attr(attr, ctx);
break;
case DW_AT_location:
dwarf2_parse_attr(attr, ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
if (NULL != sig_type) {
symt_add_function_signature_parameter(ctx->module, sig_type, param_type);
}
if (entry->have_child) {
FIXME("Unsupported children\n");
}
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
}
static void dwarf2_parse_inlined_subroutine(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry)
{
const char* name = NULL;
unsigned long addr = 0;
unsigned long low_pc = 0;
unsigned long high_pc = 0;
unsigned size = 0;
dwarf2_abbrev_entry_attr_t* attr = NULL;
unsigned long next_sibling = 0;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_low_pc:
low_pc = dwarf2_parse_attr_as_addr(attr, ctx);
addr = ctx->module->module.BaseOfImage + low_pc;
break;
case DW_AT_high_pc:
high_pc = dwarf2_parse_attr_as_addr(attr, ctx);
size = high_pc - low_pc;
break;
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_decl_file:
case DW_AT_decl_line:
dwarf2_parse_attr(attr, ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
if (entry->have_child) { /** any interest to not have child ? */
while (ctx->data < ctx->end_data) {
dwarf2_abbrev_entry_t* entry = NULL;
unsigned long entry_code;
unsigned long entry_ref = 0;
entry_ref = ctx->data - ctx->data_stream;
entry_code = dwarf2_leb128_as_unsigned(ctx);
TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
if (0 == entry_code) {
break ;
}
entry = dwarf2_abbrev_table_find_entry(&ctx->abbrev_table, entry_code);
assert( NULL != entry );
switch (entry->tag) {
case DW_TAG_formal_parameter:
dwarf2_parse_subprogram_parameter(ctx, entry, NULL, NULL);
break;
case DW_TAG_variable:
dwarf2_parse_variable(ctx, entry);
break;
case DW_TAG_label:
default:
{
dwarf2_abbrev_entry_attr_t* attr;
WARN("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
dwarf2_parse_attr(attr, ctx);
}
}
break;
}
}
}
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
}
static void dwarf2_parse_subprogram_block(dwarf2_parse_context_t* ctx,
dwarf2_abbrev_entry_t* entry,
struct symt_function_signature* sig_type,
struct symt_function* func_type)
{
dwarf2_abbrev_entry_attr_t* attr = NULL;
const char* name = NULL;
unsigned long next_sibling = 0;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_decl_file:
case DW_AT_decl_line:
dwarf2_parse_attr(attr, ctx);
break;
case DW_AT_ranges: /** what to do ? */
dwarf2_parse_attr(attr, ctx);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
if (entry->have_child) { /** any interest to not have child ? */
while (ctx->data < ctx->end_data) {
dwarf2_abbrev_entry_t* entry = NULL;
unsigned long entry_code;
unsigned long entry_ref = 0;
entry_ref = ctx->data - ctx->data_stream;
entry_code = dwarf2_leb128_as_unsigned(ctx);
TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
if (0 == entry_code) {
break ;
}
entry = dwarf2_abbrev_table_find_entry(&ctx->abbrev_table, entry_code);
assert( NULL != entry );
switch (entry->tag) {
case DW_TAG_inlined_subroutine:
dwarf2_parse_inlined_subroutine(ctx, entry);
break;
case DW_TAG_variable:
dwarf2_parse_variable(ctx, entry);
break;
case DW_TAG_label:
default:
{
dwarf2_abbrev_entry_attr_t* attr;
WARN("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
dwarf2_parse_attr(attr, ctx);
}
}
break;
}
}
}
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
}
static void dwarf2_parse_subprogram_content(dwarf2_parse_context_t* ctx,
dwarf2_abbrev_entry_t* entry,
struct symt_function_signature* sig_type,
struct symt_function* func_type)
{
if (entry->have_child) { /** any interest to not have child ? */
while (ctx->data < ctx->end_data) {
dwarf2_abbrev_entry_t* entry = NULL;
unsigned long entry_code;
unsigned long entry_ref = 0;
entry_ref = ctx->data - ctx->data_stream;
entry_code = dwarf2_leb128_as_unsigned(ctx);
TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
if (0 == entry_code) {
break ;
}
entry = dwarf2_abbrev_table_find_entry(&ctx->abbrev_table, entry_code);
assert( NULL != entry );
switch (entry->tag) {
case DW_TAG_formal_parameter:
dwarf2_parse_subprogram_parameter(ctx, entry, sig_type, func_type);
break;
case DW_TAG_lexical_block:
dwarf2_parse_subprogram_block(ctx, entry, sig_type, func_type);
break;
case DW_TAG_variable:
dwarf2_parse_variable(ctx, entry);
break;
case DW_TAG_label:
default:
{
dwarf2_abbrev_entry_attr_t* attr;
WARN("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
dwarf2_parse_attr(attr, ctx);
}
}
break;
}
}
}
}
static struct symt_function* dwarf2_parse_subprogram(dwarf2_parse_context_t* ctx, dwarf2_abbrev_entry_t* entry, struct symt_compiland* compiland)
{
struct symt_function* func_type = NULL;
const char* name = NULL;
struct symt* ret_type = NULL;
struct symt_function_signature* sig_type = NULL;
unsigned long addr = 0;
unsigned long low_pc = 0;
unsigned long high_pc = 0;
unsigned size = 0;
unsigned char is_decl = 0;
unsigned char inl_flags = 0;
unsigned char decl_file = 0;
unsigned char decl_line = 0;
dwarf2_abbrev_entry_attr_t* attr = NULL;
unsigned long next_sibling = 0;
enum CV_call_e call_conv = CV_CALL_FAR_C; /* FIXME: assuming C source code */
unsigned cc;
TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_low_pc:
low_pc = dwarf2_parse_attr_as_addr(attr, ctx);
addr = ctx->module->module.BaseOfImage + low_pc;
break;
case DW_AT_high_pc:
high_pc = dwarf2_parse_attr_as_addr(attr, ctx);
size = high_pc - low_pc;
break;
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
case DW_AT_type:
{
unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
ret_type = dwarf2_find_symt_by_ref(ctx->module, ref);
}
break;
case DW_AT_declaration:
is_decl = dwarf2_parse_byte(ctx);
break;
case DW_AT_inline:
inl_flags = dwarf2_parse_byte(ctx);
break;
case DW_AT_calling_convention:
switch (cc = dwarf2_parse_byte(ctx))
{
case DW_CC_normal: break;
case DW_CC_nocall: call_conv = -1;
default: FIXME("Unsupported calling convention %d\n", cc);
}
break;
/* not work yet, need parsing .debug_line and using Compil Unit stmt_list
case DW_AT_decl_file:
decl_file = dwarf2_parse_byte(ctx);
break;
case DW_AT_decl_line:
decl_line = dwarf2_parse_byte(ctx);
break;
*/
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
sig_type = symt_new_function_signature(ctx->module, ret_type, call_conv);
if (!is_decl) {
func_type = symt_new_function(ctx->module, compiland, name, addr, size, &sig_type->symt);
if (low_pc && high_pc) {
symt_add_function_point(ctx->module, func_type, SymTagFuncDebugStart, low_pc, NULL);
symt_add_function_point(ctx->module, func_type, SymTagFuncDebugEnd, high_pc, NULL);
}
if (decl_file && decl_line) {
symt_add_func_line(ctx->module, func_type, decl_file, decl_line, low_pc);
}
}
dwarf2_parse_subprogram_content(ctx, entry, sig_type, func_type);
symt_normalize_function(ctx->module, func_type);
/** set correct data cursor */
dwarf2_check_sibling(ctx, next_sibling);
return func_type;
}
static void dwarf2_parse_compiland_content(dwarf2_parse_context_t* ctx, const dwarf2_abbrev_entry_t* entry, struct symt_compiland* compiland)
{
if (entry->have_child) { /** any interest to not have child ? */
while (ctx->data < ctx->end_data) {
dwarf2_abbrev_entry_t* entry = NULL;
unsigned long entry_code;
unsigned long entry_ref = 0;
entry_ref = ctx->data - ctx->data_stream;
entry_code = dwarf2_leb128_as_unsigned(ctx);
TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
if (0 == entry_code) {
break ;
}
entry = dwarf2_abbrev_table_find_entry(&ctx->abbrev_table, entry_code);
assert( NULL != entry );
switch (entry->tag) {
case DW_TAG_typedef:
dwarf2_parse_typedef(ctx, entry);
break;
case DW_TAG_base_type:
dwarf2_parse_base_type(ctx, entry);
break;
case DW_TAG_pointer_type:
dwarf2_parse_pointer_type(ctx, entry);
break;
case DW_TAG_class_type:
dwarf2_parse_udt_type(ctx, entry, UdtClass);
break;
case DW_TAG_structure_type:
dwarf2_parse_udt_type(ctx, entry, UdtStruct);
break;
case DW_TAG_union_type:
dwarf2_parse_udt_type(ctx, entry, UdtUnion);
break;
case DW_TAG_array_type:
dwarf2_parse_array_type(ctx, entry);
break;
case DW_TAG_const_type:
dwarf2_parse_const_type(ctx, entry);
break;
case DW_TAG_reference_type:
dwarf2_parse_reference_type(ctx, entry);
break;
case DW_TAG_enumeration_type:
dwarf2_parse_enumeration_type(ctx, entry);
break;
case DW_TAG_subprogram:
dwarf2_parse_subprogram(ctx, entry, compiland);
break;
default:
{
dwarf2_abbrev_entry_attr_t* attr;
WARN("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
dwarf2_parse_attr(attr, ctx);
}
}
break;
}
}
}
}
static struct symt_compiland* dwarf2_parse_compiland(dwarf2_parse_context_t* ctx, const dwarf2_abbrev_entry_t* entry)
{
struct symt_compiland* compiland = NULL;
const char* name = NULL;
unsigned long next_sibling = 0;
dwarf2_abbrev_entry_attr_t* attr = NULL;
TRACE("beginning at Ox%x, for %lu\n", ctx->data - ctx->start_data, entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
switch (attr->attribute) {
case DW_AT_sibling:
next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
break;
case DW_AT_name:
name = dwarf2_parse_attr_as_string(attr, ctx);
TRACE("found name %s\n", name);
break;
default:
WARN("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
dwarf2_parse_attr(attr, ctx);
}
}
compiland = symt_new_compiland(ctx->module, name);
dwarf2_parse_compiland_content(ctx, entry, compiland);
dwarf2_check_sibling(ctx, next_sibling);
return compiland;
}
BOOL dwarf2_parse(struct module* module, unsigned long load_offset,
const unsigned char* debug, unsigned int debug_size,
const unsigned char* abbrev, unsigned int abbrev_size,
const unsigned char* str, unsigned int str_sz)
{
const unsigned char* comp_unit_cursor = debug;
const unsigned char* end_debug = debug + debug_size;
while (comp_unit_cursor < end_debug) {
const dwarf2_comp_unit_stream_t* comp_unit_stream;
dwarf2_comp_unit_t comp_unit;
dwarf2_parse_context_t ctx;
dwarf2_parse_context_t abbrev_ctx;
struct symt_compiland* compiland = NULL;
dwarf2_debug_info_t* di;
comp_unit_stream = (const dwarf2_comp_unit_stream_t*) comp_unit_cursor;
comp_unit.length = *(unsigned long*) comp_unit_stream->length;
comp_unit.version = *(unsigned short*) comp_unit_stream->version;
comp_unit.abbrev_offset = *(unsigned long*) comp_unit_stream->abbrev_offset;
comp_unit.word_size = *(unsigned char*) comp_unit_stream->word_size;
TRACE("Compilation Unit Herder found at 0x%x:\n", comp_unit_cursor - debug);
TRACE("- length: %lu\n", comp_unit.length);
TRACE("- version: %u\n", comp_unit.version);
TRACE("- abbrev_offset: %lu\n", comp_unit.abbrev_offset);
TRACE("- word_size: %u\n", comp_unit.word_size);
pool_init(&ctx.pool, 65536);
ctx.module = module;
ctx.data_stream = debug;
ctx.data = ctx.start_data = comp_unit_cursor + sizeof(dwarf2_comp_unit_stream_t);
ctx.offset = comp_unit_cursor - debug;
ctx.word_size = comp_unit.word_size;
ctx.str_section = str;
comp_unit_cursor += comp_unit.length + sizeof(unsigned);
ctx.end_data = comp_unit_cursor;
if (2 != comp_unit.version) {
WARN("%u DWARF version unsupported. Wine dbghelp only support DWARF 2.\n", comp_unit.version);
continue ;
}
abbrev_ctx.data_stream = abbrev;
abbrev_ctx.data = abbrev_ctx.start_data = abbrev + comp_unit.abbrev_offset;
abbrev_ctx.end_data = abbrev + abbrev_size;
abbrev_ctx.offset = comp_unit.abbrev_offset;
abbrev_ctx.str_section = str;
dwarf2_parse_abbrev_set(&abbrev_ctx, &ctx.abbrev_table, &ctx.pool);
sparse_array_init(&ctx.debug_info_table, sizeof(dwarf2_debug_info_t), 128);
dwarf2_read_one_debug_info(&ctx, &di);
ctx.data = ctx.start_data; /* FIXME */
while (ctx.data < ctx.end_data) {
const dwarf2_abbrev_entry_t* entry = NULL;
unsigned long entry_code;
unsigned long entry_ref = 0;
entry_ref = ctx.data - ctx.data_stream;
entry_code = dwarf2_leb128_as_unsigned(&ctx);
TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
if (0 == entry_code) {
continue ;
}
entry = dwarf2_abbrev_table_find_entry(&ctx.abbrev_table, entry_code);
if (NULL == entry) {
WARN("Cannot find abbrev entry for %lu at 0x%lx\n", entry_code, entry_ref);
pool_destroy(&ctx.pool);
return FALSE;
}
switch (entry->tag) {
case DW_TAG_compile_unit:
compiland = dwarf2_parse_compiland(&ctx, entry);
break;
default:
{
dwarf2_abbrev_entry_attr_t* attr;
WARN("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(&ctx), entry->entry_code);
for (attr = entry->attrs; NULL != attr; attr = attr->next) {
dwarf2_parse_attr(attr, &ctx);
}
}
break;
}
}
pool_destroy(&ctx.pool);
}
module->module.SymType = SymDia;
return TRUE;
}
Reference in New Issue View Git Blame Copy Permalink