/* Copyright (C) 2007-2010 The Android Open Source Project
**
** This software is licensed under the terms of the GNU General Public
** License version 2, as published by the Free Software Foundation, and
** may be copied, distributed, and modified under those terms.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
** GNU General Public License for more details.
*/
/*
* Contains implementation of misc. DWARF utility routines.
*/
#include "stdio.h"
#include "dwarf_utils.h"
/* "Stringifies" the parameter. */
#define DWARF_NAMEFY(val) case val: return "" #val ""
/* "Stringifies" two parameters. */
#define DWARF_NAMEFY2(val1, val2) case val1: return "" #val1 " | " #val2 ""
const char*
dwarf_at_name(Dwarf_At at) {
switch (at) {
DWARF_NAMEFY(DW_AT_sibling);
DWARF_NAMEFY(DW_AT_location);
DWARF_NAMEFY(DW_AT_name);
DWARF_NAMEFY(DW_AT_ordering);
DWARF_NAMEFY(DW_AT_subscr_data);
DWARF_NAMEFY(DW_AT_byte_size);
DWARF_NAMEFY(DW_AT_bit_offset);
DWARF_NAMEFY(DW_AT_bit_size);
DWARF_NAMEFY(DW_AT_element_list);
DWARF_NAMEFY(DW_AT_stmt_list);
DWARF_NAMEFY(DW_AT_low_pc);
DWARF_NAMEFY(DW_AT_high_pc);
DWARF_NAMEFY(DW_AT_language);
DWARF_NAMEFY(DW_AT_member);
DWARF_NAMEFY(DW_AT_discr);
DWARF_NAMEFY(DW_AT_discr_value);
DWARF_NAMEFY(DW_AT_visibility);
DWARF_NAMEFY(DW_AT_import);
DWARF_NAMEFY(DW_AT_string_length);
DWARF_NAMEFY(DW_AT_common_reference);
DWARF_NAMEFY(DW_AT_comp_dir);
DWARF_NAMEFY(DW_AT_const_value);
DWARF_NAMEFY(DW_AT_containing_type);
DWARF_NAMEFY(DW_AT_default_value);
DWARF_NAMEFY(DW_AT_inline);
DWARF_NAMEFY(DW_AT_is_optional);
DWARF_NAMEFY(DW_AT_lower_bound);
DWARF_NAMEFY(DW_AT_producer);
DWARF_NAMEFY(DW_AT_prototyped);
DWARF_NAMEFY(DW_AT_return_addr);
DWARF_NAMEFY(DW_AT_start_scope);
DWARF_NAMEFY2(DW_AT_bit_stride, DW_AT_stride_size);
DWARF_NAMEFY(DW_AT_upper_bound);
DWARF_NAMEFY(DW_AT_abstract_origin);
DWARF_NAMEFY(DW_AT_accessibility);
DWARF_NAMEFY(DW_AT_address_class);
DWARF_NAMEFY(DW_AT_artificial);
DWARF_NAMEFY(DW_AT_base_types);
DWARF_NAMEFY(DW_AT_calling_convention);
DWARF_NAMEFY(DW_AT_count);
DWARF_NAMEFY(DW_AT_data_member_location);
DWARF_NAMEFY(DW_AT_decl_column);
DWARF_NAMEFY(DW_AT_decl_file);
DWARF_NAMEFY(DW_AT_decl_line);
DWARF_NAMEFY(DW_AT_declaration);
DWARF_NAMEFY(DW_AT_discr_list);
DWARF_NAMEFY(DW_AT_encoding);
DWARF_NAMEFY(DW_AT_external);
DWARF_NAMEFY(DW_AT_frame_base);
DWARF_NAMEFY(DW_AT_friend);
DWARF_NAMEFY(DW_AT_identifier_case);
DWARF_NAMEFY(DW_AT_macro_info);
DWARF_NAMEFY(DW_AT_namelist_item);
DWARF_NAMEFY(DW_AT_priority);
DWARF_NAMEFY(DW_AT_segment);
DWARF_NAMEFY(DW_AT_specification);
DWARF_NAMEFY(DW_AT_static_link);
DWARF_NAMEFY(DW_AT_type);
DWARF_NAMEFY(DW_AT_use_location);
DWARF_NAMEFY(DW_AT_variable_parameter);
DWARF_NAMEFY(DW_AT_virtuality);
DWARF_NAMEFY(DW_AT_vtable_elem_location);
DWARF_NAMEFY(DW_AT_allocated);
DWARF_NAMEFY(DW_AT_associated);
DWARF_NAMEFY(DW_AT_data_location);
DWARF_NAMEFY2(DW_AT_byte_stride, DW_AT_stride);
DWARF_NAMEFY(DW_AT_entry_pc);
DWARF_NAMEFY(DW_AT_use_UTF8);
DWARF_NAMEFY(DW_AT_extension);
DWARF_NAMEFY(DW_AT_ranges);
DWARF_NAMEFY(DW_AT_trampoline);
DWARF_NAMEFY(DW_AT_call_column);
DWARF_NAMEFY(DW_AT_call_file);
DWARF_NAMEFY(DW_AT_call_line);
DWARF_NAMEFY(DW_AT_description);
DWARF_NAMEFY(DW_AT_binary_scale);
DWARF_NAMEFY(DW_AT_decimal_scale);
DWARF_NAMEFY(DW_AT_small);
DWARF_NAMEFY(DW_AT_decimal_sign);
DWARF_NAMEFY(DW_AT_digit_count);
DWARF_NAMEFY(DW_AT_picture_string);
DWARF_NAMEFY(DW_AT_mutable);
DWARF_NAMEFY(DW_AT_threads_scaled);
DWARF_NAMEFY(DW_AT_explicit);
DWARF_NAMEFY(DW_AT_object_pointer);
DWARF_NAMEFY(DW_AT_endianity);
DWARF_NAMEFY(DW_AT_elemental);
DWARF_NAMEFY(DW_AT_pure);
DWARF_NAMEFY(DW_AT_recursive);
DWARF_NAMEFY(DW_AT_signature);
DWARF_NAMEFY(DW_AT_main_subprogram);
DWARF_NAMEFY(DW_AT_data_bit_offset);
DWARF_NAMEFY(DW_AT_const_expr);
DWARF_NAMEFY(DW_AT_enum_class);
DWARF_NAMEFY(DW_AT_linkage_name);
default:
return "DW_AT_Unknown";
}
}
const char*
dwarf_form_name(Dwarf_Form form) {
switch (form) {
DWARF_NAMEFY(DW_FORM_addr);
DWARF_NAMEFY(DW_FORM_block2);
DWARF_NAMEFY(DW_FORM_block4);
DWARF_NAMEFY(DW_FORM_data2);
DWARF_NAMEFY(DW_FORM_data4);
DWARF_NAMEFY(DW_FORM_data8);
DWARF_NAMEFY(DW_FORM_string);
DWARF_NAMEFY(DW_FORM_block);
DWARF_NAMEFY(DW_FORM_block1);
DWARF_NAMEFY(DW_FORM_data1);
DWARF_NAMEFY(DW_FORM_flag);
DWARF_NAMEFY(DW_FORM_sdata);
DWARF_NAMEFY(DW_FORM_strp);
DWARF_NAMEFY(DW_FORM_udata);
DWARF_NAMEFY(DW_FORM_ref_addr);
DWARF_NAMEFY(DW_FORM_ref1);
DWARF_NAMEFY(DW_FORM_ref2);
DWARF_NAMEFY(DW_FORM_ref4);
DWARF_NAMEFY(DW_FORM_ref8);
DWARF_NAMEFY(DW_FORM_ref_udata);
DWARF_NAMEFY(DW_FORM_indirect);
DWARF_NAMEFY(DW_FORM_sec_offset);
DWARF_NAMEFY(DW_FORM_exprloc);
DWARF_NAMEFY(DW_FORM_flag_present);
DWARF_NAMEFY(DW_FORM_ref_sig8);
default:
return "DW_FORM_Unknown";
}
}
const char*
dwarf_tag_name(Dwarf_Tag tag) {
switch (tag) {
DWARF_NAMEFY(DW_TAG_array_type);
DWARF_NAMEFY(DW_TAG_class_type);
DWARF_NAMEFY(DW_TAG_entry_point);
DWARF_NAMEFY(DW_TAG_enumeration_type);
DWARF_NAMEFY(DW_TAG_formal_parameter);
DWARF_NAMEFY(DW_TAG_imported_declaration);
DWARF_NAMEFY(DW_TAG_label);
DWARF_NAMEFY(DW_TAG_lexical_block);
DWARF_NAMEFY(DW_TAG_member);
DWARF_NAMEFY(DW_TAG_pointer_type);
DWARF_NAMEFY(DW_TAG_reference_type);
DWARF_NAMEFY(DW_TAG_compile_unit);
DWARF_NAMEFY(DW_TAG_string_type);
DWARF_NAMEFY(DW_TAG_structure_type);
DWARF_NAMEFY(DW_TAG_subroutine_type);
DWARF_NAMEFY(DW_TAG_typedef);
DWARF_NAMEFY(DW_TAG_union_type);
DWARF_NAMEFY(DW_TAG_unspecified_parameters);
DWARF_NAMEFY(DW_TAG_variant);
DWARF_NAMEFY(DW_TAG_common_block);
DWARF_NAMEFY(DW_TAG_common_inclusion);
DWARF_NAMEFY(DW_TAG_inheritance);
DWARF_NAMEFY(DW_TAG_inlined_subroutine);
DWARF_NAMEFY(DW_TAG_module);
DWARF_NAMEFY(DW_TAG_ptr_to_member_type);
DWARF_NAMEFY(DW_TAG_set_type);
DWARF_NAMEFY(DW_TAG_subrange_type);
DWARF_NAMEFY(DW_TAG_with_stmt);
DWARF_NAMEFY(DW_TAG_access_declaration);
DWARF_NAMEFY(DW_TAG_base_type);
DWARF_NAMEFY(DW_TAG_catch_block);
DWARF_NAMEFY(DW_TAG_const_type);
DWARF_NAMEFY(DW_TAG_constant);
DWARF_NAMEFY(DW_TAG_enumerator);
DWARF_NAMEFY(DW_TAG_file_type);
DWARF_NAMEFY(DW_TAG_friend);
DWARF_NAMEFY(DW_TAG_namelist);
DWARF_NAMEFY2(DW_TAG_namelist_item, DW_TAG_namelist_items);
DWARF_NAMEFY(DW_TAG_packed_type);
DWARF_NAMEFY(DW_TAG_subprogram);
DWARF_NAMEFY2(DW_TAG_template_type_parameter, DW_TAG_template_type_param);
DWARF_NAMEFY2(DW_TAG_template_value_parameter,
DW_TAG_template_value_param);
DWARF_NAMEFY(DW_TAG_thrown_type);
DWARF_NAMEFY(DW_TAG_try_block);
DWARF_NAMEFY(DW_TAG_variant_part);
DWARF_NAMEFY(DW_TAG_variable);
DWARF_NAMEFY(DW_TAG_volatile_type);
DWARF_NAMEFY(DW_TAG_dwarf_procedure);
DWARF_NAMEFY(DW_TAG_restrict_type);
DWARF_NAMEFY(DW_TAG_interface_type);
DWARF_NAMEFY(DW_TAG_namespace);
DWARF_NAMEFY(DW_TAG_imported_module);
DWARF_NAMEFY(DW_TAG_unspecified_type);
DWARF_NAMEFY(DW_TAG_partial_unit);
DWARF_NAMEFY(DW_TAG_imported_unit);
DWARF_NAMEFY(DW_TAG_mutable_type);
DWARF_NAMEFY(DW_TAG_condition);
DWARF_NAMEFY(DW_TAG_shared_type);
DWARF_NAMEFY(DW_TAG_type_unit);
DWARF_NAMEFY(DW_TAG_rvalue_reference_type);
DWARF_NAMEFY(DW_TAG_template_alias);
default:
return "DW_TAG_Unknown";
}
}
void
dump_attrib(Dwarf_At at, Dwarf_Form form, const Dwarf_Value* val) {
if (form != 0) {
printf(" +++ Attribute: %s [%s]\n",
dwarf_at_name(at), dwarf_form_name(form));
} else {
printf(" +++ Attribute: %s\n", dwarf_at_name(at));
}
dump_value(val);
}
void
dump_value(const Dwarf_Value* attr_value) {
printf(" Data[%03u]: (", attr_value->encoded_size);
switch (attr_value->type) {
case DWARF_VALUE_U8:
printf("BYTE) = %u (x%02X)\n", (Elf_Word)attr_value->u8,
(Elf_Word)attr_value->u8);
break;
case DWARF_VALUE_S8:
printf("SBYTE) = %d (x%02X)\n", (Elf_Sword)attr_value->s8,
(Elf_Sword)attr_value->s8);
break;
case DWARF_VALUE_U16:
printf("WORD) = %u (x%04X)\n", (Elf_Word)attr_value->u16,
(Elf_Word)attr_value->u16);
break;
case DWARF_VALUE_S16:
printf("SWORD) = %d (x%04X)\n", (Elf_Sword)attr_value->s16,
(Elf_Sword)attr_value->s16);
break;
case DWARF_VALUE_U32:
printf("DWORD) = %u (x%08X)\n", attr_value->u32,
attr_value->u32);
break;
case DWARF_VALUE_S32:
printf("SDWORD) = %d (x%08X)\n", attr_value->s32,
attr_value->s32);
break;
case DWARF_VALUE_U64:
printf("XWORD) = %" FMT_I64 "u (x%" FMT_I64 "X)\n", attr_value->u64,
attr_value->u64);
break;
case DWARF_VALUE_S64:
printf("SXWORD) = %" FMT_I64 "d (x%" FMT_I64 "X)\n", attr_value->s64,
attr_value->s64);
break;
case DWARF_VALUE_STR:
printf("STRING) = %s\n", attr_value->str);
break;
case DWARF_VALUE_PTR32:
printf("PTR32) = x%08X\n", attr_value->ptr32);
break;
case DWARF_VALUE_PTR64:
printf("PTR64) = x%08" FMT_I64 "X\n", attr_value->ptr64);
break;
case DWARF_VALUE_BLOCK:
printf("BLOCK) = [%u]:", attr_value->block.block_size);
for (Elf_Xword i = 0; i < attr_value->block.block_size; i++) {
Elf_Byte prnt = *((const Elf_Byte*)attr_value->block.block_ptr + i);
printf(" x%02X", prnt);
}
printf("\n");
break;
case DWARF_VALUE_UNKNOWN:
default:
printf("UNKNOWN)");
break;
}
}