The Android Open Source Project | 593c365 | 2008-10-21 07:00:00 -0700 | [diff] [blame^] | 1 | /* Copyright (C) 1998, 1999, 2000, 2001, 2002, 2004 Red Hat, Inc. |
| 2 | Written by Ulrich Drepper <drepper@redhat.com>, 1998. |
| 3 | |
| 4 | This program is Open Source software; you can redistribute it and/or |
| 5 | modify it under the terms of the Open Software License version 1.0 as |
| 6 | published by the Open Source Initiative. |
| 7 | |
| 8 | You should have received a copy of the Open Software License along |
| 9 | with this program; if not, you may obtain a copy of the Open Software |
| 10 | License version 1.0 from http://www.opensource.org/licenses/osl.php or |
| 11 | by writing the Open Source Initiative c/o Lawrence Rosen, Esq., |
| 12 | 3001 King Ranch Road, Ukiah, CA 95482. */ |
| 13 | |
| 14 | #include <config.h> |
| 15 | |
| 16 | #include <dwarf.h> |
| 17 | #include <inttypes.h> |
| 18 | #include <libelf.h> |
| 19 | #include <libdw.h> |
| 20 | #include <fcntl.h> |
| 21 | #include <stdio.h> |
| 22 | #include <string.h> |
| 23 | #include <unistd.h> |
| 24 | |
| 25 | |
| 26 | static const char *tagnames[] = |
| 27 | { |
| 28 | [DW_TAG_array_type] = "DW_TAG_array_type", |
| 29 | [DW_TAG_class_type] = "DW_TAG_class_type", |
| 30 | [DW_TAG_entry_point] = "DW_TAG_entry_point", |
| 31 | [DW_TAG_enumeration_type] = "DW_TAG_enumeration_type", |
| 32 | [DW_TAG_formal_parameter] = "DW_TAG_formal_parameter", |
| 33 | [DW_TAG_imported_declaration] = "DW_TAG_imported_declaration", |
| 34 | [DW_TAG_label] = "DW_TAG_label", |
| 35 | [DW_TAG_lexical_block] = "DW_TAG_lexical_block", |
| 36 | [DW_TAG_member] = "DW_TAG_member", |
| 37 | [DW_TAG_pointer_type] = "DW_TAG_pointer_type", |
| 38 | [DW_TAG_reference_type] = "DW_TAG_reference_type", |
| 39 | [DW_TAG_compile_unit] = "DW_TAG_compile_unit", |
| 40 | [DW_TAG_string_type] = "DW_TAG_string_type", |
| 41 | [DW_TAG_structure_type] = "DW_TAG_structure_type", |
| 42 | [DW_TAG_subroutine_type] = "DW_TAG_subroutine_type", |
| 43 | [DW_TAG_typedef] = "DW_TAG_typedef", |
| 44 | [DW_TAG_union_type] = "DW_TAG_union_type", |
| 45 | [DW_TAG_unspecified_parameters] = "DW_TAG_unspecified_parameters", |
| 46 | [DW_TAG_variant] = "DW_TAG_variant", |
| 47 | [DW_TAG_common_block] = "DW_TAG_common_block", |
| 48 | [DW_TAG_common_inclusion] = "DW_TAG_common_inclusion", |
| 49 | [DW_TAG_inheritance] = "DW_TAG_inheritance", |
| 50 | [DW_TAG_inlined_subroutine] = "DW_TAG_inlined_subroutine", |
| 51 | [DW_TAG_module] = "DW_TAG_module", |
| 52 | [DW_TAG_ptr_to_member_type] = "DW_TAG_ptr_to_member_type", |
| 53 | [DW_TAG_set_type] = "DW_TAG_set_type", |
| 54 | [DW_TAG_subrange_type] = "DW_TAG_subrange_type", |
| 55 | [DW_TAG_with_stmt] = "DW_TAG_with_stmt", |
| 56 | [DW_TAG_access_declaration] = "DW_TAG_access_declaration", |
| 57 | [DW_TAG_base_type] = "DW_TAG_base_type", |
| 58 | [DW_TAG_catch_block] = "DW_TAG_catch_block", |
| 59 | [DW_TAG_const_type] = "DW_TAG_const_type", |
| 60 | [DW_TAG_constant] = "DW_TAG_constant", |
| 61 | [DW_TAG_enumerator] = "DW_TAG_enumerator", |
| 62 | [DW_TAG_file_type] = "DW_TAG_file_type", |
| 63 | [DW_TAG_friend] = "DW_TAG_friend", |
| 64 | [DW_TAG_namelist] = "DW_TAG_namelist", |
| 65 | [DW_TAG_namelist_item] = "DW_TAG_namelist_item", |
| 66 | [DW_TAG_packed_type] = "DW_TAG_packed_type", |
| 67 | [DW_TAG_subprogram] = "DW_TAG_subprogram", |
| 68 | [DW_TAG_template_type_param] = "DW_TAG_template_type_param", |
| 69 | [DW_TAG_template_value_param] = "DW_TAG_template_value_param", |
| 70 | [DW_TAG_thrown_type] = "DW_TAG_thrown_type", |
| 71 | [DW_TAG_try_block] = "DW_TAG_try_block", |
| 72 | [DW_TAG_variant_part] = "DW_TAG_variant_part", |
| 73 | [DW_TAG_variable] = "DW_TAG_variable", |
| 74 | [DW_TAG_volatile_type] = "DW_TAG_volatile_type" |
| 75 | }; |
| 76 | #define ntagnames (sizeof (tagnames) / sizeof (tagnames[0])) |
| 77 | |
| 78 | |
| 79 | const struct |
| 80 | { |
| 81 | int code; |
| 82 | const char *name; |
| 83 | } attrs[] = |
| 84 | { |
| 85 | { DW_AT_sibling, "sibling" }, |
| 86 | { DW_AT_location, "location" }, |
| 87 | { DW_AT_name, "name" }, |
| 88 | { DW_AT_ordering, "ordering" }, |
| 89 | { DW_AT_subscr_data, "subscr_data" }, |
| 90 | { DW_AT_byte_size, "byte_size" }, |
| 91 | { DW_AT_bit_offset, "bit_offset" }, |
| 92 | { DW_AT_bit_size, "bit_size" }, |
| 93 | { DW_AT_element_list, "element_list" }, |
| 94 | { DW_AT_stmt_list, "stmt_list" }, |
| 95 | { DW_AT_low_pc, "low_pc" }, |
| 96 | { DW_AT_high_pc, "high_pc" }, |
| 97 | { DW_AT_language, "language" }, |
| 98 | { DW_AT_member, "member" }, |
| 99 | { DW_AT_discr, "discr" }, |
| 100 | { DW_AT_discr_value, "discr_value" }, |
| 101 | { DW_AT_visibility, "visibility" }, |
| 102 | { DW_AT_import, "import" }, |
| 103 | { DW_AT_string_length, "string_length" }, |
| 104 | { DW_AT_common_reference, "common_reference" }, |
| 105 | { DW_AT_comp_dir, "comp_dir" }, |
| 106 | { DW_AT_const_value, "const_value" }, |
| 107 | { DW_AT_containing_type, "containing_type" }, |
| 108 | { DW_AT_default_value, "default_value" }, |
| 109 | { DW_AT_inline, "inline" }, |
| 110 | { DW_AT_is_optional, "is_optional" }, |
| 111 | { DW_AT_lower_bound, "lower_bound" }, |
| 112 | { DW_AT_producer, "producer" }, |
| 113 | { DW_AT_prototyped, "prototyped" }, |
| 114 | { DW_AT_return_addr, "return_addr" }, |
| 115 | { DW_AT_start_scope, "start_scope" }, |
| 116 | { DW_AT_stride_size, "stride_size" }, |
| 117 | { DW_AT_upper_bound, "upper_bound" }, |
| 118 | { DW_AT_abstract_origin, "abstract_origin" }, |
| 119 | { DW_AT_accessibility, "accessibility" }, |
| 120 | { DW_AT_address_class, "address_class" }, |
| 121 | { DW_AT_artificial, "artificial" }, |
| 122 | { DW_AT_base_types, "base_types" }, |
| 123 | { DW_AT_calling_convention, "calling_convention" }, |
| 124 | { DW_AT_count, "count" }, |
| 125 | { DW_AT_data_member_location, "data_member_location" }, |
| 126 | { DW_AT_decl_column, "decl_column" }, |
| 127 | { DW_AT_decl_file, "decl_file" }, |
| 128 | { DW_AT_decl_line, "decl_line" }, |
| 129 | { DW_AT_declaration, "declaration" }, |
| 130 | { DW_AT_discr_list, "discr_list" }, |
| 131 | { DW_AT_encoding, "encoding" }, |
| 132 | { DW_AT_external, "external" }, |
| 133 | { DW_AT_frame_base, "frame_base" }, |
| 134 | { DW_AT_friend, "friend" }, |
| 135 | { DW_AT_identifier_case, "identifier_case" }, |
| 136 | { DW_AT_macro_info, "macro_info" }, |
| 137 | { DW_AT_namelist_items, "namelist_items" }, |
| 138 | { DW_AT_priority, "priority" }, |
| 139 | { DW_AT_segment, "segment" }, |
| 140 | { DW_AT_specification, "specification" }, |
| 141 | { DW_AT_static_link, "static_link" }, |
| 142 | { DW_AT_type, "type" }, |
| 143 | { DW_AT_use_location, "use_location" }, |
| 144 | { DW_AT_variable_parameter, "variable_parameter" }, |
| 145 | { DW_AT_virtuality, "virtuality" }, |
| 146 | { DW_AT_vtable_elem_location, "vtable_elem_location" }, |
| 147 | { DW_AT_MIPS_fde, "MIPS_fde" }, |
| 148 | { DW_AT_MIPS_loop_begin, "MIPS_loop_begin" }, |
| 149 | { DW_AT_MIPS_tail_loop_begin, "MIPS_tail_loop_begin" }, |
| 150 | { DW_AT_MIPS_epilog_begin, "MIPS_epilog_begin" }, |
| 151 | { DW_AT_MIPS_loop_unroll_factor, "MIPS_loop_unroll_factor" }, |
| 152 | { DW_AT_MIPS_software_pipeline_depth, "MIPS_software_pipeline_depth" }, |
| 153 | { DW_AT_MIPS_linkage_name, "MIPS_linkage_name" }, |
| 154 | { DW_AT_MIPS_stride, "MIPS_stride" }, |
| 155 | { DW_AT_MIPS_abstract_name, "MIPS_abstract_name" }, |
| 156 | { DW_AT_MIPS_clone_origin, "MIPS_clone_origin" }, |
| 157 | { DW_AT_MIPS_has_inlines, "MIPS_has_inlines" }, |
| 158 | { DW_AT_MIPS_stride_byte, "MIPS_stride_byte" }, |
| 159 | { DW_AT_MIPS_stride_elem, "MIPS_stride_elem" }, |
| 160 | { DW_AT_MIPS_ptr_dopetype, "MIPS_ptr_dopetype" }, |
| 161 | { DW_AT_MIPS_allocatable_dopetype, "MIPS_allocatable_dopetype" }, |
| 162 | { DW_AT_MIPS_assumed_shape_dopetype, "MIPS_assumed_shape_dopetype" }, |
| 163 | { DW_AT_MIPS_assumed_size, "MIPS_assumed_size" }, |
| 164 | { DW_AT_sf_names, "sf_names" }, |
| 165 | { DW_AT_src_info, "src_info" }, |
| 166 | { DW_AT_mac_info, "mac_info" }, |
| 167 | { DW_AT_src_coords, "src_coords" }, |
| 168 | { DW_AT_body_begin, "body_begin" }, |
| 169 | { DW_AT_body_end, "body_end" } |
| 170 | }; |
| 171 | #define nattrs (sizeof (attrs) / sizeof (attrs[0])) |
| 172 | |
| 173 | |
| 174 | void |
| 175 | handle (Dwarf *dbg, Dwarf_Die *die, int n) |
| 176 | { |
| 177 | Dwarf_Die child; |
| 178 | unsigned int tag; |
| 179 | const char *str; |
| 180 | char buf[30]; |
| 181 | const char *name; |
| 182 | Dwarf_Off off; |
| 183 | Dwarf_Off cuoff; |
| 184 | size_t cnt; |
| 185 | Dwarf_Addr addr; |
| 186 | int i; |
| 187 | |
| 188 | tag = dwarf_tag (die); |
| 189 | if (tag != DW_TAG_invalid) |
| 190 | { |
| 191 | if (tag < ntagnames) |
| 192 | str = tagnames[tag]; |
| 193 | else |
| 194 | { |
| 195 | snprintf (buf, sizeof buf, "%#x", tag); |
| 196 | str = buf; |
| 197 | } |
| 198 | } |
| 199 | else |
| 200 | str = "* NO TAG *"; |
| 201 | |
| 202 | name = dwarf_diename (die); |
| 203 | if (name == 0) |
| 204 | name = "* NO NAME *"; |
| 205 | |
| 206 | off = dwarf_dieoffset (die); |
| 207 | cuoff = dwarf_cuoffset (die); |
| 208 | |
| 209 | printf ("%*s%s\n", n * 5, "", str); |
| 210 | printf ("%*s Name : %s\n", n * 5, "", name); |
| 211 | printf ("%*s Offset : %lld\n", n * 5, "", (long long int) off); |
| 212 | printf ("%*s CU offset : %lld\n", n * 5, "", (long long int) cuoff); |
| 213 | |
| 214 | printf ("%*s Attrs :", n * 5, ""); |
| 215 | for (cnt = 0; cnt < nattrs; ++cnt) |
| 216 | if (dwarf_hasattr (die, attrs[cnt].code)) |
| 217 | printf (" %s", attrs[cnt].name); |
| 218 | puts (""); |
| 219 | |
| 220 | if (dwarf_hasattr (die, DW_AT_low_pc) && dwarf_lowpc (die, &addr) == 0) |
| 221 | { |
| 222 | Dwarf_Attribute attr; |
| 223 | Dwarf_Addr addr2; |
| 224 | printf ("%*s low PC : %#llx\n", |
| 225 | n * 5, "", (unsigned long long int) addr); |
| 226 | |
| 227 | if (dwarf_attr (die, DW_AT_low_pc, &attr) == NULL |
| 228 | || dwarf_formaddr (&attr, &addr2) != 0 |
| 229 | || addr != addr2) |
| 230 | puts ("************* DW_AT_low_pc verify failed ************"); |
| 231 | else if (! dwarf_hasform (&attr, DW_FORM_addr)) |
| 232 | puts ("************* DW_AT_low_pc form failed ************"); |
| 233 | else if (dwarf_whatform (&attr) != DW_FORM_addr) |
| 234 | puts ("************* DW_AT_low_pc form (2) failed ************"); |
| 235 | else if (dwarf_whatattr (&attr) != DW_AT_low_pc) |
| 236 | puts ("************* DW_AT_low_pc attr failed ************"); |
| 237 | } |
| 238 | if (dwarf_hasattr (die, DW_AT_high_pc) && dwarf_highpc (die, &addr) == 0) |
| 239 | { |
| 240 | Dwarf_Attribute attr; |
| 241 | Dwarf_Addr addr2; |
| 242 | printf ("%*s high PC : %#llx\n", |
| 243 | n * 5, "", (unsigned long long int) addr); |
| 244 | if (dwarf_attr (die, DW_AT_high_pc, &attr) == NULL |
| 245 | || dwarf_formaddr (&attr, &addr2) != 0 |
| 246 | || addr != addr2) |
| 247 | puts ("************* DW_AT_high_pc verify failed ************"); |
| 248 | else if (! dwarf_hasform (&attr, DW_FORM_addr)) |
| 249 | puts ("************* DW_AT_high_pc form failed ************"); |
| 250 | else if (dwarf_whatform (&attr) != DW_FORM_addr) |
| 251 | puts ("************* DW_AT_high_pc form (2) failed ************"); |
| 252 | else if (dwarf_whatattr (&attr) != DW_AT_high_pc) |
| 253 | puts ("************* DW_AT_high_pc attr failed ************"); |
| 254 | } |
| 255 | |
| 256 | if (dwarf_hasattr (die, DW_AT_byte_size) && (i = dwarf_bytesize (die)) != -1) |
| 257 | { |
| 258 | Dwarf_Attribute attr; |
| 259 | Dwarf_Word u2; |
| 260 | unsigned int u; |
| 261 | printf ("%*s byte size : %d\n", n * 5, "", i); |
| 262 | if (dwarf_attr (die, DW_AT_byte_size, &attr) == NULL |
| 263 | || dwarf_formudata (&attr, &u2) != 0 |
| 264 | || i != (int) u2) |
| 265 | puts ("************* DW_AT_byte_size verify failed ************"); |
| 266 | else if (! dwarf_hasform (&attr, DW_FORM_data1) |
| 267 | && ! dwarf_hasform (&attr, DW_FORM_data2) |
| 268 | && ! dwarf_hasform (&attr, DW_FORM_data4) |
| 269 | && ! dwarf_hasform (&attr, DW_FORM_data8) |
| 270 | && ! dwarf_hasform (&attr, DW_FORM_sdata) |
| 271 | && ! dwarf_hasform (&attr, DW_FORM_udata)) |
| 272 | puts ("************* DW_AT_byte_size form failed ************"); |
| 273 | else if ((u = dwarf_whatform (&attr)) == 0 |
| 274 | || (u != DW_FORM_data1 |
| 275 | && u != DW_FORM_data2 |
| 276 | && u != DW_FORM_data4 |
| 277 | && u != DW_FORM_data8 |
| 278 | && u != DW_FORM_sdata |
| 279 | && u != DW_FORM_udata)) |
| 280 | puts ("************* DW_AT_byte_size form (2) failed ************"); |
| 281 | else if (dwarf_whatattr (&attr) != DW_AT_byte_size) |
| 282 | puts ("************* DW_AT_byte_size attr failed ************"); |
| 283 | } |
| 284 | if (dwarf_hasattr (die, DW_AT_bit_size) && (i = dwarf_bitsize (die)) != -1) |
| 285 | { |
| 286 | Dwarf_Attribute attr; |
| 287 | Dwarf_Word u2; |
| 288 | unsigned int u; |
| 289 | printf ("%*s bit size : %d\n", n * 5, "", i); |
| 290 | if (dwarf_attr (die, DW_AT_bit_size, &attr) == NULL |
| 291 | || dwarf_formudata (&attr, &u2) != 0 |
| 292 | || i != (int) u2) |
| 293 | puts ("************* DW_AT_bit_size test failed ************"); |
| 294 | else if (! dwarf_hasform (&attr, DW_FORM_data1) |
| 295 | && ! dwarf_hasform (&attr, DW_FORM_data2) |
| 296 | && ! dwarf_hasform (&attr, DW_FORM_data4) |
| 297 | && ! dwarf_hasform (&attr, DW_FORM_data8) |
| 298 | && ! dwarf_hasform (&attr, DW_FORM_sdata) |
| 299 | && ! dwarf_hasform (&attr, DW_FORM_udata)) |
| 300 | puts ("************* DW_AT_bit_size form failed ************"); |
| 301 | else if ((u = dwarf_whatform (&attr)) == 0 |
| 302 | || (u != DW_FORM_data1 |
| 303 | && u != DW_FORM_data2 |
| 304 | && u != DW_FORM_data4 |
| 305 | && u != DW_FORM_data8 |
| 306 | && u != DW_FORM_sdata |
| 307 | && u != DW_FORM_udata)) |
| 308 | puts ("************* DW_AT_bit_size form (2) failed ************"); |
| 309 | else if (dwarf_whatattr (&attr) != DW_AT_bit_size) |
| 310 | puts ("************* DW_AT_bit_size attr failed ************"); |
| 311 | } |
| 312 | if (dwarf_hasattr (die, DW_AT_bit_offset) |
| 313 | && (i = dwarf_bitoffset (die)) != -1) |
| 314 | { |
| 315 | Dwarf_Attribute attr; |
| 316 | Dwarf_Word u2; |
| 317 | unsigned int u; |
| 318 | printf ("%*s bit offset: %d\n", n * 5, "", i); |
| 319 | if (dwarf_attr (die, DW_AT_bit_offset, &attr) == NULL |
| 320 | || dwarf_formudata (&attr, &u2) != 0 |
| 321 | || i != (int) u2) |
| 322 | puts ("************* DW_AT_bit_offset test failed ************"); |
| 323 | else if (! dwarf_hasform (&attr, DW_FORM_data1) |
| 324 | && ! dwarf_hasform (&attr, DW_FORM_data2) |
| 325 | && ! dwarf_hasform (&attr, DW_FORM_data4) |
| 326 | && ! dwarf_hasform (&attr, DW_FORM_data8) |
| 327 | && ! dwarf_hasform (&attr, DW_FORM_sdata) |
| 328 | && ! dwarf_hasform (&attr, DW_FORM_udata)) |
| 329 | puts ("************* DW_AT_bit_offset form failed ************"); |
| 330 | else if ((u = dwarf_whatform (&attr)) == 0 |
| 331 | || (u != DW_FORM_data1 |
| 332 | && u != DW_FORM_data2 |
| 333 | && u != DW_FORM_data4 |
| 334 | && u != DW_FORM_data8 |
| 335 | && u != DW_FORM_sdata |
| 336 | && u != DW_FORM_udata)) |
| 337 | puts ("************* DW_AT_bit_offset form (2) failed ************"); |
| 338 | else if (dwarf_whatattr (&attr) != DW_AT_bit_offset) |
| 339 | puts ("************* DW_AT_bit_offset attr failed ************"); |
| 340 | } |
| 341 | |
| 342 | if (dwarf_hasattr (die, DW_AT_language) && (i = dwarf_srclang (die)) != -1) |
| 343 | { |
| 344 | Dwarf_Attribute attr; |
| 345 | Dwarf_Word u2; |
| 346 | unsigned int u; |
| 347 | printf ("%*s language : %d\n", n * 5, "", i); |
| 348 | if (dwarf_attr (die, DW_AT_language, &attr) == NULL |
| 349 | || dwarf_formudata (&attr, &u2) != 0 |
| 350 | || i != (int) u2) |
| 351 | puts ("************* DW_AT_language test failed ************"); |
| 352 | else if (! dwarf_hasform (&attr, DW_FORM_data1) |
| 353 | && ! dwarf_hasform (&attr, DW_FORM_data2) |
| 354 | && ! dwarf_hasform (&attr, DW_FORM_data4) |
| 355 | && ! dwarf_hasform (&attr, DW_FORM_data8) |
| 356 | && ! dwarf_hasform (&attr, DW_FORM_sdata) |
| 357 | && ! dwarf_hasform (&attr, DW_FORM_udata)) |
| 358 | puts ("************* DW_AT_language form failed ************"); |
| 359 | else if ((u = dwarf_whatform (&attr)) == 0 |
| 360 | || (u != DW_FORM_data1 |
| 361 | && u != DW_FORM_data2 |
| 362 | && u != DW_FORM_data4 |
| 363 | && u != DW_FORM_data8 |
| 364 | && u != DW_FORM_sdata |
| 365 | && u != DW_FORM_udata)) |
| 366 | puts ("************* DW_AT_language form (2) failed ************"); |
| 367 | else if (dwarf_whatattr (&attr) != DW_AT_language) |
| 368 | puts ("************* DW_AT_language attr failed ************"); |
| 369 | } |
| 370 | |
| 371 | if (dwarf_hasattr (die, DW_AT_ordering) |
| 372 | && (i = dwarf_arrayorder (die)) != -1) |
| 373 | { |
| 374 | Dwarf_Attribute attr; |
| 375 | Dwarf_Word u2; |
| 376 | unsigned int u; |
| 377 | printf ("%*s ordering : %d\n", n * 5, "", i); |
| 378 | if (dwarf_attr (die, DW_AT_ordering, &attr) == NULL |
| 379 | || dwarf_formudata (&attr, &u2) != 0 |
| 380 | || i != (int) u2) |
| 381 | puts ("************* DW_AT_ordering test failed ************"); |
| 382 | else if (! dwarf_hasform (&attr, DW_FORM_data1) |
| 383 | && ! dwarf_hasform (&attr, DW_FORM_data2) |
| 384 | && ! dwarf_hasform (&attr, DW_FORM_data4) |
| 385 | && ! dwarf_hasform (&attr, DW_FORM_data8) |
| 386 | && ! dwarf_hasform (&attr, DW_FORM_sdata) |
| 387 | && ! dwarf_hasform (&attr, DW_FORM_udata)) |
| 388 | puts ("************* DW_AT_ordering failed ************"); |
| 389 | else if ((u = dwarf_whatform (&attr)) == 0 |
| 390 | || (u != DW_FORM_data1 |
| 391 | && u != DW_FORM_data2 |
| 392 | && u != DW_FORM_data4 |
| 393 | && u != DW_FORM_data8 |
| 394 | && u != DW_FORM_sdata |
| 395 | && u != DW_FORM_udata)) |
| 396 | puts ("************* DW_AT_ordering form (2) failed ************"); |
| 397 | else if (dwarf_whatattr (&attr) != DW_AT_ordering) |
| 398 | puts ("************* DW_AT_ordering attr failed ************"); |
| 399 | } |
| 400 | |
| 401 | if (dwarf_hasattr (die, DW_AT_comp_dir)) |
| 402 | { |
| 403 | Dwarf_Attribute attr; |
| 404 | if (dwarf_attr (die, DW_AT_comp_dir, &attr) == NULL |
| 405 | || (name = dwarf_formstring (&attr)) == NULL) |
| 406 | puts ("************* DW_AT_comp_dir attr failed ************"); |
| 407 | else |
| 408 | printf ("%*s directory : %s\n", n * 5, "", name); |
| 409 | } |
| 410 | |
| 411 | if (dwarf_hasattr (die, DW_AT_producer)) |
| 412 | { |
| 413 | Dwarf_Attribute attr; |
| 414 | if (dwarf_attr (die, DW_AT_producer, &attr) == NULL |
| 415 | || (name = dwarf_formstring (&attr)) == NULL) |
| 416 | puts ("************* DW_AT_comp_dir attr failed ************"); |
| 417 | else |
| 418 | printf ("%*s producer : %s\n", n * 5, "", name); |
| 419 | } |
| 420 | |
| 421 | if (dwarf_haschildren (die) != 0 && dwarf_child (die, &child) == 0) |
| 422 | handle (dbg, &child, n + 1); |
| 423 | if (dwarf_siblingof (die, die) == 0) |
| 424 | handle (dbg, die, n); |
| 425 | } |
| 426 | |
| 427 | |
| 428 | int |
| 429 | main (int argc, char *argv[]) |
| 430 | { |
| 431 | int cnt; |
| 432 | |
| 433 | for (cnt = 1; cnt < argc; ++cnt) |
| 434 | { |
| 435 | int fd = open (argv[cnt], O_RDONLY); |
| 436 | Dwarf *dbg; |
| 437 | |
| 438 | printf ("file: %s\n", basename (argv[cnt])); |
| 439 | |
| 440 | dbg = dwarf_begin (fd, DWARF_C_READ); |
| 441 | if (dbg == NULL) |
| 442 | { |
| 443 | printf ("%s not usable\n", argv[cnt]); |
| 444 | close (fd); |
| 445 | continue; |
| 446 | } |
| 447 | |
| 448 | Dwarf_Off off = 0; |
| 449 | Dwarf_Off old_off = 0; |
| 450 | size_t hsize; |
| 451 | Dwarf_Off abbrev; |
| 452 | uint8_t addresssize; |
| 453 | uint8_t offsetsize; |
| 454 | while (dwarf_nextcu (dbg, off, &off, &hsize, &abbrev, &addresssize, |
| 455 | &offsetsize) == 0) |
| 456 | { |
| 457 | printf ("New CU: off = %llu, hsize = %zu, ab = %llu, as = %" PRIu8 |
| 458 | ", os = %" PRIu8 "\n", |
| 459 | (unsigned long long int) old_off, hsize, |
| 460 | (unsigned long long int) abbrev, addresssize, |
| 461 | offsetsize); |
| 462 | |
| 463 | Dwarf_Die die; |
| 464 | if (dwarf_offdie (dbg, old_off + hsize, &die) != NULL) |
| 465 | handle (dbg, &die, 1); |
| 466 | |
| 467 | old_off = off; |
| 468 | } |
| 469 | |
| 470 | dwarf_end (dbg); |
| 471 | close (fd); |
| 472 | } |
| 473 | |
| 474 | return 0; |
| 475 | } |