mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-09-01 04:29:57 +00:00
9d26b0ba06
To fetch a subprogram name we should not only inspect the DIE for this subprogram, but optionally inspect its specification, or its abstract origin (even if there is no inlining), or even specification of an abstract origin. Reviewed by Benjamin Kramer. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@160365 91177308-0d34-0410-b5e6-96231b3b80d8
494 lines
16 KiB
C++
494 lines
16 KiB
C++
//===-- DWARFDebugInfoEntry.cpp --------------------------------------------===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file is distributed under the University of Illinois Open Source
|
|
// License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "DWARFDebugInfoEntry.h"
|
|
#include "DWARFCompileUnit.h"
|
|
#include "DWARFContext.h"
|
|
#include "DWARFDebugAbbrev.h"
|
|
#include "DWARFFormValue.h"
|
|
#include "llvm/Support/Dwarf.h"
|
|
#include "llvm/Support/Format.h"
|
|
#include "llvm/Support/raw_ostream.h"
|
|
using namespace llvm;
|
|
using namespace dwarf;
|
|
|
|
void DWARFDebugInfoEntryMinimal::dump(raw_ostream &OS,
|
|
const DWARFCompileUnit *cu,
|
|
unsigned recurseDepth,
|
|
unsigned indent) const {
|
|
DataExtractor debug_info_data = cu->getDebugInfoExtractor();
|
|
uint32_t offset = Offset;
|
|
|
|
if (debug_info_data.isValidOffset(offset)) {
|
|
uint32_t abbrCode = debug_info_data.getULEB128(&offset);
|
|
|
|
OS << format("\n0x%8.8x: ", Offset);
|
|
if (abbrCode) {
|
|
if (AbbrevDecl) {
|
|
const char *tagString = TagString(getTag());
|
|
if (tagString)
|
|
OS.indent(indent) << tagString;
|
|
else
|
|
OS.indent(indent) << format("DW_TAG_Unknown_%x", getTag());
|
|
OS << format(" [%u] %c\n", abbrCode,
|
|
AbbrevDecl->hasChildren() ? '*' : ' ');
|
|
|
|
// Dump all data in the .debug_info for the attributes
|
|
const uint32_t numAttributes = AbbrevDecl->getNumAttributes();
|
|
for (uint32_t i = 0; i != numAttributes; ++i) {
|
|
uint16_t attr = AbbrevDecl->getAttrByIndex(i);
|
|
uint16_t form = AbbrevDecl->getFormByIndex(i);
|
|
dumpAttribute(OS, cu, &offset, attr, form, indent);
|
|
}
|
|
|
|
const DWARFDebugInfoEntryMinimal *child = getFirstChild();
|
|
if (recurseDepth > 0 && child) {
|
|
while (child) {
|
|
child->dump(OS, cu, recurseDepth-1, indent+2);
|
|
child = child->getSibling();
|
|
}
|
|
}
|
|
} else {
|
|
OS << "Abbreviation code not found in 'debug_abbrev' class for code: "
|
|
<< abbrCode << '\n';
|
|
}
|
|
} else {
|
|
OS.indent(indent) << "NULL\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
void DWARFDebugInfoEntryMinimal::dumpAttribute(raw_ostream &OS,
|
|
const DWARFCompileUnit *cu,
|
|
uint32_t* offset_ptr,
|
|
uint16_t attr,
|
|
uint16_t form,
|
|
unsigned indent) const {
|
|
OS << format("0x%8.8x: ", *offset_ptr);
|
|
OS.indent(indent+2);
|
|
const char *attrString = AttributeString(attr);
|
|
if (attrString)
|
|
OS << attrString;
|
|
else
|
|
OS << format("DW_AT_Unknown_%x", attr);
|
|
const char *formString = FormEncodingString(form);
|
|
if (formString)
|
|
OS << " [" << formString << ']';
|
|
else
|
|
OS << format(" [DW_FORM_Unknown_%x]", form);
|
|
|
|
DWARFFormValue formValue(form);
|
|
|
|
if (!formValue.extractValue(cu->getDebugInfoExtractor(), offset_ptr, cu))
|
|
return;
|
|
|
|
OS << "\t(";
|
|
formValue.dump(OS, cu);
|
|
OS << ")\n";
|
|
}
|
|
|
|
bool DWARFDebugInfoEntryMinimal::extractFast(const DWARFCompileUnit *cu,
|
|
const uint8_t *fixed_form_sizes,
|
|
uint32_t *offset_ptr) {
|
|
Offset = *offset_ptr;
|
|
|
|
DataExtractor debug_info_data = cu->getDebugInfoExtractor();
|
|
uint64_t abbrCode = debug_info_data.getULEB128(offset_ptr);
|
|
|
|
assert (fixed_form_sizes); // For best performance this should be specified!
|
|
|
|
if (abbrCode) {
|
|
uint32_t offset = *offset_ptr;
|
|
|
|
AbbrevDecl = cu->getAbbreviations()->getAbbreviationDeclaration(abbrCode);
|
|
|
|
// Skip all data in the .debug_info for the attributes
|
|
const uint32_t numAttributes = AbbrevDecl->getNumAttributes();
|
|
uint32_t i;
|
|
uint16_t form;
|
|
for (i=0; i<numAttributes; ++i) {
|
|
form = AbbrevDecl->getFormByIndex(i);
|
|
|
|
const uint8_t fixed_skip_size = fixed_form_sizes[form];
|
|
if (fixed_skip_size)
|
|
offset += fixed_skip_size;
|
|
else {
|
|
bool form_is_indirect = false;
|
|
do {
|
|
form_is_indirect = false;
|
|
uint32_t form_size = 0;
|
|
switch (form) {
|
|
// Blocks if inlined data that have a length field and the data bytes
|
|
// inlined in the .debug_info.
|
|
case DW_FORM_block:
|
|
form_size = debug_info_data.getULEB128(&offset);
|
|
break;
|
|
case DW_FORM_block1:
|
|
form_size = debug_info_data.getU8(&offset);
|
|
break;
|
|
case DW_FORM_block2:
|
|
form_size = debug_info_data.getU16(&offset);
|
|
break;
|
|
case DW_FORM_block4:
|
|
form_size = debug_info_data.getU32(&offset);
|
|
break;
|
|
|
|
// Inlined NULL terminated C-strings
|
|
case DW_FORM_string:
|
|
debug_info_data.getCStr(&offset);
|
|
break;
|
|
|
|
// Compile unit address sized values
|
|
case DW_FORM_addr:
|
|
case DW_FORM_ref_addr:
|
|
form_size = cu->getAddressByteSize();
|
|
break;
|
|
|
|
// 1 byte values
|
|
case DW_FORM_data1:
|
|
case DW_FORM_flag:
|
|
case DW_FORM_ref1:
|
|
form_size = 1;
|
|
break;
|
|
|
|
// 2 byte values
|
|
case DW_FORM_data2:
|
|
case DW_FORM_ref2:
|
|
form_size = 2;
|
|
break;
|
|
|
|
// 4 byte values
|
|
case DW_FORM_strp:
|
|
case DW_FORM_data4:
|
|
case DW_FORM_ref4:
|
|
form_size = 4;
|
|
break;
|
|
|
|
// 8 byte values
|
|
case DW_FORM_data8:
|
|
case DW_FORM_ref8:
|
|
form_size = 8;
|
|
break;
|
|
|
|
// signed or unsigned LEB 128 values
|
|
case DW_FORM_sdata:
|
|
case DW_FORM_udata:
|
|
case DW_FORM_ref_udata:
|
|
debug_info_data.getULEB128(&offset);
|
|
break;
|
|
|
|
case DW_FORM_indirect:
|
|
form_is_indirect = true;
|
|
form = debug_info_data.getULEB128(&offset);
|
|
break;
|
|
|
|
default:
|
|
*offset_ptr = Offset;
|
|
return false;
|
|
}
|
|
offset += form_size;
|
|
|
|
} while (form_is_indirect);
|
|
}
|
|
}
|
|
*offset_ptr = offset;
|
|
return true;
|
|
} else {
|
|
AbbrevDecl = NULL;
|
|
return true; // NULL debug tag entry
|
|
}
|
|
}
|
|
|
|
bool
|
|
DWARFDebugInfoEntryMinimal::extract(const DWARFCompileUnit *cu,
|
|
uint32_t *offset_ptr) {
|
|
DataExtractor debug_info_data = cu->getDebugInfoExtractor();
|
|
const uint32_t cu_end_offset = cu->getNextCompileUnitOffset();
|
|
const uint8_t cu_addr_size = cu->getAddressByteSize();
|
|
uint32_t offset = *offset_ptr;
|
|
if ((offset < cu_end_offset) && debug_info_data.isValidOffset(offset)) {
|
|
Offset = offset;
|
|
|
|
uint64_t abbrCode = debug_info_data.getULEB128(&offset);
|
|
|
|
if (abbrCode) {
|
|
AbbrevDecl = cu->getAbbreviations()->getAbbreviationDeclaration(abbrCode);
|
|
|
|
if (AbbrevDecl) {
|
|
uint16_t tag = AbbrevDecl->getTag();
|
|
|
|
bool isCompileUnitTag = tag == DW_TAG_compile_unit;
|
|
if(cu && isCompileUnitTag)
|
|
const_cast<DWARFCompileUnit*>(cu)->setBaseAddress(0);
|
|
|
|
// Skip all data in the .debug_info for the attributes
|
|
const uint32_t numAttributes = AbbrevDecl->getNumAttributes();
|
|
for (uint32_t i = 0; i != numAttributes; ++i) {
|
|
uint16_t attr = AbbrevDecl->getAttrByIndex(i);
|
|
uint16_t form = AbbrevDecl->getFormByIndex(i);
|
|
|
|
if (isCompileUnitTag &&
|
|
((attr == DW_AT_entry_pc) || (attr == DW_AT_low_pc))) {
|
|
DWARFFormValue form_value(form);
|
|
if (form_value.extractValue(debug_info_data, &offset, cu)) {
|
|
if (attr == DW_AT_low_pc || attr == DW_AT_entry_pc)
|
|
const_cast<DWARFCompileUnit*>(cu)
|
|
->setBaseAddress(form_value.getUnsigned());
|
|
}
|
|
} else {
|
|
bool form_is_indirect = false;
|
|
do {
|
|
form_is_indirect = false;
|
|
register uint32_t form_size = 0;
|
|
switch (form) {
|
|
// Blocks if inlined data that have a length field and the data
|
|
// bytes // inlined in the .debug_info
|
|
case DW_FORM_block:
|
|
form_size = debug_info_data.getULEB128(&offset);
|
|
break;
|
|
case DW_FORM_block1:
|
|
form_size = debug_info_data.getU8(&offset);
|
|
break;
|
|
case DW_FORM_block2:
|
|
form_size = debug_info_data.getU16(&offset);
|
|
break;
|
|
case DW_FORM_block4:
|
|
form_size = debug_info_data.getU32(&offset);
|
|
break;
|
|
|
|
// Inlined NULL terminated C-strings
|
|
case DW_FORM_string:
|
|
debug_info_data.getCStr(&offset);
|
|
break;
|
|
|
|
// Compile unit address sized values
|
|
case DW_FORM_addr:
|
|
case DW_FORM_ref_addr:
|
|
form_size = cu_addr_size;
|
|
break;
|
|
|
|
// 1 byte values
|
|
case DW_FORM_data1:
|
|
case DW_FORM_flag:
|
|
case DW_FORM_ref1:
|
|
form_size = 1;
|
|
break;
|
|
|
|
// 2 byte values
|
|
case DW_FORM_data2:
|
|
case DW_FORM_ref2:
|
|
form_size = 2;
|
|
break;
|
|
|
|
// 4 byte values
|
|
case DW_FORM_strp:
|
|
form_size = 4;
|
|
break;
|
|
|
|
case DW_FORM_data4:
|
|
case DW_FORM_ref4:
|
|
form_size = 4;
|
|
break;
|
|
|
|
// 8 byte values
|
|
case DW_FORM_data8:
|
|
case DW_FORM_ref8:
|
|
form_size = 8;
|
|
break;
|
|
|
|
// signed or unsigned LEB 128 values
|
|
case DW_FORM_sdata:
|
|
case DW_FORM_udata:
|
|
case DW_FORM_ref_udata:
|
|
debug_info_data.getULEB128(&offset);
|
|
break;
|
|
|
|
case DW_FORM_indirect:
|
|
form = debug_info_data.getULEB128(&offset);
|
|
form_is_indirect = true;
|
|
break;
|
|
|
|
default:
|
|
*offset_ptr = offset;
|
|
return false;
|
|
}
|
|
|
|
offset += form_size;
|
|
} while (form_is_indirect);
|
|
}
|
|
}
|
|
*offset_ptr = offset;
|
|
return true;
|
|
}
|
|
} else {
|
|
AbbrevDecl = NULL;
|
|
*offset_ptr = offset;
|
|
return true; // NULL debug tag entry
|
|
}
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
uint32_t
|
|
DWARFDebugInfoEntryMinimal::getAttributeValue(const DWARFCompileUnit *cu,
|
|
const uint16_t attr,
|
|
DWARFFormValue &form_value,
|
|
uint32_t *end_attr_offset_ptr)
|
|
const {
|
|
if (AbbrevDecl) {
|
|
uint32_t attr_idx = AbbrevDecl->findAttributeIndex(attr);
|
|
|
|
if (attr_idx != -1U) {
|
|
uint32_t offset = getOffset();
|
|
|
|
DataExtractor debug_info_data = cu->getDebugInfoExtractor();
|
|
|
|
// Skip the abbreviation code so we are at the data for the attributes
|
|
debug_info_data.getULEB128(&offset);
|
|
|
|
uint32_t idx = 0;
|
|
while (idx < attr_idx)
|
|
DWARFFormValue::skipValue(AbbrevDecl->getFormByIndex(idx++),
|
|
debug_info_data, &offset, cu);
|
|
|
|
const uint32_t attr_offset = offset;
|
|
form_value = DWARFFormValue(AbbrevDecl->getFormByIndex(idx));
|
|
if (form_value.extractValue(debug_info_data, &offset, cu)) {
|
|
if (end_attr_offset_ptr)
|
|
*end_attr_offset_ptr = offset;
|
|
return attr_offset;
|
|
}
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
const char*
|
|
DWARFDebugInfoEntryMinimal::getAttributeValueAsString(
|
|
const DWARFCompileUnit* cu,
|
|
const uint16_t attr,
|
|
const char* fail_value) const {
|
|
DWARFFormValue form_value;
|
|
if (getAttributeValue(cu, attr, form_value)) {
|
|
DataExtractor stringExtractor(cu->getContext().getStringSection(),
|
|
false, 0);
|
|
return form_value.getAsCString(&stringExtractor);
|
|
}
|
|
return fail_value;
|
|
}
|
|
|
|
uint64_t
|
|
DWARFDebugInfoEntryMinimal::getAttributeValueAsUnsigned(
|
|
const DWARFCompileUnit* cu,
|
|
const uint16_t attr,
|
|
uint64_t fail_value) const {
|
|
DWARFFormValue form_value;
|
|
if (getAttributeValue(cu, attr, form_value))
|
|
return form_value.getUnsigned();
|
|
return fail_value;
|
|
}
|
|
|
|
int64_t
|
|
DWARFDebugInfoEntryMinimal::getAttributeValueAsSigned(
|
|
const DWARFCompileUnit* cu,
|
|
const uint16_t attr,
|
|
int64_t fail_value) const {
|
|
DWARFFormValue form_value;
|
|
if (getAttributeValue(cu, attr, form_value))
|
|
return form_value.getSigned();
|
|
return fail_value;
|
|
}
|
|
|
|
uint64_t
|
|
DWARFDebugInfoEntryMinimal::getAttributeValueAsReference(
|
|
const DWARFCompileUnit* cu,
|
|
const uint16_t attr,
|
|
uint64_t fail_value) const {
|
|
DWARFFormValue form_value;
|
|
if (getAttributeValue(cu, attr, form_value))
|
|
return form_value.getReference(cu);
|
|
return fail_value;
|
|
}
|
|
|
|
void
|
|
DWARFDebugInfoEntryMinimal::buildAddressRangeTable(const DWARFCompileUnit *cu,
|
|
DWARFDebugAranges *debug_aranges)
|
|
const {
|
|
if (AbbrevDecl) {
|
|
uint16_t tag = AbbrevDecl->getTag();
|
|
if (tag == DW_TAG_subprogram) {
|
|
uint64_t hi_pc = -1ULL;
|
|
uint64_t lo_pc = getAttributeValueAsUnsigned(cu, DW_AT_low_pc, -1ULL);
|
|
if (lo_pc != -1ULL)
|
|
hi_pc = getAttributeValueAsUnsigned(cu, DW_AT_high_pc, -1ULL);
|
|
if (hi_pc != -1ULL)
|
|
debug_aranges->appendRange(cu->getOffset(), lo_pc, hi_pc);
|
|
}
|
|
|
|
const DWARFDebugInfoEntryMinimal *child = getFirstChild();
|
|
while (child) {
|
|
child->buildAddressRangeTable(cu, debug_aranges);
|
|
child = child->getSibling();
|
|
}
|
|
}
|
|
}
|
|
|
|
bool
|
|
DWARFDebugInfoEntryMinimal::addressRangeContainsAddress(
|
|
const DWARFCompileUnit *cu, const uint64_t address) const {
|
|
if (!isNULL() && getTag() == DW_TAG_subprogram) {
|
|
uint64_t hi_pc = -1ULL;
|
|
uint64_t lo_pc = getAttributeValueAsUnsigned(cu, DW_AT_low_pc, -1ULL);
|
|
if (lo_pc != -1ULL)
|
|
hi_pc = getAttributeValueAsUnsigned(cu, DW_AT_high_pc, -1ULL);
|
|
if (hi_pc != -1ULL) {
|
|
return (lo_pc <= address && address < hi_pc);
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
const char*
|
|
DWARFDebugInfoEntryMinimal::getSubprogramName(
|
|
const DWARFCompileUnit *cu) const {
|
|
if (isNULL() || getTag() != DW_TAG_subprogram)
|
|
return 0;
|
|
// Try to get mangled name if possible.
|
|
if (const char *name =
|
|
getAttributeValueAsString(cu, DW_AT_MIPS_linkage_name, 0))
|
|
return name;
|
|
if (const char *name = getAttributeValueAsString(cu, DW_AT_linkage_name, 0))
|
|
return name;
|
|
if (const char *name = getAttributeValueAsString(cu, DW_AT_name, 0))
|
|
return name;
|
|
// Try to get name from specification DIE.
|
|
uint32_t spec_ref =
|
|
getAttributeValueAsReference(cu, DW_AT_specification, -1U);
|
|
if (spec_ref != -1U) {
|
|
DWARFDebugInfoEntryMinimal spec_die;
|
|
if (spec_die.extract(cu, &spec_ref)) {
|
|
if (const char *name = spec_die.getSubprogramName(cu))
|
|
return name;
|
|
}
|
|
}
|
|
// Try to get name from abstract origin DIE.
|
|
uint32_t abs_origin_ref =
|
|
getAttributeValueAsReference(cu, DW_AT_abstract_origin, -1U);
|
|
if (abs_origin_ref != -1U) {
|
|
DWARFDebugInfoEntryMinimal abs_origin_die;
|
|
if (abs_origin_die.extract(cu, &abs_origin_ref)) {
|
|
if (const char *name = abs_origin_die.getSubprogramName(cu))
|
|
return name;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|