/usr/src/gnu/usr.bin/binutils-2.17/binutils/dwarf.c

Bug Summary

File:	src/gnu/usr.bin/binutils-2.17/binutils/dwarf.c
Warning:	line 186, column 19 The result of the left shift is undefined because the left operand is negative
Annotated Source Code

Press '?' to see keyboard shortcuts
Show analyzer invocation
clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name dwarf.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/gnu/usr.bin/binutils-2.17/obj/binutils -resource-dir /usr/local/lib/clang/13.0.0 -D HAVE_CONFIG_H -I . -I /usr/src/gnu/usr.bin/binutils-2.17/binutils -I . -D _GNU_SOURCE -I . -I /usr/src/gnu/usr.bin/binutils-2.17/binutils -I ../bfd -I /usr/src/gnu/usr.bin/binutils-2.17/binutils/../bfd -I /usr/src/gnu/usr.bin/binutils-2.17/binutils/../include -I /usr/src/gnu/usr.bin/binutils-2.17/binutils/../intl -I ../intl -D LOCALEDIR="/usr/share/locale" -D bin_dummy_emulation=bin_vanilla_emulation -D PIE_DEFAULT=1 -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/gnu/usr.bin/binutils-2.17/obj/binutils -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c /usr/src/gnu/usr.bin/binutils-2.17/binutils/dwarf.c
1/* dwarf.c -- display DWARF contents of a BFD binary file
 Copyright 2005, 2006
 Free Software Foundation, Inc.

 This file is part of GNU Binutils.

 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2 of the License, or
 (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
 02110-1301, USA.  */

22#include <stdio.h>

24#include "dwarf.h"

26#include "bucomm.h"
27#include "libiberty.h"

29static int have_frame_base;
30static int need_base_address;

32static unsigned int last_pointer_size = 0;
33static int warned_about_missing_comp_units = FALSE0;

35static unsigned int num_debug_info_entries = 0;
36static debug_info *debug_information = NULL((void*)0);

38dwarf_vma eh_addr_size;
39int is_relocatable;

41int do_debug_info;
42int do_debug_abbrevs;
43int do_debug_lines;
44int do_debug_pubnames;
45int do_debug_aranges;
46int do_debug_ranges;
47int do_debug_frames;
48int do_debug_frames_interp;
49int do_debug_macinfo;
50int do_debug_str;
51int do_debug_loc;

53dwarf_vma (*byte_get) (unsigned char *, int);

55dwarf_vma
56byte_get_little_endian (unsigned char *field, int size)
57{
switch (size)
  {
  case 1:
    return *field;

  case 2:
    return  ((unsigned int) (field[0]))
|    (((unsigned int) (field[1])) << 8);

  case 4:
    return  ((unsigned long) (field[0]))
|    (((unsigned long) (field[1])) << 8)
|    (((unsigned long) (field[2])) << 16)
|    (((unsigned long) (field[3])) << 24);

  case 8:
    if (sizeof (dwarf_vma) == 8)
return  ((dwarf_vma) (field[0]))
 |    (((dwarf_vma) (field[1])) << 8)
 |    (((dwarf_vma) (field[2])) << 16)
 |    (((dwarf_vma) (field[3])) << 24)
 |    (((dwarf_vma) (field[4])) << 32)
 |    (((dwarf_vma) (field[5])) << 40)
 |    (((dwarf_vma) (field[6])) << 48)
 |    (((dwarf_vma) (field[7])) << 56);
    else if (sizeof (dwarf_vma) == 4)
/* We want to extract data from an 8 byte wide field and
  place it into a 4 byte wide field.  Since this is a little
  endian source we can just use the 4 byte extraction code.  */
return  ((unsigned long) (field[0]))
 |    (((unsigned long) (field[1])) << 8)
 |    (((unsigned long) (field[2])) << 16)
 |    (((unsigned long) (field[3])) << 24);

  default:
    error (_("Unhandled data length: %d\n")("Unhandled data length: %d\n"), size);
    abort ();
  }
96}

98dwarf_vma
99byte_get_big_endian (unsigned char *field, int size)
100{
switch (size)
  {
  case 1:
    return *field;

  case 2:
    return ((unsigned int) (field[1])) | (((int) (field[0])) << 8);

  case 4:
    return ((unsigned long) (field[3]))
|   (((unsigned long) (field[2])) << 8)
|   (((unsigned long) (field[1])) << 16)
|   (((unsigned long) (field[0])) << 24);

  case 8:
    if (sizeof (dwarf_vma) == 8)
return ((dwarf_vma) (field[7]))
 |   (((dwarf_vma) (field[6])) << 8)
 |   (((dwarf_vma) (field[5])) << 16)
 |   (((dwarf_vma) (field[4])) << 24)
 |   (((dwarf_vma) (field[3])) << 32)
 |   (((dwarf_vma) (field[2])) << 40)
 |   (((dwarf_vma) (field[1])) << 48)
 |   (((dwarf_vma) (field[0])) << 56);
    else if (sizeof (dwarf_vma) == 4)
{
 /* Although we are extracing data from an 8 byte wide field,
    we are returning only 4 bytes of data.  */
 field += 4;
 return ((unsigned long) (field[3]))
   |   (((unsigned long) (field[2])) << 8)
   |   (((unsigned long) (field[1])) << 16)
   |   (((unsigned long) (field[0])) << 24);
}

  default:
    error (_("Unhandled data length: %d\n")("Unhandled data length: %d\n"), size);
    abort ();
  }
140}

142static dwarf_vma
143byte_get_signed (unsigned char *field, int size)
144{
dwarf_vma x = byte_get (field, size);

switch (size)
  {
  case 1:
    return (x ^ 0x80) - 0x80;
  case 2:
    return (x ^ 0x8000) - 0x8000;
  case 4:
    return (x ^ 0x80000000) - 0x80000000;
  case 8:
    return x;
  default:
    abort ();
  }
160}

162static unsigned long int
163read_leb128 (unsigned char *data, unsigned int *length_return, int sign)
164{
unsigned long int result = 0;
unsigned int num_read = 0;
unsigned int shift = 0;
unsigned char byte;

do
13
←
Loop condition is false.  Exiting loop→
  {
    byte = *data++;
    num_read++;

    result |= ((unsigned long int) (byte & 0x7f)) << shift;

    shift += 7;

  }
while (byte & 0x80);

if (length_return13.1
'length_return' is not equal to NULL
 != NULL((void*)0))
14
←
Taking true branch→
  *length_return = num_read;

if (sign14.1
'sign' is 1
 && (shift < 8 * sizeof (result)) && (byte & 0x40))
15
←
Assuming the condition is true→
16
←
Taking true branch→
  result |= -1L << shift;
17
←
The result of the left shift is undefined because the left operand is negative

return result;
189}

191typedef struct State_Machine_Registers
192{
unsigned long address;
unsigned int file;
unsigned int line;
unsigned int column;
int is_stmt;
int basic_block;
int end_sequence;
200/* This variable hold the number of the last entry seen
 in the File Table.  */
unsigned int last_file_entry;
203} SMR;

205static SMR state_machine_regs;

207static void
208reset_state_machine (int is_stmt)
209{
state_machine_regs.address = 0;
state_machine_regs.file = 1;
state_machine_regs.line = 1;
state_machine_regs.column = 0;
state_machine_regs.is_stmt = is_stmt;
state_machine_regs.basic_block = 0;
state_machine_regs.end_sequence = 0;
state_machine_regs.last_file_entry = 0;
218}

220/* Handled an extend line op.
 Returns the number of bytes read.  */

223static int
224process_extended_line_op (unsigned char *data, int is_stmt)
225{
unsigned char op_code;
unsigned int bytes_read;
unsigned int len;
unsigned char *name;
unsigned long adr;

len = read_leb128 (data, & bytes_read, 0);
data += bytes_read;

if (len == 0)
  {
    warn (_("badly formed extended line op encountered!\n")("badly formed extended line op encountered!\n"));
    return bytes_read;
  }

len += bytes_read;
op_code = *data++;

printf (_("  Extended opcode %d: ")("  Extended opcode %d: "), op_code);

switch (op_code)
  {
  case DW_LNE_end_sequence:
    printf (_("End of Sequence\n\n")("End of Sequence\n\n"));
    reset_state_machine (is_stmt);
    break;

  case DW_LNE_set_address:
    adr = byte_get (data, len - bytes_read - 1);
    printf (_("set Address to 0x%lx\n")("set Address to 0x%lx\n"), adr);
    state_machine_regs.address = adr;
    break;

  case DW_LNE_define_file:
    printf (_("  define new File Table entry\n")("  define new File Table entry\n"));
    printf (_("  Entry\tDir\tTime\tSize\tName\n")("  Entry\tDir\tTime\tSize\tName\n"));

    printf (_("   %d\t")("   %d\t"), ++state_machine_regs.last_file_entry);
    name = data;
    data += strlen ((char *) data) + 1;
    printf (_("%lu\t")("%lu\t"), read_leb128 (data, & bytes_read, 0));
    data += bytes_read;
    printf (_("%lu\t")("%lu\t"), read_leb128 (data, & bytes_read, 0));
    data += bytes_read;
    printf (_("%lu\t")("%lu\t"), read_leb128 (data, & bytes_read, 0));
    printf (_("%s\n\n")("%s\n\n"), name);
    break;

  default:
    printf (_("UNKNOWN: length %d\n")("UNKNOWN: length %d\n"), len - bytes_read);
    break;
  }

return len;
280}

282static const char *
283fetch_indirect_string (unsigned long offset)
284{
struct dwarf_section *section = &debug_displays [str].section;

if (section->start == NULL((void*)0))
  return _("<no .debug_str section>")("<no .debug_str section>");

/* DWARF sections under Mach-O have non-zero addresses.  */
offset -= section->address;
if (offset > section->size)
  {
    warn (_("DW_FORM_strp offset too big: %lx\n")("DW_FORM_strp offset too big: %lx\n"), offset);
    return _("<offset is too big>")("<offset is too big>");
  }

return (const char *) section->start + offset;
299}

301/* FIXME:  There are better and more efficient ways to handle
 these structures.  For now though, I just want something that
 is simple to implement.  */
304typedef struct abbrev_attr
305{
unsigned long attribute;
unsigned long form;
struct abbrev_attr *next;
309}
310abbrev_attr;

312typedef struct abbrev_entry
313{
unsigned long entry;
unsigned long tag;
int children;
struct abbrev_attr *first_attr;
struct abbrev_attr *last_attr;
struct abbrev_entry *next;
320}
321abbrev_entry;

323static abbrev_entry *first_abbrev = NULL((void*)0);
324static abbrev_entry *last_abbrev = NULL((void*)0);

326static void
327free_abbrevs (void)
328{
abbrev_entry *abbrev;

for (abbrev = first_abbrev; abbrev;)
  {
    abbrev_entry *next = abbrev->next;
    abbrev_attr *attr;

    for (attr = abbrev->first_attr; attr;)
{
 abbrev_attr *next = attr->next;

 free (attr);
 attr = next;
}

    free (abbrev);
    abbrev = next;
  }

last_abbrev = first_abbrev = NULL((void*)0);
349}

351static void
352add_abbrev (unsigned long number, unsigned long tag, int children)
353{
abbrev_entry *entry;

entry = malloc (sizeof (*entry));

if (entry == NULL((void*)0))
  /* ugg */
  return;

entry->entry      = number;
entry->tag        = tag;
entry->children   = children;
entry->first_attr = NULL((void*)0);
entry->last_attr  = NULL((void*)0);
entry->next       = NULL((void*)0);

if (first_abbrev == NULL((void*)0))
  first_abbrev = entry;
else
  last_abbrev->next = entry;

last_abbrev = entry;
375}

377static void
378add_abbrev_attr (unsigned long attribute, unsigned long form)
379{
abbrev_attr *attr;

attr = malloc (sizeof (*attr));

if (attr == NULL((void*)0))
  /* ugg */
  return;

attr->attribute = attribute;
attr->form      = form;
attr->next      = NULL((void*)0);

if (last_abbrev->first_attr == NULL((void*)0))
  last_abbrev->first_attr = attr;
else
  last_abbrev->last_attr->next = attr;

last_abbrev->last_attr = attr;
398}

400/* Processes the (partial) contents of a .debug_abbrev section.
 Returns NULL if the end of the section was encountered.
 Returns the address after the last byte read if the end of
 an abbreviation set was found.  */

405static unsigned char *
406process_abbrev_section (unsigned char *start, unsigned char *end)
407{
if (first_abbrev != NULL((void*)0))
  return NULL((void*)0);

while (start < end)
  {
    unsigned int bytes_read;
    unsigned long entry;
    unsigned long tag;
    unsigned long attribute;
    int children;

    entry = read_leb128 (start, & bytes_read, 0);
    start += bytes_read;

    /* A single zero is supposed to end the section according
to the standard.  If there's more, then signal that to
the caller.  */
    if (entry == 0)
return start == end ? NULL((void*)0) : start;

    tag = read_leb128 (start, & bytes_read, 0);
    start += bytes_read;

    children = *start++;

    add_abbrev (entry, tag, children);

    do
{
 unsigned long form;

 attribute = read_leb128 (start, & bytes_read, 0);
 start += bytes_read;

 form = read_leb128 (start, & bytes_read, 0);
 start += bytes_read;

 if (attribute != 0)
   add_abbrev_attr (attribute, form);
}
    while (attribute != 0);
  }

return NULL((void*)0);
452}

454static char *
455get_TAG_name (unsigned long tag)
456{
switch (tag)
  {
  case DW_TAG_padding:		return "DW_TAG_padding";
  case DW_TAG_array_type:		return "DW_TAG_array_type";
  case DW_TAG_class_type:		return "DW_TAG_class_type";
  case DW_TAG_entry_point:		return "DW_TAG_entry_point";
  case DW_TAG_enumeration_type:	return "DW_TAG_enumeration_type";
  case DW_TAG_formal_parameter:	return "DW_TAG_formal_parameter";
  case DW_TAG_imported_declaration:	return "DW_TAG_imported_declaration";
  case DW_TAG_label:			return "DW_TAG_label";
  case DW_TAG_lexical_block:		return "DW_TAG_lexical_block";
  case DW_TAG_member:			return "DW_TAG_member";
  case DW_TAG_pointer_type:		return "DW_TAG_pointer_type";
  case DW_TAG_reference_type:		return "DW_TAG_reference_type";
  case DW_TAG_compile_unit:		return "DW_TAG_compile_unit";
  case DW_TAG_string_type:		return "DW_TAG_string_type";
  case DW_TAG_structure_type:		return "DW_TAG_structure_type";
  case DW_TAG_subroutine_type:	return "DW_TAG_subroutine_type";
  case DW_TAG_typedef:		return "DW_TAG_typedef";
  case DW_TAG_union_type:		return "DW_TAG_union_type";
  case DW_TAG_unspecified_parameters: return "DW_TAG_unspecified_parameters";
  case DW_TAG_variant:		return "DW_TAG_variant";
  case DW_TAG_common_block:		return "DW_TAG_common_block";
  case DW_TAG_common_inclusion:	return "DW_TAG_common_inclusion";
  case DW_TAG_inheritance:		return "DW_TAG_inheritance";
  case DW_TAG_inlined_subroutine:	return "DW_TAG_inlined_subroutine";
  case DW_TAG_module:			return "DW_TAG_module";
  case DW_TAG_ptr_to_member_type:	return "DW_TAG_ptr_to_member_type";
  case DW_TAG_set_type:		return "DW_TAG_set_type";
  case DW_TAG_subrange_type:		return "DW_TAG_subrange_type";
  case DW_TAG_with_stmt:		return "DW_TAG_with_stmt";
  case DW_TAG_access_declaration:	return "DW_TAG_access_declaration";
  case DW_TAG_base_type:		return "DW_TAG_base_type";
  case DW_TAG_catch_block:		return "DW_TAG_catch_block";
  case DW_TAG_const_type:		return "DW_TAG_const_type";
  case DW_TAG_constant:		return "DW_TAG_constant";
  case DW_TAG_enumerator:		return "DW_TAG_enumerator";
  case DW_TAG_file_type:		return "DW_TAG_file_type";
  case DW_TAG_friend:			return "DW_TAG_friend";
  case DW_TAG_namelist:		return "DW_TAG_namelist";
  case DW_TAG_namelist_item:		return "DW_TAG_namelist_item";
  case DW_TAG_packed_type:		return "DW_TAG_packed_type";
  case DW_TAG_subprogram:		return "DW_TAG_subprogram";
  case DW_TAG_template_type_param:	return "DW_TAG_template_type_param";
  case DW_TAG_template_value_param:	return "DW_TAG_template_value_param";
  case DW_TAG_thrown_type:		return "DW_TAG_thrown_type";
  case DW_TAG_try_block:		return "DW_TAG_try_block";
  case DW_TAG_variant_part:		return "DW_TAG_variant_part";
  case DW_TAG_variable:		return "DW_TAG_variable";
  case DW_TAG_volatile_type:		return "DW_TAG_volatile_type";
  case DW_TAG_MIPS_loop:		return "DW_TAG_MIPS_loop";
  case DW_TAG_format_label:		return "DW_TAG_format_label";
  case DW_TAG_function_template:	return "DW_TAG_function_template";
  case DW_TAG_class_template:		return "DW_TAG_class_template";
    /* DWARF 2.1 values.  */
  case DW_TAG_dwarf_procedure:	return "DW_TAG_dwarf_procedure";
  case DW_TAG_restrict_type:		return "DW_TAG_restrict_type";
  case DW_TAG_interface_type:		return "DW_TAG_interface_type";
  case DW_TAG_namespace:		return "DW_TAG_namespace";
  case DW_TAG_imported_module:	return "DW_TAG_imported_module";
  case DW_TAG_unspecified_type:	return "DW_TAG_unspecified_type";
  case DW_TAG_partial_unit:		return "DW_TAG_partial_unit";
  case DW_TAG_imported_unit:		return "DW_TAG_imported_unit";
    /* UPC values.  */
  case DW_TAG_upc_shared_type:	return "DW_TAG_upc_shared_type";
  case DW_TAG_upc_strict_type:	return "DW_TAG_upc_strict_type";
  case DW_TAG_upc_relaxed_type:	return "DW_TAG_upc_relaxed_type";
  default:
    {
static char buffer[100];

snprintf (buffer, sizeof (buffer), _("Unknown TAG value: %lx")("Unknown TAG value: %lx"), tag);
return buffer;
    }
  }
532}

534static char *
535get_FORM_name (unsigned long form)
536{
switch (form)
  {
  case DW_FORM_addr:		return "DW_FORM_addr";
  case DW_FORM_block2:	return "DW_FORM_block2";
  case DW_FORM_block4:	return "DW_FORM_block4";
  case DW_FORM_data2:		return "DW_FORM_data2";
  case DW_FORM_data4:		return "DW_FORM_data4";
  case DW_FORM_data8:		return "DW_FORM_data8";
  case DW_FORM_string:	return "DW_FORM_string";
  case DW_FORM_block:		return "DW_FORM_block";
  case DW_FORM_block1:	return "DW_FORM_block1";
  case DW_FORM_data1:		return "DW_FORM_data1";
  case DW_FORM_flag:		return "DW_FORM_flag";
  case DW_FORM_sdata:		return "DW_FORM_sdata";
  case DW_FORM_strp:		return "DW_FORM_strp";
  case DW_FORM_udata:		return "DW_FORM_udata";
  case DW_FORM_ref_addr:	return "DW_FORM_ref_addr";
  case DW_FORM_ref1:		return "DW_FORM_ref1";
  case DW_FORM_ref2:		return "DW_FORM_ref2";
  case DW_FORM_ref4:		return "DW_FORM_ref4";
  case DW_FORM_ref8:		return "DW_FORM_ref8";
  case DW_FORM_ref_udata:	return "DW_FORM_ref_udata";
  case DW_FORM_indirect:	return "DW_FORM_indirect";
  default:
    {
static char buffer[100];

snprintf (buffer, sizeof (buffer), _("Unknown FORM value: %lx")("Unknown FORM value: %lx"), form);
return buffer;
    }
  }
568}

570static unsigned char *
571display_block (unsigned char *data, unsigned long length)
572{
printf (_(" %lu byte block: ")(" %lu byte block: "), length);

while (length --)
  printf ("%lx ", (unsigned long) byte_get (data++, 1));

return data;
579}

581static int
582decode_location_expression (unsigned char * data,
	    unsigned int pointer_size,
	    unsigned long length,
	    unsigned long cu_offset)
586{
unsigned op;
unsigned int bytes_read;
unsigned long uvalue;
unsigned char *end = data + length;
int need_frame_base = 0;

while (data < end)
  {
    op = *data++;

    switch (op)
{
case DW_OP_addr:
 printf ("DW_OP_addr: %lx",
  (unsigned long) byte_get (data, pointer_size));
 data += pointer_size;
 break;
case DW_OP_deref:
 printf ("DW_OP_deref");
 break;
case DW_OP_const1u:
 printf ("DW_OP_const1u: %lu", (unsigned long) byte_get (data++, 1));
 break;
case DW_OP_const1s:
 printf ("DW_OP_const1s: %ld", (long) byte_get_signed (data++, 1));
 break;
case DW_OP_const2u:
 printf ("DW_OP_const2u: %lu", (unsigned long) byte_get (data, 2));
 data += 2;
 break;
case DW_OP_const2s:
 printf ("DW_OP_const2s: %ld", (long) byte_get_signed (data, 2));
 data += 2;
 break;
case DW_OP_const4u:
 printf ("DW_OP_const4u: %lu", (unsigned long) byte_get (data, 4));
 data += 4;
 break;
case DW_OP_const4s:
 printf ("DW_OP_const4s: %ld", (long) byte_get_signed (data, 4));
 data += 4;
 break;
case DW_OP_const8u:
 printf ("DW_OP_const8u: %lu %lu", (unsigned long) byte_get (data, 4),
  (unsigned long) byte_get (data + 4, 4));
 data += 8;
 break;
case DW_OP_const8s:
 printf ("DW_OP_const8s: %ld %ld", (long) byte_get (data, 4),
  (long) byte_get (data + 4, 4));
 data += 8;
 break;
case DW_OP_constu:
 printf ("DW_OP_constu: %lu", read_leb128 (data, &bytes_read, 0));
 data += bytes_read;
 break;
case DW_OP_consts:
 printf ("DW_OP_consts: %ld", read_leb128 (data, &bytes_read, 1));
 data += bytes_read;
 break;
case DW_OP_dup:
 printf ("DW_OP_dup");
 break;
case DW_OP_drop:
 printf ("DW_OP_drop");
 break;
case DW_OP_over:
 printf ("DW_OP_over");
 break;
case DW_OP_pick:
 printf ("DW_OP_pick: %ld", (unsigned long) byte_get (data++, 1));
 break;
case DW_OP_swap:
 printf ("DW_OP_swap");
 break;
case DW_OP_rot:
 printf ("DW_OP_rot");
 break;
case DW_OP_xderef:
 printf ("DW_OP_xderef");
 break;
case DW_OP_abs:
 printf ("DW_OP_abs");
 break;
case DW_OP_and:
 printf ("DW_OP_and");
 break;
case DW_OP_div:
 printf ("DW_OP_div");
 break;
case DW_OP_minus:
 printf ("DW_OP_minus");
 break;
case DW_OP_mod:
 printf ("DW_OP_mod");
 break;
case DW_OP_mul:
 printf ("DW_OP_mul");
 break;
case DW_OP_neg:
 printf ("DW_OP_neg");
 break;
case DW_OP_not:
 printf ("DW_OP_not");
 break;
case DW_OP_or:
 printf ("DW_OP_or");
 break;
case DW_OP_plus:
 printf ("DW_OP_plus");
 break;
case DW_OP_plus_uconst:
 printf ("DW_OP_plus_uconst: %lu",
  read_leb128 (data, &bytes_read, 0));
 data += bytes_read;
 break;
case DW_OP_shl:
 printf ("DW_OP_shl");
 break;
case DW_OP_shr:
 printf ("DW_OP_shr");
 break;
case DW_OP_shra:
 printf ("DW_OP_shra");
 break;
case DW_OP_xor:
 printf ("DW_OP_xor");
 break;
case DW_OP_bra:
 printf ("DW_OP_bra: %ld", (long) byte_get_signed (data, 2));
 data += 2;
 break;
case DW_OP_eq:
 printf ("DW_OP_eq");
 break;
case DW_OP_ge:
 printf ("DW_OP_ge");
 break;
case DW_OP_gt:
 printf ("DW_OP_gt");
 break;
case DW_OP_le:
 printf ("DW_OP_le");
 break;
case DW_OP_lt:
 printf ("DW_OP_lt");
 break;
case DW_OP_ne:
 printf ("DW_OP_ne");
 break;
case DW_OP_skip:
 printf ("DW_OP_skip: %ld", (long) byte_get_signed (data, 2));
 data += 2;
 break;

case DW_OP_lit0:
case DW_OP_lit1:
case DW_OP_lit2:
case DW_OP_lit3:
case DW_OP_lit4:
case DW_OP_lit5:
case DW_OP_lit6:
case DW_OP_lit7:
case DW_OP_lit8:
case DW_OP_lit9:
case DW_OP_lit10:
case DW_OP_lit11:
case DW_OP_lit12:
case DW_OP_lit13:
case DW_OP_lit14:
case DW_OP_lit15:
case DW_OP_lit16:
case DW_OP_lit17:
case DW_OP_lit18:
case DW_OP_lit19:
case DW_OP_lit20:
case DW_OP_lit21:
case DW_OP_lit22:
case DW_OP_lit23:
case DW_OP_lit24:
case DW_OP_lit25:
case DW_OP_lit26:
case DW_OP_lit27:
case DW_OP_lit28:
case DW_OP_lit29:
case DW_OP_lit30:
case DW_OP_lit31:
 printf ("DW_OP_lit%d", op - DW_OP_lit0);
 break;

case DW_OP_reg0:
case DW_OP_reg1:
case DW_OP_reg2:
case DW_OP_reg3:
case DW_OP_reg4:
case DW_OP_reg5:
case DW_OP_reg6:
case DW_OP_reg7:
case DW_OP_reg8:
case DW_OP_reg9:
case DW_OP_reg10:
case DW_OP_reg11:
case DW_OP_reg12:
case DW_OP_reg13:
case DW_OP_reg14:
case DW_OP_reg15:
case DW_OP_reg16:
case DW_OP_reg17:
case DW_OP_reg18:
case DW_OP_reg19:
case DW_OP_reg20:
case DW_OP_reg21:
case DW_OP_reg22:
case DW_OP_reg23:
case DW_OP_reg24:
case DW_OP_reg25:
case DW_OP_reg26:
case DW_OP_reg27:
case DW_OP_reg28:
case DW_OP_reg29:
case DW_OP_reg30:
case DW_OP_reg31:
 printf ("DW_OP_reg%d", op - DW_OP_reg0);
 break;

case DW_OP_breg0:
case DW_OP_breg1:
case DW_OP_breg2:
case DW_OP_breg3:
case DW_OP_breg4:
case DW_OP_breg5:
case DW_OP_breg6:
case DW_OP_breg7:
case DW_OP_breg8:
case DW_OP_breg9:
case DW_OP_breg10:
case DW_OP_breg11:
case DW_OP_breg12:
case DW_OP_breg13:
case DW_OP_breg14:
case DW_OP_breg15:
case DW_OP_breg16:
case DW_OP_breg17:
case DW_OP_breg18:
case DW_OP_breg19:
case DW_OP_breg20:
case DW_OP_breg21:
case DW_OP_breg22:
case DW_OP_breg23:
case DW_OP_breg24:
case DW_OP_breg25:
case DW_OP_breg26:
case DW_OP_breg27:
case DW_OP_breg28:
case DW_OP_breg29:
case DW_OP_breg30:
case DW_OP_breg31:
 printf ("DW_OP_breg%d: %ld", op - DW_OP_breg0,
  read_leb128 (data, &bytes_read, 1));
 data += bytes_read;
 break;

case DW_OP_regx:
 printf ("DW_OP_regx: %lu", read_leb128 (data, &bytes_read, 0));
 data += bytes_read;
 break;
case DW_OP_fbreg:
 need_frame_base = 1;
 printf ("DW_OP_fbreg: %ld", read_leb128 (data, &bytes_read, 1));
 data += bytes_read;
 break;
case DW_OP_bregx:
 uvalue = read_leb128 (data, &bytes_read, 0);
 data += bytes_read;
 printf ("DW_OP_bregx: %lu %ld", uvalue,
  read_leb128 (data, &bytes_read, 1));
 data += bytes_read;
 break;
case DW_OP_piece:
 printf ("DW_OP_piece: %lu", read_leb128 (data, &bytes_read, 0));
 data += bytes_read;
 break;
case DW_OP_deref_size:
 printf ("DW_OP_deref_size: %ld", (long) byte_get (data++, 1));
 break;
case DW_OP_xderef_size:
 printf ("DW_OP_xderef_size: %ld", (long) byte_get (data++, 1));
 break;
case DW_OP_nop:
 printf ("DW_OP_nop");
 break;

 /* DWARF 3 extensions.  */
case DW_OP_push_object_address:
 printf ("DW_OP_push_object_address");
 break;
case DW_OP_call2:
 /* XXX: Strictly speaking for 64-bit DWARF3 files
    this ought to be an 8-byte wide computation.  */
 printf ("DW_OP_call2: <%lx>", (long) byte_get (data, 2) + cu_offset);
 data += 2;
 break;
case DW_OP_call4:
 /* XXX: Strictly speaking for 64-bit DWARF3 files
    this ought to be an 8-byte wide computation.  */
 printf ("DW_OP_call4: <%lx>", (long) byte_get (data, 4) + cu_offset);
 data += 4;
 break;
case DW_OP_call_ref:
 printf ("DW_OP_call_ref");
 break;

 /* GNU extensions.  */
case DW_OP_GNU_push_tls_address:
 printf ("DW_OP_GNU_push_tls_address");
 break;

default:
 if (op >= DW_OP_lo_user0xe0
     && op <= DW_OP_hi_user0xff)
   printf (_("(User defined location op)")("(User defined location op)"));
 else
   printf (_("(Unknown location op)")("(Unknown location op)"));
 /* No way to tell where the next op is, so just bail.  */
 return need_frame_base;
}

    /* Separate the ops.  */
    if (data < end)
printf ("; ");
  }

return need_frame_base;
920}

922static unsigned char *
923read_and_display_attr_value (unsigned long attribute,
	     unsigned long form,
	     unsigned char *data,
	     unsigned long cu_offset,
	     unsigned long pointer_size,
	     unsigned long offset_size,
	     int dwarf_version,
	     debug_info *debug_info_p,
	     int do_loc)
932{
unsigned long uvalue = 0;
unsigned char *block_start = NULL((void*)0);
unsigned int bytes_read;

switch (form)
  {
  default:
    break;

  case DW_FORM_ref_addr:
    if (dwarf_version == 2)
{
 uvalue = byte_get (data, pointer_size);
 data += pointer_size;
}
    else if (dwarf_version == 3)
{
 uvalue = byte_get (data, offset_size);
 data += offset_size;
}
    else
{
 error (_("Internal error: DWARF version is not 2 or 3.\n")("Internal error: DWARF version is not 2 or 3.\n"));
}
    break;

  case DW_FORM_addr:
    uvalue = byte_get (data, pointer_size);
    data += pointer_size;
    break;

  case DW_FORM_strp:
    uvalue = byte_get (data, offset_size);
    data += offset_size;
    break;

  case DW_FORM_ref1:
  case DW_FORM_flag:
  case DW_FORM_data1:
    uvalue = byte_get (data++, 1);
    break;

  case DW_FORM_ref2:
  case DW_FORM_data2:
    uvalue = byte_get (data, 2);
    data += 2;
    break;

  case DW_FORM_ref4:
  case DW_FORM_data4:
    uvalue = byte_get (data, 4);
    data += 4;
    break;

  case DW_FORM_sdata:
    uvalue = read_leb128 (data, & bytes_read, 1);
    data += bytes_read;
    break;

  case DW_FORM_ref_udata:
  case DW_FORM_udata:
    uvalue = read_leb128 (data, & bytes_read, 0);
    data += bytes_read;
    break;

  case DW_FORM_indirect:
    form = read_leb128 (data, & bytes_read, 0);
    data += bytes_read;
    if (!do_loc)
printf (" %s", get_FORM_name (form));
    return read_and_display_attr_value (attribute, form, data,
			  cu_offset, pointer_size,
			  offset_size, dwarf_version,
			  debug_info_p, do_loc);
  }

switch (form)
  {
  case DW_FORM_ref_addr:
    if (!do_loc)
printf (" <#%lx>", uvalue);
    break;

  case DW_FORM_ref1:
  case DW_FORM_ref2:
  case DW_FORM_ref4:
  case DW_FORM_ref_udata:
    if (!do_loc)
printf (" <%lx>", uvalue + cu_offset);
    break;

  case DW_FORM_data4:
  case DW_FORM_addr:
    if (!do_loc)
printf (" %#lx", uvalue);
    break;

  case DW_FORM_flag:
  case DW_FORM_data1:
  case DW_FORM_data2:
  case DW_FORM_sdata:
  case DW_FORM_udata:
    if (!do_loc)
printf (" %ld", uvalue);
    break;

  case DW_FORM_ref8:
  case DW_FORM_data8:
    if (!do_loc)
{
 uvalue = byte_get (data, 4);
 printf (" %lx", uvalue);
 printf (" %lx", (unsigned long) byte_get (data + 4, 4));
}
    if ((do_loc || do_debug_loc || do_debug_ranges)
 && num_debug_info_entries == 0)
{
 if (sizeof (uvalue) == 8)
   uvalue = byte_get (data, 8);
 else
   error (_("DW_FORM_data8 is unsupported when sizeof (unsigned long) != 8\n")("DW_FORM_data8 is unsupported when sizeof (unsigned long) != 8\n"
));
}
    data += 8;
    break;

  case DW_FORM_string:
    if (!do_loc)
printf (" %s", data);
    data += strlen ((char *) data) + 1;
    break;

  case DW_FORM_block:
    uvalue = read_leb128 (data, & bytes_read, 0);
    block_start = data + bytes_read;
    if (do_loc)
data = block_start + uvalue;
    else
data = display_block (block_start, uvalue);
    break;

  case DW_FORM_block1:
    uvalue = byte_get (data, 1);
    block_start = data + 1;
    if (do_loc)
data = block_start + uvalue;
    else
data = display_block (block_start, uvalue);
    break;

  case DW_FORM_block2:
    uvalue = byte_get (data, 2);
    block_start = data + 2;
    if (do_loc)
data = block_start + uvalue;
    else
data = display_block (block_start, uvalue);
    break;

  case DW_FORM_block4:
    uvalue = byte_get (data, 4);
    block_start = data + 4;
    if (do_loc)
data = block_start + uvalue;
    else
data = display_block (block_start, uvalue);
    break;

  case DW_FORM_strp:
    if (!do_loc)
printf (_(" (indirect string, offset: 0x%lx): %s")(" (indirect string, offset: 0x%lx): %s"),
uvalue, fetch_indirect_string (uvalue));
    break;

  case DW_FORM_indirect:
    /* Handled above.  */
    break;

  default:
    warn (_("Unrecognized form: %lu\n")("Unrecognized form: %lu\n"), form);
    break;
  }

/* For some attributes we can display further information.  */
if ((do_loc || do_debug_loc || do_debug_ranges)
    && num_debug_info_entries == 0)
  {
    switch (attribute)
{
case DW_AT_frame_base:
 have_frame_base = 1;
case DW_AT_location:
case DW_AT_data_member_location:
case DW_AT_vtable_elem_location:
case DW_AT_allocated:
case DW_AT_associated:
case DW_AT_data_location:
case DW_AT_stride:
case DW_AT_upper_bound:
case DW_AT_lower_bound:
 if (form == DW_FORM_data4 || form == DW_FORM_data8)
   {
     /* Process location list.  */
     unsigned int max = debug_info_p->max_loc_offsets;
     unsigned int num = debug_info_p->num_loc_offsets;

     if (max == 0 || num >= max)
{
  max += 1024;
  debug_info_p->loc_offsets
    = xcrealloc (debug_info_p->loc_offsets,
		 max, sizeof (*debug_info_p->loc_offsets));
  debug_info_p->have_frame_base
    = xcrealloc (debug_info_p->have_frame_base,
		 max, sizeof (*debug_info_p->have_frame_base));
  debug_info_p->max_loc_offsets = max;
}
     debug_info_p->loc_offsets [num] = uvalue;
     debug_info_p->have_frame_base [num] = have_frame_base;
     debug_info_p->num_loc_offsets++;
   }
 break;

case DW_AT_low_pc:
 if (need_base_address)
   debug_info_p->base_address = uvalue;
 break;

case DW_AT_ranges:
 if (form == DW_FORM_data4 || form == DW_FORM_data8)
   {
     /* Process range list.  */
     unsigned int max = debug_info_p->max_range_lists;
     unsigned int num = debug_info_p->num_range_lists;

     if (max == 0 || num >= max)
{
  max += 1024;
  debug_info_p->range_lists
    = xcrealloc (debug_info_p->range_lists,
		 max, sizeof (*debug_info_p->range_lists));
  debug_info_p->max_range_lists = max;
}
     debug_info_p->range_lists [num] = uvalue;
     debug_info_p->num_range_lists++;
   }
 break;

default:
 break;
}
  }

if (do_loc)
  return data;

printf ("\t");

switch (attribute)
  {
  case DW_AT_inline:
    switch (uvalue)
{
case DW_INL_not_inlined:
 printf (_("(not inlined)")("(not inlined)"));
 break;
case DW_INL_inlined:
 printf (_("(inlined)")("(inlined)"));
 break;
case DW_INL_declared_not_inlined:
 printf (_("(declared as inline but ignored)")("(declared as inline but ignored)"));
 break;
case DW_INL_declared_inlined:
 printf (_("(declared as inline and inlined)")("(declared as inline and inlined)"));
 break;
default:
 printf (_("  (Unknown inline attribute value: %lx)")("  (Unknown inline attribute value: %lx)"), uvalue);
 break;
}
    break;

  case DW_AT_language:
    switch (uvalue)
{
case DW_LANG_C:			printf ("(non-ANSI C)"); break;
case DW_LANG_C89:		printf ("(ANSI C)"); break;
case DW_LANG_C_plus_plus:	printf ("(C++)"); break;
case DW_LANG_Fortran77:		printf ("(FORTRAN 77)"); break;
case DW_LANG_Fortran90:		printf ("(Fortran 90)"); break;
case DW_LANG_Modula2:		printf ("(Modula 2)"); break;
case DW_LANG_Pascal83:		printf ("(ANSI Pascal)"); break;
case DW_LANG_Ada83:		printf ("(Ada)"); break;
case DW_LANG_Cobol74:		printf ("(Cobol 74)"); break;
case DW_LANG_Cobol85:		printf ("(Cobol 85)"); break;
 /* DWARF 2.1 values.	*/
case DW_LANG_C99:		printf ("(ANSI C99)"); break;
case DW_LANG_Ada95:		printf ("(ADA 95)"); break;
case DW_LANG_Fortran95:		printf ("(Fortran 95)"); break;
 /* MIPS extension.  */
case DW_LANG_Mips_Assembler:	printf ("(MIPS assembler)"); break;
 /* UPC extension.  */
case DW_LANG_Upc:		printf ("(Unified Parallel C)"); break;
default:
 printf ("(Unknown: %lx)", uvalue);
 break;
}
    break;

  case DW_AT_encoding:
    switch (uvalue)
{
case DW_ATE_void:		printf ("(void)"); break;
case DW_ATE_address:		printf ("(machine address)"); break;
case DW_ATE_boolean:		printf ("(boolean)"); break;
case DW_ATE_complex_float:	printf ("(complex float)"); break;
case DW_ATE_float:		printf ("(float)"); break;
case DW_ATE_signed:		printf ("(signed)"); break;
case DW_ATE_signed_char:	printf ("(signed char)"); break;
case DW_ATE_unsigned:		printf ("(unsigned)"); break;
case DW_ATE_unsigned_char:	printf ("(unsigned char)"); break;
 /* DWARF 2.1 value.  */
case DW_ATE_imaginary_float:	printf ("(imaginary float)"); break;
case DW_ATE_decimal_float:	printf ("(decimal float)"); break;
default:
 if (uvalue >= DW_ATE_lo_user0x80
     && uvalue <= DW_ATE_hi_user0xff)
   printf ("(user defined type)");
 else
   printf ("(unknown type)");
 break;
}
    break;

  case DW_AT_accessibility:
    switch (uvalue)
{
case DW_ACCESS_public:		printf ("(public)"); break;
case DW_ACCESS_protected:	printf ("(protected)"); break;
case DW_ACCESS_private:		printf ("(private)"); break;
default:
 printf ("(unknown accessibility)");
 break;
}
    break;

  case DW_AT_visibility:
    switch (uvalue)
{
case DW_VIS_local:		printf ("(local)"); break;
case DW_VIS_exported:		printf ("(exported)"); break;
case DW_VIS_qualified:		printf ("(qualified)"); break;
default:			printf ("(unknown visibility)"); break;
}
    break;

  case DW_AT_virtuality:
    switch (uvalue)
{
case DW_VIRTUALITY_none:	printf ("(none)"); break;
case DW_VIRTUALITY_virtual:	printf ("(virtual)"); break;
case DW_VIRTUALITY_pure_virtual:printf ("(pure_virtual)"); break;
default:			printf ("(unknown virtuality)"); break;
}
    break;

  case DW_AT_identifier_case:
    switch (uvalue)
{
case DW_ID_case_sensitive:	printf ("(case_sensitive)"); break;
case DW_ID_up_case:		printf ("(up_case)"); break;
case DW_ID_down_case:		printf ("(down_case)"); break;
case DW_ID_case_insensitive:	printf ("(case_insensitive)"); break;
default:			printf ("(unknown case)"); break;
}
    break;

  case DW_AT_calling_convention:
    switch (uvalue)
{
case DW_CC_normal:	printf ("(normal)"); break;
case DW_CC_program:	printf ("(program)"); break;
case DW_CC_nocall:	printf ("(nocall)"); break;
default:
 if (uvalue >= DW_CC_lo_user0x40
     && uvalue <= DW_CC_hi_user0xff)
   printf ("(user defined)");
 else
   printf ("(unknown convention)");
}
    break;

  case DW_AT_ordering:
    switch (uvalue)
{
case -1: printf ("(undefined)"); break;
case 0:  printf ("(row major)"); break;
case 1:  printf ("(column major)"); break;
}
    break;

  case DW_AT_frame_base:
    have_frame_base = 1;
  case DW_AT_location:
  case DW_AT_data_member_location:
  case DW_AT_vtable_elem_location:
  case DW_AT_allocated:
  case DW_AT_associated:
  case DW_AT_data_location:
  case DW_AT_stride:
  case DW_AT_upper_bound:
  case DW_AT_lower_bound:
    if (block_start)
{
 int need_frame_base;

 printf ("(");
 need_frame_base = decode_location_expression (block_start,
					pointer_size,
					uvalue,
					cu_offset);
 printf (")");
 if (need_frame_base && !have_frame_base)
   printf (_(" [without DW_AT_frame_base]")(" [without DW_AT_frame_base]"));
}
    else if (form == DW_FORM_data4 || form == DW_FORM_data8)
printf (_("(location list)")("(location list)"));

    break;

  default:
    break;
  }

return data;
1366}

1368static char *
1369get_AT_name (unsigned long attribute)
1370{
switch (attribute)
  {
  case DW_AT_sibling:			return "DW_AT_sibling";
  case DW_AT_location:		return "DW_AT_location";
  case DW_AT_name:			return "DW_AT_name";
  case DW_AT_ordering:		return "DW_AT_ordering";
  case DW_AT_subscr_data:		return "DW_AT_subscr_data";
  case DW_AT_byte_size:		return "DW_AT_byte_size";
  case DW_AT_bit_offset:		return "DW_AT_bit_offset";
  case DW_AT_bit_size:		return "DW_AT_bit_size";
  case DW_AT_element_list:		return "DW_AT_element_list";
  case DW_AT_stmt_list:		return "DW_AT_stmt_list";
  case DW_AT_low_pc:			return "DW_AT_low_pc";
  case DW_AT_high_pc:			return "DW_AT_high_pc";
  case DW_AT_language:		return "DW_AT_language";
  case DW_AT_member:			return "DW_AT_member";
  case DW_AT_discr:			return "DW_AT_discr";
  case DW_AT_discr_value:		return "DW_AT_discr_value";
  case DW_AT_visibility:		return "DW_AT_visibility";
  case DW_AT_import:			return "DW_AT_import";
  case DW_AT_string_length:		return "DW_AT_string_length";
  case DW_AT_common_reference:	return "DW_AT_common_reference";
  case DW_AT_comp_dir:		return "DW_AT_comp_dir";
  case DW_AT_const_value:		return "DW_AT_const_value";
  case DW_AT_containing_type:		return "DW_AT_containing_type";
  case DW_AT_default_value:		return "DW_AT_default_value";
  case DW_AT_inline:			return "DW_AT_inline";
  case DW_AT_is_optional:		return "DW_AT_is_optional";
  case DW_AT_lower_bound:		return "DW_AT_lower_bound";
  case DW_AT_producer:		return "DW_AT_producer";
  case DW_AT_prototyped:		return "DW_AT_prototyped";
  case DW_AT_return_addr:		return "DW_AT_return_addr";
  case DW_AT_start_scope:		return "DW_AT_start_scope";
  case DW_AT_stride_size:		return "DW_AT_stride_size";
  case DW_AT_upper_bound:		return "DW_AT_upper_bound";
  case DW_AT_abstract_origin:		return "DW_AT_abstract_origin";
  case DW_AT_accessibility:		return "DW_AT_accessibility";
  case DW_AT_address_class:		return "DW_AT_address_class";
  case DW_AT_artificial:		return "DW_AT_artificial";
  case DW_AT_base_types:		return "DW_AT_base_types";
  case DW_AT_calling_convention:	return "DW_AT_calling_convention";
  case DW_AT_count:			return "DW_AT_count";
  case DW_AT_data_member_location:	return "DW_AT_data_member_location";
  case DW_AT_decl_column:		return "DW_AT_decl_column";
  case DW_AT_decl_file:		return "DW_AT_decl_file";
  case DW_AT_decl_line:		return "DW_AT_decl_line";
  case DW_AT_declaration:		return "DW_AT_declaration";
  case DW_AT_discr_list:		return "DW_AT_discr_list";
  case DW_AT_encoding:		return "DW_AT_encoding";
  case DW_AT_external:		return "DW_AT_external";
  case DW_AT_frame_base:		return "DW_AT_frame_base";
  case DW_AT_friend:			return "DW_AT_friend";
  case DW_AT_identifier_case:		return "DW_AT_identifier_case";
  case DW_AT_macro_info:		return "DW_AT_macro_info";
  case DW_AT_namelist_items:		return "DW_AT_namelist_items";
  case DW_AT_priority:		return "DW_AT_priority";
  case DW_AT_segment:			return "DW_AT_segment";
  case DW_AT_specification:		return "DW_AT_specification";
  case DW_AT_static_link:		return "DW_AT_static_link";
  case DW_AT_type:			return "DW_AT_type";
  case DW_AT_use_location:		return "DW_AT_use_location";
  case DW_AT_variable_parameter:	return "DW_AT_variable_parameter";
  case DW_AT_virtuality:		return "DW_AT_virtuality";
  case DW_AT_vtable_elem_location:	return "DW_AT_vtable_elem_location";
    /* DWARF 2.1 values.  */
  case DW_AT_allocated:		return "DW_AT_allocated";
  case DW_AT_associated:		return "DW_AT_associated";
  case DW_AT_data_location:		return "DW_AT_data_location";
  case DW_AT_stride:			return "DW_AT_stride";
  case DW_AT_entry_pc:		return "DW_AT_entry_pc";
  case DW_AT_use_UTF8:		return "DW_AT_use_UTF8";
  case DW_AT_extension:		return "DW_AT_extension";
  case DW_AT_ranges:			return "DW_AT_ranges";
  case DW_AT_trampoline:		return "DW_AT_trampoline";
  case DW_AT_call_column:		return "DW_AT_call_column";
  case DW_AT_call_file:		return "DW_AT_call_file";
  case DW_AT_call_line:		return "DW_AT_call_line";
    /* SGI/MIPS extensions.  */
  case DW_AT_MIPS_fde:		return "DW_AT_MIPS_fde";
  case DW_AT_MIPS_loop_begin:		return "DW_AT_MIPS_loop_begin";
  case DW_AT_MIPS_tail_loop_begin:	return "DW_AT_MIPS_tail_loop_begin";
  case DW_AT_MIPS_epilog_begin:	return "DW_AT_MIPS_epilog_begin";
  case DW_AT_MIPS_loop_unroll_factor: return "DW_AT_MIPS_loop_unroll_factor";
  case DW_AT_MIPS_software_pipeline_depth:
    return "DW_AT_MIPS_software_pipeline_depth";
  case DW_AT_MIPS_linkage_name:	return "DW_AT_MIPS_linkage_name";
  case DW_AT_MIPS_stride:		return "DW_AT_MIPS_stride";
  case DW_AT_MIPS_abstract_name:	return "DW_AT_MIPS_abstract_name";
  case DW_AT_MIPS_clone_origin:	return "DW_AT_MIPS_clone_origin";
  case DW_AT_MIPS_has_inlines:	return "DW_AT_MIPS_has_inlines";
    /* GNU extensions.  */
  case DW_AT_sf_names:		return "DW_AT_sf_names";
  case DW_AT_src_info:		return "DW_AT_src_info";
  case DW_AT_mac_info:		return "DW_AT_mac_info";
  case DW_AT_src_coords:		return "DW_AT_src_coords";
  case DW_AT_body_begin:		return "DW_AT_body_begin";
  case DW_AT_body_end:		return "DW_AT_body_end";
  case DW_AT_GNU_vector:		return "DW_AT_GNU_vector";
    /* UPC extension.  */
  case DW_AT_upc_threads_scaled:	return "DW_AT_upc_threads_scaled";
  default:
    {
static char buffer[100];

snprintf (buffer, sizeof (buffer), _("Unknown AT value: %lx")("Unknown AT value: %lx"),
  attribute);
return buffer;
    }
  }
1480}

1482static unsigned char *
1483read_and_display_attr (unsigned long attribute,
       unsigned long form,
       unsigned char *data,
       unsigned long cu_offset,
       unsigned long pointer_size,
       unsigned long offset_size,
       int dwarf_version,
       debug_info *debug_info_p,
       int do_loc)
1492{
if (!do_loc)
  printf ("     %-18s:", get_AT_name (attribute));
data = read_and_display_attr_value (attribute, form, data, cu_offset,
		      pointer_size, offset_size,
		      dwarf_version, debug_info_p,
		      do_loc);
if (!do_loc)
  printf ("\n");
return data;
1502}


1505/* Process the contents of a .debug_info section.  If do_loc is non-zero
 then we are scanning for location lists and we do not want to display
 anything to the user.  */

1509static int
1510process_debug_info (struct dwarf_section *section, void *file,
    int do_loc)
1512{
unsigned char *start = section->start;
unsigned char *end = start + section->size;
unsigned char *section_begin;
unsigned int unit;
unsigned int num_units = 0;

if ((do_loc || do_debug_loc || do_debug_ranges)
    && num_debug_info_entries == 0)
  {
    unsigned long length;

    /* First scan the section to get the number of comp units.  */
    for (section_begin = start, num_units = 0; section_begin < end;
  num_units ++)
{
 /* Read the first 4 bytes.  For a 32-bit DWARF section, this
    will be the length.  For a 64-bit DWARF section, it'll be
    the escape code 0xffffffff followed by an 8 byte length.  */
 length = byte_get (section_begin, 4);

 if (length == 0xffffffff)
   {
     length = byte_get (section_begin + 4, 8);
     section_begin += length + 12;
   }
 else
   section_begin += length + 4;
}

    if (num_units == 0)
{
 error (_("No comp units in %s section ?")("No comp units in %s section ?"), section->name);
 return 0;
}

    /* Then allocate an array to hold the information.  */
    debug_information = cmalloc (num_units,
		   sizeof (* debug_information));
    if (debug_information == NULL((void*)0))
{
 error (_("Not enough memory for a debug info array of %u entries")("Not enough memory for a debug info array of %u entries"),
 num_units);
 return 0;
}
  }

if (!do_loc)
  {
    printf (_("The section %s contains:\n\n")("The section %s contains:\n\n"), section->name);

    load_debug_section (str, file);
  }

load_debug_section (abbrev, file);
if (debug_displays [abbrev].section.start == NULL((void*)0))
  {
    warn (_("Unable to locate %s section!\n")("Unable to locate %s section!\n"),
   debug_displays [abbrev].section.name);
    return 0;
  }

for (section_begin = start, unit = 0; start < end; unit++)
  {
    DWARF2_Internal_CompUnit compunit;
    unsigned char *hdrptr;
    unsigned char *cu_abbrev_offset_ptr;
    unsigned char *tags;
    int level;
    unsigned long cu_offset;
    int offset_size;
    int initial_length_size;

    hdrptr = start;

    compunit.cu_length = byte_get (hdrptr, 4);
    hdrptr += 4;

    if (compunit.cu_length == 0xffffffff)
{
 compunit.cu_length = byte_get (hdrptr, 8);
 hdrptr += 8;
 offset_size = 8;
 initial_length_size = 12;
}
    else
{
 offset_size = 4;
 initial_length_size = 4;
}

    compunit.cu_version = byte_get (hdrptr, 2);
    hdrptr += 2;

    cu_offset = start - section_begin;
    start += compunit.cu_length + initial_length_size;

    cu_abbrev_offset_ptr = hdrptr;
    compunit.cu_abbrev_offset = byte_get (hdrptr, offset_size);
    hdrptr += offset_size;

    compunit.cu_pointer_size = byte_get (hdrptr, 1);
    hdrptr += 1;
    if ((do_loc || do_debug_loc || do_debug_ranges)
 && num_debug_info_entries == 0)
{
 debug_information [unit].cu_offset = cu_offset;
 debug_information [unit].pointer_size
   = compunit.cu_pointer_size;
 debug_information [unit].base_address = 0;
 debug_information [unit].loc_offsets = NULL((void*)0);
 debug_information [unit].have_frame_base = NULL((void*)0);
 debug_information [unit].max_loc_offsets = 0;
 debug_information [unit].num_loc_offsets = 0;
 debug_information [unit].range_lists = NULL((void*)0);
 debug_information [unit].max_range_lists= 0;
 debug_information [unit].num_range_lists = 0;
}

    tags = hdrptr;

    if (!do_loc)
{
 printf (_("  Compilation Unit @ offset 0x%lx:\n")("  Compilation Unit @ offset 0x%lx:\n"), cu_offset);
 printf (_("   Length:        %ld\n")("   Length:        %ld\n"), compunit.cu_length);
 printf (_("   Version:       %d\n")("   Version:       %d\n"), compunit.cu_version);
 printf (_("   Abbrev Offset: %ld\n")("   Abbrev Offset: %ld\n"), compunit.cu_abbrev_offset);
 printf (_("   Pointer Size:  %d\n")("   Pointer Size:  %d\n"), compunit.cu_pointer_size);
}

    if (compunit.cu_version != 2 && compunit.cu_version != 3)
{
 warn (_("Only version 2 and 3 DWARF debug information is currently supported.\n")("Only version 2 and 3 DWARF debug information is currently supported.\n"
));
 continue;
}

    free_abbrevs ();

    /* Process the abbrevs used by this compilation unit. DWARF
sections under Mach-O have non-zero addresses.  */
    process_abbrev_section
((unsigned char *) debug_displays [abbrev].section.start
+ compunit.cu_abbrev_offset - debug_displays [abbrev].section.address,
(unsigned char *) debug_displays [abbrev].section.start
+ debug_displays [abbrev].section.size);

    level = 0;
    while (tags < start)
{
 unsigned int bytes_read;
 unsigned long abbrev_number;
 abbrev_entry *entry;
 abbrev_attr *attr;

 abbrev_number = read_leb128 (tags, & bytes_read, 0);
 tags += bytes_read;

 /* A null DIE marks the end of a list of children.  */
 if (abbrev_number == 0)
   {
     --level;
     continue;
   }

 /* Scan through the abbreviation list until we reach the
    correct entry.  */
 for (entry = first_abbrev;
      entry && entry->entry != abbrev_number;
      entry = entry->next)
   continue;

 if (entry == NULL((void*)0))
   {
     warn (_("Unable to locate entry %lu in the abbreviation table\n")("Unable to locate entry %lu in the abbreviation table\n"),
    abbrev_number);
     return 0;
   }

 if (!do_loc)
   printf (_(" <%d><%lx>: Abbrev Number: %lu (%s)\n")(" <%d><%lx>: Abbrev Number: %lu (%s)\n"),
    level,
    (unsigned long) (tags - section_begin
		     - bytes_read),
    abbrev_number,
    get_TAG_name (entry->tag));

 switch (entry->tag)
   {
   default:
     need_base_address = 0;
     break;
   case DW_TAG_compile_unit:
     need_base_address = 1;
     break;
   case DW_TAG_entry_point:
   case DW_TAG_inlined_subroutine:
   case DW_TAG_subprogram:
     need_base_address = 0;
     /* Assuming that there is no DW_AT_frame_base.  */
     have_frame_base = 0;
     break;
   }

 for (attr = entry->first_attr; attr; attr = attr->next)
   tags = read_and_display_attr (attr->attribute,
			  attr->form,
			  tags, cu_offset,
			  compunit.cu_pointer_size,
			  offset_size,
			  compunit.cu_version,
			  &debug_information [unit],
			  do_loc);

  if (entry->children)
    ++level;
}
  }

/* Set num_debug_info_entries here so that it can be used to check if
   we need to process .debug_loc and .debug_ranges sections.  */
if ((do_loc || do_debug_loc || do_debug_ranges)
    && num_debug_info_entries == 0)
  num_debug_info_entries = num_units;
    
if (!do_loc)
  {
    printf ("\n");
  }

return 1;
1742}

1744/* Locate and scan the .debug_info section in the file and record the pointer
 sizes and offsets for the compilation units in it.  Usually an executable
 will have just one pointer size, but this is not guaranteed, and so we try
 not to make any assumptions.  Returns zero upon failure, or the number of
 compilation units upon success.  */

1750static unsigned int
1751load_debug_info (void * file)
1752{
/* Reset the last pointer size so that we can issue correct error
   messages if we are displaying the contents of more than one section.  */
last_pointer_size = 0;
warned_about_missing_comp_units = FALSE0;

/* If we already have the information there is nothing else to do.  */
if (num_debug_info_entries > 0)
  return num_debug_info_entries;

if (load_debug_section (info, file)
    && process_debug_info (&debug_displays [info].section, file, 1))
  return num_debug_info_entries;
else
  return 0;
1767}

1769static int
1770display_debug_lines (struct dwarf_section *section, void *file)
1771{
unsigned char *start = section->start;
unsigned char *data = start;
unsigned char *end = start + section->size;

printf (_("\nDump of debug contents of section %s:\n\n")("\nDump of debug contents of section %s:\n\n"),
 section->name);

load_debug_info (file);

while (data < end)
  {
    DWARF2_Internal_LineInfo info;
    unsigned char *standard_opcodes;
    unsigned char *end_of_sequence;
    unsigned char *hdrptr;
    int initial_length_size;
    int offset_size;
    int i;

    hdrptr = data;

    /* Check the length of the block.  */
    info.li_length = byte_get (hdrptr, 4);
    hdrptr += 4;

    if (info.li_length == 0xffffffff)
{
 /* This section is 64-bit DWARF 3.  */
 info.li_length = byte_get (hdrptr, 8);
 hdrptr += 8;
 offset_size = 8;
 initial_length_size = 12;
}
    else
{
 offset_size = 4;
 initial_length_size = 4;
}

    if (info.li_length + initial_length_size > section->size)
{
 warn
   (_("The line info appears to be corrupt - the section is too small\n")("The line info appears to be corrupt - the section is too small\n"
));
 return 0;
}

    /* Check its version number.  */
    info.li_version = byte_get (hdrptr, 2);
    hdrptr += 2;
    if (info.li_version != 2 && info.li_version != 3)
{
 warn (_("Only DWARF version 2 and 3 line info is currently supported.\n")("Only DWARF version 2 and 3 line info is currently supported.\n"
));
 return 0;
}

    info.li_prologue_length = byte_get (hdrptr, offset_size);
    hdrptr += offset_size;
    info.li_min_insn_length = byte_get (hdrptr, 1);
    hdrptr++;
    info.li_default_is_stmt = byte_get (hdrptr, 1);
    hdrptr++;
    info.li_line_base = byte_get (hdrptr, 1);
    hdrptr++;
    info.li_line_range = byte_get (hdrptr, 1);
    hdrptr++;
    info.li_opcode_base = byte_get (hdrptr, 1);
    hdrptr++;

    /* Sign extend the line base field.  */
    info.li_line_base <<= 24;
    info.li_line_base >>= 24;

    printf (_("  Length:                      %ld\n")("  Length:                      %ld\n"), info.li_length);
    printf (_("  DWARF Version:               %d\n")("  DWARF Version:               %d\n"), info.li_version);
    printf (_("  Prologue Length:             %d\n")("  Prologue Length:             %d\n"), info.li_prologue_length);
    printf (_("  Minimum Instruction Length:  %d\n")("  Minimum Instruction Length:  %d\n"), info.li_min_insn_length);
    printf (_("  Initial value of 'is_stmt':  %d\n")("  Initial value of 'is_stmt':  %d\n"), info.li_default_is_stmt);
    printf (_("  Line Base:                   %d\n")("  Line Base:                   %d\n"), info.li_line_base);
    printf (_("  Line Range:                  %d\n")("  Line Range:                  %d\n"), info.li_line_range);
    printf (_("  Opcode Base:                 %d\n")("  Opcode Base:                 %d\n"), info.li_opcode_base);

    end_of_sequence = data + info.li_length + initial_length_size;

    reset_state_machine (info.li_default_is_stmt);

    /* Display the contents of the Opcodes table.  */
    standard_opcodes = hdrptr;

    printf (_("\n Opcodes:\n")("\n Opcodes:\n"));

    for (i = 1; i < info.li_opcode_base; i++)
printf (_("  Opcode %d has %d args\n")("  Opcode %d has %d args\n"), i, standard_opcodes[i - 1]);

    /* Display the contents of the Directory table.  */
    data = standard_opcodes + info.li_opcode_base - 1;

    if (*data == 0)
printf (_("\n The Directory Table is empty.\n")("\n The Directory Table is empty.\n"));
    else
{
 printf (_("\n The Directory Table:\n")("\n The Directory Table:\n"));

 while (*data != 0)
   {
     printf (_("  %s\n")("  %s\n"), data);

     data += strlen ((char *) data) + 1;
   }
}

    /* Skip the NUL at the end of the table.  */
    data++;

    /* Display the contents of the File Name table.  */
    if (*data == 0)
printf (_("\n The File Name Table is empty.\n")("\n The File Name Table is empty.\n"));
    else
{
 printf (_("\n The File Name Table:\n")("\n The File Name Table:\n"));
 printf (_("  Entry\tDir\tTime\tSize\tName\n")("  Entry\tDir\tTime\tSize\tName\n"));

 while (*data != 0)
   {
     unsigned char *name;
     unsigned int bytes_read;

     printf (_("  %d\t")("  %d\t"), ++state_machine_regs.last_file_entry);
     name = data;

     data += strlen ((char *) data) + 1;

     printf (_("%lu\t")("%lu\t"), read_leb128 (data, & bytes_read, 0));
     data += bytes_read;
     printf (_("%lu\t")("%lu\t"), read_leb128 (data, & bytes_read, 0));
     data += bytes_read;
     printf (_("%lu\t")("%lu\t"), read_leb128 (data, & bytes_read, 0));
     data += bytes_read;
     printf (_("%s\n")("%s\n"), name);
   }
}

    /* Skip the NUL at the end of the table.  */
    data++;

    /* Now display the statements.  */
    printf (_("\n Line Number Statements:\n")("\n Line Number Statements:\n"));

    while (data < end_of_sequence)
{
 unsigned char op_code;
 int adv;
 unsigned long int uladv;
 unsigned int bytes_read;

 op_code = *data++;

 if (op_code >= info.li_opcode_base)
   {
     op_code -= info.li_opcode_base;
     uladv = (op_code / info.li_line_range) * info.li_min_insn_length;
     state_machine_regs.address += uladv;
     printf (_("  Special opcode %d: advance Address by %lu to 0x%lx")("  Special opcode %d: advance Address by %lu to 0x%lx"),
      op_code, uladv, state_machine_regs.address);
     adv = (op_code % info.li_line_range) + info.li_line_base;
     state_machine_regs.line += adv;
     printf (_(" and Line by %d to %d\n")(" and Line by %d to %d\n"),
      adv, state_machine_regs.line);
   }
 else switch (op_code)
   {
   case DW_LNS_extended_op:
     data += process_extended_line_op (data, info.li_default_is_stmt);
     break;

   case DW_LNS_copy:
     printf (_("  Copy\n")("  Copy\n"));
     break;

   case DW_LNS_advance_pc:
     uladv = read_leb128 (data, & bytes_read, 0);
     uladv *= info.li_min_insn_length;
     data += bytes_read;
     state_machine_regs.address += uladv;
     printf (_("  Advance PC by %lu to 0x%lx\n")("  Advance PC by %lu to 0x%lx\n"), uladv,
      state_machine_regs.address);
     break;

   case DW_LNS_advance_line:
     adv = read_leb128 (data, & bytes_read, 1);
     data += bytes_read;
     state_machine_regs.line += adv;
     printf (_("  Advance Line by %d to %d\n")("  Advance Line by %d to %d\n"), adv,
      state_machine_regs.line);
     break;

   case DW_LNS_set_file:
     adv = read_leb128 (data, & bytes_read, 0);
     data += bytes_read;
     printf (_("  Set File Name to entry %d in the File Name Table\n")("  Set File Name to entry %d in the File Name Table\n"),
      adv);
     state_machine_regs.file = adv;
     break;

   case DW_LNS_set_column:
     uladv = read_leb128 (data, & bytes_read, 0);
     data += bytes_read;
     printf (_("  Set column to %lu\n")("  Set column to %lu\n"), uladv);
     state_machine_regs.column = uladv;
     break;

   case DW_LNS_negate_stmt:
     adv = state_machine_regs.is_stmt;
     adv = ! adv;
     printf (_("  Set is_stmt to %d\n")("  Set is_stmt to %d\n"), adv);
     state_machine_regs.is_stmt = adv;
     break;

   case DW_LNS_set_basic_block:
     printf (_("  Set basic block\n")("  Set basic block\n"));
     state_machine_regs.basic_block = 1;
     break;

   case DW_LNS_const_add_pc:
     uladv = (((255 - info.li_opcode_base) / info.li_line_range)
      * info.li_min_insn_length);
     state_machine_regs.address += uladv;
     printf (_("  Advance PC by constant %lu to 0x%lx\n")("  Advance PC by constant %lu to 0x%lx\n"), uladv,
      state_machine_regs.address);
     break;

   case DW_LNS_fixed_advance_pc:
     uladv = byte_get (data, 2);
     data += 2;
     state_machine_regs.address += uladv;
     printf (_("  Advance PC by fixed size amount %lu to 0x%lx\n")("  Advance PC by fixed size amount %lu to 0x%lx\n"),
      uladv, state_machine_regs.address);
     break;

   case DW_LNS_set_prologue_end:
     printf (_("  Set prologue_end to true\n")("  Set prologue_end to true\n"));
     break;

   case DW_LNS_set_epilogue_begin:
     printf (_("  Set epilogue_begin to true\n")("  Set epilogue_begin to true\n"));
     break;

   case DW_LNS_set_isa:
     uladv = read_leb128 (data, & bytes_read, 0);
     data += bytes_read;
     printf (_("  Set ISA to %lu\n")("  Set ISA to %lu\n"), uladv);
     break;

   default:
     printf (_("  Unknown opcode %d with operands: ")("  Unknown opcode %d with operands: "), op_code);

     for (i = standard_opcodes[op_code - 1]; i > 0 ; --i)
{
  printf ("0x%lx%s", read_leb128 (data, &bytes_read, 0),
	  i == 1 ? "" : ", ");
  data += bytes_read;
}
     putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));
     break;
   }
}
    putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));
  }

return 1;
2041}

2043static int
2044display_debug_pubnames (struct dwarf_section *section,
	void *file ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
2046{
DWARF2_Internal_PubNames pubnames;
unsigned char *start = section->start;
unsigned char *end = start + section->size;

printf (_("Contents of the %s section:\n\n")("Contents of the %s section:\n\n"), section->name);

while (start < end)
  {
    unsigned char *data;
    unsigned long offset;
    int offset_size, initial_length_size;

    data = start;

    pubnames.pn_length = byte_get (data, 4);
    data += 4;
    if (pubnames.pn_length == 0xffffffff)
{
 pubnames.pn_length = byte_get (data, 8);
 data += 8;
 offset_size = 8;
 initial_length_size = 12;
}
    else
{
 offset_size = 4;
 initial_length_size = 4;
}

    pubnames.pn_version = byte_get (data, 2);
    data += 2;
    pubnames.pn_offset = byte_get (data, offset_size);
    data += offset_size;
    pubnames.pn_size = byte_get (data, offset_size);
    data += offset_size;

    start += pubnames.pn_length + initial_length_size;

    if (pubnames.pn_version != 2 && pubnames.pn_version != 3)
{
 static int warned = 0;

 if (! warned)
   {
     warn (_("Only DWARF 2 and 3 pubnames are currently supported\n")("Only DWARF 2 and 3 pubnames are currently supported\n"));
     warned = 1;
   }

 continue;
}

    printf (_("  Length:                              %ld\n")("  Length:                              %ld\n"),
     pubnames.pn_length);
    printf (_("  Version:                             %d\n")("  Version:                             %d\n"),
     pubnames.pn_version);
    printf (_("  Offset into .debug_info section:     %ld\n")("  Offset into .debug_info section:     %ld\n"),
     pubnames.pn_offset);
    printf (_("  Size of area in .debug_info section: %ld\n")("  Size of area in .debug_info section: %ld\n"),
     pubnames.pn_size);

    printf (_("\n    Offset\tName\n")("\n    Offset\tName\n"));

    do
{
 offset = byte_get (data, offset_size);

 if (offset != 0)
   {
     data += offset_size;
     printf ("    %-6ld\t\t%s\n", offset, data);
     data += strlen ((char *) data) + 1;
   }
}
    while (offset != 0);
  }

printf ("\n");
return 1;
2125}

2127static int
2128display_debug_macinfo (struct dwarf_section *section,
       void *file ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
2130{
unsigned char *start = section->start;
unsigned char *end = start + section->size;
unsigned char *curr = start;
unsigned int bytes_read;
enum dwarf_macinfo_record_type op;

printf (_("Contents of the %s section:\n\n")("Contents of the %s section:\n\n"), section->name);

while (curr < end)
  {
    unsigned int lineno;
    const char *string;

    op = *curr;
    curr++;

    switch (op)
{
case DW_MACINFO_start_file:
 {
   unsigned int filenum;

   lineno = read_leb128 (curr, & bytes_read, 0);
   curr += bytes_read;
   filenum = read_leb128 (curr, & bytes_read, 0);
   curr += bytes_read;

   printf (_(" DW_MACINFO_start_file - lineno: %d filenum: %d\n")(" DW_MACINFO_start_file - lineno: %d filenum: %d\n"),
    lineno, filenum);
 }
 break;

case DW_MACINFO_end_file:
 printf (_(" DW_MACINFO_end_file\n")(" DW_MACINFO_end_file\n"));
 break;

case DW_MACINFO_define:
 lineno = read_leb128 (curr, & bytes_read, 0);
 curr += bytes_read;
 string = (char *) curr;
 curr += strlen (string) + 1;
 printf (_(" DW_MACINFO_define - lineno : %d macro : %s\n")(" DW_MACINFO_define - lineno : %d macro : %s\n"),
  lineno, string);
 break;

case DW_MACINFO_undef:
 lineno = read_leb128 (curr, & bytes_read, 0);
 curr += bytes_read;
 string = (char *) curr;
 curr += strlen (string) + 1;
 printf (_(" DW_MACINFO_undef - lineno : %d macro : %s\n")(" DW_MACINFO_undef - lineno : %d macro : %s\n"),
  lineno, string);
 break;

case DW_MACINFO_vendor_ext:
 {
   unsigned int constant;

   constant = read_leb128 (curr, & bytes_read, 0);
   curr += bytes_read;
   string = (char *) curr;
   curr += strlen (string) + 1;
   printf (_(" DW_MACINFO_vendor_ext - constant : %d string : %s\n")(" DW_MACINFO_vendor_ext - constant : %d string : %s\n"),
    constant, string);
 }
 break;
}
  }

return 1;
2201}

2203static int
2204display_debug_abbrev (struct dwarf_section *section,
      void *file ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
2206{
abbrev_entry *entry;
unsigned char *start = section->start;
unsigned char *end = start + section->size;

printf (_("Contents of the %s section:\n\n")("Contents of the %s section:\n\n"), section->name);

do
  {
    free_abbrevs ();

    start = process_abbrev_section (start, end);

    if (first_abbrev == NULL((void*)0))
continue;

    printf (_("  Number TAG\n")("  Number TAG\n"));

    for (entry = first_abbrev; entry; entry = entry->next)
{
 abbrev_attr *attr;

 printf (_("   %ld      %s    [%s]\n")("   %ld      %s    [%s]\n"),
  entry->entry,
  get_TAG_name (entry->tag),
  entry->children ? _("has children")("has children") : _("no children")("no children"));

 for (attr = entry->first_attr; attr; attr = attr->next)
   printf (_("    %-18s %s\n")("    %-18s %s\n"),
    get_AT_name (attr->attribute),
    get_FORM_name (attr->form));
}
  }
while (start);

printf ("\n");

return 1;
2244}

2246static int
2247display_debug_loc (struct dwarf_section *section, void *file)
2248{
unsigned char *start = section->start;
unsigned char *section_end;
unsigned long bytes;
unsigned char *section_begin = start;
unsigned int num_loc_list = 0;
unsigned long last_offset = 0;
unsigned int first = 0;
unsigned int i;
unsigned int j;
int seen_first_offset = 0;
int use_debug_info = 1;
unsigned char *next;

bytes = section->size;
section_end = start + bytes;

if (bytes == 0)
  {
    printf (_("\nThe %s section is empty.\n")("\nThe %s section is empty.\n"), section->name);
    return 0;
  }

load_debug_info (file);

/* Check the order of location list in .debug_info section. If
   offsets of location lists are in the ascending order, we can
   use `debug_information' directly.  */
for (i = 0; i < num_debug_info_entries; i++)
  {
    unsigned int num;

    num = debug_information [i].num_loc_offsets;
    num_loc_list += num;

    /* Check if we can use `debug_information' directly.  */
    if (use_debug_info && num != 0)
{
 if (!seen_first_offset)
   {
     /* This is the first location list.  */
     last_offset = debug_information [i].loc_offsets [0];
     first = i;
     seen_first_offset = 1;
     j = 1;
   }
 else
   j = 0;

 for (; j < num; j++)
   {
     if (last_offset >
  debug_information [i].loc_offsets [j])
{
  use_debug_info = 0;
  break;
}
     last_offset = debug_information [i].loc_offsets [j];
   }
}
  }

if (!use_debug_info)
  /* FIXME: Should we handle this case?  */
  error (_("Location lists in .debug_info section aren't in ascending order!\n")("Location lists in .debug_info section aren't in ascending order!\n"
));

if (!seen_first_offset)
  error (_("No location lists in .debug_info section!\n")("No location lists in .debug_info section!\n"));

/* DWARF sections under Mach-O have non-zero addresses.  */
if (debug_information [first].loc_offsets [0] != section->address)
  warn (_("Location lists in %s section start at 0x%lx\n")("Location lists in %s section start at 0x%lx\n"),
 section->name, debug_information [first].loc_offsets [0]);

printf (_("Contents of the %s section:\n\n")("Contents of the %s section:\n\n"), section->name);
printf (_("    Offset   Begin    End      Expression\n")("    Offset   Begin    End      Expression\n"));

seen_first_offset = 0;
for (i = first; i < num_debug_info_entries; i++)
  {
    unsigned long begin;
    unsigned long end;
    unsigned short length;
    unsigned long offset;
    unsigned int pointer_size;
    unsigned long cu_offset;
    unsigned long base_address;
    int need_frame_base;
    int has_frame_base;

    pointer_size = debug_information [i].pointer_size;
    cu_offset = debug_information [i].cu_offset;

    for (j = 0; j < debug_information [i].num_loc_offsets; j++)
{
 has_frame_base = debug_information [i].have_frame_base [j];
 /* DWARF sections under Mach-O have non-zero addresses.  */
 offset = debug_information [i].loc_offsets [j] - section->address; 
 next = section_begin + offset;
 base_address = debug_information [i].base_address;

 if (!seen_first_offset)
   seen_first_offset = 1;
 else
   {
     if (start < next)
warn (_("There is a hole [0x%lx - 0x%lx] in .debug_loc section.\n")("There is a hole [0x%lx - 0x%lx] in .debug_loc section.\n"),
      (long)(start - section_begin), (long)(next - section_begin));
     else if (start > next)
warn (_("There is an overlap [0x%lx - 0x%lx] in .debug_loc section.\n")("There is an overlap [0x%lx - 0x%lx] in .debug_loc section.\n"
),
      (long)(start - section_begin), (long)(next - section_begin));
   }
 start = next;

 if (offset >= bytes)
   {
     warn (_("Offset 0x%lx is bigger than .debug_loc section size.\n")("Offset 0x%lx is bigger than .debug_loc section size.\n"),
    offset);
     continue;
   }

 while (1)
   {
     if (start + 2 * pointer_size > section_end)
{
  warn (_("Location list starting at offset 0x%lx is not terminated.\n")("Location list starting at offset 0x%lx is not terminated.\n"
),
	offset);
  break;
}

     begin = byte_get (start, pointer_size);
     start += pointer_size;
     end = byte_get (start, pointer_size);
     start += pointer_size;

     if (begin == 0 && end == 0)
{
  printf (_("    %8.8lx <End of list>\n")("    %8.8lx <End of list>\n"), offset);
  break;
}

     /* Check base address specifiers.  */
     if (begin == -1UL && end != -1UL)
{
  base_address = end;
  printf (_("    %8.8lx %8.8lx %8.8lx (base address)\n")("    %8.8lx %8.8lx %8.8lx (base address)\n"),
	  offset, begin, end);
  continue;
}

     if (start + 2 > section_end)
{
  warn (_("Location list starting at offset 0x%lx is not terminated.\n")("Location list starting at offset 0x%lx is not terminated.\n"
),
	offset);
  break;
}

     length = byte_get (start, 2);
     start += 2;

     if (start + length > section_end)
{
  warn (_("Location list starting at offset 0x%lx is not terminated.\n")("Location list starting at offset 0x%lx is not terminated.\n"
),
	offset);
  break;
}

     printf ("    %8.8lx %8.8lx %8.8lx (",
      offset, begin + base_address, end + base_address);
     need_frame_base = decode_location_expression (start,
					    pointer_size,
					    length,
					    cu_offset);
     putchar (')')(!__isthreaded ? __sputc(')', (&__sF[1])) : (putc)(')', (
&__sF[1])));

     if (need_frame_base && !has_frame_base)
printf (_(" [without DW_AT_frame_base]")(" [without DW_AT_frame_base]"));

     if (begin == end)
fputs (_(" (start == end)")(" (start == end)"), stdout(&__sF[1]));
     else if (begin > end)
fputs (_(" (start > end)")(" (start > end)"), stdout(&__sF[1]));

     putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));

     start += length;
   }
}
  }
return 1;
2438}

2440static int
2441display_debug_str (struct dwarf_section *section,
   void *file ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
2443{
unsigned char *start = section->start;
unsigned long bytes = section->size;
dwarf_vma addr = section->address;

if (bytes == 0)
  {
    printf (_("\nThe %s section is empty.\n")("\nThe %s section is empty.\n"), section->name);
    return 0;
  }

printf (_("Contents of the %s section:\n\n")("Contents of the %s section:\n\n"), section->name);

while (bytes)
  {
    int j;
    int k;
    int lbytes;

    lbytes = (bytes > 16 ? 16 : bytes);

    printf ("  0x%8.8lx ", (unsigned long) addr);

    for (j = 0; j < 16; j++)
{
 if (j < lbytes)
   printf ("%2.2x", start[j]);
 else
   printf ("  ");

 if ((j & 3) == 3)
   printf (" ");
}

    for (j = 0; j < lbytes; j++)
{
 k = start[j];
 if (k >= ' ' && k < 0x80)
   printf ("%c", k);
 else
   printf (".");
}

    putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));

    start += lbytes;
    addr  += lbytes;
    bytes -= lbytes;
  }

putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));

return 1;
2496}


2499static int
2500display_debug_info (struct dwarf_section *section, void *file)
2501{
return process_debug_info (section, file, 0);
2503}


2506static int
2507display_debug_aranges (struct dwarf_section *section,
       void *file ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
2509{
unsigned char *start = section->start;
unsigned char *end = start + section->size;

printf (_("The section %s contains:\n\n")("The section %s contains:\n\n"), section->name);

while (start < end)
  {
    unsigned char *hdrptr;
    DWARF2_Internal_ARange arange;
    unsigned char *ranges;
    unsigned long length;
    unsigned long address;
    int excess;
    int offset_size;
    int initial_length_size;

    hdrptr = start;

    arange.ar_length = byte_get (hdrptr, 4);
    hdrptr += 4;

    if (arange.ar_length == 0xffffffff)
{
 arange.ar_length = byte_get (hdrptr, 8);
 hdrptr += 8;
 offset_size = 8;
 initial_length_size = 12;
}
    else
{
 offset_size = 4;
 initial_length_size = 4;
}

    arange.ar_version = byte_get (hdrptr, 2);
    hdrptr += 2;

    arange.ar_info_offset = byte_get (hdrptr, offset_size);
    hdrptr += offset_size;

    arange.ar_pointer_size = byte_get (hdrptr, 1);
    hdrptr += 1;

    arange.ar_segment_size = byte_get (hdrptr, 1);
    hdrptr += 1;

    if (arange.ar_version != 2 && arange.ar_version != 3)
{
 warn (_("Only DWARF 2 and 3 aranges are currently supported.\n")("Only DWARF 2 and 3 aranges are currently supported.\n"));
 break;
}

    printf (_("  Length:                   %ld\n")("  Length:                   %ld\n"), arange.ar_length);
    printf (_("  Version:                  %d\n")("  Version:                  %d\n"), arange.ar_version);
    printf (_("  Offset into .debug_info:  %lx\n")("  Offset into .debug_info:  %lx\n"), arange.ar_info_offset);
    printf (_("  Pointer Size:             %d\n")("  Pointer Size:             %d\n"), arange.ar_pointer_size);
    printf (_("  Segment Size:             %d\n")("  Segment Size:             %d\n"), arange.ar_segment_size);

    printf (_("\n    Address  Length\n")("\n    Address  Length\n"));

    ranges = hdrptr;

    /* Must pad to an alignment boundary that is twice the pointer size.  */
    excess = (hdrptr - start) % (2 * arange.ar_pointer_size);
    if (excess)
ranges += (2 * arange.ar_pointer_size) - excess;

    start += arange.ar_length + initial_length_size;

    while (ranges + 2 * arange.ar_pointer_size <= start)
{
 address = byte_get (ranges, arange.ar_pointer_size);

 ranges += arange.ar_pointer_size;

 length  = byte_get (ranges, arange.ar_pointer_size);

 ranges += arange.ar_pointer_size;

 printf ("    %8.8lx %lu\n", address, length);
}
  }

printf ("\n");

return 1;
2596}

2598static int
2599display_debug_ranges (struct dwarf_section *section,
      void *file ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
2601{
unsigned char *start = section->start;
unsigned char *section_end;
unsigned long bytes;
unsigned char *section_begin = start;
unsigned int num_range_list = 0;
unsigned long last_offset = 0;
unsigned int first = 0;
unsigned int i;
unsigned int j;
int seen_first_offset = 0;
int use_debug_info = 1;
unsigned char *next;

bytes = section->size;
section_end = start + bytes;

if (bytes == 0)
  {
    printf (_("\nThe %s section is empty.\n")("\nThe %s section is empty.\n"), section->name);
    return 0;
  }

load_debug_info (file);

/* Check the order of range list in .debug_info section. If
   offsets of range lists are in the ascending order, we can
   use `debug_information' directly.  */
for (i = 0; i < num_debug_info_entries; i++)
  {
    unsigned int num;

    num = debug_information [i].num_range_lists;
    num_range_list += num;

    /* Check if we can use `debug_information' directly.  */
    if (use_debug_info && num != 0)
{
 if (!seen_first_offset)
   {
     /* This is the first range list.  */
     last_offset = debug_information [i].range_lists [0];
     first = i;
     seen_first_offset = 1;
     j = 1;
   }
 else
   j = 0;

 for (; j < num; j++)
   {
     if (last_offset >
  debug_information [i].range_lists [j])
{
  use_debug_info = 0;
  break;
}
     last_offset = debug_information [i].range_lists [j];
   }
}
  }

if (!use_debug_info)
  /* FIXME: Should we handle this case?  */
  error (_("Range lists in .debug_info section aren't in ascending order!\n")("Range lists in .debug_info section aren't in ascending order!\n"
));

if (!seen_first_offset)
  error (_("No range lists in .debug_info section!\n")("No range lists in .debug_info section!\n"));

/* DWARF sections under Mach-O have non-zero addresses.  */
if (debug_information [first].range_lists [0] != section->address)
  warn (_("Range lists in %s section start at 0x%lx\n")("Range lists in %s section start at 0x%lx\n"),
 section->name, debug_information [first].range_lists [0]);

printf (_("Contents of the %s section:\n\n")("Contents of the %s section:\n\n"), section->name);
printf (_("    Offset   Begin    End\n")("    Offset   Begin    End\n"));

seen_first_offset = 0;
for (i = first; i < num_debug_info_entries; i++)
  {
    unsigned long begin;
    unsigned long end;
    unsigned long offset;
    unsigned int pointer_size;
    unsigned long base_address;

    pointer_size = debug_information [i].pointer_size;

    for (j = 0; j < debug_information [i].num_range_lists; j++)
{
 /* DWARF sections under Mach-O have non-zero addresses.  */
 offset = debug_information [i].range_lists [j] - section->address;
 next = section_begin + offset;
 base_address = debug_information [i].base_address;

 if (!seen_first_offset)
   seen_first_offset = 1;
 else
   {
     if (start < next)
warn (_("There is a hole [0x%lx - 0x%lx] in %s section.\n")("There is a hole [0x%lx - 0x%lx] in %s section.\n"),
      (long)(start - section_begin),
      (long)(next - section_begin), section->name);
     else if (start > next)
warn (_("There is an overlap [0x%lx - 0x%lx] in %s section.\n")("There is an overlap [0x%lx - 0x%lx] in %s section.\n"),
      (long)(start - section_begin),
      (long)(next - section_begin), section->name);
   }
 start = next;

 while (1)
   {
     begin = byte_get (start, pointer_size);
     start += pointer_size;
     end = byte_get (start, pointer_size);
     start += pointer_size;

     if (begin == 0 && end == 0)
{
  printf (_("    %8.8lx <End of list>\n")("    %8.8lx <End of list>\n"), offset);
  break;
}

     /* Check base address specifiers.  */
     if (begin == -1UL && end != -1UL)
{
  base_address = end;
  printf ("    %8.8lx %8.8lx %8.8lx (base address)\n",
	  offset, begin, end);
  continue;
}

     printf ("    %8.8lx %8.8lx %8.8lx",
      offset, begin + base_address, end + base_address);

     if (begin == end)
fputs (_(" (start == end)")(" (start == end)"), stdout(&__sF[1]));
     else if (begin > end)
fputs (_(" (start > end)")(" (start > end)"), stdout(&__sF[1]));

     putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));
   }
}
  }
putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));
return 1;
2747}

2749typedef struct Frame_Chunk
2750{
struct Frame_Chunk *next;
unsigned char *chunk_start;
int ncols;
/* DW_CFA_{undefined,same_value,offset,register,unreferenced}  */
short int *col_type;
int *col_offset;
char *augmentation;
unsigned int code_factor;
int data_factor;
unsigned long pc_begin;
unsigned long pc_range;
int cfa_reg;
int cfa_offset;
int ra;
unsigned char fde_encoding;
unsigned char cfa_exp;
2767}
2768Frame_Chunk;

2770/* A marker for a col_type that means this column was never referenced
 in the frame info.  */
2772#define DW_CFA_unreferenced(-1) (-1)
2773/* Like DW_CFA_unreferenced, except indicating that it was referenced before
 (and therefore needs space in the columnar output). */
2775#define DW_CFA_placeholder(-2)  (-2)

2777static void
2778frame_need_space (Frame_Chunk *fc, int reg)
2779{
int prev = fc->ncols;

if (reg < fc->ncols)
  return;

fc->ncols = reg + 1;
fc->col_type = xcrealloc (fc->col_type, fc->ncols, sizeof (short int));
fc->col_offset = xcrealloc (fc->col_offset, fc->ncols, sizeof (int));

while (prev < fc->ncols)
  {
    fc->col_type[prev] = DW_CFA_unreferenced(-1);
    fc->col_offset[prev] = 0;
    prev++;
  }
2795}

2797static void
2798frame_display_row (Frame_Chunk *fc, int *need_col_headers, int *max_regs)
2799{
int r;
char tmp[100];

if (*max_regs < fc->ncols)
  *max_regs = fc->ncols;

if (*need_col_headers)
  {
    *need_col_headers = 0;

    printf ("   LOC   CFA      ");

    for (r = 0; r < *max_regs; r++)
if (fc->col_type[r] != DW_CFA_unreferenced(-1))
 {
   if (r == fc->ra)
     printf ("ra   ");
   else
     printf ("r%-4d", r);
 }

    printf ("\n");
  }

printf ("%08lx ", fc->pc_begin);
if (fc->cfa_exp)
  strcpy (tmp, "exp");
else
  sprintf (tmp, "r%d%+d", fc->cfa_reg, fc->cfa_offset);
printf ("%-8s ", tmp);

for (r = 0; r < fc->ncols; r++)
  {
    if (fc->col_type[r] != DW_CFA_unreferenced(-1))
{
 switch (fc->col_type[r])
   {
   case DW_CFA_undefined:
     strcpy (tmp, "u");
     break;
   case DW_CFA_same_value:
     strcpy (tmp, "s");
     break;
   case DW_CFA_offset:
     sprintf (tmp, "c%+d", fc->col_offset[r]);
     break;
   case DW_CFA_val_offset:
     sprintf (tmp, "v%+d", fc->col_offset[r]);
     break;
   case DW_CFA_register:
     sprintf (tmp, "r%d", fc->col_offset[r]);
     break;
   case DW_CFA_expression:
     strcpy (tmp, "exp");
     break;
   case DW_CFA_val_expression:
     strcpy (tmp, "vexp");
     break;
   case DW_CFA_placeholder(-2):
     tmp[0] = '\0';
     break;
   default:
     strcpy (tmp, "n/a");
     break;
   }
 printf ("%-5s", tmp);
}
  }
printf ("\n");
2869}

2871static int
2872size_of_encoded_value (int encoding)
2873{
switch (encoding & 0x7)
  {
  default:	/* ??? */
  case 0:	return eh_addr_size;
  case 2:	return 2;
  case 3:	return 4;
  case 4:	return 8;
  }
2882}

2884static dwarf_vma
2885get_encoded_value (unsigned char *data, int encoding)
2886{
int size = size_of_encoded_value (encoding);
if (encoding & DW_EH_PE_signed0x08)
  return byte_get_signed (data, size);
else
  return byte_get (data, size);
2892}

2894#define GET(N)	byte_get (start, N); start += N
2895#define LEB()	read_leb128 (start, & length_return, 0); start += length_return
2896#define SLEB()	read_leb128 (start, & length_return, 1); start += length_return

2898static int
2899display_debug_frames (struct dwarf_section *section,
      void *file ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
2901{
unsigned char *start = section->start;
unsigned char *end = start + section->size;
unsigned char *section_start = start;
Frame_Chunk *chunks = 0;
Frame_Chunk *remembered_state = 0;
Frame_Chunk *rs;
int is_eh = strcmp (section->name, ".eh_frame") == 0;
1
Assuming the condition is false→
unsigned int length_return;
int max_regs = 0;

printf (_("The section %s contains:\n")("The section %s contains:\n"), section->name);

while (start < end)
2
←
Loop condition is true.  Entering loop body→
  {
    unsigned char *saved_start;
    unsigned char *block_end;
    unsigned long length;
    unsigned long cie_id;
    Frame_Chunk *fc;
    Frame_Chunk *cie;
    int need_col_headers = 1;
    unsigned char *augmentation_data = NULL((void*)0);
    unsigned long augmentation_data_len = 0;
    int encoded_ptr_size = eh_addr_size;
    int offset_size;
    int initial_length_size;

    saved_start = start;
    length = byte_get (start, 4); start += 4;

    if (length == 0)
3
←
Assuming 'length' is not equal to 0→
4
←
Taking false branch→
{
 printf ("\n%08lx ZERO terminator\n\n",
    (unsigned long)(saved_start - section_start));
 return 1;
}

    if (length == 0xffffffff)
5
←
Assuming 'length' is not equal to -1→
6
←
Taking false branch→
{
 length = byte_get (start, 8);
 start += 8;
 offset_size = 8;
 initial_length_size = 12;
}
    else
{
 offset_size = 4;
 initial_length_size = 4;
}

    block_end = saved_start + length + initial_length_size;
    cie_id = byte_get (start, offset_size); start += offset_size;

    if (is_eh6.1
'is_eh' is 0
 ? (cie_id == 0) : (cie_id == DW_CIE_ID0xffffffff))
7
←
'?' condition is false→
8
←
Assuming 'cie_id' is equal to DW_CIE_ID→
9
←
Taking true branch→
{
 int version;

 fc = xmalloc (sizeof (Frame_Chunk));
 memset (fc, 0, sizeof (Frame_Chunk));

 fc->next = chunks;
 chunks = fc;
 fc->chunk_start = saved_start;
 fc->ncols = 0;
 fc->col_type = xmalloc (sizeof (short int));
 fc->col_offset = xmalloc (sizeof (int));
 frame_need_space (fc, max_regs-1);

 version = *start++;

 fc->augmentation = (char *) start;
 start = (unsigned char *) strchr ((char *) start, '\0') + 1;

 if (fc->augmentation[0] == 'z')
10
←
Assuming the condition is true→
11
←
Taking true branch→
   {
     fc->code_factor = LEB ();
     fc->data_factor = SLEB ();
12
←
Calling 'read_leb128'→
     if (version == 1)
{
  fc->ra = GET (1);
}
     else
{
  fc->ra = LEB ();
}
     augmentation_data_len = LEB ();
     augmentation_data = start;
     start += augmentation_data_len;
   }
 else if (strcmp (fc->augmentation, "eh") == 0)
   {
     start += eh_addr_size;
     fc->code_factor = LEB ();
     fc->data_factor = SLEB ();
     if (version == 1)
{
  fc->ra = GET (1);
}
     else
{
  fc->ra = LEB ();
}
   }
 else
   {
     fc->code_factor = LEB ();
     fc->data_factor = SLEB ();
     if (version == 1)
{
  fc->ra = GET (1);
}
     else
{
  fc->ra = LEB ();
}
   }
 cie = fc;

 if (do_debug_frames_interp)
   printf ("\n%08lx %08lx %08lx CIE \"%s\" cf=%d df=%d ra=%d\n",
    (unsigned long)(saved_start - section_start), length, cie_id,
    fc->augmentation, fc->code_factor, fc->data_factor,
    fc->ra);
 else
   {
     printf ("\n%08lx %08lx %08lx CIE\n",
      (unsigned long)(saved_start - section_start), length, cie_id);
     printf ("  Version:               %d\n", version);
     printf ("  Augmentation:          \"%s\"\n", fc->augmentation);
     printf ("  Code alignment factor: %u\n", fc->code_factor);
     printf ("  Data alignment factor: %d\n", fc->data_factor);
     printf ("  Return address column: %d\n", fc->ra);

     if (augmentation_data_len)
{
  unsigned long i;
  printf ("  Augmentation data:    ");
  for (i = 0; i < augmentation_data_len; ++i)
    printf (" %02x", augmentation_data[i]);
  putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));
}
     putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));
   }

 if (augmentation_data_len)
   {
     unsigned char *p, *q;
     p = (unsigned char *) fc->augmentation + 1;
     q = augmentation_data;

     while (1)
{
  if (*p == 'L')
    q++;
  else if (*p == 'P')
    q += 1 + size_of_encoded_value (*q);
  else if (*p == 'R')
    fc->fde_encoding = *q++;
  else
    break;
  p++;
}

     if (fc->fde_encoding)
encoded_ptr_size = size_of_encoded_value (fc->fde_encoding);
   }

 frame_need_space (fc, fc->ra);
}
    else
{
 unsigned char *look_for;
 static Frame_Chunk fde_fc;

 fc = & fde_fc;
 memset (fc, 0, sizeof (Frame_Chunk));

 look_for = is_eh ? start - 4 - cie_id : section_start + cie_id;

 for (cie = chunks; cie ; cie = cie->next)
   if (cie->chunk_start == look_for)
     break;

 if (!cie)
   {
     warn ("Invalid CIE pointer %08lx in FDE at %08lx\n",
    cie_id, (unsigned long)(saved_start - section_start));
     start = block_end;
     fc->ncols = 0;
     fc->col_type = xmalloc (sizeof (short int));
     fc->col_offset = xmalloc (sizeof (int));
     frame_need_space (fc, max_regs - 1);
     cie = fc;
     fc->augmentation = "";
     fc->fde_encoding = 0;
   }
 else
   {
     fc->ncols = cie->ncols;
     fc->col_type = xcmalloc (fc->ncols, sizeof (short int));
     fc->col_offset = xcmalloc (fc->ncols, sizeof (int));
     memcpy (fc->col_type, cie->col_type, fc->ncols * sizeof (short int));
     memcpy (fc->col_offset, cie->col_offset, fc->ncols * sizeof (int));
     fc->augmentation = cie->augmentation;
     fc->code_factor = cie->code_factor;
     fc->data_factor = cie->data_factor;
     fc->cfa_reg = cie->cfa_reg;
     fc->cfa_offset = cie->cfa_offset;
     fc->ra = cie->ra;
     frame_need_space (fc, max_regs-1);
     fc->fde_encoding = cie->fde_encoding;
   }

 if (fc->fde_encoding)
   encoded_ptr_size = size_of_encoded_value (fc->fde_encoding);

 fc->pc_begin = get_encoded_value (start, fc->fde_encoding);
 if ((fc->fde_encoding & 0x70) == DW_EH_PE_pcrel0x10
     /* Don't adjust for relocatable file since there's
 invariably a pcrel reloc here, which we haven't
 applied.  */
     && !is_relocatable)
   fc->pc_begin += section->address + (start - section_start);
 start += encoded_ptr_size;
 fc->pc_range = byte_get (start, encoded_ptr_size);
 start += encoded_ptr_size;

 if (cie->augmentation[0] == 'z')
   {
     augmentation_data_len = LEB ();
     augmentation_data = start;
     start += augmentation_data_len;
   }

 printf ("\n%08lx %08lx %08lx FDE cie=%08lx pc=%08lx..%08lx\n",
  (unsigned long)(saved_start - section_start), length, cie_id,
  (unsigned long)(cie->chunk_start - section_start),
  fc->pc_begin, fc->pc_begin + fc->pc_range);
 if (! do_debug_frames_interp && augmentation_data_len)
   {
     unsigned long i;

     printf ("  Augmentation data:    ");
     for (i = 0; i < augmentation_data_len; ++i)
printf (" %02x", augmentation_data[i]);
     putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));
     putchar ('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
 (&__sF[1])));
   }
}

    /* At this point, fc is the current chunk, cie (if any) is set, and
we're about to interpret instructions for the chunk.  */
    /* ??? At present we need to do this always, since this sizes the
fc->col_type and fc->col_offset arrays, which we write into always.
We should probably split the interpreted and non-interpreted bits
into two different routines, since there's so much that doesn't
really overlap between them.  */
    if (1 || do_debug_frames_interp)
{
 /* Start by making a pass over the chunk, allocating storage
    and taking note of what registers are used.  */
 unsigned char *tmp = start;

 while (start < block_end)
   {
     unsigned op, opa;
     unsigned long reg, tmp;

     op = *start++;
     opa = op & 0x3f;
     if (op & 0xc0)
op &= 0xc0;

     /* Warning: if you add any more cases to this switch, be
 sure to add them to the corresponding switch below.  */
     switch (op)
{
case DW_CFA_advance_loc:
  break;
case DW_CFA_offset:
  LEB ();
  frame_need_space (fc, opa);
  fc->col_type[opa] = DW_CFA_undefined;
  break;
case DW_CFA_restore:
  frame_need_space (fc, opa);
  fc->col_type[opa] = DW_CFA_undefined;
  break;
case DW_CFA_set_loc:
  start += encoded_ptr_size;
  break;
case DW_CFA_advance_loc1:
  start += 1;
  break;
case DW_CFA_advance_loc2:
  start += 2;
  break;
case DW_CFA_advance_loc4:
  start += 4;
  break;
case DW_CFA_offset_extended:
case DW_CFA_val_offset:
  reg = LEB (); LEB ();
  frame_need_space (fc, reg);
  fc->col_type[reg] = DW_CFA_undefined;
  break;
case DW_CFA_restore_extended:
  reg = LEB ();
  frame_need_space (fc, reg);
  fc->col_type[reg] = DW_CFA_undefined;
  break;
case DW_CFA_undefined:
  reg = LEB ();
  frame_need_space (fc, reg);
  fc->col_type[reg] = DW_CFA_undefined;
  break;
case DW_CFA_same_value:
  reg = LEB ();
  frame_need_space (fc, reg);
  fc->col_type[reg] = DW_CFA_undefined;
  break;
case DW_CFA_register:
  reg = LEB (); LEB ();
  frame_need_space (fc, reg);
  fc->col_type[reg] = DW_CFA_undefined;
  break;
case DW_CFA_def_cfa:
  LEB (); LEB ();
  break;
case DW_CFA_def_cfa_register:
  LEB ();
  break;
case DW_CFA_def_cfa_offset:
  LEB ();
  break;
case DW_CFA_def_cfa_expression:
  tmp = LEB ();
  start += tmp;
  break;
case DW_CFA_expression:
case DW_CFA_val_expression:
  reg = LEB ();
  tmp = LEB ();
  start += tmp;
  frame_need_space (fc, reg);
  fc->col_type[reg] = DW_CFA_undefined;
  break;
case DW_CFA_offset_extended_sf:
case DW_CFA_val_offset_sf:
  reg = LEB (); SLEB ();
  frame_need_space (fc, reg);
  fc->col_type[reg] = DW_CFA_undefined;
  break;
case DW_CFA_def_cfa_sf:
  LEB (); SLEB ();
  break;
case DW_CFA_def_cfa_offset_sf:
  SLEB ();
  break;
case DW_CFA_MIPS_advance_loc8:
  start += 8;
  break;
case DW_CFA_GNU_args_size:
  LEB ();
  break;
case DW_CFA_GNU_negative_offset_extended:
  reg = LEB (); LEB ();
  frame_need_space (fc, reg);
  fc->col_type[reg] = DW_CFA_undefined;

default:
  break;
}
   }
 start = tmp;
}

    /* Now we know what registers are used, make a second pass over
the chunk, this time actually printing out the info.  */

    while (start < block_end)
{
 unsigned op, opa;
 unsigned long ul, reg, roffs;
 long l, ofs;
 dwarf_vma vma;

 op = *start++;
 opa = op & 0x3f;
 if (op & 0xc0)
   op &= 0xc0;

 /* Warning: if you add any more cases to this switch, be
    sure to add them to the corresponding switch above.  */
 switch (op)
   {
   case DW_CFA_advance_loc:
     if (do_debug_frames_interp)
frame_display_row (fc, &need_col_headers, &max_regs);
     else
printf ("  DW_CFA_advance_loc: %d to %08lx\n",
	opa * fc->code_factor,
	fc->pc_begin + opa * fc->code_factor);
     fc->pc_begin += opa * fc->code_factor;
     break;

   case DW_CFA_offset:
     roffs = LEB ();
     if (! do_debug_frames_interp)
printf ("  DW_CFA_offset: r%d at cfa%+ld\n",
	opa, roffs * fc->data_factor);
     fc->col_type[opa] = DW_CFA_offset;
     fc->col_offset[opa] = roffs * fc->data_factor;
     break;

   case DW_CFA_restore:
     if (! do_debug_frames_interp)
printf ("  DW_CFA_restore: r%d\n", opa);
     if ((fc->col_type[opa] = cie->col_type[opa]) ==
  DW_CFA_unreferenced(-1))
fc->col_type[opa] = DW_CFA_placeholder(-2);
     fc->col_offset[opa] = cie->col_offset[opa];
     break;

   case DW_CFA_set_loc:
     vma = get_encoded_value (start, fc->fde_encoding);
     if ((fc->fde_encoding & 0x70) == DW_EH_PE_pcrel0x10
  && !is_relocatable)
vma += section->address + (start - section_start);
     start += encoded_ptr_size;
     if (do_debug_frames_interp)
frame_display_row (fc, &need_col_headers, &max_regs);
     else
printf ("  DW_CFA_set_loc: %08lx\n", (unsigned long)vma);
     fc->pc_begin = vma;
     break;

   case DW_CFA_advance_loc1:
     ofs = byte_get (start, 1); start += 1;
     if (do_debug_frames_interp)
frame_display_row (fc, &need_col_headers, &max_regs);
     else
printf ("  DW_CFA_advance_loc1: %ld to %08lx\n",
	ofs * fc->code_factor,
	fc->pc_begin + ofs * fc->code_factor);
     fc->pc_begin += ofs * fc->code_factor;
     break;

   case DW_CFA_advance_loc2:
     ofs = byte_get (start, 2); start += 2;
     if (do_debug_frames_interp)
frame_display_row (fc, &need_col_headers, &max_regs);
     else
printf ("  DW_CFA_advance_loc2: %ld to %08lx\n",
	ofs * fc->code_factor,
	fc->pc_begin + ofs * fc->code_factor);
     fc->pc_begin += ofs * fc->code_factor;
     break;

   case DW_CFA_advance_loc4:
     ofs = byte_get (start, 4); start += 4;
     if (do_debug_frames_interp)
frame_display_row (fc, &need_col_headers, &max_regs);
     else
printf ("  DW_CFA_advance_loc4: %ld to %08lx\n",
	ofs * fc->code_factor,
	fc->pc_begin + ofs * fc->code_factor);
     fc->pc_begin += ofs * fc->code_factor;
     break;

   case DW_CFA_offset_extended:
     reg = LEB ();
     roffs = LEB ();
     if (! do_debug_frames_interp)
printf ("  DW_CFA_offset_extended: r%ld at cfa%+ld\n",
	reg, roffs * fc->data_factor);
     fc->col_type[reg] = DW_CFA_offset;
     fc->col_offset[reg] = roffs * fc->data_factor;
     break;

   case DW_CFA_val_offset:
     reg = LEB ();
     roffs = LEB ();
     if (! do_debug_frames_interp)
printf ("  DW_CFA_val_offset: r%ld at cfa%+ld\n",
	reg, roffs * fc->data_factor);
     fc->col_type[reg] = DW_CFA_val_offset;
     fc->col_offset[reg] = roffs * fc->data_factor;
     break;

   case DW_CFA_restore_extended:
     reg = LEB ();
     if (! do_debug_frames_interp)
printf ("  DW_CFA_restore_extended: r%ld\n", reg);
     if ((fc->col_type[opa] = cie->col_type[opa]) ==
  DW_CFA_unreferenced(-1))
fc->col_type[opa] = DW_CFA_placeholder(-2);
     fc->col_offset[reg] = cie->col_offset[reg];
     break;

   case DW_CFA_undefined:
     reg = LEB ();
     if (! do_debug_frames_interp)
printf ("  DW_CFA_undefined: r%ld\n", reg);
     fc->col_type[reg] = DW_CFA_undefined;
     fc->col_offset[reg] = 0;
     break;

   case DW_CFA_same_value:
     reg = LEB ();
     if (! do_debug_frames_interp)
printf ("  DW_CFA_same_value: r%ld\n", reg);
     fc->col_type[reg] = DW_CFA_same_value;
     fc->col_offset[reg] = 0;
     break;

   case DW_CFA_register:
     reg = LEB ();
     roffs = LEB ();
     if (! do_debug_frames_interp)
printf ("  DW_CFA_register: r%ld in r%ld\n", reg, roffs);
     fc->col_type[reg] = DW_CFA_register;
     fc->col_offset[reg] = roffs;
     break;

   case DW_CFA_remember_state:
     if (! do_debug_frames_interp)
printf ("  DW_CFA_remember_state\n");
     rs = xmalloc (sizeof (Frame_Chunk));
     rs->ncols = fc->ncols;
     rs->col_type = xcmalloc (rs->ncols, sizeof (short int));
     rs->col_offset = xcmalloc (rs->ncols, sizeof (int));
     memcpy (rs->col_type, fc->col_type, rs->ncols);
     memcpy (rs->col_offset, fc->col_offset, rs->ncols * sizeof (int));
     rs->next = remembered_state;
     remembered_state = rs;
     break;

   case DW_CFA_restore_state:
     if (! do_debug_frames_interp)
printf ("  DW_CFA_restore_state\n");
     rs = remembered_state;
     if (rs)
{
  remembered_state = rs->next;
  frame_need_space (fc, rs->ncols-1);
  memcpy (fc->col_type, rs->col_type, rs->ncols);
  memcpy (fc->col_offset, rs->col_offset,
	  rs->ncols * sizeof (int));
  free (rs->col_type);
  free (rs->col_offset);
  free (rs);
}
     else if (do_debug_frames_interp)
printf ("Mismatched DW_CFA_restore_state\n");
     break;

   case DW_CFA_def_cfa:
     fc->cfa_reg = LEB ();
     fc->cfa_offset = LEB ();
     fc->cfa_exp = 0;
     if (! do_debug_frames_interp)
printf ("  DW_CFA_def_cfa: r%d ofs %d\n",
	fc->cfa_reg, fc->cfa_offset);
     break;

   case DW_CFA_def_cfa_register:
     fc->cfa_reg = LEB ();
     fc->cfa_exp = 0;
     if (! do_debug_frames_interp)
printf ("  DW_CFA_def_cfa_reg: r%d\n", fc->cfa_reg);
     break;

   case DW_CFA_def_cfa_offset:
     fc->cfa_offset = LEB ();
     if (! do_debug_frames_interp)
printf ("  DW_CFA_def_cfa_offset: %d\n", fc->cfa_offset);
     break;

   case DW_CFA_nop:
     if (! do_debug_frames_interp)
printf ("  DW_CFA_nop\n");
     break;

   case DW_CFA_def_cfa_expression:
     ul = LEB ();
     if (! do_debug_frames_interp)
{
  printf ("  DW_CFA_def_cfa_expression (");
  decode_location_expression (start, eh_addr_size, ul, 0);
  printf (")\n");
}
     fc->cfa_exp = 1;
     start += ul;
     break;

   case DW_CFA_expression:
     reg = LEB ();
     ul = LEB ();
     if (! do_debug_frames_interp)
{
  printf ("  DW_CFA_expression: r%ld (", reg);
  decode_location_expression (start, eh_addr_size, ul, 0);
  printf (")\n");
}
     fc->col_type[reg] = DW_CFA_expression;
     start += ul;
     break;

   case DW_CFA_val_expression:
     reg = LEB ();
     ul = LEB ();
     if (! do_debug_frames_interp)
{
  printf ("  DW_CFA_val_expression: r%ld (", reg);
  decode_location_expression (start, eh_addr_size, ul, 0);
  printf (")\n");
}
     fc->col_type[reg] = DW_CFA_val_expression;
     start += ul;
     break;

   case DW_CFA_offset_extended_sf:
     reg = LEB ();
     l = SLEB ();
     frame_need_space (fc, reg);
     if (! do_debug_frames_interp)
printf ("  DW_CFA_offset_extended_sf: r%ld at cfa%+ld\n",
	reg, l * fc->data_factor);
     fc->col_type[reg] = DW_CFA_offset;
     fc->col_offset[reg] = l * fc->data_factor;
     break;

   case DW_CFA_val_offset_sf:
     reg = LEB ();
     l = SLEB ();
     frame_need_space (fc, reg);
     if (! do_debug_frames_interp)
printf ("  DW_CFA_val_offset_sf: r%ld at cfa%+ld\n",
	reg, l * fc->data_factor);
     fc->col_type[reg] = DW_CFA_val_offset;
     fc->col_offset[reg] = l * fc->data_factor;
     break;

   case DW_CFA_def_cfa_sf:
     fc->cfa_reg = LEB ();
     fc->cfa_offset = SLEB ();
     fc->cfa_offset = fc->cfa_offset * fc->data_factor;
     fc->cfa_exp = 0;
     if (! do_debug_frames_interp)
printf ("  DW_CFA_def_cfa_sf: r%d ofs %d\n",
	fc->cfa_reg, fc->cfa_offset);
     break;

   case DW_CFA_def_cfa_offset_sf:
     fc->cfa_offset = SLEB ();
     fc->cfa_offset = fc->cfa_offset * fc->data_factor;
     if (! do_debug_frames_interp)
printf ("  DW_CFA_def_cfa_offset_sf: %d\n", fc->cfa_offset);
     break;

   case DW_CFA_MIPS_advance_loc8:
     ofs = byte_get (start, 8); start += 8;
     if (do_debug_frames_interp)
frame_display_row (fc, &need_col_headers, &max_regs);
     else
printf ("  DW_CFA_MIPS_advance_loc8: %ld to %08lx\n",
	ofs * fc->code_factor,
	fc->pc_begin + ofs * fc->code_factor);
     fc->pc_begin += ofs * fc->code_factor;
     break;

   case DW_CFA_GNU_window_save:
     if (! do_debug_frames_interp)
printf ("  DW_CFA_GNU_window_save\n");
     break;

   case DW_CFA_GNU_args_size:
     ul = LEB ();
     if (! do_debug_frames_interp)
printf ("  DW_CFA_GNU_args_size: %ld\n", ul);
     break;

   case DW_CFA_GNU_negative_offset_extended:
     reg = LEB ();
     l = - LEB ();
     frame_need_space (fc, reg);
     if (! do_debug_frames_interp)
printf ("  DW_CFA_GNU_negative_offset_extended: r%ld at cfa%+ld\n",
	reg, l * fc->data_factor);
     fc->col_type[reg] = DW_CFA_offset;
     fc->col_offset[reg] = l * fc->data_factor;
     break;

   default:
     warn (_("unsupported or unknown DW_CFA_%d\n")("unsupported or unknown DW_CFA_%d\n"), op);
     start = block_end;
   }
}

    if (do_debug_frames_interp)
frame_display_row (fc, &need_col_headers, &max_regs);

    start = block_end;
  }

printf ("\n");

return 1;
3611}

3613#undef GET
3614#undef LEB
3615#undef SLEB

3617static int
3618display_debug_not_supported (struct dwarf_section *section,
	     void *file ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
3620{
printf (_("Displaying the debug contents of section %s is not yet supported.\n")("Displaying the debug contents of section %s is not yet supported.\n"
),
   section->name);

return 1;
3625}

3627void *
3628cmalloc (size_t nmemb, size_t size)
3629{
/* Check for overflow.  */
if (nmemb >= ~(size_t) 0 / size)
  return NULL((void*)0);
else
  return malloc (nmemb * size);
3635}

3637void *
3638xcmalloc (size_t nmemb, size_t size)
3639{
/* Check for overflow.  */
if (nmemb >= ~(size_t) 0 / size)
  return NULL((void*)0);
else
  return xmalloc (nmemb * size);
3645}

3647void *
3648xcrealloc (void *ptr, size_t nmemb, size_t size)
3649{
/* Check for overflow.  */
if (nmemb >= ~(size_t) 0 / size)
  return NULL((void*)0);
else
  return xrealloc (ptr, nmemb * size);
3655}

3657void
3658error (const char *message, ...)
3659{
va_list args;

va_start (args, message)__builtin_va_start(args, message);
fprintf (stderr(&__sF[2]), _("%s: Error: ")("%s: Error: "), program_name);
vfprintf (stderr(&__sF[2]), message, args);
va_end (args)__builtin_va_end(args);
3666}

3668void
3669warn (const char *message, ...)
3670{
va_list args;

va_start (args, message)__builtin_va_start(args, message);
fprintf (stderr(&__sF[2]), _("%s: Warning: ")("%s: Warning: "), program_name);
vfprintf (stderr(&__sF[2]), message, args);
va_end (args)__builtin_va_end(args);
3677}

3679void
3680free_debug_memory (void)
3681{
enum dwarf_section_display_enum i;

free_abbrevs ();

for (i = 0; i < max; i++)
  free_debug_section (i);

if (debug_information)
  {
    for (i = 0; i < num_debug_info_entries; i++)
{
 if (!debug_information [i].max_loc_offsets)
   {
     free (debug_information [i].loc_offsets);
     free (debug_information [i].have_frame_base);
   }
 if (!debug_information [i].max_range_lists)
   free (debug_information [i].range_lists);
}
    free (debug_information);
    debug_information = NULL((void*)0);
    num_debug_info_entries = 0;
  }

3706}

3708struct dwarf_section_display debug_displays[] =
3709{
{ { ".debug_abbrev",		NULL((void*)0),	0,	0 },
  display_debug_abbrev,		0,	0 },
{ { ".debug_aranges",		NULL((void*)0),	0,	0 },
  display_debug_aranges,		0,	0 },
{ { ".debug_frame",		NULL((void*)0),	0,	0 },
  display_debug_frames,		1,	0 },
{ { ".debug_info",		NULL((void*)0),	0,	0 },
  display_debug_info,			1,	0 },
{ { ".debug_line",		NULL((void*)0),	0,	0 },
  display_debug_lines,		0,	0 },
{ { ".debug_pubnames",	NULL((void*)0),	0,	0 },
  display_debug_pubnames,		0,	0 },
{ { ".eh_frame",		NULL((void*)0),	0,	0 },
  display_debug_frames,		1,	1 },
{ { ".debug_macinfo",		NULL((void*)0),	0,	0 },
  display_debug_macinfo,		0,	0 },
{ { ".debug_str",		NULL((void*)0),	0,	0 },
  display_debug_str,			0,	0 },
{ { ".debug_loc",		NULL((void*)0),	0,	0 },
  display_debug_loc,			0,	0 },
{ { ".debug_pubtypes",	NULL((void*)0),	0,	0 },
  display_debug_pubnames,		0,	0 },
{ { ".debug_ranges",		NULL((void*)0),	0,	0 },
  display_debug_ranges,		0,	0 },
{ { ".debug_static_func",	NULL((void*)0),	0,	0 },
  display_debug_not_supported,	0,	0 },
{ { ".debug_static_vars",	NULL((void*)0),	0,	0 },
  display_debug_not_supported,	0,	0 },
{ { ".debug_types",		NULL((void*)0),	0,	0 },
  display_debug_not_supported,	0,	0 },
{ { ".debug_weaknames",	NULL((void*)0),	0,	0 },
  display_debug_not_supported,	0,	0 }
3742};