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

Bug Summary

File:	src/gnu/usr.bin/binutils-2.17/binutils/debug.c
Warning:	line 3341, column 6 Dereference of null pointer (loaded from variable 'pv1')
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 debug.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/debug.c
1/* debug.c -- Handle generic debugging information.
 Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003
 Free Software Foundation, Inc.
 Written by Ian Lance Taylor <ian@cygnus.com>.

 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.  */

23/* This file implements a generic debugging format.  We may eventually
 have readers which convert different formats into this generic
 format, and writers which write it out.  The initial impetus for
 this was writing a converter from stabs to HP IEEE-695 debugging
 format.  */

29#include <stdio.h>
30#include <assert.h>

32#include "bfd.h"
33#include "bucomm.h"
34#include "libiberty.h"
35#include "debug.h"

37/* Global information we keep for debugging.  A pointer to this
 structure is the debugging handle passed to all the routines.  */

40struct debug_handle
41{
/* A linked list of compilation units.  */
struct debug_unit *units;
/* The current compilation unit.  */
struct debug_unit *current_unit;
/* The current source file.  */
struct debug_file *current_file;
/* The current function.  */
struct debug_function *current_function;
/* The current block.  */
struct debug_block *current_block;
/* The current line number information for the current unit.  */
struct debug_lineno *current_lineno;
/* Mark.  This is used by debug_write.  */
unsigned int mark;
/* A struct/class ID used by debug_write.  */
unsigned int class_id;
/* The base for class_id for this call to debug_write.  */
unsigned int base_id;
/* The current line number in debug_write.  */
struct debug_lineno *current_write_lineno;
unsigned int current_write_lineno_index;
/* A list of classes which have assigned ID's during debug_write.
   This is linked through the next_id field of debug_class_type.  */
struct debug_class_id *id_list;
/* A list used to avoid recursion during debug_type_samep.  */
struct debug_type_compare_list *compare_list;
68};

70/* Information we keep for a single compilation unit.  */

72struct debug_unit
73{
/* The next compilation unit.  */
struct debug_unit *next;
/* A list of files included in this compilation unit.  The first
   file is always the main one, and that is where the main file name
   is stored.  */
struct debug_file *files;
/* Line number information for this compilation unit.  This is not
   stored by function, because assembler code may have line number
   information without function information.  */
struct debug_lineno *linenos;
84};

86/* Information kept for a single source file.  */

88struct debug_file
89{
/* The next source file in this compilation unit.  */
struct debug_file *next;
/* The name of the source file.  */
const char *filename;
/* Global functions, variables, types, etc.  */
struct debug_namespace *globals;
96};

98/* A type.  */

100struct debug_type
101{
/* Kind of type.  */
enum debug_type_kind kind;
/* Size of type (0 if not known).  */
unsigned int size;
/* Type which is a pointer to this type.  */
debug_type pointer;
/* Tagged union with additional information about the type.  */
union
  {
    /* DEBUG_KIND_INDIRECT.  */
    struct debug_indirect_type *kindirect;
    /* DEBUG_KIND_INT.  */
    /* Whether the integer is unsigned.  */
    bfd_boolean kint;
    /* DEBUG_KIND_STRUCT, DEBUG_KIND_UNION, DEBUG_KIND_CLASS,
       DEBUG_KIND_UNION_CLASS.  */
    struct debug_class_type *kclass;
    /* DEBUG_KIND_ENUM.  */
    struct debug_enum_type *kenum;
    /* DEBUG_KIND_POINTER.  */
    struct debug_type *kpointer;
    /* DEBUG_KIND_FUNCTION.  */
    struct debug_function_type *kfunction;
    /* DEBUG_KIND_REFERENCE.  */
    struct debug_type *kreference;
    /* DEBUG_KIND_RANGE.  */
    struct debug_range_type *krange;
    /* DEBUG_KIND_ARRAY.  */
    struct debug_array_type *karray;
    /* DEBUG_KIND_SET.  */
    struct debug_set_type *kset;
    /* DEBUG_KIND_OFFSET.  */
    struct debug_offset_type *koffset;
    /* DEBUG_KIND_METHOD.  */
    struct debug_method_type *kmethod;
    /* DEBUG_KIND_CONST.  */
    struct debug_type *kconst;
    /* DEBUG_KIND_VOLATILE.  */
    struct debug_type *kvolatile;
    /* DEBUG_KIND_NAMED, DEBUG_KIND_TAGGED.  */
    struct debug_named_type *knamed;
  } u;
144};

146/* Information kept for an indirect type.  */

148struct debug_indirect_type
149{
/* Slot where the final type will appear.  */
debug_type *slot;
/* Tag.  */
const char *tag;
154};

156/* Information kept for a struct, union, or class.  */

158struct debug_class_type
159{
/* NULL terminated array of fields.  */
debug_field *fields;
/* A mark field which indicates whether the struct has already been
   printed.  */
unsigned int mark;
/* This is used to uniquely identify unnamed structs when printing.  */
unsigned int id;
/* The remaining fields are only used for DEBUG_KIND_CLASS and
   DEBUG_KIND_UNION_CLASS.  */
/* NULL terminated array of base classes.  */
debug_baseclass *baseclasses;
/* NULL terminated array of methods.  */
debug_method *methods;
/* The type of the class providing the virtual function table for
   this class.  This may point to the type itself.  */
debug_type vptrbase;
176};

178/* Information kept for an enum.  */

180struct debug_enum_type
181{
/* NULL terminated array of names.  */
const char **names;
/* Array of corresponding values.  */
bfd_signed_vma *values;
186};

188/* Information kept for a function.  FIXME: We should be able to
 record the parameter types.  */

191struct debug_function_type
192{
/* Return type.  */
debug_type return_type;
/* NULL terminated array of argument types.  */
debug_type *arg_types;
/* Whether the function takes a variable number of arguments.  */
bfd_boolean varargs;
199};

201/* Information kept for a range.  */

203struct debug_range_type
204{
/* Range base type.  */
debug_type type;
/* Lower bound.  */
bfd_signed_vma lower;
/* Upper bound.  */
bfd_signed_vma upper;
211};

213/* Information kept for an array.  */

215struct debug_array_type
216{
/* Element type.  */
debug_type element_type;
/* Range type.  */
debug_type range_type;
/* Lower bound.  */
bfd_signed_vma lower;
/* Upper bound.  */
bfd_signed_vma upper;
/* Whether this array is really a string.  */
bfd_boolean stringp;
227};

229/* Information kept for a set.  */

231struct debug_set_type
232{
/* Base type.  */
debug_type type;
/* Whether this set is really a bitstring.  */
bfd_boolean bitstringp;
237};

239/* Information kept for an offset type (a based pointer).  */

241struct debug_offset_type
242{
/* The type the pointer is an offset from.  */
debug_type base_type;
/* The type the pointer points to.  */
debug_type target_type;
247};

249/* Information kept for a method type.  */

251struct debug_method_type
252{
/* The return type.  */
debug_type return_type;
/* The object type which this method is for.  */
debug_type domain_type;
/* A NULL terminated array of argument types.  */
debug_type *arg_types;
/* Whether the method takes a variable number of arguments.  */
bfd_boolean varargs;
261};

263/* Information kept for a named type.  */

265struct debug_named_type
266{
/* Name.  */
struct debug_name *name;
/* Real type.  */
debug_type type;
271};

273/* A field in a struct or union.  */

275struct debug_field
276{
/* Name of the field.  */
const char *name;
/* Type of the field.  */
struct debug_type *type;
/* Visibility of the field.  */
enum debug_visibility visibility;
/* Whether this is a static member.  */
bfd_boolean static_member;
union
  {
    /* If static_member is false.  */
    struct
{
 /* Bit position of the field in the struct.  */
 unsigned int bitpos;
 /* Size of the field in bits.  */
 unsigned int bitsize;
} f;
    /* If static_member is true.  */
    struct
{
 const char *physname;
} s;
  } u;
301};

303/* A base class for an object.  */

305struct debug_baseclass
306{
/* Type of the base class.  */
struct debug_type *type;
/* Bit position of the base class in the object.  */
unsigned int bitpos;
/* Whether the base class is virtual.  */
bfd_boolean virtual;
/* Visibility of the base class.  */
enum debug_visibility visibility;
315};

317/* A method of an object.  */

319struct debug_method
320{
/* The name of the method.  */
const char *name;
/* A NULL terminated array of different types of variants.  */
struct debug_method_variant **variants;
325};

327/* The variants of a method function of an object.  These indicate
 which method to run.  */

330struct debug_method_variant
331{
/* The physical name of the function.  */
const char *physname;
/* The type of the function.  */
struct debug_type *type;
/* The visibility of the function.  */
enum debug_visibility visibility;
/* Whether the function is const.  */
bfd_boolean constp;
/* Whether the function is volatile.  */
bfd_boolean volatilep;
/* The offset to the function in the virtual function table.  */
bfd_vma voffset;
/* If voffset is VOFFSET_STATIC_METHOD, this is a static method.  */
345#define VOFFSET_STATIC_METHOD((bfd_vma) -1) ((bfd_vma) -1)
/* Context of a virtual method function.  */
struct debug_type *context;
348};

350/* A variable.  This is the information we keep for a variable object.
 This has no name; a name is associated with a variable in a
 debug_name structure.  */

354struct debug_variable
355{
/* Kind of variable.  */
enum debug_var_kind kind;
/* Type.  */
debug_type type;
/* Value.  The interpretation of the value depends upon kind.  */
bfd_vma val;
362};

364/* A function.  This has no name; a name is associated with a function
 in a debug_name structure.  */

367struct debug_function
368{
/* Return type.  */
debug_type return_type;
/* Parameter information.  */
struct debug_parameter *parameters;
/* Block information.  The first structure on the list is the main
   block of the function, and describes function local variables.  */
struct debug_block *blocks;
376};

378/* A function parameter.  */

380struct debug_parameter
381{
/* Next parameter.  */
struct debug_parameter *next;
/* Name.  */
const char *name;
/* Type.  */
debug_type type;
/* Kind.  */
enum debug_parm_kind kind;
/* Value (meaning depends upon kind).  */
bfd_vma val;
392};

394/* A typed constant.  */

396struct debug_typed_constant
397{
/* Type.  */
debug_type type;
/* Value.  FIXME: We may eventually need to support non-integral
   values.  */
bfd_vma val;
403};

405/* Information about a block within a function.  */

407struct debug_block
408{
/* Next block with the same parent.  */
struct debug_block *next;
/* Parent block.  */
struct debug_block *parent;
/* List of child blocks.  */
struct debug_block *children;
/* Start address of the block.  */
bfd_vma start;
/* End address of the block.  */
bfd_vma end;
/* Local variables.  */
struct debug_namespace *locals;
421};

423/* Line number information we keep for a compilation unit.  FIXME:
 This structure is easy to create, but can be very space
 inefficient.  */

427struct debug_lineno
428{
/* More line number information for this block.  */
struct debug_lineno *next;
/* Source file.  */
struct debug_file *file;
/* Line numbers, terminated by a -1 or the end of the array.  */
434#define DEBUG_LINENO_COUNT10 10
unsigned long linenos[DEBUG_LINENO_COUNT10];
/* Addresses for the line numbers.  */
bfd_vma addrs[DEBUG_LINENO_COUNT10];
438};

440/* A namespace.  This is a mapping from names to objects.  FIXME: This
 should be implemented as a hash table.  */

443struct debug_namespace
444{
/* List of items in this namespace.  */
struct debug_name *list;
/* Pointer to where the next item in this namespace should go.  */
struct debug_name **tail;
449};

451/* Kinds of objects that appear in a namespace.  */

453enum debug_object_kind
454{
/* A type.  */
DEBUG_OBJECT_TYPE,
/* A tagged type (really a different sort of namespace).  */
DEBUG_OBJECT_TAG,
/* A variable.  */
DEBUG_OBJECT_VARIABLE,
/* A function.  */
DEBUG_OBJECT_FUNCTION,
/* An integer constant.  */
DEBUG_OBJECT_INT_CONSTANT,
/* A floating point constant.  */
DEBUG_OBJECT_FLOAT_CONSTANT,
/* A typed constant.  */
DEBUG_OBJECT_TYPED_CONSTANT
469};

471/* Linkage of an object that appears in a namespace.  */

473enum debug_object_linkage
474{
/* Local variable.  */
DEBUG_LINKAGE_AUTOMATIC,
/* Static--either file static or function static, depending upon the
   namespace is.  */
DEBUG_LINKAGE_STATIC,
/* Global.  */
DEBUG_LINKAGE_GLOBAL,
/* No linkage.  */
DEBUG_LINKAGE_NONE
484};

486/* A name in a namespace.  */

488struct debug_name
489{
/* Next name in this namespace.  */
struct debug_name *next;
/* Name.  */
const char *name;
/* Mark.  This is used by debug_write.  */
unsigned int mark;
/* Kind of object.  */
enum debug_object_kind kind;
/* Linkage of object.  */
enum debug_object_linkage linkage;
/* Tagged union with additional information about the object.  */
union
  {
    /* DEBUG_OBJECT_TYPE.  */
    struct debug_type *type;
    /* DEBUG_OBJECT_TAG.  */
    struct debug_type *tag;
    /* DEBUG_OBJECT_VARIABLE.  */
    struct debug_variable *variable;
    /* DEBUG_OBJECT_FUNCTION.  */
    struct debug_function *function;
    /* DEBUG_OBJECT_INT_CONSTANT.  */
    bfd_vma int_constant;
    /* DEBUG_OBJECT_FLOAT_CONSTANT.  */
    double float_constant;
    /* DEBUG_OBJECT_TYPED_CONSTANT.  */
    struct debug_typed_constant *typed_constant;
  } u;
518};

520/* During debug_write, a linked list of these structures is used to
 keep track of ID numbers that have been assigned to classes.  */

523struct debug_class_id
524{
/* Next ID number.  */
struct debug_class_id *next;
/* The type with the ID.  */
struct debug_type *type;
/* The tag; NULL if no tag.  */
const char *tag;
531};

533/* During debug_type_samep, a linked list of these structures is kept
 on the stack to avoid infinite recursion.  */

536struct debug_type_compare_list
537{
/* Next type on list.  */
struct debug_type_compare_list *next;
/* The types we are comparing.  */
struct debug_type *t1;
struct debug_type *t2;
543};

545/* During debug_get_real_type, a linked list of these structures is
 kept on the stack to avoid infinite recursion.  */

548struct debug_type_real_list
549{
/* Next type on list.  */
struct debug_type_real_list *next;
/* The type we are checking.  */
struct debug_type *t;
554};

556/* Local functions.  */

558static void debug_error (const char *);
559static struct debug_name *debug_add_to_namespace
(struct debug_handle *, struct debug_namespace **, const char *,
 enum debug_object_kind, enum debug_object_linkage);
562static struct debug_name *debug_add_to_current_namespace
(struct debug_handle *, const char *, enum debug_object_kind,
 enum debug_object_linkage);
565static struct debug_type *debug_make_type
(struct debug_handle *, enum debug_type_kind, unsigned int);
567static struct debug_type *debug_get_real_type
(void *, debug_type, struct debug_type_real_list *);
569static bfd_boolean debug_write_name
(struct debug_handle *, const struct debug_write_fns *, void *,
 struct debug_name *);
572static bfd_boolean debug_write_type
(struct debug_handle *, const struct debug_write_fns *, void *,
 struct debug_type *, struct debug_name *);
575static bfd_boolean debug_write_class_type
(struct debug_handle *, const struct debug_write_fns *, void *,
 struct debug_type *, const char *);
578static bfd_boolean debug_write_function
(struct debug_handle *, const struct debug_write_fns *, void *,
 const char *, enum debug_object_linkage, struct debug_function *);
581static bfd_boolean debug_write_block
(struct debug_handle *, const struct debug_write_fns *, void *,
 struct debug_block *);
584static bfd_boolean debug_write_linenos
(struct debug_handle *, const struct debug_write_fns *, void *, bfd_vma);
586static bfd_boolean debug_set_class_id
(struct debug_handle *, const char *, struct debug_type *);
588static bfd_boolean debug_type_samep
(struct debug_handle *, struct debug_type *, struct debug_type *);
590static bfd_boolean debug_class_type_samep
(struct debug_handle *, struct debug_type *, struct debug_type *);
592
593/* Issue an error message.  */

595static void
596debug_error (const char *message)
597{
fprintf (stderr(&__sF[2]), "%s\n", message);
599}

601/* Add an object to a namespace.  */

603static struct debug_name *
604debug_add_to_namespace (struct debug_handle *info ATTRIBUTE_UNUSED__attribute__ ((__unused__)),
	struct debug_namespace **nsp, const char *name,
	enum debug_object_kind kind,
	enum debug_object_linkage linkage)
608{
struct debug_name *n;
struct debug_namespace *ns;

n = (struct debug_name *) xmalloc (sizeof *n);
memset (n, 0, sizeof *n);

n->name = name;
n->kind = kind;
n->linkage = linkage;

ns = *nsp;
if (ns == NULL((void*)0))
  {
    ns = (struct debug_namespace *) xmalloc (sizeof *ns);
    memset (ns, 0, sizeof *ns);

    ns->tail = &ns->list;

    *nsp = ns;
  }

*ns->tail = n;
ns->tail = &n->next;

return n;
634}

636/* Add an object to the current namespace.  */

638static struct debug_name *
639debug_add_to_current_namespace (struct debug_handle *info, const char *name,
		enum debug_object_kind kind,
		enum debug_object_linkage linkage)
642{
struct debug_namespace **nsp;

if (info->current_unit == NULL((void*)0)
    || info->current_file == NULL((void*)0))
  {
    debug_error (_("debug_add_to_current_namespace: no current file")("debug_add_to_current_namespace: no current file"));
    return NULL((void*)0);
  }

if (info->current_block != NULL((void*)0))
  nsp = &info->current_block->locals;
else
  nsp = &info->current_file->globals;

return debug_add_to_namespace (info, nsp, name, kind, linkage);
658}
659
660/* Return a handle for debugging information.  */

662void *
663debug_init (void)
664{
struct debug_handle *ret;

ret = (struct debug_handle *) xmalloc (sizeof *ret);
memset (ret, 0, sizeof *ret);
return (void *) ret;
670}

672/* Set the source filename.  This implicitly starts a new compilation
 unit.  */

675bfd_boolean
676debug_set_filename (void *handle, const char *name)
677{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_file *nfile;
struct debug_unit *nunit;

if (name == NULL((void*)0))
  name = "";

nfile = (struct debug_file *) xmalloc (sizeof *nfile);
memset (nfile, 0, sizeof *nfile);

nfile->filename = name;

nunit = (struct debug_unit *) xmalloc (sizeof *nunit);
memset (nunit, 0, sizeof *nunit);

nunit->files = nfile;
info->current_file = nfile;

if (info->current_unit != NULL((void*)0))
  info->current_unit->next = nunit;
else
  {
    assert (info->units == NULL)((info->units == ((void*)0)) ? (void)0 : __assert2("/usr/src/gnu/usr.bin/binutils-2.17/binutils/debug.c"
, 700, __func__, "info->units == NULL"));
    info->units = nunit;
  }

info->current_unit = nunit;

info->current_function = NULL((void*)0);
info->current_block = NULL((void*)0);
info->current_lineno = NULL((void*)0);

return TRUE1;
711}

713/* Change source files to the given file name.  This is used for
 include files in a single compilation unit.  */

716bfd_boolean
717debug_start_source (void *handle, const char *name)
718{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_file *f, **pf;

if (name == NULL((void*)0))
  name = "";

if (info->current_unit == NULL((void*)0))
  {
    debug_error (_("debug_start_source: no debug_set_filename call")("debug_start_source: no debug_set_filename call"));
    return FALSE0;
  }

for (f = info->current_unit->files; f != NULL((void*)0); f = f->next)
  {
    if (f->filename[0] == name[0]
 && f->filename[1] == name[1]
 && strcmp (f->filename, name) == 0)
{
 info->current_file = f;
 return TRUE1;
}
  }

f = (struct debug_file *) xmalloc (sizeof *f);
memset (f, 0, sizeof *f);

f->filename = name;

for (pf = &info->current_file->next;
     *pf != NULL((void*)0);
     pf = &(*pf)->next)
  ;
*pf = f;

info->current_file = f;

return TRUE1;
756}

758/* Record a function definition.  This implicitly starts a function
 block.  The debug_type argument is the type of the return value.
 The boolean indicates whether the function is globally visible.
 The bfd_vma is the address of the start of the function.  Currently
 the parameter types are specified by calls to
 debug_record_parameter.  FIXME: There is no way to specify nested
 functions.  */

766bfd_boolean
767debug_record_function (void *handle, const char *name,
       debug_type return_type, bfd_boolean global,
       bfd_vma addr)
770{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_function *f;
struct debug_block *b;
struct debug_name *n;

if (name == NULL((void*)0))
  name = "";
if (return_type == NULL((void*)0))
  return FALSE0;

if (info->current_unit == NULL((void*)0))
  {
    debug_error (_("debug_record_function: no debug_set_filename call")("debug_record_function: no debug_set_filename call"));
    return FALSE0;
  }

f = (struct debug_function *) xmalloc (sizeof *f);
memset (f, 0, sizeof *f);

f->return_type = return_type;

b = (struct debug_block *) xmalloc (sizeof *b);
memset (b, 0, sizeof *b);

b->start = addr;
b->end = (bfd_vma) -1;

f->blocks = b;

info->current_function = f;
info->current_block = b;

/* FIXME: If we could handle nested functions, this would be the
   place: we would want to use a different namespace.  */
n = debug_add_to_namespace (info,
	      &info->current_file->globals,
	      name,
	      DEBUG_OBJECT_FUNCTION,
	      (global
	       ? DEBUG_LINKAGE_GLOBAL
	       : DEBUG_LINKAGE_STATIC));
if (n == NULL((void*)0))
  return FALSE0;

n->u.function = f;

return TRUE1;
818}

820/* Record a parameter for the current function.  */

822bfd_boolean
823debug_record_parameter (void *handle, const char *name, debug_type type,
	enum debug_parm_kind kind, bfd_vma val)
825{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_parameter *p, **pp;

if (name == NULL((void*)0) || type == NULL((void*)0))
  return FALSE0;

if (info->current_unit == NULL((void*)0)
    || info->current_function == NULL((void*)0))
  {
    debug_error (_("debug_record_parameter: no current function")("debug_record_parameter: no current function"));
    return FALSE0;
  }

p = (struct debug_parameter *) xmalloc (sizeof *p);
memset (p, 0, sizeof *p);

p->name = name;
p->type = type;
p->kind = kind;
p->val = val;

for (pp = &info->current_function->parameters;
     *pp != NULL((void*)0);
     pp = &(*pp)->next)
  ;
*pp = p;

return TRUE1;
854}

856/* End a function.  FIXME: This should handle function nesting.  */

858bfd_boolean
859debug_end_function (void *handle, bfd_vma addr)
860{
struct debug_handle *info = (struct debug_handle *) handle;

if (info->current_unit == NULL((void*)0)
    || info->current_block == NULL((void*)0)
    || info->current_function == NULL((void*)0))
  {
    debug_error (_("debug_end_function: no current function")("debug_end_function: no current function"));
    return FALSE0;
  }

if (info->current_block->parent != NULL((void*)0))
  {
    debug_error (_("debug_end_function: some blocks were not closed")("debug_end_function: some blocks were not closed"));
    return FALSE0;
  }

info->current_block->end = addr;

info->current_function = NULL((void*)0);
info->current_block = NULL((void*)0);

return TRUE1;
883}

885/* Start a block in a function.  All local information will be
 recorded in this block, until the matching call to debug_end_block.
 debug_start_block and debug_end_block may be nested.  The bfd_vma
 argument is the address at which this block starts.  */

890bfd_boolean
891debug_start_block (void *handle, bfd_vma addr)
892{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_block *b, **pb;

/* We must always have a current block: debug_record_function sets
   one up.  */
if (info->current_unit == NULL((void*)0)
    || info->current_block == NULL((void*)0))
  {
    debug_error (_("debug_start_block: no current block")("debug_start_block: no current block"));
    return FALSE0;
  }

b = (struct debug_block *) xmalloc (sizeof *b);
memset (b, 0, sizeof *b);

b->parent = info->current_block;
b->start = addr;
b->end = (bfd_vma) -1;

/* This new block is a child of the current block.  */
for (pb = &info->current_block->children;
     *pb != NULL((void*)0);
     pb = &(*pb)->next)
  ;
*pb = b;

info->current_block = b;

return TRUE1;
922}

924/* Finish a block in a function.  This matches the call to
 debug_start_block.  The argument is the address at which this block
 ends.  */

928bfd_boolean
929debug_end_block (void *handle, bfd_vma addr)
930{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_block *parent;

if (info->current_unit == NULL((void*)0)
    || info->current_block == NULL((void*)0))
  {
    debug_error (_("debug_end_block: no current block")("debug_end_block: no current block"));
    return FALSE0;
  }

parent = info->current_block->parent;
if (parent == NULL((void*)0))
  {
    debug_error (_("debug_end_block: attempt to close top level block")("debug_end_block: attempt to close top level block"));
    return FALSE0;
  }

info->current_block->end = addr;

info->current_block = parent;

return TRUE1;
953}

955/* Associate a line number in the current source file and function
 with a given address.  */

958bfd_boolean
959debug_record_line (void *handle, unsigned long lineno, bfd_vma addr)
960{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_lineno *l;
unsigned int i;

if (info->current_unit == NULL((void*)0))
  {
    debug_error (_("debug_record_line: no current unit")("debug_record_line: no current unit"));
    return FALSE0;
  }

l = info->current_lineno;
if (l != NULL((void*)0) && l->file == info->current_file)
  {
    for (i = 0; i < DEBUG_LINENO_COUNT10; i++)
{
 if (l->linenos[i] == (unsigned long) -1)
   {
     l->linenos[i] = lineno;
     l->addrs[i] = addr;
     return TRUE1;
   }
}
  }

/* If we get here, then either 1) there is no current_lineno
   structure, which means this is the first line number in this
   compilation unit, 2) the current_lineno structure is for a
   different file, or 3) the current_lineno structure is full.
   Regardless, we want to allocate a new debug_lineno structure, put
   it in the right place, and make it the new current_lineno
   structure.  */

l = (struct debug_lineno *) xmalloc (sizeof *l);
memset (l, 0, sizeof *l);

l->file = info->current_file;
l->linenos[0] = lineno;
l->addrs[0] = addr;
for (i = 1; i < DEBUG_LINENO_COUNT10; i++)
  l->linenos[i] = (unsigned long) -1;

if (info->current_lineno != NULL((void*)0))
  info->current_lineno->next = l;
else
  info->current_unit->linenos = l;

info->current_lineno = l;

return TRUE1;
1010}

1012/* Start a named common block.  This is a block of variables that may
 move in memory.  */

1015bfd_boolean
1016debug_start_common_block (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)),
	  const char *name ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
1018{
/* FIXME */
debug_error (_("debug_start_common_block: not implemented")("debug_start_common_block: not implemented"));
return FALSE0;
1022}

1024/* End a named common block.  */

1026bfd_boolean
1027debug_end_common_block (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)),
	const char *name ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
1029{
/* FIXME */
debug_error (_("debug_end_common_block: not implemented")("debug_end_common_block: not implemented"));
return FALSE0;
1033}

1035/* Record a named integer constant.  */

1037bfd_boolean
1038debug_record_int_const (void *handle, const char *name, bfd_vma val)
1039{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_name *n;

if (name == NULL((void*)0))
  return FALSE0;

n = debug_add_to_current_namespace (info, name, DEBUG_OBJECT_INT_CONSTANT,
		      DEBUG_LINKAGE_NONE);
if (n == NULL((void*)0))
  return FALSE0;

n->u.int_constant = val;

return TRUE1;
1054}

1056/* Record a named floating point constant.  */

1058bfd_boolean
1059debug_record_float_const (void *handle, const char *name, double val)
1060{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_name *n;

if (name == NULL((void*)0))
  return FALSE0;

n = debug_add_to_current_namespace (info, name, DEBUG_OBJECT_FLOAT_CONSTANT,
		      DEBUG_LINKAGE_NONE);
if (n == NULL((void*)0))
  return FALSE0;

n->u.float_constant = val;

return TRUE1;
1075}

1077/* Record a typed constant with an integral value.  */

1079bfd_boolean
1080debug_record_typed_const (void *handle, const char *name, debug_type type,
	  bfd_vma val)
1082{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_name *n;
struct debug_typed_constant *tc;

if (name == NULL((void*)0) || type == NULL((void*)0))
  return FALSE0;

n = debug_add_to_current_namespace (info, name, DEBUG_OBJECT_TYPED_CONSTANT,
		      DEBUG_LINKAGE_NONE);
if (n == NULL((void*)0))
  return FALSE0;

tc = (struct debug_typed_constant *) xmalloc (sizeof *tc);
memset (tc, 0, sizeof *tc);

tc->type = type;
tc->val = val;

n->u.typed_constant = tc;

return TRUE1;
1104}

1106/* Record a label.  */

1108bfd_boolean
1109debug_record_label (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)),
    const char *name ATTRIBUTE_UNUSED__attribute__ ((__unused__)),
    debug_type type ATTRIBUTE_UNUSED__attribute__ ((__unused__)),
    bfd_vma addr ATTRIBUTE_UNUSED__attribute__ ((__unused__)))
1113{
/* FIXME.  */
debug_error (_("debug_record_label: not implemented")("debug_record_label: not implemented"));
return FALSE0;
1117}

1119/* Record a variable.  */

1121bfd_boolean
1122debug_record_variable (void *handle, const char *name, debug_type type,
       enum debug_var_kind kind, bfd_vma val)
1124{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_namespace **nsp;
enum debug_object_linkage linkage;
struct debug_name *n;
struct debug_variable *v;

if (name == NULL((void*)0) || type == NULL((void*)0))
  return FALSE0;

if (info->current_unit == NULL((void*)0)
    || info->current_file == NULL((void*)0))
  {
    debug_error (_("debug_record_variable: no current file")("debug_record_variable: no current file"));
    return FALSE0;
  }

if (kind == DEBUG_GLOBAL || kind == DEBUG_STATIC)
  {
    nsp = &info->current_file->globals;
    if (kind == DEBUG_GLOBAL)
linkage = DEBUG_LINKAGE_GLOBAL;
    else
linkage = DEBUG_LINKAGE_STATIC;
  }
else
  {
    if (info->current_block == NULL((void*)0))
nsp = &info->current_file->globals;
    else
nsp = &info->current_block->locals;
    linkage = DEBUG_LINKAGE_AUTOMATIC;
  }

n = debug_add_to_namespace (info, nsp, name, DEBUG_OBJECT_VARIABLE, linkage);
if (n == NULL((void*)0))
  return FALSE0;

v = (struct debug_variable *) xmalloc (sizeof *v);
memset (v, 0, sizeof *v);

v->kind = kind;
v->type = type;
v->val = val;

n->u.variable = v;

return TRUE1;
1172}

1174/* Make a type with a given kind and size.  */

1176static struct debug_type *
1177debug_make_type (struct debug_handle *info ATTRIBUTE_UNUSED__attribute__ ((__unused__)),
 enum debug_type_kind kind, unsigned int size)
1179{
struct debug_type *t;

t = (struct debug_type *) xmalloc (sizeof *t);
memset (t, 0, sizeof *t);

t->kind = kind;
t->size = size;

return t;
1189}

1191/* Make an indirect type which may be used as a placeholder for a type
 which is referenced before it is defined.  */

1194debug_type
1195debug_make_indirect_type (void *handle, debug_type *slot, const char *tag)
1196{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_indirect_type *i;

t = debug_make_type (info, DEBUG_KIND_INDIRECT, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

i = (struct debug_indirect_type *) xmalloc (sizeof *i);
memset (i, 0, sizeof *i);

i->slot = slot;
i->tag = tag;

t->u.kindirect = i;

return t;
1214}

1216/* Make a void type.  There is only one of these.  */

1218debug_type
1219debug_make_void_type (void *handle)
1220{
struct debug_handle *info = (struct debug_handle *) handle;

return debug_make_type (info, DEBUG_KIND_VOID, 0);
1224}

1226/* Make an integer type of a given size.  The boolean argument is true
 if the integer is unsigned.  */

1229debug_type
1230debug_make_int_type (void *handle, unsigned int size, bfd_boolean unsignedp)
1231{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;

t = debug_make_type (info, DEBUG_KIND_INT, size);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t->u.kint = unsignedp;

return t;
1242}

1244/* Make a floating point type of a given size.  FIXME: On some
 platforms, like an Alpha, you probably need to be able to specify
 the format.  */

1248debug_type
1249debug_make_float_type (void *handle, unsigned int size)
1250{
struct debug_handle *info = (struct debug_handle *) handle;

return debug_make_type (info, DEBUG_KIND_FLOAT, size);
1254}

1256/* Make a boolean type of a given size.  */

1258debug_type
1259debug_make_bool_type (void *handle, unsigned int size)
1260{
struct debug_handle *info = (struct debug_handle *) handle;

return debug_make_type (info, DEBUG_KIND_BOOL, size);
1264}

1266/* Make a complex type of a given size.  */

1268debug_type
1269debug_make_complex_type (void *handle, unsigned int size)
1270{
struct debug_handle *info = (struct debug_handle *) handle;

return debug_make_type (info, DEBUG_KIND_COMPLEX, size);
1274}

1276/* Make a structure type.  The second argument is true for a struct,
 false for a union.  The third argument is the size of the struct.
 The fourth argument is a NULL terminated array of fields.  */

1280debug_type
1281debug_make_struct_type (void *handle, bfd_boolean structp, bfd_vma size,
	debug_field *fields)
1283{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_class_type *c;

t = debug_make_type (info,
       structp ? DEBUG_KIND_STRUCT : DEBUG_KIND_UNION,
       size);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

c = (struct debug_class_type *) xmalloc (sizeof *c);
memset (c, 0, sizeof *c);

c->fields = fields;

t->u.kclass = c;

return t;
1302}

1304/* Make an object type.  The first three arguments after the handle
 are the same as for debug_make_struct_type.  The next arguments are
 a NULL terminated array of base classes, a NULL terminated array of
 methods, the type of the object holding the virtual function table
 if it is not this object, and a boolean which is true if this
 object has its own virtual function table.  */

1311debug_type
1312debug_make_object_type (void *handle, bfd_boolean structp, bfd_vma size,
	debug_field *fields, debug_baseclass *baseclasses,
	debug_method *methods, debug_type vptrbase,
	bfd_boolean ownvptr)
1316{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_class_type *c;

t = debug_make_type (info,
       structp ? DEBUG_KIND_CLASS : DEBUG_KIND_UNION_CLASS,
       size);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

c = (struct debug_class_type *) xmalloc (sizeof *c);
memset (c, 0, sizeof *c);

c->fields = fields;
c->baseclasses = baseclasses;
c->methods = methods;
if (ownvptr)
  c->vptrbase = t;
else
  c->vptrbase = vptrbase;

t->u.kclass = c;

return t;
1341}

1343/* Make an enumeration type.  The arguments are a null terminated
 array of strings, and an array of corresponding values.  */

1346debug_type
1347debug_make_enum_type (void *handle, const char **names,
      bfd_signed_vma *values)
1349{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_enum_type *e;

t = debug_make_type (info, DEBUG_KIND_ENUM, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

e = (struct debug_enum_type *) xmalloc (sizeof *e);
memset (e, 0, sizeof *e);

e->names = names;
e->values = values;

t->u.kenum = e;

return t;
1367}

1369/* Make a pointer to a given type.  */

1371debug_type
1372debug_make_pointer_type (void *handle, debug_type type)
1373{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;

if (type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

if (type->pointer != DEBUG_TYPE_NULL((debug_type) ((void*)0)))
  return type->pointer;

t = debug_make_type (info, DEBUG_KIND_POINTER, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t->u.kpointer = type;

type->pointer = t;

return t;
1392}

1394/* Make a function returning a given type.  FIXME: We should be able
 to record the parameter types.  */

1397debug_type
1398debug_make_function_type (void *handle, debug_type type,
	  debug_type *arg_types, bfd_boolean varargs)
1400{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_function_type *f;

if (type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t = debug_make_type (info, DEBUG_KIND_FUNCTION, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

f = (struct debug_function_type *) xmalloc (sizeof *f);
memset (f, 0, sizeof *f);

f->return_type = type;
f->arg_types = arg_types;
f->varargs = varargs;

t->u.kfunction = f;

return t;
1422}

1424/* Make a reference to a given type.  */

1426debug_type
1427debug_make_reference_type (void *handle, debug_type type)
1428{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;

if (type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t = debug_make_type (info, DEBUG_KIND_REFERENCE, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t->u.kreference = type;

return t;
1442}

1444/* Make a range of a given type from a lower to an upper bound.  */

1446debug_type
1447debug_make_range_type (void *handle, debug_type type, bfd_signed_vma lower,
       bfd_signed_vma upper)
1449{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_range_type *r;

if (type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t = debug_make_type (info, DEBUG_KIND_RANGE, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

r = (struct debug_range_type *) xmalloc (sizeof *r);
memset (r, 0, sizeof *r);

r->type = type;
r->lower = lower;
r->upper = upper;

t->u.krange = r;

return t;
1471}

1473/* Make an array type.  The second argument is the type of an element
 of the array.  The third argument is the type of a range of the
 array.  The fourth and fifth argument are the lower and upper
 bounds, respectively.  The sixth argument is true if this array is
 actually a string, as in C.  */

1479debug_type
1480debug_make_array_type (void *handle, debug_type element_type,
       debug_type range_type, bfd_signed_vma lower,
       bfd_signed_vma upper, bfd_boolean stringp)
1483{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_array_type *a;

if (element_type == NULL((void*)0) || range_type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t = debug_make_type (info, DEBUG_KIND_ARRAY, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

a = (struct debug_array_type *) xmalloc (sizeof *a);
memset (a, 0, sizeof *a);

a->element_type = element_type;
a->range_type = range_type;
a->lower = lower;
a->upper = upper;
a->stringp = stringp;

t->u.karray = a;

return t;
1507}

1509/* Make a set of a given type.  For example, a Pascal set type.  The
 boolean argument is true if this set is actually a bitstring, as in
 CHILL.  */

1513debug_type
1514debug_make_set_type (void *handle, debug_type type, bfd_boolean bitstringp)
1515{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_set_type *s;

if (type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t = debug_make_type (info, DEBUG_KIND_SET, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

s = (struct debug_set_type *) xmalloc (sizeof *s);
memset (s, 0, sizeof *s);

s->type = type;
s->bitstringp = bitstringp;

t->u.kset = s;

return t;
1536}

1538/* Make a type for a pointer which is relative to an object.  The
 second argument is the type of the object to which the pointer is
 relative.  The third argument is the type that the pointer points
 to.  */

1543debug_type
1544debug_make_offset_type (void *handle, debug_type base_type,
	debug_type target_type)
1546{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_offset_type *o;

if (base_type == NULL((void*)0) || target_type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t = debug_make_type (info, DEBUG_KIND_OFFSET, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

o = (struct debug_offset_type *) xmalloc (sizeof *o);
memset (o, 0, sizeof *o);

o->base_type = base_type;
o->target_type = target_type;

t->u.koffset = o;

return t;
1567}

1569/* Make a type for a method function.  The second argument is the
 return type, the third argument is the domain, and the fourth
 argument is a NULL terminated array of argument types.  */

1573debug_type
1574debug_make_method_type (void *handle, debug_type return_type,
	debug_type domain_type, debug_type *arg_types,
	bfd_boolean varargs)
1577{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_method_type *m;

if (return_type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t = debug_make_type (info, DEBUG_KIND_METHOD, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

m = (struct debug_method_type *) xmalloc (sizeof *m);
memset (m, 0, sizeof *m);

m->return_type = return_type;
m->domain_type = domain_type;
m->arg_types = arg_types;
m->varargs = varargs;

t->u.kmethod = m;

return t;
1600}

1602/* Make a const qualified version of a given type.  */

1604debug_type
1605debug_make_const_type (void *handle, debug_type type)
1606{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;

if (type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t = debug_make_type (info, DEBUG_KIND_CONST, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t->u.kconst = type;

return t;
1620}

1622/* Make a volatile qualified version of a given type.  */

1624debug_type
1625debug_make_volatile_type (void *handle, debug_type type)
1626{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;

if (type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t = debug_make_type (info, DEBUG_KIND_VOLATILE, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

t->u.kvolatile = type;

return t;
1640}

1642/* Make an undefined tagged type.  For example, a struct which has
 been mentioned, but not defined.  */

1645debug_type
1646debug_make_undefined_tagged_type (void *handle, const char *name,
		  enum debug_type_kind kind)
1648{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;

if (name == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

switch (kind)
  {
  case DEBUG_KIND_STRUCT:
  case DEBUG_KIND_UNION:
  case DEBUG_KIND_CLASS:
  case DEBUG_KIND_UNION_CLASS:
  case DEBUG_KIND_ENUM:
    break;

  default:
    debug_error (_("debug_make_undefined_type: unsupported kind")("debug_make_undefined_type: unsupported kind"));
    return DEBUG_TYPE_NULL((debug_type) ((void*)0));
  }

t = debug_make_type (info, kind, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

return debug_tag_type (handle, name, t);
1674}

1676/* Make a base class for an object.  The second argument is the base
 class type.  The third argument is the bit position of this base
 class in the object (always 0 unless doing multiple inheritance).
 The fourth argument is whether this is a virtual class.  The fifth
 argument is the visibility of the base class.  */

1682debug_baseclass
1683debug_make_baseclass (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), debug_type type,
      bfd_vma bitpos, bfd_boolean virtual,
      enum debug_visibility visibility)
1686{
struct debug_baseclass *b;

b = (struct debug_baseclass *) xmalloc (sizeof *b);
memset (b, 0, sizeof *b);

b->type = type;
b->bitpos = bitpos;
b->virtual = virtual;
b->visibility = visibility;

return b;
1698}

1700/* Make a field for a struct.  The second argument is the name.  The
 third argument is the type of the field.  The fourth argument is
 the bit position of the field.  The fifth argument is the size of
 the field (it may be zero).  The sixth argument is the visibility
 of the field.  */

1706debug_field
1707debug_make_field (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), const char *name,
  debug_type type, bfd_vma bitpos, bfd_vma bitsize,
  enum debug_visibility visibility)
1710{
struct debug_field *f;

f = (struct debug_field *) xmalloc (sizeof *f);
memset (f, 0, sizeof *f);

f->name = name;
f->type = type;
f->static_member = FALSE0;
f->u.f.bitpos = bitpos;
f->u.f.bitsize = bitsize;
f->visibility = visibility;

return f;
1724}

1726/* Make a static member of an object.  The second argument is the
 name.  The third argument is the type of the member.  The fourth
 argument is the physical name of the member (i.e., the name as a
 global variable).  The fifth argument is the visibility of the
 member.  */

1732debug_field
1733debug_make_static_member (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), const char *name,
	  debug_type type, const char *physname,
	  enum debug_visibility visibility)
1736{
struct debug_field *f;

f = (struct debug_field *) xmalloc (sizeof *f);
memset (f, 0, sizeof *f);

f->name = name;
f->type = type;
f->static_member = TRUE1;
f->u.s.physname = physname;
f->visibility = visibility;

return f;
1749}

1751/* Make a method.  The second argument is the name, and the third
 argument is a NULL terminated array of method variants.  */

1754debug_method
1755debug_make_method (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), const char *name,
   debug_method_variant *variants)
1757{
struct debug_method *m;

m = (struct debug_method *) xmalloc (sizeof *m);
memset (m, 0, sizeof *m);

m->name = name;
m->variants = variants;

return m;
1767}

1769/* Make a method argument.  The second argument is the real name of
 the function.  The third argument is the type of the function.  The
 fourth argument is the visibility.  The fifth argument is whether
 this is a const function.  The sixth argument is whether this is a
 volatile function.  The seventh argument is the offset in the
 virtual function table, if any.  The eighth argument is the virtual
 function context.  FIXME: Are the const and volatile arguments
 necessary?  Could we just use debug_make_const_type?  */

1778debug_method_variant
1779debug_make_method_variant (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)),
	   const char *physname, debug_type type,
	   enum debug_visibility visibility,
	   bfd_boolean constp, bfd_boolean volatilep,
	   bfd_vma voffset, debug_type context)
1784{
struct debug_method_variant *m;

m = (struct debug_method_variant *) xmalloc (sizeof *m);
memset (m, 0, sizeof *m);

m->physname = physname;
m->type = type;
m->visibility = visibility;
m->constp = constp;
m->volatilep = volatilep;
m->voffset = voffset;
m->context = context;

return m;
1799}

1801/* Make a static method argument.  The arguments are the same as for
 debug_make_method_variant, except that the last two are omitted
 since a static method can not also be virtual.  */

1805debug_method_variant
1806debug_make_static_method_variant (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)),
		  const char *physname, debug_type type,
		  enum debug_visibility visibility,
		  bfd_boolean constp, bfd_boolean volatilep)
1810{
struct debug_method_variant *m;

m = (struct debug_method_variant *) xmalloc (sizeof *m);
memset (m, 0, sizeof *m);

m->physname = physname;
m->type = type;
m->visibility = visibility;
m->constp = constp;
m->volatilep = volatilep;
m->voffset = VOFFSET_STATIC_METHOD((bfd_vma) -1);

return m;
1824}

1826/* Name a type.  */

1828debug_type
1829debug_name_type (void *handle, const char *name, debug_type type)
1830{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_named_type *n;
struct debug_name *nm;

if (name == NULL((void*)0) || type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

if (info->current_unit == NULL((void*)0)
    || info->current_file == NULL((void*)0))
  {
    debug_error (_("debug_name_type: no current file")("debug_name_type: no current file"));
    return DEBUG_TYPE_NULL((debug_type) ((void*)0));
  }

t = debug_make_type (info, DEBUG_KIND_NAMED, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

n = (struct debug_named_type *) xmalloc (sizeof *n);
memset (n, 0, sizeof *n);

n->type = type;

t->u.knamed = n;

/* We always add the name to the global namespace.  This is probably
   wrong in some cases, but it seems to be right for stabs.  FIXME.  */

nm = debug_add_to_namespace (info, &info->current_file->globals, name,
	       DEBUG_OBJECT_TYPE, DEBUG_LINKAGE_NONE);
if (nm == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

nm->u.type = t;

n->name = nm;

return t;
1870}

1872/* Tag a type.  */

1874debug_type
1875debug_tag_type (void *handle, const char *name, debug_type type)
1876{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_type *t;
struct debug_named_type *n;
struct debug_name *nm;

if (name == NULL((void*)0) || type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

if (info->current_file == NULL((void*)0))
  {
    debug_error (_("debug_tag_type: no current file")("debug_tag_type: no current file"));
    return DEBUG_TYPE_NULL((debug_type) ((void*)0));
  }

if (type->kind == DEBUG_KIND_TAGGED)
  {
    if (strcmp (type->u.knamed->name->name, name) == 0)
return type;
    debug_error (_("debug_tag_type: extra tag attempted")("debug_tag_type: extra tag attempted"));
    return DEBUG_TYPE_NULL((debug_type) ((void*)0));
  }

t = debug_make_type (info, DEBUG_KIND_TAGGED, 0);
if (t == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

n = (struct debug_named_type *) xmalloc (sizeof *n);
memset (n, 0, sizeof *n);

n->type = type;

t->u.knamed = n;

/* We keep a global namespace of tags for each compilation unit.  I
   don't know if that is the right thing to do.  */

nm = debug_add_to_namespace (info, &info->current_file->globals, name,
	       DEBUG_OBJECT_TAG, DEBUG_LINKAGE_NONE);
if (nm == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

nm->u.tag = t;

n->name = nm;

return t;
1923}

1925/* Record the size of a given type.  */

1927bfd_boolean
1928debug_record_type_size (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), debug_type type,
	unsigned int size)
1930{
if (type->size != 0 && type->size != size)
  fprintf (stderr(&__sF[2]), _("Warning: changing type size from %d to %d\n")("Warning: changing type size from %d to %d\n"),
    type->size, size);

type->size = size;

return TRUE1;
1938}

1940/* Find a named type.  */

1942debug_type
1943debug_find_named_type (void *handle, const char *name)
1944{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_block *b;
struct debug_file *f;

/* We only search the current compilation unit.  I don't know if
   this is right or not.  */

if (info->current_unit == NULL((void*)0))
  {
    debug_error (_("debug_find_named_type: no current compilation unit")("debug_find_named_type: no current compilation unit"));
    return DEBUG_TYPE_NULL((debug_type) ((void*)0));
  }

for (b = info->current_block; b != NULL((void*)0); b = b->parent)
  {
    if (b->locals != NULL((void*)0))
{
 struct debug_name *n;

 for (n = b->locals->list; n != NULL((void*)0); n = n->next)
   {
     if (n->kind == DEBUG_OBJECT_TYPE
  && n->name[0] == name[0]
  && strcmp (n->name, name) == 0)
return n->u.type;
   }
}
  }

for (f = info->current_unit->files; f != NULL((void*)0); f = f->next)
  {
    if (f->globals != NULL((void*)0))
{
 struct debug_name *n;

 for (n = f->globals->list; n != NULL((void*)0); n = n->next)
   {
     if (n->kind == DEBUG_OBJECT_TYPE
  && n->name[0] == name[0]
  && strcmp (n->name, name) == 0)
return n->u.type;
   }
}
  }

return DEBUG_TYPE_NULL((debug_type) ((void*)0));
1991}

1993/* Find a tagged type.  */

1995debug_type
1996debug_find_tagged_type (void *handle, const char *name,
	enum debug_type_kind kind)
1998{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_unit *u;

/* We search the globals of all the compilation units.  I don't know
   if this is correct or not.  It would be easy to change.  */

for (u = info->units; u != NULL((void*)0); u = u->next)
  {
    struct debug_file *f;

    for (f = u->files; f != NULL((void*)0); f = f->next)
{
 struct debug_name *n;

 if (f->globals != NULL((void*)0))
   {
     for (n = f->globals->list; n != NULL((void*)0); n = n->next)
{
  if (n->kind == DEBUG_OBJECT_TAG
      && (kind == DEBUG_KIND_ILLEGAL
	  || n->u.tag->kind == kind)
      && n->name[0] == name[0]
      && strcmp (n->name, name) == 0)
    return n->u.tag;
}
   }
}
  }

return DEBUG_TYPE_NULL((debug_type) ((void*)0));
2029}

2031/* Get a base type.  We build a linked list on the stack to avoid
 crashing if the type is defined circularly.  */

2034static struct debug_type *
2035debug_get_real_type (void *handle, debug_type type,
     struct debug_type_real_list *list)
2037{
struct debug_type_real_list *l;
struct debug_type_real_list rl;

switch (type->kind)
  {
  default:
    return type;

  case DEBUG_KIND_INDIRECT:
  case DEBUG_KIND_NAMED:
  case DEBUG_KIND_TAGGED:
    break;
  }

for (l = list; l != NULL((void*)0); l = l->next)
  {
    if (l->t == type || l == l->next)
{
 fprintf (stderr(&__sF[2]),
   _("debug_get_real_type: circular debug information for %s\n")("debug_get_real_type: circular debug information for %s\n"),
   debug_get_type_name (handle, type));
 return NULL((void*)0);
}
  }

rl.next = list;
rl.t = type;

switch (type->kind)
  {
    /* The default case is just here to avoid warnings.  */
  default:
  case DEBUG_KIND_INDIRECT:
    if (*type->u.kindirect->slot != NULL((void*)0))
return debug_get_real_type (handle, *type->u.kindirect->slot, &rl);
    return type;
  case DEBUG_KIND_NAMED:
  case DEBUG_KIND_TAGGED:
    return debug_get_real_type (handle, type->u.knamed->type, &rl);
  }
/*NOTREACHED*/
2079}

2081/* Get the kind of a type.  */

2083enum debug_type_kind
2084debug_get_type_kind (void *handle, debug_type type)
2085{
if (type == NULL((void*)0))
  return DEBUG_KIND_ILLEGAL;
type = debug_get_real_type (handle, type, NULL((void*)0));
if (type == NULL((void*)0))
  return DEBUG_KIND_ILLEGAL;
return type->kind;
2092}

2094/* Get the name of a type.  */

2096const char *
2097debug_get_type_name (void *handle, debug_type type)
2098{
if (type->kind == DEBUG_KIND_INDIRECT)
  {
    if (*type->u.kindirect->slot != NULL((void*)0))
return debug_get_type_name (handle, *type->u.kindirect->slot);
    return type->u.kindirect->tag;
  }
if (type->kind == DEBUG_KIND_NAMED
    || type->kind == DEBUG_KIND_TAGGED)
  return type->u.knamed->name->name;
return NULL((void*)0);
2109}

2111/* Get the size of a type.  */

2113bfd_vma
2114debug_get_type_size (void *handle, debug_type type)
2115{
if (type == NULL((void*)0))
  return 0;

/* We don't call debug_get_real_type, because somebody might have
   called debug_record_type_size on a named or indirect type.  */

if (type->size != 0)
  return type->size;

switch (type->kind)
  {
  default:
    return 0;
  case DEBUG_KIND_INDIRECT:
    if (*type->u.kindirect->slot != NULL((void*)0))
return debug_get_type_size (handle, *type->u.kindirect->slot);
    return 0;
  case DEBUG_KIND_NAMED:
  case DEBUG_KIND_TAGGED:
    return debug_get_type_size (handle, type->u.knamed->type);
  }
/*NOTREACHED*/
2138}

2140/* Get the return type of a function or method type.  */

2142debug_type
2143debug_get_return_type (void *handle, debug_type type)
2144{
if (type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

type = debug_get_real_type (handle, type, NULL((void*)0));
if (type == NULL((void*)0))
  return DEBUG_TYPE_NULL((debug_type) ((void*)0));

switch (type->kind)
  {
  default:
    return DEBUG_TYPE_NULL((debug_type) ((void*)0));
  case DEBUG_KIND_FUNCTION:
    return type->u.kfunction->return_type;
  case DEBUG_KIND_METHOD:
    return type->u.kmethod->return_type;
  }
/*NOTREACHED*/
2162}

2164/* Get the parameter types of a function or method type (except that
 we don't currently store the parameter types of a function).  */

2167const debug_type *
2168debug_get_parameter_types (void *handle, debug_type type,
	   bfd_boolean *pvarargs)
2170{
if (type == NULL((void*)0))
  return NULL((void*)0);

type = debug_get_real_type (handle, type, NULL((void*)0));
if (type == NULL((void*)0))
  return NULL((void*)0);

switch (type->kind)
  {
  default:
    return NULL((void*)0);
  case DEBUG_KIND_FUNCTION:
    *pvarargs = type->u.kfunction->varargs;
    return type->u.kfunction->arg_types;
  case DEBUG_KIND_METHOD:
    *pvarargs = type->u.kmethod->varargs;
    return type->u.kmethod->arg_types;
  }
/*NOTREACHED*/
2190}

2192/* Get the target type of a type.  */

2194debug_type
2195debug_get_target_type (void *handle, debug_type type)
2196{
if (type == NULL((void*)0))
  return NULL((void*)0);

type = debug_get_real_type (handle, type, NULL((void*)0));
if (type == NULL((void*)0))
  return NULL((void*)0);

switch (type->kind)
  {
  default:
    return NULL((void*)0);
  case DEBUG_KIND_POINTER:
    return type->u.kpointer;
  case DEBUG_KIND_REFERENCE:
    return type->u.kreference;
  case DEBUG_KIND_CONST:
    return type->u.kconst;
  case DEBUG_KIND_VOLATILE:
    return type->u.kvolatile;
  }
/*NOTREACHED*/
2218}

2220/* Get the NULL terminated array of fields for a struct, union, or
 class.  */

2223const debug_field *
2224debug_get_fields (void *handle, debug_type type)
2225{
if (type == NULL((void*)0))
  return NULL((void*)0);

type = debug_get_real_type (handle, type, NULL((void*)0));
if (type == NULL((void*)0))
  return NULL((void*)0);

switch (type->kind)
  {
  default:
    return NULL((void*)0);
  case DEBUG_KIND_STRUCT:
  case DEBUG_KIND_UNION:
  case DEBUG_KIND_CLASS:
  case DEBUG_KIND_UNION_CLASS:
    return type->u.kclass->fields;
  }
/*NOTREACHED*/
2244}

2246/* Get the type of a field.  */

2248debug_type
2249debug_get_field_type (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), debug_field field)
2250{
if (field == NULL((void*)0))
  return NULL((void*)0);
return field->type;
2254}

2256/* Get the name of a field.  */

2258const char *
2259debug_get_field_name (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), debug_field field)
2260{
if (field == NULL((void*)0))
  return NULL((void*)0);
return field->name;
2264}

2266/* Get the bit position of a field.  */

2268bfd_vma
2269debug_get_field_bitpos (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), debug_field field)
2270{
if (field == NULL((void*)0) || field->static_member)
  return (bfd_vma) -1;
return field->u.f.bitpos;
2274}

2276/* Get the bit size of a field.  */

2278bfd_vma
2279debug_get_field_bitsize (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), debug_field field)
2280{
if (field == NULL((void*)0) || field->static_member)
  return (bfd_vma) -1;
return field->u.f.bitsize;
2284}

2286/* Get the visibility of a field.  */

2288enum debug_visibility
2289debug_get_field_visibility (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), debug_field field)
2290{
if (field == NULL((void*)0))
  return DEBUG_VISIBILITY_IGNORE;
return field->visibility;
2294}

2296/* Get the physical name of a field.  */

2298const char *
2299debug_get_field_physname (void *handle ATTRIBUTE_UNUSED__attribute__ ((__unused__)), debug_field field)
2300{
if (field == NULL((void*)0) || ! field->static_member)
  return NULL((void*)0);
return field->u.s.physname;
2304}
2305
2306/* Write out the debugging information.  This is given a handle to
 debugging information, and a set of function pointers to call.  */

2309bfd_boolean
2310debug_write (void *handle, const struct debug_write_fns *fns, void *fhandle)
2311{
struct debug_handle *info = (struct debug_handle *) handle;
struct debug_unit *u;

/* We use a mark to tell whether we have already written out a
   particular name.  We use an integer, so that we don't have to
   clear the mark fields if we happen to write out the same
   information more than once.  */
++info->mark;

/* The base_id field holds an ID value which will never be used, so
   that we can tell whether we have assigned an ID during this call
   to debug_write.  */
info->base_id = info->class_id;

/* We keep a linked list of classes for which was have assigned ID's
   during this call to debug_write.  */
info->id_list = NULL((void*)0);

for (u = info->units; u != NULL((void*)0); u = u->next)
  {
    struct debug_file *f;
    bfd_boolean first_file;

    info->current_write_lineno = u->linenos;
    info->current_write_lineno_index = 0;

    if (! (*fns->start_compilation_unit) (fhandle, u->files->filename))
return FALSE0;

    first_file = TRUE1;
    for (f = u->files; f != NULL((void*)0); f = f->next)
{
 struct debug_name *n;

 if (first_file)
   first_file = FALSE0;
 else if (! (*fns->start_source) (fhandle, f->filename))
   return FALSE0;

 if (f->globals != NULL((void*)0))
   for (n = f->globals->list; n != NULL((void*)0); n = n->next)
     if (! debug_write_name (info, fns, fhandle, n))
return FALSE0;
}

    /* Output any line number information which hasn't already been
       handled.  */
    if (! debug_write_linenos (info, fns, fhandle, (bfd_vma) -1))
return FALSE0;
  }

return TRUE1;
2364}

2366/* Write out an element in a namespace.  */

2368static bfd_boolean
2369debug_write_name (struct debug_handle *info,
  const struct debug_write_fns *fns, void *fhandle,
  struct debug_name *n)
2372{
switch (n->kind)
  {
  case DEBUG_OBJECT_TYPE:
    if (! debug_write_type (info, fns, fhandle, n->u.type, n)
 || ! (*fns->typdef) (fhandle, n->name))
return FALSE0;
    return TRUE1;
  case DEBUG_OBJECT_TAG:
    if (! debug_write_type (info, fns, fhandle, n->u.tag, n))
return FALSE0;
    return (*fns->tag) (fhandle, n->name);
  case DEBUG_OBJECT_VARIABLE:
    if (! debug_write_type (info, fns, fhandle, n->u.variable->type,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->variable) (fhandle, n->name, n->u.variable->kind,
	       n->u.variable->val);
  case DEBUG_OBJECT_FUNCTION:
    return debug_write_function (info, fns, fhandle, n->name,
		   n->linkage, n->u.function);
  case DEBUG_OBJECT_INT_CONSTANT:
    return (*fns->int_constant) (fhandle, n->name, n->u.int_constant);
  case DEBUG_OBJECT_FLOAT_CONSTANT:
    return (*fns->float_constant) (fhandle, n->name, n->u.float_constant);
  case DEBUG_OBJECT_TYPED_CONSTANT:
    if (! debug_write_type (info, fns, fhandle, n->u.typed_constant->type,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->typed_constant) (fhandle, n->name,
		     n->u.typed_constant->val);
  default:
    abort ();
    return FALSE0;
  }
/*NOTREACHED*/
2408}

2410/* Write out a type.  If the type is DEBUG_KIND_NAMED or
 DEBUG_KIND_TAGGED, then the name argument is the name for which we
 are about to call typedef or tag.  If the type is anything else,
 then the name argument is a tag from a DEBUG_KIND_TAGGED type which
 points to this one.  */

2416static bfd_boolean
2417debug_write_type (struct debug_handle *info,
  const struct debug_write_fns *fns, void *fhandle,
  struct debug_type *type, struct debug_name *name)
2420{
unsigned int i;
int is;
const char *tag = NULL((void*)0);

/* If we have a name for this type, just output it.  We only output
   typedef names after they have been defined.  We output type tags
   whenever we are not actually defining them.  */
if ((type->kind == DEBUG_KIND_NAMED
     || type->kind == DEBUG_KIND_TAGGED)
    && (type->u.knamed->name->mark == info->mark
 || (type->kind == DEBUG_KIND_TAGGED
     && type->u.knamed->name != name)))
  {
    if (type->kind == DEBUG_KIND_NAMED)
return (*fns->typedef_type) (fhandle, type->u.knamed->name->name);
    else
{
 struct debug_type *real;
 unsigned int id;

 real = debug_get_real_type ((void *) info, type, NULL((void*)0));
 if (real == NULL((void*)0))
   return (*fns->empty_type) (fhandle);
 id = 0;
 if ((real->kind == DEBUG_KIND_STRUCT
      || real->kind == DEBUG_KIND_UNION
      || real->kind == DEBUG_KIND_CLASS
      || real->kind == DEBUG_KIND_UNION_CLASS)
     && real->u.kclass != NULL((void*)0))
   {
     if (real->u.kclass->id <= info->base_id)
{
  if (! debug_set_class_id (info,
			    type->u.knamed->name->name,
			    real))
    return FALSE0;
}
     id = real->u.kclass->id;
   }

 return (*fns->tag_type) (fhandle, type->u.knamed->name->name, id,
		   real->kind);
}
  }

/* Mark the name after we have already looked for a known name, so
   that we don't just define a type in terms of itself.  We need to
   mark the name here so that a struct containing a pointer to
   itself will work.  */
if (name != NULL((void*)0))
  name->mark = info->mark;

if (name != NULL((void*)0)
    && type->kind != DEBUG_KIND_NAMED
    && type->kind != DEBUG_KIND_TAGGED)
  {
    assert (name->kind == DEBUG_OBJECT_TAG)((name->kind == DEBUG_OBJECT_TAG) ? (void)0 : __assert2("/usr/src/gnu/usr.bin/binutils-2.17/binutils/debug.c"
, 2477, __func__, "name->kind == DEBUG_OBJECT_TAG"));
    tag = name->name;
  }

switch (type->kind)
  {
  case DEBUG_KIND_ILLEGAL:
    debug_error (_("debug_write_type: illegal type encountered")("debug_write_type: illegal type encountered"));
    return FALSE0;
  case DEBUG_KIND_INDIRECT:
    if (*type->u.kindirect->slot == DEBUG_TYPE_NULL((debug_type) ((void*)0)))
return (*fns->empty_type) (fhandle);
    return debug_write_type (info, fns, fhandle, *type->u.kindirect->slot,
	       name);
  case DEBUG_KIND_VOID:
    return (*fns->void_type) (fhandle);
  case DEBUG_KIND_INT:
    return (*fns->int_type) (fhandle, type->size, type->u.kint);
  case DEBUG_KIND_FLOAT:
    return (*fns->float_type) (fhandle, type->size);
  case DEBUG_KIND_COMPLEX:
    return (*fns->complex_type) (fhandle, type->size);
  case DEBUG_KIND_BOOL:
    return (*fns->bool_type) (fhandle, type->size);
  case DEBUG_KIND_STRUCT:
  case DEBUG_KIND_UNION:
    if (type->u.kclass != NULL((void*)0))
{
 if (type->u.kclass->id <= info->base_id)
   {
     if (! debug_set_class_id (info, tag, type))
return FALSE0;
   }

 if (info->mark == type->u.kclass->mark)
   {
     /* We are currently outputting this struct, or we have
 already output it.  I don't know if this can happen,
 but it can happen for a class.  */
     assert (type->u.kclass->id > info->base_id)((type->u.kclass->id > info->base_id) ? (void)0 :
 __assert2("/usr/src/gnu/usr.bin/binutils-2.17/binutils/debug.c"
, 2516, __func__, "type->u.kclass->id > info->base_id"
));
     return (*fns->tag_type) (fhandle, tag, type->u.kclass->id,
		       type->kind);
   }
 type->u.kclass->mark = info->mark;
}

    if (! (*fns->start_struct_type) (fhandle, tag,
		       (type->u.kclass != NULL((void*)0)
			? type->u.kclass->id
			: 0),
		       type->kind == DEBUG_KIND_STRUCT,
		       type->size))
return FALSE0;
    if (type->u.kclass != NULL((void*)0)
 && type->u.kclass->fields != NULL((void*)0))
{
 for (i = 0; type->u.kclass->fields[i] != NULL((void*)0); i++)
   {
     struct debug_field *f;

     f = type->u.kclass->fields[i];
     if (! debug_write_type (info, fns, fhandle, f->type,
		      (struct debug_name *) NULL((void*)0))
  || ! (*fns->struct_field) (fhandle, f->name, f->u.f.bitpos,
			     f->u.f.bitsize, f->visibility))
return FALSE0;
   }
}
    return (*fns->end_struct_type) (fhandle);
  case DEBUG_KIND_CLASS:
  case DEBUG_KIND_UNION_CLASS:
    return debug_write_class_type (info, fns, fhandle, type, tag);
  case DEBUG_KIND_ENUM:
    if (type->u.kenum == NULL((void*)0))
return (*fns->enum_type) (fhandle, tag, (const char **) NULL((void*)0),
		  (bfd_signed_vma *) NULL((void*)0));
    return (*fns->enum_type) (fhandle, tag, type->u.kenum->names,
		type->u.kenum->values);
  case DEBUG_KIND_POINTER:
    if (! debug_write_type (info, fns, fhandle, type->u.kpointer,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->pointer_type) (fhandle);
  case DEBUG_KIND_FUNCTION:
    if (! debug_write_type (info, fns, fhandle,
	      type->u.kfunction->return_type,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    if (type->u.kfunction->arg_types == NULL((void*)0))
is = -1;
    else
{
 for (is = 0; type->u.kfunction->arg_types[is] != NULL((void*)0); is++)
   if (! debug_write_type (info, fns, fhandle,
		    type->u.kfunction->arg_types[is],
		    (struct debug_name *) NULL((void*)0)))
     return FALSE0;
}
    return (*fns->function_type) (fhandle, is,
		    type->u.kfunction->varargs);
  case DEBUG_KIND_REFERENCE:
    if (! debug_write_type (info, fns, fhandle, type->u.kreference,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->reference_type) (fhandle);
  case DEBUG_KIND_RANGE:
    if (! debug_write_type (info, fns, fhandle, type->u.krange->type,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->range_type) (fhandle, type->u.krange->lower,
		 type->u.krange->upper);
  case DEBUG_KIND_ARRAY:
    if (! debug_write_type (info, fns, fhandle, type->u.karray->element_type,
	      (struct debug_name *) NULL((void*)0))
 || ! debug_write_type (info, fns, fhandle,
		 type->u.karray->range_type,
		 (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->array_type) (fhandle, type->u.karray->lower,
		 type->u.karray->upper,
		 type->u.karray->stringp);
  case DEBUG_KIND_SET:
    if (! debug_write_type (info, fns, fhandle, type->u.kset->type,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->set_type) (fhandle, type->u.kset->bitstringp);
  case DEBUG_KIND_OFFSET:
    if (! debug_write_type (info, fns, fhandle, type->u.koffset->base_type,
	      (struct debug_name *) NULL((void*)0))
 || ! debug_write_type (info, fns, fhandle,
		 type->u.koffset->target_type,
		 (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->offset_type) (fhandle);
  case DEBUG_KIND_METHOD:
    if (! debug_write_type (info, fns, fhandle,
	      type->u.kmethod->return_type,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    if (type->u.kmethod->arg_types == NULL((void*)0))
is = -1;
    else
{
 for (is = 0; type->u.kmethod->arg_types[is] != NULL((void*)0); is++)
   if (! debug_write_type (info, fns, fhandle,
		    type->u.kmethod->arg_types[is],
		    (struct debug_name *) NULL((void*)0)))
     return FALSE0;
}
    if (type->u.kmethod->domain_type != NULL((void*)0))
{
 if (! debug_write_type (info, fns, fhandle,
		  type->u.kmethod->domain_type,
		  (struct debug_name *) NULL((void*)0)))
   return FALSE0;
}
    return (*fns->method_type) (fhandle,
		  type->u.kmethod->domain_type != NULL((void*)0),
		  is,
		  type->u.kmethod->varargs);
  case DEBUG_KIND_CONST:
    if (! debug_write_type (info, fns, fhandle, type->u.kconst,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->const_type) (fhandle);
  case DEBUG_KIND_VOLATILE:
    if (! debug_write_type (info, fns, fhandle, type->u.kvolatile,
	      (struct debug_name *) NULL((void*)0)))
return FALSE0;
    return (*fns->volatile_type) (fhandle);
  case DEBUG_KIND_NAMED:
    return debug_write_type (info, fns, fhandle, type->u.knamed->type,
	       (struct debug_name *) NULL((void*)0));
  case DEBUG_KIND_TAGGED:
    return debug_write_type (info, fns, fhandle, type->u.knamed->type,
	       type->u.knamed->name);
  default:
    abort ();
    return FALSE0;
  }
2657}

2659/* Write out a class type.  */

2661static bfd_boolean
2662debug_write_class_type (struct debug_handle *info,
	const struct debug_write_fns *fns, void *fhandle,
	struct debug_type *type, const char *tag)
2665{
unsigned int i;
unsigned int id;
struct debug_type *vptrbase;

if (type->u.kclass == NULL((void*)0))
  {
    id = 0;
    vptrbase = NULL((void*)0);
  }
else
  {
    if (type->u.kclass->id <= info->base_id)
{
 if (! debug_set_class_id (info, tag, type))
   return FALSE0;
}

    if (info->mark == type->u.kclass->mark)
{
 /* We are currently outputting this class, or we have
    already output it.  This can happen when there are
    methods for an anonymous class.  */
 assert (type->u.kclass->id > info->base_id)((type->u.kclass->id > info->base_id) ? (void)0 :
 __assert2("/usr/src/gnu/usr.bin/binutils-2.17/binutils/debug.c"
, 2688, __func__, "type->u.kclass->id > info->base_id"
));
 return (*fns->tag_type) (fhandle, tag, type->u.kclass->id,
		   type->kind);
}
    type->u.kclass->mark = info->mark;
    id = type->u.kclass->id;

    vptrbase = type->u.kclass->vptrbase;
    if (vptrbase != NULL((void*)0) && vptrbase != type)
{
 if (! debug_write_type (info, fns, fhandle, vptrbase,
		  (struct debug_name *) NULL((void*)0)))
   return FALSE0;
}
  }

if (! (*fns->start_class_type) (fhandle, tag, id,
		  type->kind == DEBUG_KIND_CLASS,
		  type->size,
		  vptrbase != NULL((void*)0),
		  vptrbase == type))
  return FALSE0;

if (type->u.kclass != NULL((void*)0))
  {
    if (type->u.kclass->fields != NULL((void*)0))
{
 for (i = 0; type->u.kclass->fields[i] != NULL((void*)0); i++)
   {
     struct debug_field *f;

     f = type->u.kclass->fields[i];
     if (! debug_write_type (info, fns, fhandle, f->type,
		      (struct debug_name *) NULL((void*)0)))
return FALSE0;
     if (f->static_member)
{
  if (! (*fns->class_static_member) (fhandle, f->name,
				     f->u.s.physname,
				     f->visibility))
    return FALSE0;
}
     else
{
  if (! (*fns->struct_field) (fhandle, f->name, f->u.f.bitpos,
			      f->u.f.bitsize, f->visibility))
    return FALSE0;
}
   }
}

    if (type->u.kclass->baseclasses != NULL((void*)0))
{
 for (i = 0; type->u.kclass->baseclasses[i] != NULL((void*)0); i++)
   {
     struct debug_baseclass *b;

     b = type->u.kclass->baseclasses[i];
     if (! debug_write_type (info, fns, fhandle, b->type,
		      (struct debug_name *) NULL((void*)0)))
return FALSE0;
     if (! (*fns->class_baseclass) (fhandle, b->bitpos, b->virtual,
			     b->visibility))
return FALSE0;
   }
}

    if (type->u.kclass->methods != NULL((void*)0))
{
 for (i = 0; type->u.kclass->methods[i] != NULL((void*)0); i++)
   {
     struct debug_method *m;
     unsigned int j;

     m = type->u.kclass->methods[i];
     if (! (*fns->class_start_method) (fhandle, m->name))
return FALSE0;
     for (j = 0; m->variants[j] != NULL((void*)0); j++)
{
  struct debug_method_variant *v;

  v = m->variants[j];
  if (v->context != NULL((void*)0))
    {
      if (! debug_write_type (info, fns, fhandle, v->context,
			      (struct debug_name *) NULL((void*)0)))
	return FALSE0;
    }
  if (! debug_write_type (info, fns, fhandle, v->type,
			  (struct debug_name *) NULL((void*)0)))
    return FALSE0;
  if (v->voffset != VOFFSET_STATIC_METHOD((bfd_vma) -1))
    {
      if (! (*fns->class_method_variant) (fhandle, v->physname,
					  v->visibility,
					  v->constp,
					  v->volatilep,
					  v->voffset,
					  v->context != NULL((void*)0)))
	return FALSE0;
    }
  else
    {
      if (! (*fns->class_static_method_variant) (fhandle,
						 v->physname,
						 v->visibility,
						 v->constp,
						 v->volatilep))
	return FALSE0;
    }
}
     if (! (*fns->class_end_method) (fhandle))
return FALSE0;
   }
}
  }

return (*fns->end_class_type) (fhandle);
2806}

2808/* Write out information for a function.  */

2810static bfd_boolean
2811debug_write_function (struct debug_handle *info,
      const struct debug_write_fns *fns, void *fhandle,
      const char *name, enum debug_object_linkage linkage,
      struct debug_function *function)
2815{
struct debug_parameter *p;
struct debug_block *b;

if (! debug_write_linenos (info, fns, fhandle, function->blocks->start))
  return FALSE0;

if (! debug_write_type (info, fns, fhandle, function->return_type,
	  (struct debug_name *) NULL((void*)0)))
  return FALSE0;

if (! (*fns->start_function) (fhandle, name,
		linkage == DEBUG_LINKAGE_GLOBAL))
  return FALSE0;

for (p = function->parameters; p != NULL((void*)0); p = p->next)
  {
    if (! debug_write_type (info, fns, fhandle, p->type,
	      (struct debug_name *) NULL((void*)0))
 || ! (*fns->function_parameter) (fhandle, p->name, p->kind, p->val))
return FALSE0;
  }

for (b = function->blocks; b != NULL((void*)0); b = b->next)
  {
    if (! debug_write_block (info, fns, fhandle, b))
return FALSE0;
  }

return (*fns->end_function) (fhandle);
2845}

2847/* Write out information for a block.  */

2849static bfd_boolean
2850debug_write_block (struct debug_handle *info,
   const struct debug_write_fns *fns, void *fhandle,
   struct debug_block *block)
2853{
struct debug_name *n;
struct debug_block *b;

if (! debug_write_linenos (info, fns, fhandle, block->start))
  return FALSE0;

/* I can't see any point to writing out a block with no local
   variables, so we don't bother, except for the top level block.  */
if (block->locals != NULL((void*)0) || block->parent == NULL((void*)0))
  {
    if (! (*fns->start_block) (fhandle, block->start))
return FALSE0;
  }

if (block->locals != NULL((void*)0))
  {
    for (n = block->locals->list; n != NULL((void*)0); n = n->next)
{
 if (! debug_write_name (info, fns, fhandle, n))
   return FALSE0;
}
  }

for (b = block->children; b != NULL((void*)0); b = b->next)
  {
    if (! debug_write_block (info, fns, fhandle, b))
return FALSE0;
  }

if (! debug_write_linenos (info, fns, fhandle, block->end))
  return FALSE0;

if (block->locals != NULL((void*)0) || block->parent == NULL((void*)0))
  {
    if (! (*fns->end_block) (fhandle, block->end))
return FALSE0;
  }

return TRUE1;
2893}

2895/* Write out line number information up to ADDRESS.  */

2897static bfd_boolean
2898debug_write_linenos (struct debug_handle *info,
     const struct debug_write_fns *fns, void *fhandle,
     bfd_vma address)
2901{
while (info->current_write_lineno != NULL((void*)0))
  {
    struct debug_lineno *l;

    l = info->current_write_lineno;

    while (info->current_write_lineno_index < DEBUG_LINENO_COUNT10)
{
 if (l->linenos[info->current_write_lineno_index]
     == (unsigned long) -1)
   break;

 if (l->addrs[info->current_write_lineno_index] >= address)
   return TRUE1;

 if (! (*fns->lineno) (fhandle, l->file->filename,
		l->linenos[info->current_write_lineno_index],
		l->addrs[info->current_write_lineno_index]))
   return FALSE0;

 ++info->current_write_lineno_index;
}

    info->current_write_lineno = l->next;
    info->current_write_lineno_index = 0;
  }

return TRUE1;
2930}

2932/* Get the ID number for a class.  If during the same call to
 debug_write we find a struct with the same definition with the same
 name, we use the same ID.  This type of things happens because the
 same struct will be defined by multiple compilation units.  */

2937static bfd_boolean
2938debug_set_class_id (struct debug_handle *info, const char *tag,
    struct debug_type *type)
2940{
struct debug_class_type *c;
struct debug_class_id *l;

assert (type->kind == DEBUG_KIND_STRUCT((type->kind == DEBUG_KIND_STRUCT || type->kind == DEBUG_KIND_UNION
 || type->kind == DEBUG_KIND_CLASS || type->kind == DEBUG_KIND_UNION_CLASS
) ? (void)0 : __assert2("/usr/src/gnu/usr.bin/binutils-2.17/binutils/debug.c"
, 2947, __func__, "type->kind == DEBUG_KIND_STRUCT || type->kind == DEBUG_KIND_UNION || type->kind == DEBUG_KIND_CLASS || type->kind == DEBUG_KIND_UNION_CLASS"
))
 || type->kind == DEBUG_KIND_UNION((type->kind == DEBUG_KIND_STRUCT || type->kind == DEBUG_KIND_UNION
 || type->kind == DEBUG_KIND_CLASS || type->kind == DEBUG_KIND_UNION_CLASS
) ? (void)0 : __assert2("/usr/src/gnu/usr.bin/binutils-2.17/binutils/debug.c"
, 2947, __func__, "type->kind == DEBUG_KIND_STRUCT || type->kind == DEBUG_KIND_UNION || type->kind == DEBUG_KIND_CLASS || type->kind == DEBUG_KIND_UNION_CLASS"
))
 || type->kind == DEBUG_KIND_CLASS((type->kind == DEBUG_KIND_STRUCT || type->kind == DEBUG_KIND_UNION
 || type->kind == DEBUG_KIND_CLASS || type->kind == DEBUG_KIND_UNION_CLASS
) ? (void)0 : __assert2("/usr/src/gnu/usr.bin/binutils-2.17/binutils/debug.c"
, 2947, __func__, "type->kind == DEBUG_KIND_STRUCT || type->kind == DEBUG_KIND_UNION || type->kind == DEBUG_KIND_CLASS || type->kind == DEBUG_KIND_UNION_CLASS"
))
 || type->kind == DEBUG_KIND_UNION_CLASS)((type->kind == DEBUG_KIND_STRUCT || type->kind == DEBUG_KIND_UNION
 || type->kind == DEBUG_KIND_CLASS || type->kind == DEBUG_KIND_UNION_CLASS
) ? (void)0 : __assert2("/usr/src/gnu/usr.bin/binutils-2.17/binutils/debug.c"
, 2947, __func__, "type->kind == DEBUG_KIND_STRUCT || type->kind == DEBUG_KIND_UNION || type->kind == DEBUG_KIND_CLASS || type->kind == DEBUG_KIND_UNION_CLASS"
));

c = type->u.kclass;

if (c->id > info->base_id)
  return TRUE1;

for (l = info->id_list; l != NULL((void*)0); l = l->next)
  {
    if (l->type->kind != type->kind)
continue;

    if (tag == NULL((void*)0))
{
 if (l->tag != NULL((void*)0))
   continue;
}
    else
{
 if (l->tag == NULL((void*)0)
     || l->tag[0] != tag[0]
     || strcmp (l->tag, tag) != 0)
   continue;
}

    if (debug_type_samep (info, l->type, type))
{
 c->id = l->type->u.kclass->id;
 return TRUE1;
}
  }

/* There are no identical types.  Use a new ID, and add it to the
   list.  */
++info->class_id;
c->id = info->class_id;

l = (struct debug_class_id *) xmalloc (sizeof *l);
memset (l, 0, sizeof *l);

l->type = type;
l->tag = tag;

l->next = info->id_list;
info->id_list = l;

return TRUE1;
2994}

2996/* See if two types are the same.  At this point, we don't care about
 tags and the like.  */

2999static bfd_boolean
3000debug_type_samep (struct debug_handle *info, struct debug_type *t1,
  struct debug_type *t2)
3002{
struct debug_type_compare_list *l;
struct debug_type_compare_list top;
bfd_boolean ret;

if (t1 == NULL((void*)0))
1
Assuming 't1' is not equal to NULL→
2
←
Taking false branch→
  return t2 == NULL((void*)0);
if (t2 == NULL((void*)0))
3
←
Assuming 't2' is not equal to NULL→
4
←
Taking false branch→
  return FALSE0;

while (t1->kind == DEBUG_KIND_INDIRECT)
5
←
Assuming field 'kind' is not equal to DEBUG_KIND_INDIRECT→
6
←
Loop condition is false. Execution continues on line 3018→
  {
    t1 = *t1->u.kindirect->slot;
    if (t1 == NULL((void*)0))
return FALSE0;
  }
while (t2->kind == DEBUG_KIND_INDIRECT)
7
←
Assuming field 'kind' is not equal to DEBUG_KIND_INDIRECT→
8
←
Loop condition is false. Execution continues on line 3025→
  {
    t2 = *t2->u.kindirect->slot;
    if (t2 == NULL((void*)0))
return FALSE0;
  }

if (t1 == t2)
9
←
Assuming 't1' is not equal to 't2'→
10
←
Taking false branch→
  return TRUE1;

/* As a special case, permit a typedef to match a tag, since C++
   debugging output will sometimes add a typedef where C debugging
   output will not.  */
if (t1->kind == DEBUG_KIND_NAMED
11
←
Assuming field 'kind' is not equal to DEBUG_KIND_NAMED→
    && t2->kind == DEBUG_KIND_TAGGED)
  return debug_type_samep (info, t1->u.knamed->type, t2);
else if (t1->kind == DEBUG_KIND_TAGGED
12
←
Assuming field 'kind' is not equal to DEBUG_KIND_TAGGED→
  && t2->kind == DEBUG_KIND_NAMED)
  return debug_type_samep (info, t1, t2->u.knamed->type);

if (t1->kind != t2->kind
13
←
Assuming 't1->kind' is equal to 't2->kind'→
15
←
Taking false branch→
    || t1->size != t2->size)
14
←
Assuming 't1->size' is equal to 't2->size'→
  return FALSE0;

/* Get rid of the trivial cases first.  */
switch (t1->kind)
16
←
Control jumps to the 'default' case at line 3045→
  {
  default:
    break;
17
←
 Execution continues on line 3060→
  case DEBUG_KIND_VOID:
  case DEBUG_KIND_FLOAT:
  case DEBUG_KIND_COMPLEX:
  case DEBUG_KIND_BOOL:
    return TRUE1;
  case DEBUG_KIND_INT:
    return t1->u.kint == t2->u.kint;
  }

/* We have to avoid an infinite recursion.  We do this by keeping a
   list of types which we are comparing.  We just keep the list on
   the stack.  If we encounter a pair of types we are currently
   comparing, we just assume that they are equal.  */
for (l = info->compare_list; l != NULL((void*)0); l = l->next)
18
←
Assuming 'l' is equal to NULL→
19
←
Loop condition is false. Execution continues on line 3066→
  {
    if (l->t1 == t1 && l->t2 == t2)
return TRUE1;
  }

top.t1 = t1;
top.t2 = t2;
top.next = info->compare_list;
info->compare_list = &top;

switch (t1->kind)
20
←
Control jumps to 'case DEBUG_KIND_STRUCT:'  at line 3078→
  {
  default:
    abort ();
    ret = FALSE0;
    break;

  case DEBUG_KIND_STRUCT:
  case DEBUG_KIND_UNION:
  case DEBUG_KIND_CLASS:
  case DEBUG_KIND_UNION_CLASS:
    if (t1->u.kclass == NULL((void*)0))
21
←
Assuming field 'kclass' is not equal to NULL→
22
←
Taking false branch→
ret = t2->u.kclass == NULL((void*)0);
    else if (t2->u.kclass == NULL((void*)0))
23
←
Assuming field 'kclass' is not equal to NULL→
24
←
Taking false branch→
ret = FALSE0;
    else if (t1->u.kclass->id > info->base_id
25
←
Assuming field 'id' is <= field 'base_id'→
      && t1->u.kclass->id == t2->u.kclass->id)
ret = TRUE1;
    else
ret = debug_class_type_samep (info, t1, t2);
26
←
Calling 'debug_class_type_samep'→
    break;

  case DEBUG_KIND_ENUM:
    if (t1->u.kenum == NULL((void*)0))
ret = t2->u.kenum == NULL((void*)0);
    else if (t2->u.kenum == NULL((void*)0))
ret = FALSE0;
    else
{
 const char **pn1, **pn2;
 bfd_signed_vma *pv1, *pv2;

 pn1 = t1->u.kenum->names;
 pn2 = t2->u.kenum->names;
 pv1 = t1->u.kenum->values;
 pv2 = t2->u.kenum->values;
 while (*pn1 != NULL((void*)0) && *pn2 != NULL((void*)0))
   {
     if (**pn1 != **pn2
  || *pv1 != *pv2
  || strcmp (*pn1, *pn2) != 0)
break;
     ++pn1;
     ++pn2;
     ++pv1;
     ++pv2;
   }
 ret = *pn1 == NULL((void*)0) && *pn2 == NULL((void*)0);
}
    break;

  case DEBUG_KIND_POINTER:
    ret = debug_type_samep (info, t1->u.kpointer, t2->u.kpointer);
    break;

  case DEBUG_KIND_FUNCTION:
    if (t1->u.kfunction->varargs != t2->u.kfunction->varargs
 || ! debug_type_samep (info, t1->u.kfunction->return_type,
		 t2->u.kfunction->return_type)
 || ((t1->u.kfunction->arg_types == NULL((void*)0))
     != (t2->u.kfunction->arg_types == NULL((void*)0))))
ret = FALSE0;
    else if (t1->u.kfunction->arg_types == NULL((void*)0))
ret = TRUE1;
    else
{
 struct debug_type **a1, **a2;

 a1 = t1->u.kfunction->arg_types;
 a2 = t2->u.kfunction->arg_types;
 while (*a1 != NULL((void*)0) && *a2 != NULL((void*)0))
   {
     if (! debug_type_samep (info, *a1, *a2))
break;
     ++a1;
     ++a2;
   }
 ret = *a1 == NULL((void*)0) && *a2 == NULL((void*)0);
}
    break;

  case DEBUG_KIND_REFERENCE:
    ret = debug_type_samep (info, t1->u.kreference, t2->u.kreference);
    break;

  case DEBUG_KIND_RANGE:
    ret = (t1->u.krange->lower == t2->u.krange->lower
    && t1->u.krange->upper == t2->u.krange->upper
    && debug_type_samep (info, t1->u.krange->type,
		  t2->u.krange->type));

  case DEBUG_KIND_ARRAY:
    ret = (t1->u.karray->lower == t2->u.karray->lower
    && t1->u.karray->upper == t2->u.karray->upper
    && t1->u.karray->stringp == t2->u.karray->stringp
    && debug_type_samep (info, t1->u.karray->element_type,
		  t2->u.karray->element_type));
    break;

  case DEBUG_KIND_SET:
    ret = (t1->u.kset->bitstringp == t2->u.kset->bitstringp
    && debug_type_samep (info, t1->u.kset->type, t2->u.kset->type));
    break;

  case DEBUG_KIND_OFFSET:
    ret = (debug_type_samep (info, t1->u.koffset->base_type,
	       t2->u.koffset->base_type)
    && debug_type_samep (info, t1->u.koffset->target_type,
		  t2->u.koffset->target_type));
    break;

  case DEBUG_KIND_METHOD:
    if (t1->u.kmethod->varargs != t2->u.kmethod->varargs
 || ! debug_type_samep (info, t1->u.kmethod->return_type,
		 t2->u.kmethod->return_type)
 || ! debug_type_samep (info, t1->u.kmethod->domain_type,
		 t2->u.kmethod->domain_type)
 || ((t1->u.kmethod->arg_types == NULL((void*)0))
     != (t2->u.kmethod->arg_types == NULL((void*)0))))
ret = FALSE0;
    else if (t1->u.kmethod->arg_types == NULL((void*)0))
ret = TRUE1;
    else
{
 struct debug_type **a1, **a2;

 a1 = t1->u.kmethod->arg_types;
 a2 = t2->u.kmethod->arg_types;
 while (*a1 != NULL((void*)0) && *a2 != NULL((void*)0))
   {
     if (! debug_type_samep (info, *a1, *a2))
break;
     ++a1;
     ++a2;
   }
 ret = *a1 == NULL((void*)0) && *a2 == NULL((void*)0);
}
    break;

  case DEBUG_KIND_CONST:
    ret = debug_type_samep (info, t1->u.kconst, t2->u.kconst);
    break;

  case DEBUG_KIND_VOLATILE:
    ret = debug_type_samep (info, t1->u.kvolatile, t2->u.kvolatile);
    break;

  case DEBUG_KIND_NAMED:
  case DEBUG_KIND_TAGGED:
    ret = (strcmp (t1->u.knamed->name->name, t2->u.knamed->name->name) == 0
    && debug_type_samep (info, t1->u.knamed->type,
		  t2->u.knamed->type));
    break;
  }

info->compare_list = top.next;

return ret;
3229}

3231/* See if two classes are the same.  This is a subroutine of
 debug_type_samep.  */

3234static bfd_boolean
3235debug_class_type_samep (struct debug_handle *info, struct debug_type *t1,
	struct debug_type *t2)
3237{
struct debug_class_type *c1, *c2;

c1 = t1->u.kclass;
c2 = t2->u.kclass;

if ((c1->fields == NULL((void*)0)) != (c2->fields == NULL((void*)0))
27
←
Assuming field 'fields' is equal to NULL→
28
←
Assuming field 'fields' is equal to NULL→
35
←
Taking false branch→
    || (c1->baseclasses == NULL((void*)0)) != (c2->baseclasses == NULL((void*)0))
29
←
Assuming field 'baseclasses' is equal to NULL→
30
←
Assuming field 'baseclasses' is equal to NULL→
    || (c1->methods == NULL((void*)0)) != (c2->methods == NULL((void*)0))
31
←
Assuming field 'methods' is not equal to NULL→
32
←
Assuming field 'methods' is not equal to NULL→
    || (c1->vptrbase == NULL((void*)0)) != (c2->vptrbase == NULL((void*)0)))
33
←
Assuming field 'vptrbase' is equal to NULL→
34
←
Assuming field 'vptrbase' is equal to NULL→
  return FALSE0;

if (c1->fields35.1
Field 'fields' is equal to NULL
 != NULL((void*)0))
36
←
Taking false branch→
  {
    struct debug_field **pf1, **pf2;

    for (pf1 = c1->fields, pf2 = c2->fields;
  *pf1 != NULL((void*)0) && *pf2 != NULL((void*)0);
  pf1++, pf2++)
{
 struct debug_field *f1, *f2;

 f1 = *pf1;
 f2 = *pf2;
 if (f1->name[0] != f2->name[0]
     || f1->visibility != f2->visibility
     || f1->static_member != f2->static_member)
   return FALSE0;
 if (f1->static_member)
   {
     if (strcmp (f1->u.s.physname, f2->u.s.physname) != 0)
return FALSE0;
   }
 else
   {
     if (f1->u.f.bitpos != f2->u.f.bitpos
  || f1->u.f.bitsize != f2->u.f.bitsize)
return FALSE0;
   }
 /* We do the checks which require function calls last.  We
           don't require that the types of fields have the same
           names, since that sometimes fails in the presence of
           typedefs and we really don't care.  */
 if (strcmp (f1->name, f2->name) != 0
     || ! debug_type_samep (info,
		     debug_get_real_type ((void *) info,
					  f1->type, NULL((void*)0)),
		     debug_get_real_type ((void *) info,
					  f2->type, NULL((void*)0))))
   return FALSE0;
}
    if (*pf1 != NULL((void*)0) || *pf2 != NULL((void*)0))
return FALSE0;
  }

if (c1->vptrbase36.1
Field 'vptrbase' is equal to NULL
 != NULL((void*)0))
37
←
Taking false branch→
  {
    if (! debug_type_samep (info, c1->vptrbase, c2->vptrbase))
return FALSE0;
  }

if (c1->baseclasses37.1
Field 'baseclasses' is equal to NULL
 != NULL((void*)0))
38
←
Taking false branch→
  {
    struct debug_baseclass **pb1, **pb2;

    for (pb1 = c1->baseclasses, pb2 = c2->baseclasses;
  *pb1 != NULL((void*)0) && *pb2 != NULL((void*)0);
  ++pb1, ++pb2)
{
 struct debug_baseclass *b1, *b2;

 b1 = *pb1;
 b2 = *pb2;
 if (b1->bitpos != b2->bitpos
     || b1->virtual != b2->virtual
     || b1->visibility != b2->visibility
     || ! debug_type_samep (info, b1->type, b2->type))
   return FALSE0;
}
    if (*pb1 != NULL((void*)0) || *pb2 != NULL((void*)0))
return FALSE0;
  }

if (c1->methods38.1
Field 'methods' is not equal to NULL
 != NULL((void*)0))
39
←
Taking true branch→
  {
    struct debug_method **pm1, **pm2;

    for (pm1 = c1->methods, pm2 = c2->methods;
42
←
Loop condition is true.  Entering loop body→
  *pm1 != NULL((void*)0) && *pm2 != NULL((void*)0);
40
←
Assuming the condition is true→
41
←
Assuming the condition is true→
  ++pm1, ++pm2)
{
 struct debug_method *m1, *m2;

 m1 = *pm1;
 m2 = *pm2;
 if (m1->name[0] != m2->name[0]
43
←
Assuming the condition is false→
46
←
Taking false branch→
     || strcmp (m1->name, m2->name) != 0
     || (m1->variants == NULL((void*)0)) != (m2->variants == NULL((void*)0)))
44
←
Assuming field 'variants' is equal to NULL→
45
←
Assuming field 'variants' is equal to NULL→
   return FALSE0;
 if (m1->variants46.1
Field 'variants' is equal to NULL
 == NULL((void*)0))
47
←
Taking true branch→
   {
     struct debug_method_variant **pv1, **pv2;

     for (pv1 = m1->variants, pv2 = m2->variants;
48
←
Null pointer value stored to 'pv1'→
   *pv1 != NULL((void*)0) && *pv2 != NULL((void*)0);
49
←
Dereference of null pointer (loaded from variable 'pv1')
   ++pv1, ++pv2)
{
  struct debug_method_variant *v1, *v2;

  v1 = *pv1;
  v2 = *pv2;
  if (v1->physname[0] != v2->physname[0]
      || v1->visibility != v2->visibility
      || v1->constp != v2->constp
      || v1->volatilep != v2->volatilep
      || v1->voffset != v2->voffset
      || (v1->context == NULL((void*)0)) != (v2->context == NULL((void*)0))
      || strcmp (v1->physname, v2->physname) != 0
      || ! debug_type_samep (info, v1->type, v2->type))
    return FALSE0;
  if (v1->context != NULL((void*)0))
    {
      if (! debug_type_samep (info, v1->context,
			      v2->context))
	return FALSE0;
    }
}
     if (*pv1 != NULL((void*)0) || *pv2 != NULL((void*)0))
return FALSE0;
   }
}
    if (*pm1 != NULL((void*)0) || *pm2 != NULL((void*)0))
return FALSE0;
  }

return TRUE1;
3373}