Configury changes: update src repository (binutils, gdb, and rda) to use
[binutils.git] / binutils / dwarf.c
blob56669be6fb8605b3866b9b9730e6846209eb9af5
1 /* dwarf.c -- display DWARF contents of a BFD binary file
2 Copyright 2005, 2006
3 Free Software Foundation, Inc.
5 This file is part of GNU Binutils.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
20 02110-1301, USA. */
22 #include <stdio.h>
24 #include "dwarf.h"
26 #include "bucomm.h"
27 #include "libiberty.h"
29 static int have_frame_base;
30 static int need_base_address;
32 static unsigned int last_pointer_size = 0;
33 static int warned_about_missing_comp_units = FALSE;
35 static unsigned int num_debug_info_entries = 0;
36 static debug_info *debug_information = NULL;
38 dwarf_vma eh_addr_size;
39 int is_relocatable;
41 int do_debug_info;
42 int do_debug_abbrevs;
43 int do_debug_lines;
44 int do_debug_pubnames;
45 int do_debug_aranges;
46 int do_debug_ranges;
47 int do_debug_frames;
48 int do_debug_frames_interp;
49 int do_debug_macinfo;
50 int do_debug_str;
51 int do_debug_loc;
53 dwarf_vma (*byte_get) (unsigned char *, int);
55 dwarf_vma
56 byte_get_little_endian (unsigned char *field, int size)
58 switch (size)
60 case 1:
61 return *field;
63 case 2:
64 return ((unsigned int) (field[0]))
65 | (((unsigned int) (field[1])) << 8);
67 case 4:
68 return ((unsigned long) (field[0]))
69 | (((unsigned long) (field[1])) << 8)
70 | (((unsigned long) (field[2])) << 16)
71 | (((unsigned long) (field[3])) << 24);
73 case 8:
74 if (sizeof (dwarf_vma) == 8)
75 return ((dwarf_vma) (field[0]))
76 | (((dwarf_vma) (field[1])) << 8)
77 | (((dwarf_vma) (field[2])) << 16)
78 | (((dwarf_vma) (field[3])) << 24)
79 | (((dwarf_vma) (field[4])) << 32)
80 | (((dwarf_vma) (field[5])) << 40)
81 | (((dwarf_vma) (field[6])) << 48)
82 | (((dwarf_vma) (field[7])) << 56);
83 else if (sizeof (dwarf_vma) == 4)
84 /* We want to extract data from an 8 byte wide field and
85 place it into a 4 byte wide field. Since this is a little
86 endian source we can just use the 4 byte extraction code. */
87 return ((unsigned long) (field[0]))
88 | (((unsigned long) (field[1])) << 8)
89 | (((unsigned long) (field[2])) << 16)
90 | (((unsigned long) (field[3])) << 24);
92 default:
93 error (_("Unhandled data length: %d\n"), size);
94 abort ();
98 dwarf_vma
99 byte_get_big_endian (unsigned char *field, int size)
101 switch (size)
103 case 1:
104 return *field;
106 case 2:
107 return ((unsigned int) (field[1])) | (((int) (field[0])) << 8);
109 case 4:
110 return ((unsigned long) (field[3]))
111 | (((unsigned long) (field[2])) << 8)
112 | (((unsigned long) (field[1])) << 16)
113 | (((unsigned long) (field[0])) << 24);
115 case 8:
116 if (sizeof (dwarf_vma) == 8)
117 return ((dwarf_vma) (field[7]))
118 | (((dwarf_vma) (field[6])) << 8)
119 | (((dwarf_vma) (field[5])) << 16)
120 | (((dwarf_vma) (field[4])) << 24)
121 | (((dwarf_vma) (field[3])) << 32)
122 | (((dwarf_vma) (field[2])) << 40)
123 | (((dwarf_vma) (field[1])) << 48)
124 | (((dwarf_vma) (field[0])) << 56);
125 else if (sizeof (dwarf_vma) == 4)
127 /* Although we are extracing data from an 8 byte wide field,
128 we are returning only 4 bytes of data. */
129 field += 4;
130 return ((unsigned long) (field[3]))
131 | (((unsigned long) (field[2])) << 8)
132 | (((unsigned long) (field[1])) << 16)
133 | (((unsigned long) (field[0])) << 24);
136 default:
137 error (_("Unhandled data length: %d\n"), size);
138 abort ();
142 static dwarf_vma
143 byte_get_signed (unsigned char *field, int size)
145 dwarf_vma x = byte_get (field, size);
147 switch (size)
149 case 1:
150 return (x ^ 0x80) - 0x80;
151 case 2:
152 return (x ^ 0x8000) - 0x8000;
153 case 4:
154 return (x ^ 0x80000000) - 0x80000000;
155 case 8:
156 return x;
157 default:
158 abort ();
162 static unsigned long int
163 read_leb128 (unsigned char *data, unsigned int *length_return, int sign)
165 unsigned long int result = 0;
166 unsigned int num_read = 0;
167 unsigned int shift = 0;
168 unsigned char byte;
172 byte = *data++;
173 num_read++;
175 result |= ((unsigned long int) (byte & 0x7f)) << shift;
177 shift += 7;
180 while (byte & 0x80);
182 if (length_return != NULL)
183 *length_return = num_read;
185 if (sign && (shift < 8 * sizeof (result)) && (byte & 0x40))
186 result |= -1L << shift;
188 return result;
191 typedef struct State_Machine_Registers
193 unsigned long address;
194 unsigned int file;
195 unsigned int line;
196 unsigned int column;
197 int is_stmt;
198 int basic_block;
199 int end_sequence;
200 /* This variable hold the number of the last entry seen
201 in the File Table. */
202 unsigned int last_file_entry;
203 } SMR;
205 static SMR state_machine_regs;
207 static void
208 reset_state_machine (int is_stmt)
210 state_machine_regs.address = 0;
211 state_machine_regs.file = 1;
212 state_machine_regs.line = 1;
213 state_machine_regs.column = 0;
214 state_machine_regs.is_stmt = is_stmt;
215 state_machine_regs.basic_block = 0;
216 state_machine_regs.end_sequence = 0;
217 state_machine_regs.last_file_entry = 0;
220 /* Handled an extend line op.
221 Returns the number of bytes read. */
223 static int
224 process_extended_line_op (unsigned char *data, int is_stmt)
226 unsigned char op_code;
227 unsigned int bytes_read;
228 unsigned int len;
229 unsigned char *name;
230 unsigned long adr;
232 len = read_leb128 (data, & bytes_read, 0);
233 data += bytes_read;
235 if (len == 0)
237 warn (_("badly formed extended line op encountered!\n"));
238 return bytes_read;
241 len += bytes_read;
242 op_code = *data++;
244 printf (_(" Extended opcode %d: "), op_code);
246 switch (op_code)
248 case DW_LNE_end_sequence:
249 printf (_("End of Sequence\n\n"));
250 reset_state_machine (is_stmt);
251 break;
253 case DW_LNE_set_address:
254 adr = byte_get (data, len - bytes_read - 1);
255 printf (_("set Address to 0x%lx\n"), adr);
256 state_machine_regs.address = adr;
257 break;
259 case DW_LNE_define_file:
260 printf (_(" define new File Table entry\n"));
261 printf (_(" Entry\tDir\tTime\tSize\tName\n"));
263 printf (_(" %d\t"), ++state_machine_regs.last_file_entry);
264 name = data;
265 data += strlen ((char *) data) + 1;
266 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
267 data += bytes_read;
268 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
269 data += bytes_read;
270 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
271 printf (_("%s\n\n"), name);
272 break;
274 default:
275 printf (_("UNKNOWN: length %d\n"), len - bytes_read);
276 break;
279 return len;
282 static const char *
283 fetch_indirect_string (unsigned long offset)
285 struct dwarf_section *section = &debug_displays [str].section;
287 if (section->start == NULL)
288 return _("<no .debug_str section>");
290 /* DWARF sections under Mach-O have non-zero addresses. */
291 offset -= section->address;
292 if (offset > section->size)
294 warn (_("DW_FORM_strp offset too big: %lx\n"), offset);
295 return _("<offset is too big>");
298 return (const char *) section->start + offset;
301 /* FIXME: There are better and more efficient ways to handle
302 these structures. For now though, I just want something that
303 is simple to implement. */
304 typedef struct abbrev_attr
306 unsigned long attribute;
307 unsigned long form;
308 struct abbrev_attr *next;
310 abbrev_attr;
312 typedef struct abbrev_entry
314 unsigned long entry;
315 unsigned long tag;
316 int children;
317 struct abbrev_attr *first_attr;
318 struct abbrev_attr *last_attr;
319 struct abbrev_entry *next;
321 abbrev_entry;
323 static abbrev_entry *first_abbrev = NULL;
324 static abbrev_entry *last_abbrev = NULL;
326 static void
327 free_abbrevs (void)
329 abbrev_entry *abbrev;
331 for (abbrev = first_abbrev; abbrev;)
333 abbrev_entry *next = abbrev->next;
334 abbrev_attr *attr;
336 for (attr = abbrev->first_attr; attr;)
338 abbrev_attr *next = attr->next;
340 free (attr);
341 attr = next;
344 free (abbrev);
345 abbrev = next;
348 last_abbrev = first_abbrev = NULL;
351 static void
352 add_abbrev (unsigned long number, unsigned long tag, int children)
354 abbrev_entry *entry;
356 entry = malloc (sizeof (*entry));
358 if (entry == NULL)
359 /* ugg */
360 return;
362 entry->entry = number;
363 entry->tag = tag;
364 entry->children = children;
365 entry->first_attr = NULL;
366 entry->last_attr = NULL;
367 entry->next = NULL;
369 if (first_abbrev == NULL)
370 first_abbrev = entry;
371 else
372 last_abbrev->next = entry;
374 last_abbrev = entry;
377 static void
378 add_abbrev_attr (unsigned long attribute, unsigned long form)
380 abbrev_attr *attr;
382 attr = malloc (sizeof (*attr));
384 if (attr == NULL)
385 /* ugg */
386 return;
388 attr->attribute = attribute;
389 attr->form = form;
390 attr->next = NULL;
392 if (last_abbrev->first_attr == NULL)
393 last_abbrev->first_attr = attr;
394 else
395 last_abbrev->last_attr->next = attr;
397 last_abbrev->last_attr = attr;
400 /* Processes the (partial) contents of a .debug_abbrev section.
401 Returns NULL if the end of the section was encountered.
402 Returns the address after the last byte read if the end of
403 an abbreviation set was found. */
405 static unsigned char *
406 process_abbrev_section (unsigned char *start, unsigned char *end)
408 if (first_abbrev != NULL)
409 return NULL;
411 while (start < end)
413 unsigned int bytes_read;
414 unsigned long entry;
415 unsigned long tag;
416 unsigned long attribute;
417 int children;
419 entry = read_leb128 (start, & bytes_read, 0);
420 start += bytes_read;
422 /* A single zero is supposed to end the section according
423 to the standard. If there's more, then signal that to
424 the caller. */
425 if (entry == 0)
426 return start == end ? NULL : start;
428 tag = read_leb128 (start, & bytes_read, 0);
429 start += bytes_read;
431 children = *start++;
433 add_abbrev (entry, tag, children);
437 unsigned long form;
439 attribute = read_leb128 (start, & bytes_read, 0);
440 start += bytes_read;
442 form = read_leb128 (start, & bytes_read, 0);
443 start += bytes_read;
445 if (attribute != 0)
446 add_abbrev_attr (attribute, form);
448 while (attribute != 0);
451 return NULL;
454 static char *
455 get_TAG_name (unsigned long tag)
457 switch (tag)
459 case DW_TAG_padding: return "DW_TAG_padding";
460 case DW_TAG_array_type: return "DW_TAG_array_type";
461 case DW_TAG_class_type: return "DW_TAG_class_type";
462 case DW_TAG_entry_point: return "DW_TAG_entry_point";
463 case DW_TAG_enumeration_type: return "DW_TAG_enumeration_type";
464 case DW_TAG_formal_parameter: return "DW_TAG_formal_parameter";
465 case DW_TAG_imported_declaration: return "DW_TAG_imported_declaration";
466 case DW_TAG_label: return "DW_TAG_label";
467 case DW_TAG_lexical_block: return "DW_TAG_lexical_block";
468 case DW_TAG_member: return "DW_TAG_member";
469 case DW_TAG_pointer_type: return "DW_TAG_pointer_type";
470 case DW_TAG_reference_type: return "DW_TAG_reference_type";
471 case DW_TAG_compile_unit: return "DW_TAG_compile_unit";
472 case DW_TAG_string_type: return "DW_TAG_string_type";
473 case DW_TAG_structure_type: return "DW_TAG_structure_type";
474 case DW_TAG_subroutine_type: return "DW_TAG_subroutine_type";
475 case DW_TAG_typedef: return "DW_TAG_typedef";
476 case DW_TAG_union_type: return "DW_TAG_union_type";
477 case DW_TAG_unspecified_parameters: return "DW_TAG_unspecified_parameters";
478 case DW_TAG_variant: return "DW_TAG_variant";
479 case DW_TAG_common_block: return "DW_TAG_common_block";
480 case DW_TAG_common_inclusion: return "DW_TAG_common_inclusion";
481 case DW_TAG_inheritance: return "DW_TAG_inheritance";
482 case DW_TAG_inlined_subroutine: return "DW_TAG_inlined_subroutine";
483 case DW_TAG_module: return "DW_TAG_module";
484 case DW_TAG_ptr_to_member_type: return "DW_TAG_ptr_to_member_type";
485 case DW_TAG_set_type: return "DW_TAG_set_type";
486 case DW_TAG_subrange_type: return "DW_TAG_subrange_type";
487 case DW_TAG_with_stmt: return "DW_TAG_with_stmt";
488 case DW_TAG_access_declaration: return "DW_TAG_access_declaration";
489 case DW_TAG_base_type: return "DW_TAG_base_type";
490 case DW_TAG_catch_block: return "DW_TAG_catch_block";
491 case DW_TAG_const_type: return "DW_TAG_const_type";
492 case DW_TAG_constant: return "DW_TAG_constant";
493 case DW_TAG_enumerator: return "DW_TAG_enumerator";
494 case DW_TAG_file_type: return "DW_TAG_file_type";
495 case DW_TAG_friend: return "DW_TAG_friend";
496 case DW_TAG_namelist: return "DW_TAG_namelist";
497 case DW_TAG_namelist_item: return "DW_TAG_namelist_item";
498 case DW_TAG_packed_type: return "DW_TAG_packed_type";
499 case DW_TAG_subprogram: return "DW_TAG_subprogram";
500 case DW_TAG_template_type_param: return "DW_TAG_template_type_param";
501 case DW_TAG_template_value_param: return "DW_TAG_template_value_param";
502 case DW_TAG_thrown_type: return "DW_TAG_thrown_type";
503 case DW_TAG_try_block: return "DW_TAG_try_block";
504 case DW_TAG_variant_part: return "DW_TAG_variant_part";
505 case DW_TAG_variable: return "DW_TAG_variable";
506 case DW_TAG_volatile_type: return "DW_TAG_volatile_type";
507 case DW_TAG_MIPS_loop: return "DW_TAG_MIPS_loop";
508 case DW_TAG_format_label: return "DW_TAG_format_label";
509 case DW_TAG_function_template: return "DW_TAG_function_template";
510 case DW_TAG_class_template: return "DW_TAG_class_template";
511 /* DWARF 2.1 values. */
512 case DW_TAG_dwarf_procedure: return "DW_TAG_dwarf_procedure";
513 case DW_TAG_restrict_type: return "DW_TAG_restrict_type";
514 case DW_TAG_interface_type: return "DW_TAG_interface_type";
515 case DW_TAG_namespace: return "DW_TAG_namespace";
516 case DW_TAG_imported_module: return "DW_TAG_imported_module";
517 case DW_TAG_unspecified_type: return "DW_TAG_unspecified_type";
518 case DW_TAG_partial_unit: return "DW_TAG_partial_unit";
519 case DW_TAG_imported_unit: return "DW_TAG_imported_unit";
520 /* UPC values. */
521 case DW_TAG_upc_shared_type: return "DW_TAG_upc_shared_type";
522 case DW_TAG_upc_strict_type: return "DW_TAG_upc_strict_type";
523 case DW_TAG_upc_relaxed_type: return "DW_TAG_upc_relaxed_type";
524 default:
526 static char buffer[100];
528 snprintf (buffer, sizeof (buffer), _("Unknown TAG value: %lx"), tag);
529 return buffer;
534 static char *
535 get_FORM_name (unsigned long form)
537 switch (form)
539 case DW_FORM_addr: return "DW_FORM_addr";
540 case DW_FORM_block2: return "DW_FORM_block2";
541 case DW_FORM_block4: return "DW_FORM_block4";
542 case DW_FORM_data2: return "DW_FORM_data2";
543 case DW_FORM_data4: return "DW_FORM_data4";
544 case DW_FORM_data8: return "DW_FORM_data8";
545 case DW_FORM_string: return "DW_FORM_string";
546 case DW_FORM_block: return "DW_FORM_block";
547 case DW_FORM_block1: return "DW_FORM_block1";
548 case DW_FORM_data1: return "DW_FORM_data1";
549 case DW_FORM_flag: return "DW_FORM_flag";
550 case DW_FORM_sdata: return "DW_FORM_sdata";
551 case DW_FORM_strp: return "DW_FORM_strp";
552 case DW_FORM_udata: return "DW_FORM_udata";
553 case DW_FORM_ref_addr: return "DW_FORM_ref_addr";
554 case DW_FORM_ref1: return "DW_FORM_ref1";
555 case DW_FORM_ref2: return "DW_FORM_ref2";
556 case DW_FORM_ref4: return "DW_FORM_ref4";
557 case DW_FORM_ref8: return "DW_FORM_ref8";
558 case DW_FORM_ref_udata: return "DW_FORM_ref_udata";
559 case DW_FORM_indirect: return "DW_FORM_indirect";
560 default:
562 static char buffer[100];
564 snprintf (buffer, sizeof (buffer), _("Unknown FORM value: %lx"), form);
565 return buffer;
570 static unsigned char *
571 display_block (unsigned char *data, unsigned long length)
573 printf (_(" %lu byte block: "), length);
575 while (length --)
576 printf ("%lx ", (unsigned long) byte_get (data++, 1));
578 return data;
581 static int
582 decode_location_expression (unsigned char * data,
583 unsigned int pointer_size,
584 unsigned long length,
585 unsigned long cu_offset)
587 unsigned op;
588 unsigned int bytes_read;
589 unsigned long uvalue;
590 unsigned char *end = data + length;
591 int need_frame_base = 0;
593 while (data < end)
595 op = *data++;
597 switch (op)
599 case DW_OP_addr:
600 printf ("DW_OP_addr: %lx",
601 (unsigned long) byte_get (data, pointer_size));
602 data += pointer_size;
603 break;
604 case DW_OP_deref:
605 printf ("DW_OP_deref");
606 break;
607 case DW_OP_const1u:
608 printf ("DW_OP_const1u: %lu", (unsigned long) byte_get (data++, 1));
609 break;
610 case DW_OP_const1s:
611 printf ("DW_OP_const1s: %ld", (long) byte_get_signed (data++, 1));
612 break;
613 case DW_OP_const2u:
614 printf ("DW_OP_const2u: %lu", (unsigned long) byte_get (data, 2));
615 data += 2;
616 break;
617 case DW_OP_const2s:
618 printf ("DW_OP_const2s: %ld", (long) byte_get_signed (data, 2));
619 data += 2;
620 break;
621 case DW_OP_const4u:
622 printf ("DW_OP_const4u: %lu", (unsigned long) byte_get (data, 4));
623 data += 4;
624 break;
625 case DW_OP_const4s:
626 printf ("DW_OP_const4s: %ld", (long) byte_get_signed (data, 4));
627 data += 4;
628 break;
629 case DW_OP_const8u:
630 printf ("DW_OP_const8u: %lu %lu", (unsigned long) byte_get (data, 4),
631 (unsigned long) byte_get (data + 4, 4));
632 data += 8;
633 break;
634 case DW_OP_const8s:
635 printf ("DW_OP_const8s: %ld %ld", (long) byte_get (data, 4),
636 (long) byte_get (data + 4, 4));
637 data += 8;
638 break;
639 case DW_OP_constu:
640 printf ("DW_OP_constu: %lu", read_leb128 (data, &bytes_read, 0));
641 data += bytes_read;
642 break;
643 case DW_OP_consts:
644 printf ("DW_OP_consts: %ld", read_leb128 (data, &bytes_read, 1));
645 data += bytes_read;
646 break;
647 case DW_OP_dup:
648 printf ("DW_OP_dup");
649 break;
650 case DW_OP_drop:
651 printf ("DW_OP_drop");
652 break;
653 case DW_OP_over:
654 printf ("DW_OP_over");
655 break;
656 case DW_OP_pick:
657 printf ("DW_OP_pick: %ld", (unsigned long) byte_get (data++, 1));
658 break;
659 case DW_OP_swap:
660 printf ("DW_OP_swap");
661 break;
662 case DW_OP_rot:
663 printf ("DW_OP_rot");
664 break;
665 case DW_OP_xderef:
666 printf ("DW_OP_xderef");
667 break;
668 case DW_OP_abs:
669 printf ("DW_OP_abs");
670 break;
671 case DW_OP_and:
672 printf ("DW_OP_and");
673 break;
674 case DW_OP_div:
675 printf ("DW_OP_div");
676 break;
677 case DW_OP_minus:
678 printf ("DW_OP_minus");
679 break;
680 case DW_OP_mod:
681 printf ("DW_OP_mod");
682 break;
683 case DW_OP_mul:
684 printf ("DW_OP_mul");
685 break;
686 case DW_OP_neg:
687 printf ("DW_OP_neg");
688 break;
689 case DW_OP_not:
690 printf ("DW_OP_not");
691 break;
692 case DW_OP_or:
693 printf ("DW_OP_or");
694 break;
695 case DW_OP_plus:
696 printf ("DW_OP_plus");
697 break;
698 case DW_OP_plus_uconst:
699 printf ("DW_OP_plus_uconst: %lu",
700 read_leb128 (data, &bytes_read, 0));
701 data += bytes_read;
702 break;
703 case DW_OP_shl:
704 printf ("DW_OP_shl");
705 break;
706 case DW_OP_shr:
707 printf ("DW_OP_shr");
708 break;
709 case DW_OP_shra:
710 printf ("DW_OP_shra");
711 break;
712 case DW_OP_xor:
713 printf ("DW_OP_xor");
714 break;
715 case DW_OP_bra:
716 printf ("DW_OP_bra: %ld", (long) byte_get_signed (data, 2));
717 data += 2;
718 break;
719 case DW_OP_eq:
720 printf ("DW_OP_eq");
721 break;
722 case DW_OP_ge:
723 printf ("DW_OP_ge");
724 break;
725 case DW_OP_gt:
726 printf ("DW_OP_gt");
727 break;
728 case DW_OP_le:
729 printf ("DW_OP_le");
730 break;
731 case DW_OP_lt:
732 printf ("DW_OP_lt");
733 break;
734 case DW_OP_ne:
735 printf ("DW_OP_ne");
736 break;
737 case DW_OP_skip:
738 printf ("DW_OP_skip: %ld", (long) byte_get_signed (data, 2));
739 data += 2;
740 break;
742 case DW_OP_lit0:
743 case DW_OP_lit1:
744 case DW_OP_lit2:
745 case DW_OP_lit3:
746 case DW_OP_lit4:
747 case DW_OP_lit5:
748 case DW_OP_lit6:
749 case DW_OP_lit7:
750 case DW_OP_lit8:
751 case DW_OP_lit9:
752 case DW_OP_lit10:
753 case DW_OP_lit11:
754 case DW_OP_lit12:
755 case DW_OP_lit13:
756 case DW_OP_lit14:
757 case DW_OP_lit15:
758 case DW_OP_lit16:
759 case DW_OP_lit17:
760 case DW_OP_lit18:
761 case DW_OP_lit19:
762 case DW_OP_lit20:
763 case DW_OP_lit21:
764 case DW_OP_lit22:
765 case DW_OP_lit23:
766 case DW_OP_lit24:
767 case DW_OP_lit25:
768 case DW_OP_lit26:
769 case DW_OP_lit27:
770 case DW_OP_lit28:
771 case DW_OP_lit29:
772 case DW_OP_lit30:
773 case DW_OP_lit31:
774 printf ("DW_OP_lit%d", op - DW_OP_lit0);
775 break;
777 case DW_OP_reg0:
778 case DW_OP_reg1:
779 case DW_OP_reg2:
780 case DW_OP_reg3:
781 case DW_OP_reg4:
782 case DW_OP_reg5:
783 case DW_OP_reg6:
784 case DW_OP_reg7:
785 case DW_OP_reg8:
786 case DW_OP_reg9:
787 case DW_OP_reg10:
788 case DW_OP_reg11:
789 case DW_OP_reg12:
790 case DW_OP_reg13:
791 case DW_OP_reg14:
792 case DW_OP_reg15:
793 case DW_OP_reg16:
794 case DW_OP_reg17:
795 case DW_OP_reg18:
796 case DW_OP_reg19:
797 case DW_OP_reg20:
798 case DW_OP_reg21:
799 case DW_OP_reg22:
800 case DW_OP_reg23:
801 case DW_OP_reg24:
802 case DW_OP_reg25:
803 case DW_OP_reg26:
804 case DW_OP_reg27:
805 case DW_OP_reg28:
806 case DW_OP_reg29:
807 case DW_OP_reg30:
808 case DW_OP_reg31:
809 printf ("DW_OP_reg%d", op - DW_OP_reg0);
810 break;
812 case DW_OP_breg0:
813 case DW_OP_breg1:
814 case DW_OP_breg2:
815 case DW_OP_breg3:
816 case DW_OP_breg4:
817 case DW_OP_breg5:
818 case DW_OP_breg6:
819 case DW_OP_breg7:
820 case DW_OP_breg8:
821 case DW_OP_breg9:
822 case DW_OP_breg10:
823 case DW_OP_breg11:
824 case DW_OP_breg12:
825 case DW_OP_breg13:
826 case DW_OP_breg14:
827 case DW_OP_breg15:
828 case DW_OP_breg16:
829 case DW_OP_breg17:
830 case DW_OP_breg18:
831 case DW_OP_breg19:
832 case DW_OP_breg20:
833 case DW_OP_breg21:
834 case DW_OP_breg22:
835 case DW_OP_breg23:
836 case DW_OP_breg24:
837 case DW_OP_breg25:
838 case DW_OP_breg26:
839 case DW_OP_breg27:
840 case DW_OP_breg28:
841 case DW_OP_breg29:
842 case DW_OP_breg30:
843 case DW_OP_breg31:
844 printf ("DW_OP_breg%d: %ld", op - DW_OP_breg0,
845 read_leb128 (data, &bytes_read, 1));
846 data += bytes_read;
847 break;
849 case DW_OP_regx:
850 printf ("DW_OP_regx: %lu", read_leb128 (data, &bytes_read, 0));
851 data += bytes_read;
852 break;
853 case DW_OP_fbreg:
854 need_frame_base = 1;
855 printf ("DW_OP_fbreg: %ld", read_leb128 (data, &bytes_read, 1));
856 data += bytes_read;
857 break;
858 case DW_OP_bregx:
859 uvalue = read_leb128 (data, &bytes_read, 0);
860 data += bytes_read;
861 printf ("DW_OP_bregx: %lu %ld", uvalue,
862 read_leb128 (data, &bytes_read, 1));
863 data += bytes_read;
864 break;
865 case DW_OP_piece:
866 printf ("DW_OP_piece: %lu", read_leb128 (data, &bytes_read, 0));
867 data += bytes_read;
868 break;
869 case DW_OP_deref_size:
870 printf ("DW_OP_deref_size: %ld", (long) byte_get (data++, 1));
871 break;
872 case DW_OP_xderef_size:
873 printf ("DW_OP_xderef_size: %ld", (long) byte_get (data++, 1));
874 break;
875 case DW_OP_nop:
876 printf ("DW_OP_nop");
877 break;
879 /* DWARF 3 extensions. */
880 case DW_OP_push_object_address:
881 printf ("DW_OP_push_object_address");
882 break;
883 case DW_OP_call2:
884 /* XXX: Strictly speaking for 64-bit DWARF3 files
885 this ought to be an 8-byte wide computation. */
886 printf ("DW_OP_call2: <%lx>", (long) byte_get (data, 2) + cu_offset);
887 data += 2;
888 break;
889 case DW_OP_call4:
890 /* XXX: Strictly speaking for 64-bit DWARF3 files
891 this ought to be an 8-byte wide computation. */
892 printf ("DW_OP_call4: <%lx>", (long) byte_get (data, 4) + cu_offset);
893 data += 4;
894 break;
895 case DW_OP_call_ref:
896 printf ("DW_OP_call_ref");
897 break;
899 /* GNU extensions. */
900 case DW_OP_GNU_push_tls_address:
901 printf ("DW_OP_GNU_push_tls_address");
902 break;
904 default:
905 if (op >= DW_OP_lo_user
906 && op <= DW_OP_hi_user)
907 printf (_("(User defined location op)"));
908 else
909 printf (_("(Unknown location op)"));
910 /* No way to tell where the next op is, so just bail. */
911 return need_frame_base;
914 /* Separate the ops. */
915 if (data < end)
916 printf ("; ");
919 return need_frame_base;
922 static unsigned char *
923 read_and_display_attr_value (unsigned long attribute,
924 unsigned long form,
925 unsigned char *data,
926 unsigned long cu_offset,
927 unsigned long pointer_size,
928 unsigned long offset_size,
929 int dwarf_version,
930 debug_info *debug_info_p,
931 int do_loc)
933 unsigned long uvalue = 0;
934 unsigned char *block_start = NULL;
935 unsigned int bytes_read;
937 switch (form)
939 default:
940 break;
942 case DW_FORM_ref_addr:
943 if (dwarf_version == 2)
945 uvalue = byte_get (data, pointer_size);
946 data += pointer_size;
948 else if (dwarf_version == 3)
950 uvalue = byte_get (data, offset_size);
951 data += offset_size;
953 else
955 error (_("Internal error: DWARF version is not 2 or 3.\n"));
957 break;
959 case DW_FORM_addr:
960 uvalue = byte_get (data, pointer_size);
961 data += pointer_size;
962 break;
964 case DW_FORM_strp:
965 uvalue = byte_get (data, offset_size);
966 data += offset_size;
967 break;
969 case DW_FORM_ref1:
970 case DW_FORM_flag:
971 case DW_FORM_data1:
972 uvalue = byte_get (data++, 1);
973 break;
975 case DW_FORM_ref2:
976 case DW_FORM_data2:
977 uvalue = byte_get (data, 2);
978 data += 2;
979 break;
981 case DW_FORM_ref4:
982 case DW_FORM_data4:
983 uvalue = byte_get (data, 4);
984 data += 4;
985 break;
987 case DW_FORM_sdata:
988 uvalue = read_leb128 (data, & bytes_read, 1);
989 data += bytes_read;
990 break;
992 case DW_FORM_ref_udata:
993 case DW_FORM_udata:
994 uvalue = read_leb128 (data, & bytes_read, 0);
995 data += bytes_read;
996 break;
998 case DW_FORM_indirect:
999 form = read_leb128 (data, & bytes_read, 0);
1000 data += bytes_read;
1001 if (!do_loc)
1002 printf (" %s", get_FORM_name (form));
1003 return read_and_display_attr_value (attribute, form, data,
1004 cu_offset, pointer_size,
1005 offset_size, dwarf_version,
1006 debug_info_p, do_loc);
1009 switch (form)
1011 case DW_FORM_ref_addr:
1012 if (!do_loc)
1013 printf (" <#%lx>", uvalue);
1014 break;
1016 case DW_FORM_ref1:
1017 case DW_FORM_ref2:
1018 case DW_FORM_ref4:
1019 case DW_FORM_ref_udata:
1020 if (!do_loc)
1021 printf (" <%lx>", uvalue + cu_offset);
1022 break;
1024 case DW_FORM_data4:
1025 case DW_FORM_addr:
1026 if (!do_loc)
1027 printf (" %#lx", uvalue);
1028 break;
1030 case DW_FORM_flag:
1031 case DW_FORM_data1:
1032 case DW_FORM_data2:
1033 case DW_FORM_sdata:
1034 case DW_FORM_udata:
1035 if (!do_loc)
1036 printf (" %ld", uvalue);
1037 break;
1039 case DW_FORM_ref8:
1040 case DW_FORM_data8:
1041 if (!do_loc)
1043 uvalue = byte_get (data, 4);
1044 printf (" %lx", uvalue);
1045 printf (" %lx", (unsigned long) byte_get (data + 4, 4));
1047 if ((do_loc || do_debug_loc || do_debug_ranges)
1048 && num_debug_info_entries == 0)
1050 if (sizeof (uvalue) == 8)
1051 uvalue = byte_get (data, 8);
1052 else
1053 error (_("DW_FORM_data8 is unsupported when sizeof (unsigned long) != 8\n"));
1055 data += 8;
1056 break;
1058 case DW_FORM_string:
1059 if (!do_loc)
1060 printf (" %s", data);
1061 data += strlen ((char *) data) + 1;
1062 break;
1064 case DW_FORM_block:
1065 uvalue = read_leb128 (data, & bytes_read, 0);
1066 block_start = data + bytes_read;
1067 if (do_loc)
1068 data = block_start + uvalue;
1069 else
1070 data = display_block (block_start, uvalue);
1071 break;
1073 case DW_FORM_block1:
1074 uvalue = byte_get (data, 1);
1075 block_start = data + 1;
1076 if (do_loc)
1077 data = block_start + uvalue;
1078 else
1079 data = display_block (block_start, uvalue);
1080 break;
1082 case DW_FORM_block2:
1083 uvalue = byte_get (data, 2);
1084 block_start = data + 2;
1085 if (do_loc)
1086 data = block_start + uvalue;
1087 else
1088 data = display_block (block_start, uvalue);
1089 break;
1091 case DW_FORM_block4:
1092 uvalue = byte_get (data, 4);
1093 block_start = data + 4;
1094 if (do_loc)
1095 data = block_start + uvalue;
1096 else
1097 data = display_block (block_start, uvalue);
1098 break;
1100 case DW_FORM_strp:
1101 if (!do_loc)
1102 printf (_(" (indirect string, offset: 0x%lx): %s"),
1103 uvalue, fetch_indirect_string (uvalue));
1104 break;
1106 case DW_FORM_indirect:
1107 /* Handled above. */
1108 break;
1110 default:
1111 warn (_("Unrecognized form: %lu\n"), form);
1112 break;
1115 /* For some attributes we can display further information. */
1116 if ((do_loc || do_debug_loc || do_debug_ranges)
1117 && num_debug_info_entries == 0)
1119 switch (attribute)
1121 case DW_AT_frame_base:
1122 have_frame_base = 1;
1123 case DW_AT_location:
1124 case DW_AT_data_member_location:
1125 case DW_AT_vtable_elem_location:
1126 case DW_AT_allocated:
1127 case DW_AT_associated:
1128 case DW_AT_data_location:
1129 case DW_AT_stride:
1130 case DW_AT_upper_bound:
1131 case DW_AT_lower_bound:
1132 if (form == DW_FORM_data4 || form == DW_FORM_data8)
1134 /* Process location list. */
1135 unsigned int max = debug_info_p->max_loc_offsets;
1136 unsigned int num = debug_info_p->num_loc_offsets;
1138 if (max == 0 || num >= max)
1140 max += 1024;
1141 debug_info_p->loc_offsets
1142 = xcrealloc (debug_info_p->loc_offsets,
1143 max, sizeof (*debug_info_p->loc_offsets));
1144 debug_info_p->have_frame_base
1145 = xcrealloc (debug_info_p->have_frame_base,
1146 max, sizeof (*debug_info_p->have_frame_base));
1147 debug_info_p->max_loc_offsets = max;
1149 debug_info_p->loc_offsets [num] = uvalue;
1150 debug_info_p->have_frame_base [num] = have_frame_base;
1151 debug_info_p->num_loc_offsets++;
1153 break;
1155 case DW_AT_low_pc:
1156 if (need_base_address)
1157 debug_info_p->base_address = uvalue;
1158 break;
1160 case DW_AT_ranges:
1161 if (form == DW_FORM_data4 || form == DW_FORM_data8)
1163 /* Process range list. */
1164 unsigned int max = debug_info_p->max_range_lists;
1165 unsigned int num = debug_info_p->num_range_lists;
1167 if (max == 0 || num >= max)
1169 max += 1024;
1170 debug_info_p->range_lists
1171 = xcrealloc (debug_info_p->range_lists,
1172 max, sizeof (*debug_info_p->range_lists));
1173 debug_info_p->max_range_lists = max;
1175 debug_info_p->range_lists [num] = uvalue;
1176 debug_info_p->num_range_lists++;
1178 break;
1180 default:
1181 break;
1185 if (do_loc)
1186 return data;
1188 printf ("\t");
1190 switch (attribute)
1192 case DW_AT_inline:
1193 switch (uvalue)
1195 case DW_INL_not_inlined:
1196 printf (_("(not inlined)"));
1197 break;
1198 case DW_INL_inlined:
1199 printf (_("(inlined)"));
1200 break;
1201 case DW_INL_declared_not_inlined:
1202 printf (_("(declared as inline but ignored)"));
1203 break;
1204 case DW_INL_declared_inlined:
1205 printf (_("(declared as inline and inlined)"));
1206 break;
1207 default:
1208 printf (_(" (Unknown inline attribute value: %lx)"), uvalue);
1209 break;
1211 break;
1213 case DW_AT_language:
1214 switch (uvalue)
1216 case DW_LANG_C: printf ("(non-ANSI C)"); break;
1217 case DW_LANG_C89: printf ("(ANSI C)"); break;
1218 case DW_LANG_C_plus_plus: printf ("(C++)"); break;
1219 case DW_LANG_Fortran77: printf ("(FORTRAN 77)"); break;
1220 case DW_LANG_Fortran90: printf ("(Fortran 90)"); break;
1221 case DW_LANG_Modula2: printf ("(Modula 2)"); break;
1222 case DW_LANG_Pascal83: printf ("(ANSI Pascal)"); break;
1223 case DW_LANG_Ada83: printf ("(Ada)"); break;
1224 case DW_LANG_Cobol74: printf ("(Cobol 74)"); break;
1225 case DW_LANG_Cobol85: printf ("(Cobol 85)"); break;
1226 /* DWARF 2.1 values. */
1227 case DW_LANG_C99: printf ("(ANSI C99)"); break;
1228 case DW_LANG_Ada95: printf ("(ADA 95)"); break;
1229 case DW_LANG_Fortran95: printf ("(Fortran 95)"); break;
1230 /* MIPS extension. */
1231 case DW_LANG_Mips_Assembler: printf ("(MIPS assembler)"); break;
1232 /* UPC extension. */
1233 case DW_LANG_Upc: printf ("(Unified Parallel C)"); break;
1234 default:
1235 printf ("(Unknown: %lx)", uvalue);
1236 break;
1238 break;
1240 case DW_AT_encoding:
1241 switch (uvalue)
1243 case DW_ATE_void: printf ("(void)"); break;
1244 case DW_ATE_address: printf ("(machine address)"); break;
1245 case DW_ATE_boolean: printf ("(boolean)"); break;
1246 case DW_ATE_complex_float: printf ("(complex float)"); break;
1247 case DW_ATE_float: printf ("(float)"); break;
1248 case DW_ATE_signed: printf ("(signed)"); break;
1249 case DW_ATE_signed_char: printf ("(signed char)"); break;
1250 case DW_ATE_unsigned: printf ("(unsigned)"); break;
1251 case DW_ATE_unsigned_char: printf ("(unsigned char)"); break;
1252 /* DWARF 2.1 value. */
1253 case DW_ATE_imaginary_float: printf ("(imaginary float)"); break;
1254 case DW_ATE_decimal_float: printf ("(decimal float)"); break;
1255 default:
1256 if (uvalue >= DW_ATE_lo_user
1257 && uvalue <= DW_ATE_hi_user)
1258 printf ("(user defined type)");
1259 else
1260 printf ("(unknown type)");
1261 break;
1263 break;
1265 case DW_AT_accessibility:
1266 switch (uvalue)
1268 case DW_ACCESS_public: printf ("(public)"); break;
1269 case DW_ACCESS_protected: printf ("(protected)"); break;
1270 case DW_ACCESS_private: printf ("(private)"); break;
1271 default:
1272 printf ("(unknown accessibility)");
1273 break;
1275 break;
1277 case DW_AT_visibility:
1278 switch (uvalue)
1280 case DW_VIS_local: printf ("(local)"); break;
1281 case DW_VIS_exported: printf ("(exported)"); break;
1282 case DW_VIS_qualified: printf ("(qualified)"); break;
1283 default: printf ("(unknown visibility)"); break;
1285 break;
1287 case DW_AT_virtuality:
1288 switch (uvalue)
1290 case DW_VIRTUALITY_none: printf ("(none)"); break;
1291 case DW_VIRTUALITY_virtual: printf ("(virtual)"); break;
1292 case DW_VIRTUALITY_pure_virtual:printf ("(pure_virtual)"); break;
1293 default: printf ("(unknown virtuality)"); break;
1295 break;
1297 case DW_AT_identifier_case:
1298 switch (uvalue)
1300 case DW_ID_case_sensitive: printf ("(case_sensitive)"); break;
1301 case DW_ID_up_case: printf ("(up_case)"); break;
1302 case DW_ID_down_case: printf ("(down_case)"); break;
1303 case DW_ID_case_insensitive: printf ("(case_insensitive)"); break;
1304 default: printf ("(unknown case)"); break;
1306 break;
1308 case DW_AT_calling_convention:
1309 switch (uvalue)
1311 case DW_CC_normal: printf ("(normal)"); break;
1312 case DW_CC_program: printf ("(program)"); break;
1313 case DW_CC_nocall: printf ("(nocall)"); break;
1314 default:
1315 if (uvalue >= DW_CC_lo_user
1316 && uvalue <= DW_CC_hi_user)
1317 printf ("(user defined)");
1318 else
1319 printf ("(unknown convention)");
1321 break;
1323 case DW_AT_ordering:
1324 switch (uvalue)
1326 case -1: printf ("(undefined)"); break;
1327 case 0: printf ("(row major)"); break;
1328 case 1: printf ("(column major)"); break;
1330 break;
1332 case DW_AT_frame_base:
1333 have_frame_base = 1;
1334 case DW_AT_location:
1335 case DW_AT_data_member_location:
1336 case DW_AT_vtable_elem_location:
1337 case DW_AT_allocated:
1338 case DW_AT_associated:
1339 case DW_AT_data_location:
1340 case DW_AT_stride:
1341 case DW_AT_upper_bound:
1342 case DW_AT_lower_bound:
1343 if (block_start)
1345 int need_frame_base;
1347 printf ("(");
1348 need_frame_base = decode_location_expression (block_start,
1349 pointer_size,
1350 uvalue,
1351 cu_offset);
1352 printf (")");
1353 if (need_frame_base && !have_frame_base)
1354 printf (_(" [without DW_AT_frame_base]"));
1356 else if (form == DW_FORM_data4 || form == DW_FORM_data8)
1357 printf (_("(location list)"));
1359 break;
1361 default:
1362 break;
1365 return data;
1368 static char *
1369 get_AT_name (unsigned long attribute)
1371 switch (attribute)
1373 case DW_AT_sibling: return "DW_AT_sibling";
1374 case DW_AT_location: return "DW_AT_location";
1375 case DW_AT_name: return "DW_AT_name";
1376 case DW_AT_ordering: return "DW_AT_ordering";
1377 case DW_AT_subscr_data: return "DW_AT_subscr_data";
1378 case DW_AT_byte_size: return "DW_AT_byte_size";
1379 case DW_AT_bit_offset: return "DW_AT_bit_offset";
1380 case DW_AT_bit_size: return "DW_AT_bit_size";
1381 case DW_AT_element_list: return "DW_AT_element_list";
1382 case DW_AT_stmt_list: return "DW_AT_stmt_list";
1383 case DW_AT_low_pc: return "DW_AT_low_pc";
1384 case DW_AT_high_pc: return "DW_AT_high_pc";
1385 case DW_AT_language: return "DW_AT_language";
1386 case DW_AT_member: return "DW_AT_member";
1387 case DW_AT_discr: return "DW_AT_discr";
1388 case DW_AT_discr_value: return "DW_AT_discr_value";
1389 case DW_AT_visibility: return "DW_AT_visibility";
1390 case DW_AT_import: return "DW_AT_import";
1391 case DW_AT_string_length: return "DW_AT_string_length";
1392 case DW_AT_common_reference: return "DW_AT_common_reference";
1393 case DW_AT_comp_dir: return "DW_AT_comp_dir";
1394 case DW_AT_const_value: return "DW_AT_const_value";
1395 case DW_AT_containing_type: return "DW_AT_containing_type";
1396 case DW_AT_default_value: return "DW_AT_default_value";
1397 case DW_AT_inline: return "DW_AT_inline";
1398 case DW_AT_is_optional: return "DW_AT_is_optional";
1399 case DW_AT_lower_bound: return "DW_AT_lower_bound";
1400 case DW_AT_producer: return "DW_AT_producer";
1401 case DW_AT_prototyped: return "DW_AT_prototyped";
1402 case DW_AT_return_addr: return "DW_AT_return_addr";
1403 case DW_AT_start_scope: return "DW_AT_start_scope";
1404 case DW_AT_stride_size: return "DW_AT_stride_size";
1405 case DW_AT_upper_bound: return "DW_AT_upper_bound";
1406 case DW_AT_abstract_origin: return "DW_AT_abstract_origin";
1407 case DW_AT_accessibility: return "DW_AT_accessibility";
1408 case DW_AT_address_class: return "DW_AT_address_class";
1409 case DW_AT_artificial: return "DW_AT_artificial";
1410 case DW_AT_base_types: return "DW_AT_base_types";
1411 case DW_AT_calling_convention: return "DW_AT_calling_convention";
1412 case DW_AT_count: return "DW_AT_count";
1413 case DW_AT_data_member_location: return "DW_AT_data_member_location";
1414 case DW_AT_decl_column: return "DW_AT_decl_column";
1415 case DW_AT_decl_file: return "DW_AT_decl_file";
1416 case DW_AT_decl_line: return "DW_AT_decl_line";
1417 case DW_AT_declaration: return "DW_AT_declaration";
1418 case DW_AT_discr_list: return "DW_AT_discr_list";
1419 case DW_AT_encoding: return "DW_AT_encoding";
1420 case DW_AT_external: return "DW_AT_external";
1421 case DW_AT_frame_base: return "DW_AT_frame_base";
1422 case DW_AT_friend: return "DW_AT_friend";
1423 case DW_AT_identifier_case: return "DW_AT_identifier_case";
1424 case DW_AT_macro_info: return "DW_AT_macro_info";
1425 case DW_AT_namelist_items: return "DW_AT_namelist_items";
1426 case DW_AT_priority: return "DW_AT_priority";
1427 case DW_AT_segment: return "DW_AT_segment";
1428 case DW_AT_specification: return "DW_AT_specification";
1429 case DW_AT_static_link: return "DW_AT_static_link";
1430 case DW_AT_type: return "DW_AT_type";
1431 case DW_AT_use_location: return "DW_AT_use_location";
1432 case DW_AT_variable_parameter: return "DW_AT_variable_parameter";
1433 case DW_AT_virtuality: return "DW_AT_virtuality";
1434 case DW_AT_vtable_elem_location: return "DW_AT_vtable_elem_location";
1435 /* DWARF 2.1 values. */
1436 case DW_AT_allocated: return "DW_AT_allocated";
1437 case DW_AT_associated: return "DW_AT_associated";
1438 case DW_AT_data_location: return "DW_AT_data_location";
1439 case DW_AT_stride: return "DW_AT_stride";
1440 case DW_AT_entry_pc: return "DW_AT_entry_pc";
1441 case DW_AT_use_UTF8: return "DW_AT_use_UTF8";
1442 case DW_AT_extension: return "DW_AT_extension";
1443 case DW_AT_ranges: return "DW_AT_ranges";
1444 case DW_AT_trampoline: return "DW_AT_trampoline";
1445 case DW_AT_call_column: return "DW_AT_call_column";
1446 case DW_AT_call_file: return "DW_AT_call_file";
1447 case DW_AT_call_line: return "DW_AT_call_line";
1448 /* SGI/MIPS extensions. */
1449 case DW_AT_MIPS_fde: return "DW_AT_MIPS_fde";
1450 case DW_AT_MIPS_loop_begin: return "DW_AT_MIPS_loop_begin";
1451 case DW_AT_MIPS_tail_loop_begin: return "DW_AT_MIPS_tail_loop_begin";
1452 case DW_AT_MIPS_epilog_begin: return "DW_AT_MIPS_epilog_begin";
1453 case DW_AT_MIPS_loop_unroll_factor: return "DW_AT_MIPS_loop_unroll_factor";
1454 case DW_AT_MIPS_software_pipeline_depth:
1455 return "DW_AT_MIPS_software_pipeline_depth";
1456 case DW_AT_MIPS_linkage_name: return "DW_AT_MIPS_linkage_name";
1457 case DW_AT_MIPS_stride: return "DW_AT_MIPS_stride";
1458 case DW_AT_MIPS_abstract_name: return "DW_AT_MIPS_abstract_name";
1459 case DW_AT_MIPS_clone_origin: return "DW_AT_MIPS_clone_origin";
1460 case DW_AT_MIPS_has_inlines: return "DW_AT_MIPS_has_inlines";
1461 /* GNU extensions. */
1462 case DW_AT_sf_names: return "DW_AT_sf_names";
1463 case DW_AT_src_info: return "DW_AT_src_info";
1464 case DW_AT_mac_info: return "DW_AT_mac_info";
1465 case DW_AT_src_coords: return "DW_AT_src_coords";
1466 case DW_AT_body_begin: return "DW_AT_body_begin";
1467 case DW_AT_body_end: return "DW_AT_body_end";
1468 case DW_AT_GNU_vector: return "DW_AT_GNU_vector";
1469 /* UPC extension. */
1470 case DW_AT_upc_threads_scaled: return "DW_AT_upc_threads_scaled";
1471 default:
1473 static char buffer[100];
1475 snprintf (buffer, sizeof (buffer), _("Unknown AT value: %lx"),
1476 attribute);
1477 return buffer;
1482 static unsigned char *
1483 read_and_display_attr (unsigned long attribute,
1484 unsigned long form,
1485 unsigned char *data,
1486 unsigned long cu_offset,
1487 unsigned long pointer_size,
1488 unsigned long offset_size,
1489 int dwarf_version,
1490 debug_info *debug_info_p,
1491 int do_loc)
1493 if (!do_loc)
1494 printf (" %-18s:", get_AT_name (attribute));
1495 data = read_and_display_attr_value (attribute, form, data, cu_offset,
1496 pointer_size, offset_size,
1497 dwarf_version, debug_info_p,
1498 do_loc);
1499 if (!do_loc)
1500 printf ("\n");
1501 return data;
1505 /* Process the contents of a .debug_info section. If do_loc is non-zero
1506 then we are scanning for location lists and we do not want to display
1507 anything to the user. */
1509 static int
1510 process_debug_info (struct dwarf_section *section, void *file,
1511 int do_loc)
1513 unsigned char *start = section->start;
1514 unsigned char *end = start + section->size;
1515 unsigned char *section_begin;
1516 unsigned int unit;
1517 unsigned int num_units = 0;
1519 if ((do_loc || do_debug_loc || do_debug_ranges)
1520 && num_debug_info_entries == 0)
1522 unsigned long length;
1524 /* First scan the section to get the number of comp units. */
1525 for (section_begin = start, num_units = 0; section_begin < end;
1526 num_units ++)
1528 /* Read the first 4 bytes. For a 32-bit DWARF section, this
1529 will be the length. For a 64-bit DWARF section, it'll be
1530 the escape code 0xffffffff followed by an 8 byte length. */
1531 length = byte_get (section_begin, 4);
1533 if (length == 0xffffffff)
1535 length = byte_get (section_begin + 4, 8);
1536 section_begin += length + 12;
1538 else
1539 section_begin += length + 4;
1542 if (num_units == 0)
1544 error (_("No comp units in %s section ?"), section->name);
1545 return 0;
1548 /* Then allocate an array to hold the information. */
1549 debug_information = cmalloc (num_units,
1550 sizeof (* debug_information));
1551 if (debug_information == NULL)
1553 error (_("Not enough memory for a debug info array of %u entries"),
1554 num_units);
1555 return 0;
1559 if (!do_loc)
1561 printf (_("The section %s contains:\n\n"), section->name);
1563 load_debug_section (str, file);
1566 load_debug_section (abbrev, file);
1567 if (debug_displays [abbrev].section.start == NULL)
1569 warn (_("Unable to locate %s section!\n"),
1570 debug_displays [abbrev].section.name);
1571 return 0;
1574 for (section_begin = start, unit = 0; start < end; unit++)
1576 DWARF2_Internal_CompUnit compunit;
1577 unsigned char *hdrptr;
1578 unsigned char *cu_abbrev_offset_ptr;
1579 unsigned char *tags;
1580 int level;
1581 unsigned long cu_offset;
1582 int offset_size;
1583 int initial_length_size;
1585 hdrptr = start;
1587 compunit.cu_length = byte_get (hdrptr, 4);
1588 hdrptr += 4;
1590 if (compunit.cu_length == 0xffffffff)
1592 compunit.cu_length = byte_get (hdrptr, 8);
1593 hdrptr += 8;
1594 offset_size = 8;
1595 initial_length_size = 12;
1597 else
1599 offset_size = 4;
1600 initial_length_size = 4;
1603 compunit.cu_version = byte_get (hdrptr, 2);
1604 hdrptr += 2;
1606 cu_offset = start - section_begin;
1607 start += compunit.cu_length + initial_length_size;
1609 cu_abbrev_offset_ptr = hdrptr;
1610 compunit.cu_abbrev_offset = byte_get (hdrptr, offset_size);
1611 hdrptr += offset_size;
1613 compunit.cu_pointer_size = byte_get (hdrptr, 1);
1614 hdrptr += 1;
1615 if ((do_loc || do_debug_loc || do_debug_ranges)
1616 && num_debug_info_entries == 0)
1618 debug_information [unit].cu_offset = cu_offset;
1619 debug_information [unit].pointer_size
1620 = compunit.cu_pointer_size;
1621 debug_information [unit].base_address = 0;
1622 debug_information [unit].loc_offsets = NULL;
1623 debug_information [unit].have_frame_base = NULL;
1624 debug_information [unit].max_loc_offsets = 0;
1625 debug_information [unit].num_loc_offsets = 0;
1626 debug_information [unit].range_lists = NULL;
1627 debug_information [unit].max_range_lists= 0;
1628 debug_information [unit].num_range_lists = 0;
1631 tags = hdrptr;
1633 if (!do_loc)
1635 printf (_(" Compilation Unit @ offset 0x%lx:\n"), cu_offset);
1636 printf (_(" Length: %ld\n"), compunit.cu_length);
1637 printf (_(" Version: %d\n"), compunit.cu_version);
1638 printf (_(" Abbrev Offset: %ld\n"), compunit.cu_abbrev_offset);
1639 printf (_(" Pointer Size: %d\n"), compunit.cu_pointer_size);
1642 if (compunit.cu_version != 2 && compunit.cu_version != 3)
1644 warn (_("Only version 2 and 3 DWARF debug information is currently supported.\n"));
1645 continue;
1648 free_abbrevs ();
1650 /* Process the abbrevs used by this compilation unit. DWARF
1651 sections under Mach-O have non-zero addresses. */
1652 process_abbrev_section
1653 ((unsigned char *) debug_displays [abbrev].section.start
1654 + compunit.cu_abbrev_offset - debug_displays [abbrev].section.address,
1655 (unsigned char *) debug_displays [abbrev].section.start
1656 + debug_displays [abbrev].section.size);
1658 level = 0;
1659 while (tags < start)
1661 unsigned int bytes_read;
1662 unsigned long abbrev_number;
1663 abbrev_entry *entry;
1664 abbrev_attr *attr;
1666 abbrev_number = read_leb128 (tags, & bytes_read, 0);
1667 tags += bytes_read;
1669 /* A null DIE marks the end of a list of children. */
1670 if (abbrev_number == 0)
1672 --level;
1673 continue;
1676 /* Scan through the abbreviation list until we reach the
1677 correct entry. */
1678 for (entry = first_abbrev;
1679 entry && entry->entry != abbrev_number;
1680 entry = entry->next)
1681 continue;
1683 if (entry == NULL)
1685 warn (_("Unable to locate entry %lu in the abbreviation table\n"),
1686 abbrev_number);
1687 return 0;
1690 if (!do_loc)
1691 printf (_(" <%d><%lx>: Abbrev Number: %lu (%s)\n"),
1692 level,
1693 (unsigned long) (tags - section_begin
1694 - bytes_read),
1695 abbrev_number,
1696 get_TAG_name (entry->tag));
1698 switch (entry->tag)
1700 default:
1701 need_base_address = 0;
1702 break;
1703 case DW_TAG_compile_unit:
1704 need_base_address = 1;
1705 break;
1706 case DW_TAG_entry_point:
1707 case DW_TAG_inlined_subroutine:
1708 case DW_TAG_subprogram:
1709 need_base_address = 0;
1710 /* Assuming that there is no DW_AT_frame_base. */
1711 have_frame_base = 0;
1712 break;
1715 for (attr = entry->first_attr; attr; attr = attr->next)
1716 tags = read_and_display_attr (attr->attribute,
1717 attr->form,
1718 tags, cu_offset,
1719 compunit.cu_pointer_size,
1720 offset_size,
1721 compunit.cu_version,
1722 &debug_information [unit],
1723 do_loc);
1725 if (entry->children)
1726 ++level;
1730 /* Set num_debug_info_entries here so that it can be used to check if
1731 we need to process .debug_loc and .debug_ranges sections. */
1732 if ((do_loc || do_debug_loc || do_debug_ranges)
1733 && num_debug_info_entries == 0)
1734 num_debug_info_entries = num_units;
1736 if (!do_loc)
1738 printf ("\n");
1741 return 1;
1744 /* Locate and scan the .debug_info section in the file and record the pointer
1745 sizes and offsets for the compilation units in it. Usually an executable
1746 will have just one pointer size, but this is not guaranteed, and so we try
1747 not to make any assumptions. Returns zero upon failure, or the number of
1748 compilation units upon success. */
1750 static unsigned int
1751 load_debug_info (void * file)
1753 /* Reset the last pointer size so that we can issue correct error
1754 messages if we are displaying the contents of more than one section. */
1755 last_pointer_size = 0;
1756 warned_about_missing_comp_units = FALSE;
1758 /* If we already have the information there is nothing else to do. */
1759 if (num_debug_info_entries > 0)
1760 return num_debug_info_entries;
1762 if (load_debug_section (info, file)
1763 && process_debug_info (&debug_displays [info].section, file, 1))
1764 return num_debug_info_entries;
1765 else
1766 return 0;
1769 static int
1770 display_debug_lines (struct dwarf_section *section, void *file)
1772 unsigned char *start = section->start;
1773 unsigned char *data = start;
1774 unsigned char *end = start + section->size;
1776 printf (_("\nDump of debug contents of section %s:\n\n"),
1777 section->name);
1779 load_debug_info (file);
1781 while (data < end)
1783 DWARF2_Internal_LineInfo info;
1784 unsigned char *standard_opcodes;
1785 unsigned char *end_of_sequence;
1786 unsigned char *hdrptr;
1787 int initial_length_size;
1788 int offset_size;
1789 int i;
1791 hdrptr = data;
1793 /* Check the length of the block. */
1794 info.li_length = byte_get (hdrptr, 4);
1795 hdrptr += 4;
1797 if (info.li_length == 0xffffffff)
1799 /* This section is 64-bit DWARF 3. */
1800 info.li_length = byte_get (hdrptr, 8);
1801 hdrptr += 8;
1802 offset_size = 8;
1803 initial_length_size = 12;
1805 else
1807 offset_size = 4;
1808 initial_length_size = 4;
1811 if (info.li_length + initial_length_size > section->size)
1813 warn
1814 (_("The line info appears to be corrupt - the section is too small\n"));
1815 return 0;
1818 /* Check its version number. */
1819 info.li_version = byte_get (hdrptr, 2);
1820 hdrptr += 2;
1821 if (info.li_version != 2 && info.li_version != 3)
1823 warn (_("Only DWARF version 2 and 3 line info is currently supported.\n"));
1824 return 0;
1827 info.li_prologue_length = byte_get (hdrptr, offset_size);
1828 hdrptr += offset_size;
1829 info.li_min_insn_length = byte_get (hdrptr, 1);
1830 hdrptr++;
1831 info.li_default_is_stmt = byte_get (hdrptr, 1);
1832 hdrptr++;
1833 info.li_line_base = byte_get (hdrptr, 1);
1834 hdrptr++;
1835 info.li_line_range = byte_get (hdrptr, 1);
1836 hdrptr++;
1837 info.li_opcode_base = byte_get (hdrptr, 1);
1838 hdrptr++;
1840 /* Sign extend the line base field. */
1841 info.li_line_base <<= 24;
1842 info.li_line_base >>= 24;
1844 printf (_(" Length: %ld\n"), info.li_length);
1845 printf (_(" DWARF Version: %d\n"), info.li_version);
1846 printf (_(" Prologue Length: %d\n"), info.li_prologue_length);
1847 printf (_(" Minimum Instruction Length: %d\n"), info.li_min_insn_length);
1848 printf (_(" Initial value of 'is_stmt': %d\n"), info.li_default_is_stmt);
1849 printf (_(" Line Base: %d\n"), info.li_line_base);
1850 printf (_(" Line Range: %d\n"), info.li_line_range);
1851 printf (_(" Opcode Base: %d\n"), info.li_opcode_base);
1853 end_of_sequence = data + info.li_length + initial_length_size;
1855 reset_state_machine (info.li_default_is_stmt);
1857 /* Display the contents of the Opcodes table. */
1858 standard_opcodes = hdrptr;
1860 printf (_("\n Opcodes:\n"));
1862 for (i = 1; i < info.li_opcode_base; i++)
1863 printf (_(" Opcode %d has %d args\n"), i, standard_opcodes[i - 1]);
1865 /* Display the contents of the Directory table. */
1866 data = standard_opcodes + info.li_opcode_base - 1;
1868 if (*data == 0)
1869 printf (_("\n The Directory Table is empty.\n"));
1870 else
1872 printf (_("\n The Directory Table:\n"));
1874 while (*data != 0)
1876 printf (_(" %s\n"), data);
1878 data += strlen ((char *) data) + 1;
1882 /* Skip the NUL at the end of the table. */
1883 data++;
1885 /* Display the contents of the File Name table. */
1886 if (*data == 0)
1887 printf (_("\n The File Name Table is empty.\n"));
1888 else
1890 printf (_("\n The File Name Table:\n"));
1891 printf (_(" Entry\tDir\tTime\tSize\tName\n"));
1893 while (*data != 0)
1895 unsigned char *name;
1896 unsigned int bytes_read;
1898 printf (_(" %d\t"), ++state_machine_regs.last_file_entry);
1899 name = data;
1901 data += strlen ((char *) data) + 1;
1903 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
1904 data += bytes_read;
1905 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
1906 data += bytes_read;
1907 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
1908 data += bytes_read;
1909 printf (_("%s\n"), name);
1913 /* Skip the NUL at the end of the table. */
1914 data++;
1916 /* Now display the statements. */
1917 printf (_("\n Line Number Statements:\n"));
1919 while (data < end_of_sequence)
1921 unsigned char op_code;
1922 int adv;
1923 unsigned long int uladv;
1924 unsigned int bytes_read;
1926 op_code = *data++;
1928 if (op_code >= info.li_opcode_base)
1930 op_code -= info.li_opcode_base;
1931 uladv = (op_code / info.li_line_range) * info.li_min_insn_length;
1932 state_machine_regs.address += uladv;
1933 printf (_(" Special opcode %d: advance Address by %lu to 0x%lx"),
1934 op_code, uladv, state_machine_regs.address);
1935 adv = (op_code % info.li_line_range) + info.li_line_base;
1936 state_machine_regs.line += adv;
1937 printf (_(" and Line by %d to %d\n"),
1938 adv, state_machine_regs.line);
1940 else switch (op_code)
1942 case DW_LNS_extended_op:
1943 data += process_extended_line_op (data, info.li_default_is_stmt);
1944 break;
1946 case DW_LNS_copy:
1947 printf (_(" Copy\n"));
1948 break;
1950 case DW_LNS_advance_pc:
1951 uladv = read_leb128 (data, & bytes_read, 0);
1952 uladv *= info.li_min_insn_length;
1953 data += bytes_read;
1954 state_machine_regs.address += uladv;
1955 printf (_(" Advance PC by %lu to 0x%lx\n"), uladv,
1956 state_machine_regs.address);
1957 break;
1959 case DW_LNS_advance_line:
1960 adv = read_leb128 (data, & bytes_read, 1);
1961 data += bytes_read;
1962 state_machine_regs.line += adv;
1963 printf (_(" Advance Line by %d to %d\n"), adv,
1964 state_machine_regs.line);
1965 break;
1967 case DW_LNS_set_file:
1968 adv = read_leb128 (data, & bytes_read, 0);
1969 data += bytes_read;
1970 printf (_(" Set File Name to entry %d in the File Name Table\n"),
1971 adv);
1972 state_machine_regs.file = adv;
1973 break;
1975 case DW_LNS_set_column:
1976 uladv = read_leb128 (data, & bytes_read, 0);
1977 data += bytes_read;
1978 printf (_(" Set column to %lu\n"), uladv);
1979 state_machine_regs.column = uladv;
1980 break;
1982 case DW_LNS_negate_stmt:
1983 adv = state_machine_regs.is_stmt;
1984 adv = ! adv;
1985 printf (_(" Set is_stmt to %d\n"), adv);
1986 state_machine_regs.is_stmt = adv;
1987 break;
1989 case DW_LNS_set_basic_block:
1990 printf (_(" Set basic block\n"));
1991 state_machine_regs.basic_block = 1;
1992 break;
1994 case DW_LNS_const_add_pc:
1995 uladv = (((255 - info.li_opcode_base) / info.li_line_range)
1996 * info.li_min_insn_length);
1997 state_machine_regs.address += uladv;
1998 printf (_(" Advance PC by constant %lu to 0x%lx\n"), uladv,
1999 state_machine_regs.address);
2000 break;
2002 case DW_LNS_fixed_advance_pc:
2003 uladv = byte_get (data, 2);
2004 data += 2;
2005 state_machine_regs.address += uladv;
2006 printf (_(" Advance PC by fixed size amount %lu to 0x%lx\n"),
2007 uladv, state_machine_regs.address);
2008 break;
2010 case DW_LNS_set_prologue_end:
2011 printf (_(" Set prologue_end to true\n"));
2012 break;
2014 case DW_LNS_set_epilogue_begin:
2015 printf (_(" Set epilogue_begin to true\n"));
2016 break;
2018 case DW_LNS_set_isa:
2019 uladv = read_leb128 (data, & bytes_read, 0);
2020 data += bytes_read;
2021 printf (_(" Set ISA to %lu\n"), uladv);
2022 break;
2024 default:
2025 printf (_(" Unknown opcode %d with operands: "), op_code);
2027 for (i = standard_opcodes[op_code - 1]; i > 0 ; --i)
2029 printf ("0x%lx%s", read_leb128 (data, &bytes_read, 0),
2030 i == 1 ? "" : ", ");
2031 data += bytes_read;
2033 putchar ('\n');
2034 break;
2037 putchar ('\n');
2040 return 1;
2043 static int
2044 display_debug_pubnames (struct dwarf_section *section,
2045 void *file ATTRIBUTE_UNUSED)
2047 DWARF2_Internal_PubNames pubnames;
2048 unsigned char *start = section->start;
2049 unsigned char *end = start + section->size;
2051 printf (_("Contents of the %s section:\n\n"), section->name);
2053 while (start < end)
2055 unsigned char *data;
2056 unsigned long offset;
2057 int offset_size, initial_length_size;
2059 data = start;
2061 pubnames.pn_length = byte_get (data, 4);
2062 data += 4;
2063 if (pubnames.pn_length == 0xffffffff)
2065 pubnames.pn_length = byte_get (data, 8);
2066 data += 8;
2067 offset_size = 8;
2068 initial_length_size = 12;
2070 else
2072 offset_size = 4;
2073 initial_length_size = 4;
2076 pubnames.pn_version = byte_get (data, 2);
2077 data += 2;
2078 pubnames.pn_offset = byte_get (data, offset_size);
2079 data += offset_size;
2080 pubnames.pn_size = byte_get (data, offset_size);
2081 data += offset_size;
2083 start += pubnames.pn_length + initial_length_size;
2085 if (pubnames.pn_version != 2 && pubnames.pn_version != 3)
2087 static int warned = 0;
2089 if (! warned)
2091 warn (_("Only DWARF 2 and 3 pubnames are currently supported\n"));
2092 warned = 1;
2095 continue;
2098 printf (_(" Length: %ld\n"),
2099 pubnames.pn_length);
2100 printf (_(" Version: %d\n"),
2101 pubnames.pn_version);
2102 printf (_(" Offset into .debug_info section: %ld\n"),
2103 pubnames.pn_offset);
2104 printf (_(" Size of area in .debug_info section: %ld\n"),
2105 pubnames.pn_size);
2107 printf (_("\n Offset\tName\n"));
2111 offset = byte_get (data, offset_size);
2113 if (offset != 0)
2115 data += offset_size;
2116 printf (" %-6ld\t\t%s\n", offset, data);
2117 data += strlen ((char *) data) + 1;
2120 while (offset != 0);
2123 printf ("\n");
2124 return 1;
2127 static int
2128 display_debug_macinfo (struct dwarf_section *section,
2129 void *file ATTRIBUTE_UNUSED)
2131 unsigned char *start = section->start;
2132 unsigned char *end = start + section->size;
2133 unsigned char *curr = start;
2134 unsigned int bytes_read;
2135 enum dwarf_macinfo_record_type op;
2137 printf (_("Contents of the %s section:\n\n"), section->name);
2139 while (curr < end)
2141 unsigned int lineno;
2142 const char *string;
2144 op = *curr;
2145 curr++;
2147 switch (op)
2149 case DW_MACINFO_start_file:
2151 unsigned int filenum;
2153 lineno = read_leb128 (curr, & bytes_read, 0);
2154 curr += bytes_read;
2155 filenum = read_leb128 (curr, & bytes_read, 0);
2156 curr += bytes_read;
2158 printf (_(" DW_MACINFO_start_file - lineno: %d filenum: %d\n"),
2159 lineno, filenum);
2161 break;
2163 case DW_MACINFO_end_file:
2164 printf (_(" DW_MACINFO_end_file\n"));
2165 break;
2167 case DW_MACINFO_define:
2168 lineno = read_leb128 (curr, & bytes_read, 0);
2169 curr += bytes_read;
2170 string = (char *) curr;
2171 curr += strlen (string) + 1;
2172 printf (_(" DW_MACINFO_define - lineno : %d macro : %s\n"),
2173 lineno, string);
2174 break;
2176 case DW_MACINFO_undef:
2177 lineno = read_leb128 (curr, & bytes_read, 0);
2178 curr += bytes_read;
2179 string = (char *) curr;
2180 curr += strlen (string) + 1;
2181 printf (_(" DW_MACINFO_undef - lineno : %d macro : %s\n"),
2182 lineno, string);
2183 break;
2185 case DW_MACINFO_vendor_ext:
2187 unsigned int constant;
2189 constant = read_leb128 (curr, & bytes_read, 0);
2190 curr += bytes_read;
2191 string = (char *) curr;
2192 curr += strlen (string) + 1;
2193 printf (_(" DW_MACINFO_vendor_ext - constant : %d string : %s\n"),
2194 constant, string);
2196 break;
2200 return 1;
2203 static int
2204 display_debug_abbrev (struct dwarf_section *section,
2205 void *file ATTRIBUTE_UNUSED)
2207 abbrev_entry *entry;
2208 unsigned char *start = section->start;
2209 unsigned char *end = start + section->size;
2211 printf (_("Contents of the %s section:\n\n"), section->name);
2215 free_abbrevs ();
2217 start = process_abbrev_section (start, end);
2219 if (first_abbrev == NULL)
2220 continue;
2222 printf (_(" Number TAG\n"));
2224 for (entry = first_abbrev; entry; entry = entry->next)
2226 abbrev_attr *attr;
2228 printf (_(" %ld %s [%s]\n"),
2229 entry->entry,
2230 get_TAG_name (entry->tag),
2231 entry->children ? _("has children") : _("no children"));
2233 for (attr = entry->first_attr; attr; attr = attr->next)
2234 printf (_(" %-18s %s\n"),
2235 get_AT_name (attr->attribute),
2236 get_FORM_name (attr->form));
2239 while (start);
2241 printf ("\n");
2243 return 1;
2246 static int
2247 display_debug_loc (struct dwarf_section *section, void *file)
2249 unsigned char *start = section->start;
2250 unsigned char *section_end;
2251 unsigned long bytes;
2252 unsigned char *section_begin = start;
2253 unsigned int num_loc_list = 0;
2254 unsigned long last_offset = 0;
2255 unsigned int first = 0;
2256 unsigned int i;
2257 unsigned int j;
2258 int seen_first_offset = 0;
2259 int use_debug_info = 1;
2260 unsigned char *next;
2262 bytes = section->size;
2263 section_end = start + bytes;
2265 if (bytes == 0)
2267 printf (_("\nThe %s section is empty.\n"), section->name);
2268 return 0;
2271 load_debug_info (file);
2273 /* Check the order of location list in .debug_info section. If
2274 offsets of location lists are in the ascending order, we can
2275 use `debug_information' directly. */
2276 for (i = 0; i < num_debug_info_entries; i++)
2278 unsigned int num;
2280 num = debug_information [i].num_loc_offsets;
2281 num_loc_list += num;
2283 /* Check if we can use `debug_information' directly. */
2284 if (use_debug_info && num != 0)
2286 if (!seen_first_offset)
2288 /* This is the first location list. */
2289 last_offset = debug_information [i].loc_offsets [0];
2290 first = i;
2291 seen_first_offset = 1;
2292 j = 1;
2294 else
2295 j = 0;
2297 for (; j < num; j++)
2299 if (last_offset >
2300 debug_information [i].loc_offsets [j])
2302 use_debug_info = 0;
2303 break;
2305 last_offset = debug_information [i].loc_offsets [j];
2310 if (!use_debug_info)
2311 /* FIXME: Should we handle this case? */
2312 error (_("Location lists in .debug_info section aren't in ascending order!\n"));
2314 if (!seen_first_offset)
2315 error (_("No location lists in .debug_info section!\n"));
2317 /* DWARF sections under Mach-O have non-zero addresses. */
2318 if (debug_information [first].loc_offsets [0] != section->address)
2319 warn (_("Location lists in %s section start at 0x%lx\n"),
2320 section->name, debug_information [first].loc_offsets [0]);
2322 printf (_("Contents of the %s section:\n\n"), section->name);
2323 printf (_(" Offset Begin End Expression\n"));
2325 seen_first_offset = 0;
2326 for (i = first; i < num_debug_info_entries; i++)
2328 unsigned long begin;
2329 unsigned long end;
2330 unsigned short length;
2331 unsigned long offset;
2332 unsigned int pointer_size;
2333 unsigned long cu_offset;
2334 unsigned long base_address;
2335 int need_frame_base;
2336 int has_frame_base;
2338 pointer_size = debug_information [i].pointer_size;
2339 cu_offset = debug_information [i].cu_offset;
2341 for (j = 0; j < debug_information [i].num_loc_offsets; j++)
2343 has_frame_base = debug_information [i].have_frame_base [j];
2344 /* DWARF sections under Mach-O have non-zero addresses. */
2345 offset = debug_information [i].loc_offsets [j] - section->address;
2346 next = section_begin + offset;
2347 base_address = debug_information [i].base_address;
2349 if (!seen_first_offset)
2350 seen_first_offset = 1;
2351 else
2353 if (start < next)
2354 warn (_("There is a hole [0x%lx - 0x%lx] in .debug_loc section.\n"),
2355 (long)(start - section_begin), (long)(next - section_begin));
2356 else if (start > next)
2357 warn (_("There is an overlap [0x%lx - 0x%lx] in .debug_loc section.\n"),
2358 (long)(start - section_begin), (long)(next - section_begin));
2360 start = next;
2362 if (offset >= bytes)
2364 warn (_("Offset 0x%lx is bigger than .debug_loc section size.\n"),
2365 offset);
2366 continue;
2369 while (1)
2371 if (start + 2 * pointer_size > section_end)
2373 warn (_("Location list starting at offset 0x%lx is not terminated.\n"),
2374 offset);
2375 break;
2378 begin = byte_get (start, pointer_size);
2379 start += pointer_size;
2380 end = byte_get (start, pointer_size);
2381 start += pointer_size;
2383 if (begin == 0 && end == 0)
2385 printf (_(" %8.8lx <End of list>\n"), offset);
2386 break;
2389 /* Check base address specifiers. */
2390 if (begin == -1UL && end != -1UL)
2392 base_address = end;
2393 printf (_(" %8.8lx %8.8lx %8.8lx (base address)\n"),
2394 offset, begin, end);
2395 continue;
2398 if (start + 2 > section_end)
2400 warn (_("Location list starting at offset 0x%lx is not terminated.\n"),
2401 offset);
2402 break;
2405 length = byte_get (start, 2);
2406 start += 2;
2408 if (start + length > section_end)
2410 warn (_("Location list starting at offset 0x%lx is not terminated.\n"),
2411 offset);
2412 break;
2415 printf (" %8.8lx %8.8lx %8.8lx (",
2416 offset, begin + base_address, end + base_address);
2417 need_frame_base = decode_location_expression (start,
2418 pointer_size,
2419 length,
2420 cu_offset);
2421 putchar (')');
2423 if (need_frame_base && !has_frame_base)
2424 printf (_(" [without DW_AT_frame_base]"));
2426 if (begin == end)
2427 fputs (_(" (start == end)"), stdout);
2428 else if (begin > end)
2429 fputs (_(" (start > end)"), stdout);
2431 putchar ('\n');
2433 start += length;
2437 return 1;
2440 static int
2441 display_debug_str (struct dwarf_section *section,
2442 void *file ATTRIBUTE_UNUSED)
2444 unsigned char *start = section->start;
2445 unsigned long bytes = section->size;
2446 dwarf_vma addr = section->address;
2448 if (bytes == 0)
2450 printf (_("\nThe %s section is empty.\n"), section->name);
2451 return 0;
2454 printf (_("Contents of the %s section:\n\n"), section->name);
2456 while (bytes)
2458 int j;
2459 int k;
2460 int lbytes;
2462 lbytes = (bytes > 16 ? 16 : bytes);
2464 printf (" 0x%8.8lx ", (unsigned long) addr);
2466 for (j = 0; j < 16; j++)
2468 if (j < lbytes)
2469 printf ("%2.2x", start[j]);
2470 else
2471 printf (" ");
2473 if ((j & 3) == 3)
2474 printf (" ");
2477 for (j = 0; j < lbytes; j++)
2479 k = start[j];
2480 if (k >= ' ' && k < 0x80)
2481 printf ("%c", k);
2482 else
2483 printf (".");
2486 putchar ('\n');
2488 start += lbytes;
2489 addr += lbytes;
2490 bytes -= lbytes;
2493 putchar ('\n');
2495 return 1;
2499 static int
2500 display_debug_info (struct dwarf_section *section, void *file)
2502 return process_debug_info (section, file, 0);
2506 static int
2507 display_debug_aranges (struct dwarf_section *section,
2508 void *file ATTRIBUTE_UNUSED)
2510 unsigned char *start = section->start;
2511 unsigned char *end = start + section->size;
2513 printf (_("The section %s contains:\n\n"), section->name);
2515 while (start < end)
2517 unsigned char *hdrptr;
2518 DWARF2_Internal_ARange arange;
2519 unsigned char *ranges;
2520 unsigned long length;
2521 unsigned long address;
2522 int excess;
2523 int offset_size;
2524 int initial_length_size;
2526 hdrptr = start;
2528 arange.ar_length = byte_get (hdrptr, 4);
2529 hdrptr += 4;
2531 if (arange.ar_length == 0xffffffff)
2533 arange.ar_length = byte_get (hdrptr, 8);
2534 hdrptr += 8;
2535 offset_size = 8;
2536 initial_length_size = 12;
2538 else
2540 offset_size = 4;
2541 initial_length_size = 4;
2544 arange.ar_version = byte_get (hdrptr, 2);
2545 hdrptr += 2;
2547 arange.ar_info_offset = byte_get (hdrptr, offset_size);
2548 hdrptr += offset_size;
2550 arange.ar_pointer_size = byte_get (hdrptr, 1);
2551 hdrptr += 1;
2553 arange.ar_segment_size = byte_get (hdrptr, 1);
2554 hdrptr += 1;
2556 if (arange.ar_version != 2 && arange.ar_version != 3)
2558 warn (_("Only DWARF 2 and 3 aranges are currently supported.\n"));
2559 break;
2562 printf (_(" Length: %ld\n"), arange.ar_length);
2563 printf (_(" Version: %d\n"), arange.ar_version);
2564 printf (_(" Offset into .debug_info: %lx\n"), arange.ar_info_offset);
2565 printf (_(" Pointer Size: %d\n"), arange.ar_pointer_size);
2566 printf (_(" Segment Size: %d\n"), arange.ar_segment_size);
2568 printf (_("\n Address Length\n"));
2570 ranges = hdrptr;
2572 /* Must pad to an alignment boundary that is twice the pointer size. */
2573 excess = (hdrptr - start) % (2 * arange.ar_pointer_size);
2574 if (excess)
2575 ranges += (2 * arange.ar_pointer_size) - excess;
2577 start += arange.ar_length + initial_length_size;
2579 while (ranges + 2 * arange.ar_pointer_size <= start)
2581 address = byte_get (ranges, arange.ar_pointer_size);
2583 ranges += arange.ar_pointer_size;
2585 length = byte_get (ranges, arange.ar_pointer_size);
2587 ranges += arange.ar_pointer_size;
2589 printf (" %8.8lx %lu\n", address, length);
2593 printf ("\n");
2595 return 1;
2598 static int
2599 display_debug_ranges (struct dwarf_section *section,
2600 void *file ATTRIBUTE_UNUSED)
2602 unsigned char *start = section->start;
2603 unsigned char *section_end;
2604 unsigned long bytes;
2605 unsigned char *section_begin = start;
2606 unsigned int num_range_list = 0;
2607 unsigned long last_offset = 0;
2608 unsigned int first = 0;
2609 unsigned int i;
2610 unsigned int j;
2611 int seen_first_offset = 0;
2612 int use_debug_info = 1;
2613 unsigned char *next;
2615 bytes = section->size;
2616 section_end = start + bytes;
2618 if (bytes == 0)
2620 printf (_("\nThe %s section is empty.\n"), section->name);
2621 return 0;
2624 load_debug_info (file);
2626 /* Check the order of range list in .debug_info section. If
2627 offsets of range lists are in the ascending order, we can
2628 use `debug_information' directly. */
2629 for (i = 0; i < num_debug_info_entries; i++)
2631 unsigned int num;
2633 num = debug_information [i].num_range_lists;
2634 num_range_list += num;
2636 /* Check if we can use `debug_information' directly. */
2637 if (use_debug_info && num != 0)
2639 if (!seen_first_offset)
2641 /* This is the first range list. */
2642 last_offset = debug_information [i].range_lists [0];
2643 first = i;
2644 seen_first_offset = 1;
2645 j = 1;
2647 else
2648 j = 0;
2650 for (; j < num; j++)
2652 if (last_offset >
2653 debug_information [i].range_lists [j])
2655 use_debug_info = 0;
2656 break;
2658 last_offset = debug_information [i].range_lists [j];
2663 if (!use_debug_info)
2664 /* FIXME: Should we handle this case? */
2665 error (_("Range lists in .debug_info section aren't in ascending order!\n"));
2667 if (!seen_first_offset)
2668 error (_("No range lists in .debug_info section!\n"));
2670 /* DWARF sections under Mach-O have non-zero addresses. */
2671 if (debug_information [first].range_lists [0] != section->address)
2672 warn (_("Range lists in %s section start at 0x%lx\n"),
2673 section->name, debug_information [first].range_lists [0]);
2675 printf (_("Contents of the %s section:\n\n"), section->name);
2676 printf (_(" Offset Begin End\n"));
2678 seen_first_offset = 0;
2679 for (i = first; i < num_debug_info_entries; i++)
2681 unsigned long begin;
2682 unsigned long end;
2683 unsigned long offset;
2684 unsigned int pointer_size;
2685 unsigned long base_address;
2687 pointer_size = debug_information [i].pointer_size;
2689 for (j = 0; j < debug_information [i].num_range_lists; j++)
2691 /* DWARF sections under Mach-O have non-zero addresses. */
2692 offset = debug_information [i].range_lists [j] - section->address;
2693 next = section_begin + offset;
2694 base_address = debug_information [i].base_address;
2696 if (!seen_first_offset)
2697 seen_first_offset = 1;
2698 else
2700 if (start < next)
2701 warn (_("There is a hole [0x%lx - 0x%lx] in %s section.\n"),
2702 (long)(start - section_begin),
2703 (long)(next - section_begin), section->name);
2704 else if (start > next)
2705 warn (_("There is an overlap [0x%lx - 0x%lx] in %s section.\n"),
2706 (long)(start - section_begin),
2707 (long)(next - section_begin), section->name);
2709 start = next;
2711 while (1)
2713 begin = byte_get (start, pointer_size);
2714 start += pointer_size;
2715 end = byte_get (start, pointer_size);
2716 start += pointer_size;
2718 if (begin == 0 && end == 0)
2720 printf (_(" %8.8lx <End of list>\n"), offset);
2721 break;
2724 /* Check base address specifiers. */
2725 if (begin == -1UL && end != -1UL)
2727 base_address = end;
2728 printf (" %8.8lx %8.8lx %8.8lx (base address)\n",
2729 offset, begin, end);
2730 continue;
2733 printf (" %8.8lx %8.8lx %8.8lx",
2734 offset, begin + base_address, end + base_address);
2736 if (begin == end)
2737 fputs (_(" (start == end)"), stdout);
2738 else if (begin > end)
2739 fputs (_(" (start > end)"), stdout);
2741 putchar ('\n');
2745 putchar ('\n');
2746 return 1;
2749 typedef struct Frame_Chunk
2751 struct Frame_Chunk *next;
2752 unsigned char *chunk_start;
2753 int ncols;
2754 /* DW_CFA_{undefined,same_value,offset,register,unreferenced} */
2755 short int *col_type;
2756 int *col_offset;
2757 char *augmentation;
2758 unsigned int code_factor;
2759 int data_factor;
2760 unsigned long pc_begin;
2761 unsigned long pc_range;
2762 int cfa_reg;
2763 int cfa_offset;
2764 int ra;
2765 unsigned char fde_encoding;
2766 unsigned char cfa_exp;
2768 Frame_Chunk;
2770 /* A marker for a col_type that means this column was never referenced
2771 in the frame info. */
2772 #define DW_CFA_unreferenced (-1)
2774 static void
2775 frame_need_space (Frame_Chunk *fc, int reg)
2777 int prev = fc->ncols;
2779 if (reg < fc->ncols)
2780 return;
2782 fc->ncols = reg + 1;
2783 fc->col_type = xcrealloc (fc->col_type, fc->ncols, sizeof (short int));
2784 fc->col_offset = xcrealloc (fc->col_offset, fc->ncols, sizeof (int));
2786 while (prev < fc->ncols)
2788 fc->col_type[prev] = DW_CFA_unreferenced;
2789 fc->col_offset[prev] = 0;
2790 prev++;
2794 static void
2795 frame_display_row (Frame_Chunk *fc, int *need_col_headers, int *max_regs)
2797 int r;
2798 char tmp[100];
2800 if (*max_regs < fc->ncols)
2801 *max_regs = fc->ncols;
2803 if (*need_col_headers)
2805 *need_col_headers = 0;
2807 printf (" LOC CFA ");
2809 for (r = 0; r < *max_regs; r++)
2810 if (fc->col_type[r] != DW_CFA_unreferenced)
2812 if (r == fc->ra)
2813 printf ("ra ");
2814 else
2815 printf ("r%-4d", r);
2818 printf ("\n");
2821 printf ("%08lx ", fc->pc_begin);
2822 if (fc->cfa_exp)
2823 strcpy (tmp, "exp");
2824 else
2825 sprintf (tmp, "r%d%+d", fc->cfa_reg, fc->cfa_offset);
2826 printf ("%-8s ", tmp);
2828 for (r = 0; r < fc->ncols; r++)
2830 if (fc->col_type[r] != DW_CFA_unreferenced)
2832 switch (fc->col_type[r])
2834 case DW_CFA_undefined:
2835 strcpy (tmp, "u");
2836 break;
2837 case DW_CFA_same_value:
2838 strcpy (tmp, "s");
2839 break;
2840 case DW_CFA_offset:
2841 sprintf (tmp, "c%+d", fc->col_offset[r]);
2842 break;
2843 case DW_CFA_val_offset:
2844 sprintf (tmp, "v%+d", fc->col_offset[r]);
2845 break;
2846 case DW_CFA_register:
2847 sprintf (tmp, "r%d", fc->col_offset[r]);
2848 break;
2849 case DW_CFA_expression:
2850 strcpy (tmp, "exp");
2851 break;
2852 case DW_CFA_val_expression:
2853 strcpy (tmp, "vexp");
2854 break;
2855 default:
2856 strcpy (tmp, "n/a");
2857 break;
2859 printf ("%-5s", tmp);
2862 printf ("\n");
2865 static int
2866 size_of_encoded_value (int encoding)
2868 switch (encoding & 0x7)
2870 default: /* ??? */
2871 case 0: return eh_addr_size;
2872 case 2: return 2;
2873 case 3: return 4;
2874 case 4: return 8;
2878 static dwarf_vma
2879 get_encoded_value (unsigned char *data, int encoding)
2881 int size = size_of_encoded_value (encoding);
2882 if (encoding & DW_EH_PE_signed)
2883 return byte_get_signed (data, size);
2884 else
2885 return byte_get (data, size);
2888 #define GET(N) byte_get (start, N); start += N
2889 #define LEB() read_leb128 (start, & length_return, 0); start += length_return
2890 #define SLEB() read_leb128 (start, & length_return, 1); start += length_return
2892 static int
2893 display_debug_frames (struct dwarf_section *section,
2894 void *file ATTRIBUTE_UNUSED)
2896 unsigned char *start = section->start;
2897 unsigned char *end = start + section->size;
2898 unsigned char *section_start = start;
2899 Frame_Chunk *chunks = 0;
2900 Frame_Chunk *remembered_state = 0;
2901 Frame_Chunk *rs;
2902 int is_eh = strcmp (section->name, ".eh_frame") == 0;
2903 unsigned int length_return;
2904 int max_regs = 0;
2906 printf (_("The section %s contains:\n"), section->name);
2908 while (start < end)
2910 unsigned char *saved_start;
2911 unsigned char *block_end;
2912 unsigned long length;
2913 unsigned long cie_id;
2914 Frame_Chunk *fc;
2915 Frame_Chunk *cie;
2916 int need_col_headers = 1;
2917 unsigned char *augmentation_data = NULL;
2918 unsigned long augmentation_data_len = 0;
2919 int encoded_ptr_size = eh_addr_size;
2920 int offset_size;
2921 int initial_length_size;
2923 saved_start = start;
2924 length = byte_get (start, 4); start += 4;
2926 if (length == 0)
2928 printf ("\n%08lx ZERO terminator\n\n",
2929 (unsigned long)(saved_start - section_start));
2930 continue;
2933 if (length == 0xffffffff)
2935 length = byte_get (start, 8);
2936 start += 8;
2937 offset_size = 8;
2938 initial_length_size = 12;
2940 else
2942 offset_size = 4;
2943 initial_length_size = 4;
2946 block_end = saved_start + length + initial_length_size;
2947 cie_id = byte_get (start, offset_size); start += offset_size;
2949 if (is_eh ? (cie_id == 0) : (cie_id == DW_CIE_ID))
2951 int version;
2953 fc = xmalloc (sizeof (Frame_Chunk));
2954 memset (fc, 0, sizeof (Frame_Chunk));
2956 fc->next = chunks;
2957 chunks = fc;
2958 fc->chunk_start = saved_start;
2959 fc->ncols = 0;
2960 fc->col_type = xmalloc (sizeof (short int));
2961 fc->col_offset = xmalloc (sizeof (int));
2962 frame_need_space (fc, max_regs-1);
2964 version = *start++;
2966 fc->augmentation = (char *) start;
2967 start = (unsigned char *) strchr ((char *) start, '\0') + 1;
2969 if (fc->augmentation[0] == 'z')
2971 fc->code_factor = LEB ();
2972 fc->data_factor = SLEB ();
2973 if (version == 1)
2975 fc->ra = GET (1);
2977 else
2979 fc->ra = LEB ();
2981 augmentation_data_len = LEB ();
2982 augmentation_data = start;
2983 start += augmentation_data_len;
2985 else if (strcmp (fc->augmentation, "eh") == 0)
2987 start += eh_addr_size;
2988 fc->code_factor = LEB ();
2989 fc->data_factor = SLEB ();
2990 if (version == 1)
2992 fc->ra = GET (1);
2994 else
2996 fc->ra = LEB ();
2999 else
3001 fc->code_factor = LEB ();
3002 fc->data_factor = SLEB ();
3003 if (version == 1)
3005 fc->ra = GET (1);
3007 else
3009 fc->ra = LEB ();
3012 cie = fc;
3014 if (do_debug_frames_interp)
3015 printf ("\n%08lx %08lx %08lx CIE \"%s\" cf=%d df=%d ra=%d\n",
3016 (unsigned long)(saved_start - section_start), length, cie_id,
3017 fc->augmentation, fc->code_factor, fc->data_factor,
3018 fc->ra);
3019 else
3021 printf ("\n%08lx %08lx %08lx CIE\n",
3022 (unsigned long)(saved_start - section_start), length, cie_id);
3023 printf (" Version: %d\n", version);
3024 printf (" Augmentation: \"%s\"\n", fc->augmentation);
3025 printf (" Code alignment factor: %u\n", fc->code_factor);
3026 printf (" Data alignment factor: %d\n", fc->data_factor);
3027 printf (" Return address column: %d\n", fc->ra);
3029 if (augmentation_data_len)
3031 unsigned long i;
3032 printf (" Augmentation data: ");
3033 for (i = 0; i < augmentation_data_len; ++i)
3034 printf (" %02x", augmentation_data[i]);
3035 putchar ('\n');
3037 putchar ('\n');
3040 if (augmentation_data_len)
3042 unsigned char *p, *q;
3043 p = (unsigned char *) fc->augmentation + 1;
3044 q = augmentation_data;
3046 while (1)
3048 if (*p == 'L')
3049 q++;
3050 else if (*p == 'P')
3051 q += 1 + size_of_encoded_value (*q);
3052 else if (*p == 'R')
3053 fc->fde_encoding = *q++;
3054 else
3055 break;
3056 p++;
3059 if (fc->fde_encoding)
3060 encoded_ptr_size = size_of_encoded_value (fc->fde_encoding);
3063 frame_need_space (fc, fc->ra);
3065 else
3067 unsigned char *look_for;
3068 static Frame_Chunk fde_fc;
3070 fc = & fde_fc;
3071 memset (fc, 0, sizeof (Frame_Chunk));
3073 look_for = is_eh ? start - 4 - cie_id : section_start + cie_id;
3075 for (cie = chunks; cie ; cie = cie->next)
3076 if (cie->chunk_start == look_for)
3077 break;
3079 if (!cie)
3081 warn ("Invalid CIE pointer %08lx in FDE at %08lx\n",
3082 cie_id, (unsigned long)(saved_start - section_start));
3083 start = block_end;
3084 fc->ncols = 0;
3085 fc->col_type = xmalloc (sizeof (short int));
3086 fc->col_offset = xmalloc (sizeof (int));
3087 frame_need_space (fc, max_regs - 1);
3088 cie = fc;
3089 fc->augmentation = "";
3090 fc->fde_encoding = 0;
3092 else
3094 fc->ncols = cie->ncols;
3095 fc->col_type = xcmalloc (fc->ncols, sizeof (short int));
3096 fc->col_offset = xcmalloc (fc->ncols, sizeof (int));
3097 memcpy (fc->col_type, cie->col_type, fc->ncols * sizeof (short int));
3098 memcpy (fc->col_offset, cie->col_offset, fc->ncols * sizeof (int));
3099 fc->augmentation = cie->augmentation;
3100 fc->code_factor = cie->code_factor;
3101 fc->data_factor = cie->data_factor;
3102 fc->cfa_reg = cie->cfa_reg;
3103 fc->cfa_offset = cie->cfa_offset;
3104 fc->ra = cie->ra;
3105 frame_need_space (fc, max_regs-1);
3106 fc->fde_encoding = cie->fde_encoding;
3109 if (fc->fde_encoding)
3110 encoded_ptr_size = size_of_encoded_value (fc->fde_encoding);
3112 fc->pc_begin = get_encoded_value (start, fc->fde_encoding);
3113 if ((fc->fde_encoding & 0x70) == DW_EH_PE_pcrel
3114 /* Don't adjust for relocatable file since there's
3115 invariably a pcrel reloc here, which we haven't
3116 applied. */
3117 && !is_relocatable)
3118 fc->pc_begin += section->address + (start - section_start);
3119 start += encoded_ptr_size;
3120 fc->pc_range = byte_get (start, encoded_ptr_size);
3121 start += encoded_ptr_size;
3123 if (cie->augmentation[0] == 'z')
3125 augmentation_data_len = LEB ();
3126 augmentation_data = start;
3127 start += augmentation_data_len;
3130 printf ("\n%08lx %08lx %08lx FDE cie=%08lx pc=%08lx..%08lx\n",
3131 (unsigned long)(saved_start - section_start), length, cie_id,
3132 (unsigned long)(cie->chunk_start - section_start),
3133 fc->pc_begin, fc->pc_begin + fc->pc_range);
3134 if (! do_debug_frames_interp && augmentation_data_len)
3136 unsigned long i;
3138 printf (" Augmentation data: ");
3139 for (i = 0; i < augmentation_data_len; ++i)
3140 printf (" %02x", augmentation_data[i]);
3141 putchar ('\n');
3142 putchar ('\n');
3146 /* At this point, fc is the current chunk, cie (if any) is set, and
3147 we're about to interpret instructions for the chunk. */
3148 /* ??? At present we need to do this always, since this sizes the
3149 fc->col_type and fc->col_offset arrays, which we write into always.
3150 We should probably split the interpreted and non-interpreted bits
3151 into two different routines, since there's so much that doesn't
3152 really overlap between them. */
3153 if (1 || do_debug_frames_interp)
3155 /* Start by making a pass over the chunk, allocating storage
3156 and taking note of what registers are used. */
3157 unsigned char *tmp = start;
3159 while (start < block_end)
3161 unsigned op, opa;
3162 unsigned long reg, tmp;
3164 op = *start++;
3165 opa = op & 0x3f;
3166 if (op & 0xc0)
3167 op &= 0xc0;
3169 /* Warning: if you add any more cases to this switch, be
3170 sure to add them to the corresponding switch below. */
3171 switch (op)
3173 case DW_CFA_advance_loc:
3174 break;
3175 case DW_CFA_offset:
3176 LEB ();
3177 frame_need_space (fc, opa);
3178 fc->col_type[opa] = DW_CFA_undefined;
3179 break;
3180 case DW_CFA_restore:
3181 frame_need_space (fc, opa);
3182 fc->col_type[opa] = DW_CFA_undefined;
3183 break;
3184 case DW_CFA_set_loc:
3185 start += encoded_ptr_size;
3186 break;
3187 case DW_CFA_advance_loc1:
3188 start += 1;
3189 break;
3190 case DW_CFA_advance_loc2:
3191 start += 2;
3192 break;
3193 case DW_CFA_advance_loc4:
3194 start += 4;
3195 break;
3196 case DW_CFA_offset_extended:
3197 case DW_CFA_val_offset:
3198 reg = LEB (); LEB ();
3199 frame_need_space (fc, reg);
3200 fc->col_type[reg] = DW_CFA_undefined;
3201 break;
3202 case DW_CFA_restore_extended:
3203 reg = LEB ();
3204 frame_need_space (fc, reg);
3205 fc->col_type[reg] = DW_CFA_undefined;
3206 break;
3207 case DW_CFA_undefined:
3208 reg = LEB ();
3209 frame_need_space (fc, reg);
3210 fc->col_type[reg] = DW_CFA_undefined;
3211 break;
3212 case DW_CFA_same_value:
3213 reg = LEB ();
3214 frame_need_space (fc, reg);
3215 fc->col_type[reg] = DW_CFA_undefined;
3216 break;
3217 case DW_CFA_register:
3218 reg = LEB (); LEB ();
3219 frame_need_space (fc, reg);
3220 fc->col_type[reg] = DW_CFA_undefined;
3221 break;
3222 case DW_CFA_def_cfa:
3223 LEB (); LEB ();
3224 break;
3225 case DW_CFA_def_cfa_register:
3226 LEB ();
3227 break;
3228 case DW_CFA_def_cfa_offset:
3229 LEB ();
3230 break;
3231 case DW_CFA_def_cfa_expression:
3232 tmp = LEB ();
3233 start += tmp;
3234 break;
3235 case DW_CFA_expression:
3236 case DW_CFA_val_expression:
3237 reg = LEB ();
3238 tmp = LEB ();
3239 start += tmp;
3240 frame_need_space (fc, reg);
3241 fc->col_type[reg] = DW_CFA_undefined;
3242 break;
3243 case DW_CFA_offset_extended_sf:
3244 case DW_CFA_val_offset_sf:
3245 reg = LEB (); SLEB ();
3246 frame_need_space (fc, reg);
3247 fc->col_type[reg] = DW_CFA_undefined;
3248 break;
3249 case DW_CFA_def_cfa_sf:
3250 LEB (); SLEB ();
3251 break;
3252 case DW_CFA_def_cfa_offset_sf:
3253 SLEB ();
3254 break;
3255 case DW_CFA_MIPS_advance_loc8:
3256 start += 8;
3257 break;
3258 case DW_CFA_GNU_args_size:
3259 LEB ();
3260 break;
3261 case DW_CFA_GNU_negative_offset_extended:
3262 reg = LEB (); LEB ();
3263 frame_need_space (fc, reg);
3264 fc->col_type[reg] = DW_CFA_undefined;
3266 default:
3267 break;
3270 start = tmp;
3273 /* Now we know what registers are used, make a second pass over
3274 the chunk, this time actually printing out the info. */
3276 while (start < block_end)
3278 unsigned op, opa;
3279 unsigned long ul, reg, roffs;
3280 long l, ofs;
3281 dwarf_vma vma;
3283 op = *start++;
3284 opa = op & 0x3f;
3285 if (op & 0xc0)
3286 op &= 0xc0;
3288 /* Warning: if you add any more cases to this switch, be
3289 sure to add them to the corresponding switch above. */
3290 switch (op)
3292 case DW_CFA_advance_loc:
3293 if (do_debug_frames_interp)
3294 frame_display_row (fc, &need_col_headers, &max_regs);
3295 else
3296 printf (" DW_CFA_advance_loc: %d to %08lx\n",
3297 opa * fc->code_factor,
3298 fc->pc_begin + opa * fc->code_factor);
3299 fc->pc_begin += opa * fc->code_factor;
3300 break;
3302 case DW_CFA_offset:
3303 roffs = LEB ();
3304 if (! do_debug_frames_interp)
3305 printf (" DW_CFA_offset: r%d at cfa%+ld\n",
3306 opa, roffs * fc->data_factor);
3307 fc->col_type[opa] = DW_CFA_offset;
3308 fc->col_offset[opa] = roffs * fc->data_factor;
3309 break;
3311 case DW_CFA_restore:
3312 if (! do_debug_frames_interp)
3313 printf (" DW_CFA_restore: r%d\n", opa);
3314 fc->col_type[opa] = cie->col_type[opa];
3315 fc->col_offset[opa] = cie->col_offset[opa];
3316 break;
3318 case DW_CFA_set_loc:
3319 vma = get_encoded_value (start, fc->fde_encoding);
3320 if ((fc->fde_encoding & 0x70) == DW_EH_PE_pcrel
3321 && !is_relocatable)
3322 vma += section->address + (start - section_start);
3323 start += encoded_ptr_size;
3324 if (do_debug_frames_interp)
3325 frame_display_row (fc, &need_col_headers, &max_regs);
3326 else
3327 printf (" DW_CFA_set_loc: %08lx\n", (unsigned long)vma);
3328 fc->pc_begin = vma;
3329 break;
3331 case DW_CFA_advance_loc1:
3332 ofs = byte_get (start, 1); start += 1;
3333 if (do_debug_frames_interp)
3334 frame_display_row (fc, &need_col_headers, &max_regs);
3335 else
3336 printf (" DW_CFA_advance_loc1: %ld to %08lx\n",
3337 ofs * fc->code_factor,
3338 fc->pc_begin + ofs * fc->code_factor);
3339 fc->pc_begin += ofs * fc->code_factor;
3340 break;
3342 case DW_CFA_advance_loc2:
3343 ofs = byte_get (start, 2); start += 2;
3344 if (do_debug_frames_interp)
3345 frame_display_row (fc, &need_col_headers, &max_regs);
3346 else
3347 printf (" DW_CFA_advance_loc2: %ld to %08lx\n",
3348 ofs * fc->code_factor,
3349 fc->pc_begin + ofs * fc->code_factor);
3350 fc->pc_begin += ofs * fc->code_factor;
3351 break;
3353 case DW_CFA_advance_loc4:
3354 ofs = byte_get (start, 4); start += 4;
3355 if (do_debug_frames_interp)
3356 frame_display_row (fc, &need_col_headers, &max_regs);
3357 else
3358 printf (" DW_CFA_advance_loc4: %ld to %08lx\n",
3359 ofs * fc->code_factor,
3360 fc->pc_begin + ofs * fc->code_factor);
3361 fc->pc_begin += ofs * fc->code_factor;
3362 break;
3364 case DW_CFA_offset_extended:
3365 reg = LEB ();
3366 roffs = LEB ();
3367 if (! do_debug_frames_interp)
3368 printf (" DW_CFA_offset_extended: r%ld at cfa%+ld\n",
3369 reg, roffs * fc->data_factor);
3370 fc->col_type[reg] = DW_CFA_offset;
3371 fc->col_offset[reg] = roffs * fc->data_factor;
3372 break;
3374 case DW_CFA_val_offset:
3375 reg = LEB ();
3376 roffs = LEB ();
3377 if (! do_debug_frames_interp)
3378 printf (" DW_CFA_val_offset: r%ld at cfa%+ld\n",
3379 reg, roffs * fc->data_factor);
3380 fc->col_type[reg] = DW_CFA_val_offset;
3381 fc->col_offset[reg] = roffs * fc->data_factor;
3382 break;
3384 case DW_CFA_restore_extended:
3385 reg = LEB ();
3386 if (! do_debug_frames_interp)
3387 printf (" DW_CFA_restore_extended: r%ld\n", reg);
3388 fc->col_type[reg] = cie->col_type[reg];
3389 fc->col_offset[reg] = cie->col_offset[reg];
3390 break;
3392 case DW_CFA_undefined:
3393 reg = LEB ();
3394 if (! do_debug_frames_interp)
3395 printf (" DW_CFA_undefined: r%ld\n", reg);
3396 fc->col_type[reg] = DW_CFA_undefined;
3397 fc->col_offset[reg] = 0;
3398 break;
3400 case DW_CFA_same_value:
3401 reg = LEB ();
3402 if (! do_debug_frames_interp)
3403 printf (" DW_CFA_same_value: r%ld\n", reg);
3404 fc->col_type[reg] = DW_CFA_same_value;
3405 fc->col_offset[reg] = 0;
3406 break;
3408 case DW_CFA_register:
3409 reg = LEB ();
3410 roffs = LEB ();
3411 if (! do_debug_frames_interp)
3412 printf (" DW_CFA_register: r%ld in r%ld\n", reg, roffs);
3413 fc->col_type[reg] = DW_CFA_register;
3414 fc->col_offset[reg] = roffs;
3415 break;
3417 case DW_CFA_remember_state:
3418 if (! do_debug_frames_interp)
3419 printf (" DW_CFA_remember_state\n");
3420 rs = xmalloc (sizeof (Frame_Chunk));
3421 rs->ncols = fc->ncols;
3422 rs->col_type = xcmalloc (rs->ncols, sizeof (short int));
3423 rs->col_offset = xcmalloc (rs->ncols, sizeof (int));
3424 memcpy (rs->col_type, fc->col_type, rs->ncols);
3425 memcpy (rs->col_offset, fc->col_offset, rs->ncols * sizeof (int));
3426 rs->next = remembered_state;
3427 remembered_state = rs;
3428 break;
3430 case DW_CFA_restore_state:
3431 if (! do_debug_frames_interp)
3432 printf (" DW_CFA_restore_state\n");
3433 rs = remembered_state;
3434 if (rs)
3436 remembered_state = rs->next;
3437 frame_need_space (fc, rs->ncols-1);
3438 memcpy (fc->col_type, rs->col_type, rs->ncols);
3439 memcpy (fc->col_offset, rs->col_offset,
3440 rs->ncols * sizeof (int));
3441 free (rs->col_type);
3442 free (rs->col_offset);
3443 free (rs);
3445 else if (do_debug_frames_interp)
3446 printf ("Mismatched DW_CFA_restore_state\n");
3447 break;
3449 case DW_CFA_def_cfa:
3450 fc->cfa_reg = LEB ();
3451 fc->cfa_offset = LEB ();
3452 fc->cfa_exp = 0;
3453 if (! do_debug_frames_interp)
3454 printf (" DW_CFA_def_cfa: r%d ofs %d\n",
3455 fc->cfa_reg, fc->cfa_offset);
3456 break;
3458 case DW_CFA_def_cfa_register:
3459 fc->cfa_reg = LEB ();
3460 fc->cfa_exp = 0;
3461 if (! do_debug_frames_interp)
3462 printf (" DW_CFA_def_cfa_reg: r%d\n", fc->cfa_reg);
3463 break;
3465 case DW_CFA_def_cfa_offset:
3466 fc->cfa_offset = LEB ();
3467 if (! do_debug_frames_interp)
3468 printf (" DW_CFA_def_cfa_offset: %d\n", fc->cfa_offset);
3469 break;
3471 case DW_CFA_nop:
3472 if (! do_debug_frames_interp)
3473 printf (" DW_CFA_nop\n");
3474 break;
3476 case DW_CFA_def_cfa_expression:
3477 ul = LEB ();
3478 if (! do_debug_frames_interp)
3480 printf (" DW_CFA_def_cfa_expression (");
3481 decode_location_expression (start, eh_addr_size, ul, 0);
3482 printf (")\n");
3484 fc->cfa_exp = 1;
3485 start += ul;
3486 break;
3488 case DW_CFA_expression:
3489 reg = LEB ();
3490 ul = LEB ();
3491 if (! do_debug_frames_interp)
3493 printf (" DW_CFA_expression: r%ld (", reg);
3494 decode_location_expression (start, eh_addr_size, ul, 0);
3495 printf (")\n");
3497 fc->col_type[reg] = DW_CFA_expression;
3498 start += ul;
3499 break;
3501 case DW_CFA_val_expression:
3502 reg = LEB ();
3503 ul = LEB ();
3504 if (! do_debug_frames_interp)
3506 printf (" DW_CFA_val_expression: r%ld (", reg);
3507 decode_location_expression (start, eh_addr_size, ul, 0);
3508 printf (")\n");
3510 fc->col_type[reg] = DW_CFA_val_expression;
3511 start += ul;
3512 break;
3514 case DW_CFA_offset_extended_sf:
3515 reg = LEB ();
3516 l = SLEB ();
3517 frame_need_space (fc, reg);
3518 if (! do_debug_frames_interp)
3519 printf (" DW_CFA_offset_extended_sf: r%ld at cfa%+ld\n",
3520 reg, l * fc->data_factor);
3521 fc->col_type[reg] = DW_CFA_offset;
3522 fc->col_offset[reg] = l * fc->data_factor;
3523 break;
3525 case DW_CFA_val_offset_sf:
3526 reg = LEB ();
3527 l = SLEB ();
3528 frame_need_space (fc, reg);
3529 if (! do_debug_frames_interp)
3530 printf (" DW_CFA_val_offset_sf: r%ld at cfa%+ld\n",
3531 reg, l * fc->data_factor);
3532 fc->col_type[reg] = DW_CFA_val_offset;
3533 fc->col_offset[reg] = l * fc->data_factor;
3534 break;
3536 case DW_CFA_def_cfa_sf:
3537 fc->cfa_reg = LEB ();
3538 fc->cfa_offset = SLEB ();
3539 fc->cfa_offset = fc->cfa_offset * fc->data_factor;
3540 fc->cfa_exp = 0;
3541 if (! do_debug_frames_interp)
3542 printf (" DW_CFA_def_cfa_sf: r%d ofs %d\n",
3543 fc->cfa_reg, fc->cfa_offset);
3544 break;
3546 case DW_CFA_def_cfa_offset_sf:
3547 fc->cfa_offset = SLEB ();
3548 fc->cfa_offset = fc->cfa_offset * fc->data_factor;
3549 if (! do_debug_frames_interp)
3550 printf (" DW_CFA_def_cfa_offset_sf: %d\n", fc->cfa_offset);
3551 break;
3553 case DW_CFA_MIPS_advance_loc8:
3554 ofs = byte_get (start, 8); start += 8;
3555 if (do_debug_frames_interp)
3556 frame_display_row (fc, &need_col_headers, &max_regs);
3557 else
3558 printf (" DW_CFA_MIPS_advance_loc8: %ld to %08lx\n",
3559 ofs * fc->code_factor,
3560 fc->pc_begin + ofs * fc->code_factor);
3561 fc->pc_begin += ofs * fc->code_factor;
3562 break;
3564 case DW_CFA_GNU_window_save:
3565 if (! do_debug_frames_interp)
3566 printf (" DW_CFA_GNU_window_save\n");
3567 break;
3569 case DW_CFA_GNU_args_size:
3570 ul = LEB ();
3571 if (! do_debug_frames_interp)
3572 printf (" DW_CFA_GNU_args_size: %ld\n", ul);
3573 break;
3575 case DW_CFA_GNU_negative_offset_extended:
3576 reg = LEB ();
3577 l = - LEB ();
3578 frame_need_space (fc, reg);
3579 if (! do_debug_frames_interp)
3580 printf (" DW_CFA_GNU_negative_offset_extended: r%ld at cfa%+ld\n",
3581 reg, l * fc->data_factor);
3582 fc->col_type[reg] = DW_CFA_offset;
3583 fc->col_offset[reg] = l * fc->data_factor;
3584 break;
3586 default:
3587 warn (_("unsupported or unknown DW_CFA_%d\n"), op);
3588 start = block_end;
3592 if (do_debug_frames_interp)
3593 frame_display_row (fc, &need_col_headers, &max_regs);
3595 start = block_end;
3598 printf ("\n");
3600 return 1;
3603 #undef GET
3604 #undef LEB
3605 #undef SLEB
3607 static int
3608 display_debug_not_supported (struct dwarf_section *section,
3609 void *file ATTRIBUTE_UNUSED)
3611 printf (_("Displaying the debug contents of section %s is not yet supported.\n"),
3612 section->name);
3614 return 1;
3617 void *
3618 cmalloc (size_t nmemb, size_t size)
3620 /* Check for overflow. */
3621 if (nmemb >= ~(size_t) 0 / size)
3622 return NULL;
3623 else
3624 return malloc (nmemb * size);
3627 void *
3628 xcmalloc (size_t nmemb, size_t size)
3630 /* Check for overflow. */
3631 if (nmemb >= ~(size_t) 0 / size)
3632 return NULL;
3633 else
3634 return xmalloc (nmemb * size);
3637 void *
3638 xcrealloc (void *ptr, size_t nmemb, size_t size)
3640 /* Check for overflow. */
3641 if (nmemb >= ~(size_t) 0 / size)
3642 return NULL;
3643 else
3644 return xrealloc (ptr, nmemb * size);
3647 void
3648 error (const char *message, ...)
3650 va_list args;
3652 va_start (args, message);
3653 fprintf (stderr, _("%s: Error: "), program_name);
3654 vfprintf (stderr, message, args);
3655 va_end (args);
3658 void
3659 warn (const char *message, ...)
3661 va_list args;
3663 va_start (args, message);
3664 fprintf (stderr, _("%s: Warning: "), program_name);
3665 vfprintf (stderr, message, args);
3666 va_end (args);
3669 void
3670 free_debug_memory (void)
3672 enum dwarf_section_display_enum i;
3674 free_abbrevs ();
3676 for (i = 0; i < max; i++)
3677 free_debug_section (i);
3679 if (debug_information)
3681 for (i = 0; i < num_debug_info_entries; i++)
3683 if (!debug_information [i].max_loc_offsets)
3685 free (debug_information [i].loc_offsets);
3686 free (debug_information [i].have_frame_base);
3688 if (!debug_information [i].max_range_lists)
3689 free (debug_information [i].range_lists);
3691 free (debug_information);
3692 debug_information = NULL;
3693 num_debug_info_entries = 0;
3698 struct dwarf_section_display debug_displays[] =
3700 { { ".debug_abbrev", NULL, 0, 0 },
3701 display_debug_abbrev, 0, 0 },
3702 { { ".debug_aranges", NULL, 0, 0 },
3703 display_debug_aranges, 0, 0 },
3704 { { ".debug_frame", NULL, 0, 0 },
3705 display_debug_frames, 1, 0 },
3706 { { ".debug_info", NULL, 0, 0 },
3707 display_debug_info, 1, 0 },
3708 { { ".debug_line", NULL, 0, 0 },
3709 display_debug_lines, 0, 0 },
3710 { { ".debug_pubnames", NULL, 0, 0 },
3711 display_debug_pubnames, 0, 0 },
3712 { { ".eh_frame", NULL, 0, 0 },
3713 display_debug_frames, 1, 1 },
3714 { { ".debug_macinfo", NULL, 0, 0 },
3715 display_debug_macinfo, 0, 0 },
3716 { { ".debug_str", NULL, 0, 0 },
3717 display_debug_str, 0, 0 },
3718 { { ".debug_loc", NULL, 0, 0 },
3719 display_debug_loc, 0, 0 },
3720 { { ".debug_pubtypes", NULL, 0, 0 },
3721 display_debug_pubnames, 0, 0 },
3722 { { ".debug_ranges", NULL, 0, 0 },
3723 display_debug_ranges, 0, 0 },
3724 { { ".debug_static_func", NULL, 0, 0 },
3725 display_debug_not_supported, 0, 0 },
3726 { { ".debug_static_vars", NULL, 0, 0 },
3727 display_debug_not_supported, 0, 0 },
3728 { { ".debug_types", NULL, 0, 0 },
3729 display_debug_not_supported, 0, 0 },
3730 { { ".debug_weaknames", NULL, 0, 0 },
3731 display_debug_not_supported, 0, 0 }