marko10_000
/
wine-wine
forked from Mirrors/wine-wine
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dbghelp: dwarf: Started parsing the attributes for lines (in compilation unit). 

Walking the whole lot, not doing anything interesting apart from
traversing the data.
oldstable
Eric Pouech 2006-06-18 21:32:17 +02:00 committed by Alexandre Julliard
parent a655b14340
commit 52db5c094e
2 changed files with 161 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

146
dlls/dbghelp/dwarf.c
View File

@ -1380,6 +1380,147 @@ static void dwarf2_load_one_entry(dwarf2_parse_context_t* ctx,
}
}
static void dwarf2_parse_line_numbers(const dwarf2_section_t* sections,
dwarf2_parse_context_t* ctx,
unsigned long offset)
{
dwarf2_traverse_context_t traverse;
unsigned long length;
unsigned version, header_len, insn_size, default_stmt;
unsigned line_range, opcode_base;
int line_base;
const unsigned char* opcode_len;
traverse.sections = sections;
traverse.section = section_line;
traverse.data = sections[section_line].address + offset;
traverse.start_data = traverse.data;
traverse.end_data = traverse.data + 4;
traverse.offset = offset;
traverse.word_size = ctx->word_size;
length = dwarf2_parse_u4(&traverse);
traverse.end_data = traverse.start_data + length;
version = dwarf2_parse_u2(&traverse);
header_len = dwarf2_parse_u4(&traverse);
insn_size = dwarf2_parse_byte(&traverse);
default_stmt = dwarf2_parse_byte(&traverse);
line_base = (char)dwarf2_parse_byte(&traverse);
line_range = dwarf2_parse_byte(&traverse);
opcode_base = dwarf2_parse_byte(&traverse);
opcode_len = traverse.data;
traverse.data += opcode_base;
while (*traverse.data)
{
TRACE("Got include %s\n", (const char*)traverse.data);
traverse.data += strlen((const char *)traverse.data) + 1;
}
traverse.data++;
while (*traverse.data)
{
unsigned int dir_index, mod_time, length;
const char* name;
name = (const char*)traverse.data;
traverse.data += strlen(name) + 1;
dir_index = dwarf2_leb128_as_unsigned(&traverse);
mod_time = dwarf2_leb128_as_unsigned(&traverse);
length = dwarf2_leb128_as_unsigned(&traverse);
TRACE("Got file %s (%u,%u,%u)\n",
name, dir_index, mod_time, length);
}
traverse.data++;
while (traverse.data < traverse.end_data)
{
unsigned long address;
unsigned file = 1;
unsigned line = 1;
unsigned is_stmt = default_stmt;
BOOL basic_block = FALSE, end_sequence = FALSE;
unsigned opcode, extopcode, i;
while (!end_sequence)
{
opcode = dwarf2_parse_byte(&traverse);
TRACE("Got opcode %x\n", opcode);
if (opcode >= opcode_base)
{
unsigned delta = opcode - opcode_base;
address += (delta / line_range) * insn_size;
line += line_base + (delta % line_range);
basic_block = TRUE;
}
else
{
switch (opcode)
{
case DW_LNS_copy:
basic_block = FALSE;
break;
case DW_LNS_advance_pc:
address += insn_size * dwarf2_leb128_as_unsigned(&traverse);
break;
case DW_LNS_advance_line:
line += dwarf2_leb128_as_unsigned(&traverse);
break;
case DW_LNS_set_file:
file = dwarf2_leb128_as_signed(&traverse);
break;
case DW_LNS_set_column:
dwarf2_leb128_as_unsigned(&traverse);
break;
case DW_LNS_negate_stmt:
is_stmt = !is_stmt;
break;
case DW_LNS_set_basic_block:
basic_block = 1;
break;
case DW_LNS_const_add_pc:
address += ((255 - opcode_base) / line_range) * insn_size;
break;
case DW_LNS_fixed_advance_pc:
address += dwarf2_parse_u2(&traverse);
break;
case DW_LNS_extended_op:
dwarf2_leb128_as_unsigned(&traverse);
extopcode = dwarf2_parse_byte(&traverse);
switch (extopcode)
{
case DW_LNE_end_sequence:
end_sequence = TRUE;
break;
case DW_LNE_set_address:
address = dwarf2_parse_addr(&traverse);
address += ctx->module->module.BaseOfImage;
break;
case DW_LNE_define_file:
traverse.data += strlen((const char *)traverse.data) + 1;
dwarf2_leb128_as_unsigned(&traverse);
dwarf2_leb128_as_unsigned(&traverse);
dwarf2_leb128_as_unsigned(&traverse);
break;
default:
FIXME("Unsupported extended opcode %x\n", extopcode);
break;
}
break;
default:
WARN("Unsupported opcode %x\n", opcode);
for (i = 0; i < opcode_len[opcode]; i++)
dwarf2_leb128_as_unsigned(&traverse);
break;
}
}
}
}
}
static BOOL dwarf2_parse_compilation_unit(const dwarf2_section_t* sections,
const dwarf2_comp_unit_t* comp_unit,
struct module* module,
@ -1433,6 +1574,7 @@ static BOOL dwarf2_parse_compilation_unit(const dwarf2_section_t* sections,
{
union attribute name;
dwarf2_debug_info_t** pdi = NULL;
union attribute stmt_list;
TRACE("beginning at 0x%lx, for %lu\n", di->offset, di->abbrev->entry_code);
@ -1446,6 +1588,10 @@ static BOOL dwarf2_parse_compilation_unit(const dwarf2_section_t* sections,
dwarf2_load_one_entry(&ctx, *pdi, (struct symt_compiland*)di->symt);
}
}
if (dwarf2_find_attribute(di, DW_AT_stmt_list, &stmt_list))
{
dwarf2_parse_line_numbers(sections, &ctx, stmt_list.uvalue);
}
ret = TRUE;
}
else FIXME("Should have a compilation unit here\n");

15
dlls/dbghelp/dwarf.h
View File

@ -386,3 +386,18 @@ enum dwarf_calling_convention
#define DW_CC_lo_user 0x40
#define DW_CC_hi_user 0xff
#define DW_LNS_extended_op 0x00
#define DW_LNS_copy 0x01
#define DW_LNS_advance_pc 0x02
#define DW_LNS_advance_line 0x03
#define DW_LNS_set_file 0x04
#define DW_LNS_set_column 0x05
#define DW_LNS_negate_stmt 0x06
#define DW_LNS_set_basic_block 0x07
#define DW_LNS_const_add_pc 0x08
#define DW_LNS_fixed_advance_pc 0x09
#define DW_LNE_end_sequence 0x01
#define DW_LNE_set_address 0x02
#define DW_LNE_define_file 0x03