/usr/src/gnu/lib/libiberty/src/cp-demangle.c

Bug Summary

File:	src/gnu/lib/libiberty/src/cp-demangle.c
Warning:	line 2793, column 19 Assigned value is garbage or undefined
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 cp-demangle.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/lib/libiberty/obj -resource-dir /usr/local/lib/clang/13.0.0 -D HAVE_CONFIG_H -I /usr/src/gnu/lib/libiberty/src -I /usr/src/gnu/lib/libiberty/include -I /usr/src/gnu/lib/libiberty/obj -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/gnu/lib/libiberty/obj -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/lib/libiberty/src/cp-demangle.c
1/* Demangler for g++ V3 ABI.
 Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
 Written by Ian Lance Taylor <ian@wasabisystems.com>.

 This file is part of the libiberty library, which is part of GCC.

 This file 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.

 In addition to the permissions in the GNU General Public License, the
 Free Software Foundation gives you unlimited permission to link the
 compiled version of this file into combinations with other programs,
 and to distribute those combinations without any restriction coming
 from the use of this file.  (The General Public License restrictions
 do apply in other respects; for example, they cover modification of
 the file, and distribution when not linked into a combined
 executable.)

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

31/* This code implements a demangler for the g++ V3 ABI.  The ABI is
 described on this web page:
     http://www.codesourcery.com/cxx-abi/abi.html#mangling

 This code was written while looking at the demangler written by
 Alex Samuel <samuel@codesourcery.com>.

 This code first pulls the mangled name apart into a list of
 components, and then walks the list generating the demangled
 name.

 This file will normally define the following functions, q.v.:
    char *cplus_demangle_v3(const char *mangled, int options)
    char *java_demangle_v3(const char *mangled)
    enum gnu_v3_ctor_kinds is_gnu_v3_mangled_ctor (const char *name)
    enum gnu_v3_dtor_kinds is_gnu_v3_mangled_dtor (const char *name)

 Also, the interface to the component list is public, and defined in
 demangle.h.  The interface consists of these types, which are
 defined in demangle.h:
    enum demangle_component_type
    struct demangle_component
 and these functions defined in this file:
    cplus_demangle_fill_name
    cplus_demangle_fill_extended_operator
    cplus_demangle_fill_ctor
    cplus_demangle_fill_dtor
    cplus_demangle_print
 and other functions defined in the file cp-demint.c.

 This file also defines some other functions and variables which are
 only to be used by the file cp-demint.c.

 Preprocessor macros you can define while compiling this file:

 IN_LIBGCC2
    If defined, this file defines the following function, q.v.:
       char *__cxa_demangle (const char *mangled, char *buf, size_t *len,
                             int *status)
    instead of cplus_demangle_v3() and java_demangle_v3().

 IN_GLIBCPP_V3
    If defined, this file defines only __cxa_demangle(), and no other
    publically visible functions or variables.

 STANDALONE_DEMANGLER
    If defined, this file defines a main() function which demangles
    any arguments, or, if none, demangles stdin.

 CP_DEMANGLE_DEBUG
    If defined, turns on debugging mode, which prints information on
    stdout about the mangled string.  This is not generally useful.
83*/

85#ifdef HAVE_CONFIG_H1
86#include "config.h"
87#endif

89#include <stdio.h>

91#ifdef HAVE_STDLIB_H1
92#include <stdlib.h>
93#endif
94#ifdef HAVE_STRING_H1
95#include <string.h>
96#endif

98#include "ansidecl.h"
99#include "libiberty.h"
100#include "demangle.h"
101#include "cp-demangle.h"

103/* If IN_GLIBCPP_V3 is defined, some functions are made static.  We
 also rename them via #define to avoid compiler errors when the
 static definition conflicts with the extern declaration in a header
 file.  */
107#ifdef IN_GLIBCPP_V3

109#define CP_STATIC_IF_GLIBCPP_V3 static

111#define cplus_demangle_fill_name d_fill_name
112static int d_fill_name (struct demangle_component *, const char *, int);

114#define cplus_demangle_fill_extended_operator d_fill_extended_operator
115static int
116d_fill_extended_operator (struct demangle_component *, int,
                        struct demangle_component *);

119#define cplus_demangle_fill_ctor d_fill_ctor
120static int
121d_fill_ctor (struct demangle_component *, enum gnu_v3_ctor_kinds,
           struct demangle_component *);

124#define cplus_demangle_fill_dtor d_fill_dtor
125static int
126d_fill_dtor (struct demangle_component *, enum gnu_v3_dtor_kinds,
           struct demangle_component *);

129#define cplus_demangle_mangled_name d_mangled_name
130static struct demangle_component *d_mangled_name (struct d_info *, int);

132#define cplus_demangle_type d_type
133static struct demangle_component *d_type (struct d_info *);

135#define cplus_demangle_print d_print
136static char *d_print (int, const struct demangle_component *, int, size_t *);

138#define cplus_demangle_init_info d_init_info
139static void d_init_info (const char *, int, size_t, struct d_info *);

141#else /* ! defined(IN_GLIBCPP_V3) */
142#define CP_STATIC_IF_GLIBCPP_V3
143#endif /* ! defined(IN_GLIBCPP_V3) */

145/* See if the compiler supports dynamic arrays.  */

147#ifdef __GNUC__4
148#define CP_DYNAMIC_ARRAYS
149#else
150#ifdef __STDC__1
151#ifdef __STDC_VERSION__201710L
152#if __STDC_VERSION__201710L >= 199901L
153#define CP_DYNAMIC_ARRAYS
154#endif /* __STDC__VERSION >= 199901L */
155#endif /* defined (__STDC_VERSION__) */
156#endif /* defined (__STDC__) */
157#endif /* ! defined (__GNUC__) */

159/* We avoid pulling in the ctype tables, to prevent pulling in
 additional unresolved symbols when this code is used in a library.
 FIXME: Is this really a valid reason?  This comes from the original
 V3 demangler code.

 As of this writing this file has the following undefined references
 when compiled with -DIN_GLIBCPP_V3: malloc, realloc, free, memcpy,
 strcpy, strcat, strlen.  */

168#define IS_DIGIT(c)((c) >= '0' && (c) <= '9') ((c) >= '0' && (c) <= '9')
169#define IS_UPPER(c)((c) >= 'A' && (c) <= 'Z') ((c) >= 'A' && (c) <= 'Z')
170#define IS_LOWER(c)((c) >= 'a' && (c) <= 'z') ((c) >= 'a' && (c) <= 'z')

172/* The prefix prepended by GCC to an identifier represnting the
 anonymous namespace.  */
174#define ANONYMOUS_NAMESPACE_PREFIX"_GLOBAL_" "_GLOBAL_"
175#define ANONYMOUS_NAMESPACE_PREFIX_LEN(sizeof ("_GLOBAL_") - 1) \
(sizeof (ANONYMOUS_NAMESPACE_PREFIX"_GLOBAL_") - 1)

178/* Information we keep for the standard substitutions.  */

180struct d_standard_sub_info
181{
/* The code for this substitution.  */
char code;
/* The simple string it expands to.  */
const char *simple_expansion;
/* The length of the simple expansion.  */
int simple_len;
/* The results of a full, verbose, expansion.  This is used when
   qualifying a constructor/destructor, or when in verbose mode.  */
const char *full_expansion;
/* The length of the full expansion.  */
int full_len;
/* What to set the last_name field of d_info to; NULL if we should
   not set it.  This is only relevant when qualifying a
   constructor/destructor.  */
const char *set_last_name;
/* The length of set_last_name.  */
int set_last_name_len;
199};

201/* Accessors for subtrees of struct demangle_component.  */

203#define d_left(dc)((dc)->u.s_binary.left) ((dc)->u.s_binary.left)
204#define d_right(dc)((dc)->u.s_binary.right) ((dc)->u.s_binary.right)

206/* A list of templates.  This is used while printing.  */

208struct d_print_template
209{
/* Next template on the list.  */
struct d_print_template *next;
/* This template.  */
const struct demangle_component *template_decl;
214};

216/* A list of type modifiers.  This is used while printing.  */

218struct d_print_mod
219{
/* Next modifier on the list.  These are in the reverse of the order
   in which they appeared in the mangled string.  */
struct d_print_mod *next;
/* The modifier.  */
const struct demangle_component *mod;
/* Whether this modifier was printed.  */
int printed;
/* The list of templates which applies to this modifier.  */
struct d_print_template *templates;
229};

231/* We use this structure to hold information during printing.  */

233struct d_print_info
234{
/* The options passed to the demangler.  */
int options;
/* Buffer holding the result.  */
char *buf;
/* Current length of data in buffer.  */
size_t len;
/* Allocated size of buffer.  */
size_t alc;
/* The current list of templates, if any.  */
struct d_print_template *templates;
/* The current list of modifiers (e.g., pointer, reference, etc.),
   if any.  */
struct d_print_mod *modifiers;
/* Set to 1 if we had a memory allocation failure.  */
int allocation_failure;
250};

252#define d_print_saw_error(dpi)((dpi)->buf == ((void*)0)) ((dpi)->buf == NULL((void*)0))

254#define d_append_char(dpi, c)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (c); else
 d_print_append_char ((dpi), (c)); } while (0) \
do \
  { \
    if ((dpi)->buf != NULL((void*)0) && (dpi)->len < (dpi)->alc) \
      (dpi)->buf[(dpi)->len++] = (c); \
    else \
      d_print_append_char ((dpi), (c)); \
  } \
while (0)

264#define d_append_buffer(dpi, s, l)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (l) <= (dpi)->alc) { memcpy ((dpi)->buf + (dpi)->
len, (s), (l)); (dpi)->len += l; } else d_print_append_buffer
 ((dpi), (s), (l)); } while (0) \
do \
  { \
    if ((dpi)->buf != NULL((void*)0) && (dpi)->len + (l) <= (dpi)->alc) \
      { \
        memcpy ((dpi)->buf + (dpi)->len, (s), (l)); \
        (dpi)->len += l; \
      } \
    else \
      d_print_append_buffer ((dpi), (s), (l)); \
  } \
while (0)

277#define d_append_string_constant(dpi, s)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (s) - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, ((s)), (sizeof (s) - 1)); (dpi)->len +=
 sizeof (s) - 1; } else d_print_append_buffer ((dpi), ((s)), (
sizeof (s) - 1)); } while (0) \
d_append_buffer (dpi, (s), sizeof (s) - 1)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (s) - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, ((s)), (sizeof (s) - 1)); (dpi)->len +=
 sizeof (s) - 1; } else d_print_append_buffer ((dpi), ((s)), (
sizeof (s) - 1)); } while (0)

280#define d_last_char(dpi)((dpi)->buf == ((void*)0) || (dpi)->len == 0 ? '\0' : (
dpi)->buf[(dpi)->len - 1]) \
((dpi)->buf == NULL((void*)0) || (dpi)->len == 0 ? '\0' : (dpi)->buf[(dpi)->len - 1])

283#ifdef CP_DEMANGLE_DEBUG
284static void d_dump (struct demangle_component *, int);
285#endif

287static struct demangle_component *
288d_make_empty (struct d_info *);

290static struct demangle_component *
291d_make_comp (struct d_info *, enum demangle_component_type,
           struct demangle_component *,
           struct demangle_component *);

295static struct demangle_component *
296d_make_name (struct d_info *, const char *, int);

298static struct demangle_component *
299d_make_builtin_type (struct d_info *,
                   const struct demangle_builtin_type_info *);

302static struct demangle_component *
303d_make_operator (struct d_info *,
               const struct demangle_operator_info *);

306static struct demangle_component *
307d_make_extended_operator (struct d_info *, int,
                        struct demangle_component *);

310static struct demangle_component *
311d_make_ctor (struct d_info *, enum gnu_v3_ctor_kinds,
           struct demangle_component *);

314static struct demangle_component *
315d_make_dtor (struct d_info *, enum gnu_v3_dtor_kinds,
           struct demangle_component *);

318static struct demangle_component *
319d_make_template_param (struct d_info *, long);

321static struct demangle_component *
322d_make_sub (struct d_info *, const char *, int);

324static int
325has_return_type (struct demangle_component *);

327static int
328is_ctor_dtor_or_conversion (struct demangle_component *);

330static struct demangle_component *d_encoding (struct d_info *, int);

332static struct demangle_component *d_name (struct d_info *);

334static struct demangle_component *d_nested_name (struct d_info *);

336static struct demangle_component *d_prefix (struct d_info *);

338static struct demangle_component *d_unqualified_name (struct d_info *);

340static struct demangle_component *d_source_name (struct d_info *);

342static long d_number (struct d_info *);

344static struct demangle_component *d_identifier (struct d_info *, int);

346static struct demangle_component *d_operator_name (struct d_info *);

348static struct demangle_component *d_special_name (struct d_info *);

350static int d_call_offset (struct d_info *, int);

352static struct demangle_component *d_ctor_dtor_name (struct d_info *);

354static struct demangle_component **
355d_cv_qualifiers (struct d_info *, struct demangle_component **, int);

357static struct demangle_component *
358d_function_type (struct d_info *);

360static struct demangle_component *
361d_bare_function_type (struct d_info *, int);

363static struct demangle_component *
364d_class_enum_type (struct d_info *);

366static struct demangle_component *d_array_type (struct d_info *);

368static struct demangle_component *
369d_pointer_to_member_type (struct d_info *);

371static struct demangle_component *
372d_template_param (struct d_info *);

374static struct demangle_component *d_template_args (struct d_info *);

376static struct demangle_component *
377d_template_arg (struct d_info *);

379static struct demangle_component *d_expression (struct d_info *);

381static struct demangle_component *d_expr_primary (struct d_info *);

383static struct demangle_component *d_local_name (struct d_info *);

385static int d_discriminator (struct d_info *);

387static int
388d_add_substitution (struct d_info *, struct demangle_component *);

390static struct demangle_component *d_substitution (struct d_info *, int);

392static void d_print_resize (struct d_print_info *, size_t);

394static void d_print_append_char (struct d_print_info *, int);

396static void
397d_print_append_buffer (struct d_print_info *, const char *, size_t);

399static void d_print_error (struct d_print_info *);

401static void
402d_print_comp (struct d_print_info *, const struct demangle_component *);

404static void
405d_print_java_identifier (struct d_print_info *, const char *, int);

407static void
408d_print_mod_list (struct d_print_info *, struct d_print_mod *, int);

410static void
411d_print_mod (struct d_print_info *, const struct demangle_component *);

413static void
414d_print_function_type (struct d_print_info *,
                     const struct demangle_component *,
                     struct d_print_mod *);

418static void
419d_print_array_type (struct d_print_info *,
                  const struct demangle_component *,
                  struct d_print_mod *);

423static void
424d_print_expr_op (struct d_print_info *, const struct demangle_component *);

426static void
427d_print_cast (struct d_print_info *, const struct demangle_component *);

429static char *d_demangle (const char *, int, size_t *);

431#ifdef CP_DEMANGLE_DEBUG

433static void
434d_dump (struct demangle_component *dc, int indent)
435{
int i;

if (dc == NULL((void*)0))
  return;

for (i = 0; i < indent; ++i)
  putchar (' ')(!__isthreaded ? __sputc(' ', (&__sF[1])) : (putc)(' ', (
&__sF[1])));

switch (dc->type)
  {
  case DEMANGLE_COMPONENT_NAME:
    printf ("name '%.*s'\n", dc->u.s_name.len, dc->u.s_name.s);
    return;
  case DEMANGLE_COMPONENT_TEMPLATE_PARAM:
    printf ("template parameter %ld\n", dc->u.s_number.number);
    return;
  case DEMANGLE_COMPONENT_CTOR:
    printf ("constructor %d\n", (int) dc->u.s_ctor.kind);
    d_dump (dc->u.s_ctor.name, indent + 2);
    return;
  case DEMANGLE_COMPONENT_DTOR:
    printf ("destructor %d\n", (int) dc->u.s_dtor.kind);
    d_dump (dc->u.s_dtor.name, indent + 2);
    return;
  case DEMANGLE_COMPONENT_SUB_STD:
    printf ("standard substitution %s\n", dc->u.s_string.string);
    return;
  case DEMANGLE_COMPONENT_BUILTIN_TYPE:
    printf ("builtin type %s\n", dc->u.s_builtin.type->name);
    return;
  case DEMANGLE_COMPONENT_OPERATOR:
    printf ("operator %s\n", dc->u.s_operator.op->name);
    return;
  case DEMANGLE_COMPONENT_EXTENDED_OPERATOR:
    printf ("extended operator with %d args\n",
     dc->u.s_extended_operator.args);
    d_dump (dc->u.s_extended_operator.name, indent + 2);
    return;

  case DEMANGLE_COMPONENT_QUAL_NAME:
    printf ("qualified name\n");
    break;
  case DEMANGLE_COMPONENT_LOCAL_NAME:
    printf ("local name\n");
    break;
  case DEMANGLE_COMPONENT_TYPED_NAME:
    printf ("typed name\n");
    break;
  case DEMANGLE_COMPONENT_TEMPLATE:
    printf ("template\n");
    break;
  case DEMANGLE_COMPONENT_VTABLE:
    printf ("vtable\n");
    break;
  case DEMANGLE_COMPONENT_VTT:
    printf ("VTT\n");
    break;
  case DEMANGLE_COMPONENT_CONSTRUCTION_VTABLE:
    printf ("construction vtable\n");
    break;
  case DEMANGLE_COMPONENT_TYPEINFO:
    printf ("typeinfo\n");
    break;
  case DEMANGLE_COMPONENT_TYPEINFO_NAME:
    printf ("typeinfo name\n");
    break;
  case DEMANGLE_COMPONENT_TYPEINFO_FN:
    printf ("typeinfo function\n");
    break;
  case DEMANGLE_COMPONENT_THUNK:
    printf ("thunk\n");
    break;
  case DEMANGLE_COMPONENT_VIRTUAL_THUNK:
    printf ("virtual thunk\n");
    break;
  case DEMANGLE_COMPONENT_COVARIANT_THUNK:
    printf ("covariant thunk\n");
    break;
  case DEMANGLE_COMPONENT_JAVA_CLASS:
    printf ("java class\n");
    break;
  case DEMANGLE_COMPONENT_GUARD:
    printf ("guard\n");
    break;
  case DEMANGLE_COMPONENT_REFTEMP:
    printf ("reference temporary\n");
    break;
  case DEMANGLE_COMPONENT_HIDDEN_ALIAS:
    printf ("hidden alias\n");
    break;
  case DEMANGLE_COMPONENT_RESTRICT:
    printf ("restrict\n");
    break;
  case DEMANGLE_COMPONENT_VOLATILE:
    printf ("volatile\n");
    break;
  case DEMANGLE_COMPONENT_CONST:
    printf ("const\n");
    break;
  case DEMANGLE_COMPONENT_RESTRICT_THIS:
    printf ("restrict this\n");
    break;
  case DEMANGLE_COMPONENT_VOLATILE_THIS:
    printf ("volatile this\n");
    break;
  case DEMANGLE_COMPONENT_CONST_THIS:
    printf ("const this\n");
    break;
  case DEMANGLE_COMPONENT_VENDOR_TYPE_QUAL:
    printf ("vendor type qualifier\n");
    break;
  case DEMANGLE_COMPONENT_POINTER:
    printf ("pointer\n");
    break;
  case DEMANGLE_COMPONENT_REFERENCE:
    printf ("reference\n");
    break;
  case DEMANGLE_COMPONENT_COMPLEX:
    printf ("complex\n");
    break;
  case DEMANGLE_COMPONENT_IMAGINARY:
    printf ("imaginary\n");
    break;
  case DEMANGLE_COMPONENT_VENDOR_TYPE:
    printf ("vendor type\n");
    break;
  case DEMANGLE_COMPONENT_FUNCTION_TYPE:
    printf ("function type\n");
    break;
  case DEMANGLE_COMPONENT_ARRAY_TYPE:
    printf ("array type\n");
    break;
  case DEMANGLE_COMPONENT_PTRMEM_TYPE:
    printf ("pointer to member type\n");
    break;
  case DEMANGLE_COMPONENT_ARGLIST:
    printf ("argument list\n");
    break;
  case DEMANGLE_COMPONENT_TEMPLATE_ARGLIST:
    printf ("template argument list\n");
    break;
  case DEMANGLE_COMPONENT_CAST:
    printf ("cast\n");
    break;
  case DEMANGLE_COMPONENT_UNARY:
    printf ("unary operator\n");
    break;
  case DEMANGLE_COMPONENT_BINARY:
    printf ("binary operator\n");
    break;
  case DEMANGLE_COMPONENT_BINARY_ARGS:
    printf ("binary operator arguments\n");
    break;
  case DEMANGLE_COMPONENT_TRINARY:
    printf ("trinary operator\n");
    break;
  case DEMANGLE_COMPONENT_TRINARY_ARG1:
    printf ("trinary operator arguments 1\n");
    break;
  case DEMANGLE_COMPONENT_TRINARY_ARG2:
    printf ("trinary operator arguments 1\n");
    break;
  case DEMANGLE_COMPONENT_LITERAL:
    printf ("literal\n");
    break;
  case DEMANGLE_COMPONENT_LITERAL_NEG:
    printf ("negative literal\n");
    break;
  }

d_dump (d_left (dc)((dc)->u.s_binary.left), indent + 2);
d_dump (d_right (dc)((dc)->u.s_binary.right), indent + 2);
608}

610#endif /* CP_DEMANGLE_DEBUG */

612/* Fill in a DEMANGLE_COMPONENT_NAME.  */

614CP_STATIC_IF_GLIBCPP_V3
615int
616cplus_demangle_fill_name (struct demangle_component *p, const char *s, int len)
617{
if (p == NULL((void*)0) || s == NULL((void*)0) || len == 0)
  return 0;
p->type = DEMANGLE_COMPONENT_NAME;
p->u.s_name.s = s;
p->u.s_name.len = len;
return 1;
624}

626/* Fill in a DEMANGLE_COMPONENT_EXTENDED_OPERATOR.  */

628CP_STATIC_IF_GLIBCPP_V3
629int
630cplus_demangle_fill_extended_operator (struct demangle_component *p, int args,
                                     struct demangle_component *name)
632{
if (p == NULL((void*)0) || args < 0 || name == NULL((void*)0))
  return 0;
p->type = DEMANGLE_COMPONENT_EXTENDED_OPERATOR;
p->u.s_extended_operator.args = args;
p->u.s_extended_operator.name = name;
return 1;
639}

641/* Fill in a DEMANGLE_COMPONENT_CTOR.  */

643CP_STATIC_IF_GLIBCPP_V3
644int
645cplus_demangle_fill_ctor (struct demangle_component *p,
                        enum gnu_v3_ctor_kinds kind,
                        struct demangle_component *name)
648{
if (p == NULL((void*)0)
    || name == NULL((void*)0)
    || (kind < gnu_v3_complete_object_ctor
 && kind > gnu_v3_complete_object_allocating_ctor))
  return 0;
p->type = DEMANGLE_COMPONENT_CTOR;
p->u.s_ctor.kind = kind;
p->u.s_ctor.name = name;
return 1;
658}

660/* Fill in a DEMANGLE_COMPONENT_DTOR.  */

662CP_STATIC_IF_GLIBCPP_V3
663int
664cplus_demangle_fill_dtor (struct demangle_component *p,
                        enum gnu_v3_dtor_kinds kind,
                        struct demangle_component *name)
667{
if (p == NULL((void*)0)
    || name == NULL((void*)0)
    || (kind < gnu_v3_deleting_dtor
 && kind > gnu_v3_base_object_dtor))
  return 0;
p->type = DEMANGLE_COMPONENT_DTOR;
p->u.s_dtor.kind = kind;
p->u.s_dtor.name = name;
return 1;
677}

679/* Add a new component.  */

681static struct demangle_component *
682d_make_empty (struct d_info *di)
683{
struct demangle_component *p;

if (di->next_comp >= di->num_comps)
  return NULL((void*)0);
p = &di->comps[di->next_comp];
++di->next_comp;
return p;
691}

693/* Add a new generic component.  */

695static struct demangle_component *
696d_make_comp (struct d_info *di, enum demangle_component_type type,
           struct demangle_component *left,
           struct demangle_component *right)
699{
struct demangle_component *p;

/* We check for errors here.  A typical error would be a NULL return
   from a subroutine.  We catch those here, and return NULL
   upward.  */
switch (type)
  {
    /* These types require two parameters.  */
  case DEMANGLE_COMPONENT_QUAL_NAME:
  case DEMANGLE_COMPONENT_LOCAL_NAME:
  case DEMANGLE_COMPONENT_TYPED_NAME:
  case DEMANGLE_COMPONENT_TEMPLATE:
  case DEMANGLE_COMPONENT_CONSTRUCTION_VTABLE:
  case DEMANGLE_COMPONENT_VENDOR_TYPE_QUAL:
  case DEMANGLE_COMPONENT_PTRMEM_TYPE:
  case DEMANGLE_COMPONENT_UNARY:
  case DEMANGLE_COMPONENT_BINARY:
  case DEMANGLE_COMPONENT_BINARY_ARGS:
  case DEMANGLE_COMPONENT_TRINARY:
  case DEMANGLE_COMPONENT_TRINARY_ARG1:
  case DEMANGLE_COMPONENT_TRINARY_ARG2:
  case DEMANGLE_COMPONENT_LITERAL:
  case DEMANGLE_COMPONENT_LITERAL_NEG:
    if (left == NULL((void*)0) || right == NULL((void*)0))
return NULL((void*)0);
    break;

    /* These types only require one parameter.  */
  case DEMANGLE_COMPONENT_VTABLE:
  case DEMANGLE_COMPONENT_VTT:
  case DEMANGLE_COMPONENT_TYPEINFO:
  case DEMANGLE_COMPONENT_TYPEINFO_NAME:
  case DEMANGLE_COMPONENT_TYPEINFO_FN:
  case DEMANGLE_COMPONENT_THUNK:
  case DEMANGLE_COMPONENT_VIRTUAL_THUNK:
  case DEMANGLE_COMPONENT_COVARIANT_THUNK:
  case DEMANGLE_COMPONENT_JAVA_CLASS:
  case DEMANGLE_COMPONENT_GUARD:
  case DEMANGLE_COMPONENT_REFTEMP:
  case DEMANGLE_COMPONENT_HIDDEN_ALIAS:
  case DEMANGLE_COMPONENT_POINTER:
  case DEMANGLE_COMPONENT_REFERENCE:
  case DEMANGLE_COMPONENT_COMPLEX:
  case DEMANGLE_COMPONENT_IMAGINARY:
  case DEMANGLE_COMPONENT_VENDOR_TYPE:
  case DEMANGLE_COMPONENT_ARGLIST:
  case DEMANGLE_COMPONENT_TEMPLATE_ARGLIST:
  case DEMANGLE_COMPONENT_CAST:
    if (left == NULL((void*)0))
return NULL((void*)0);
    break;

    /* This needs a right parameter, but the left parameter can be
empty.  */
  case DEMANGLE_COMPONENT_ARRAY_TYPE:
    if (right == NULL((void*)0))
return NULL((void*)0);
    break;

    /* These are allowed to have no parameters--in some cases they
will be filled in later.  */
  case DEMANGLE_COMPONENT_FUNCTION_TYPE:
  case DEMANGLE_COMPONENT_RESTRICT:
  case DEMANGLE_COMPONENT_VOLATILE:
  case DEMANGLE_COMPONENT_CONST:
  case DEMANGLE_COMPONENT_RESTRICT_THIS:
  case DEMANGLE_COMPONENT_VOLATILE_THIS:
  case DEMANGLE_COMPONENT_CONST_THIS:
    break;

    /* Other types should not be seen here.  */
  default:
    return NULL((void*)0);
  }

p = d_make_empty (di);
if (p != NULL((void*)0))
  {
    p->type = type;
    p->u.s_binary.left = left;
    p->u.s_binary.right = right;
  }
return p;
783}

785/* Add a new name component.  */

787static struct demangle_component *
788d_make_name (struct d_info *di, const char *s, int len)
789{
struct demangle_component *p;

p = d_make_empty (di);
if (! cplus_demangle_fill_name (p, s, len))
  return NULL((void*)0);
return p;
796}

798/* Add a new builtin type component.  */

800static struct demangle_component *
801d_make_builtin_type (struct d_info *di,
                   const struct demangle_builtin_type_info *type)
803{
struct demangle_component *p;

if (type == NULL((void*)0))
  return NULL((void*)0);
p = d_make_empty (di);
if (p != NULL((void*)0))
  {
    p->type = DEMANGLE_COMPONENT_BUILTIN_TYPE;
    p->u.s_builtin.type = type;
  }
return p;
815}

817/* Add a new operator component.  */

819static struct demangle_component *
820d_make_operator (struct d_info *di, const struct demangle_operator_info *op)
821{
struct demangle_component *p;

p = d_make_empty (di);
if (p != NULL((void*)0))
  {
    p->type = DEMANGLE_COMPONENT_OPERATOR;
    p->u.s_operator.op = op;
  }
return p;
831}

833/* Add a new extended operator component.  */

835static struct demangle_component *
836d_make_extended_operator (struct d_info *di, int args,
                        struct demangle_component *name)
838{
struct demangle_component *p;

p = d_make_empty (di);
if (! cplus_demangle_fill_extended_operator (p, args, name))
  return NULL((void*)0);
return p;
845}

847/* Add a new constructor component.  */

849static struct demangle_component *
850d_make_ctor (struct d_info *di, enum gnu_v3_ctor_kinds kind,
           struct demangle_component *name)
852{
struct demangle_component *p;

p = d_make_empty (di);
if (! cplus_demangle_fill_ctor (p, kind, name))
  return NULL((void*)0);
return p;
859}

861/* Add a new destructor component.  */

863static struct demangle_component *
864d_make_dtor (struct d_info *di, enum gnu_v3_dtor_kinds kind,
           struct demangle_component *name)
866{
struct demangle_component *p;

p = d_make_empty (di);
if (! cplus_demangle_fill_dtor (p, kind, name))
  return NULL((void*)0);
return p;
873}

875/* Add a new template parameter.  */

877static struct demangle_component *
878d_make_template_param (struct d_info *di, long i)
879{
struct demangle_component *p;

p = d_make_empty (di);
if (p != NULL((void*)0))
  {
    p->type = DEMANGLE_COMPONENT_TEMPLATE_PARAM;
    p->u.s_number.number = i;
  }
return p;
889}

891/* Add a new standard substitution component.  */

893static struct demangle_component *
894d_make_sub (struct d_info *di, const char *name, int len)
895{
struct demangle_component *p;

p = d_make_empty (di);
if (p != NULL((void*)0))
  {
    p->type = DEMANGLE_COMPONENT_SUB_STD;
    p->u.s_string.string = name;
    p->u.s_string.len = len;
  }
return p;
906}

908/* <mangled-name> ::= _Z <encoding>

 TOP_LEVEL is non-zero when called at the top level.  */

912CP_STATIC_IF_GLIBCPP_V3
913struct demangle_component *
914cplus_demangle_mangled_name (struct d_info *di, int top_level)
915{
if (d_next_char (di)(*((di)->n++)) != '_')
  return NULL((void*)0);
if (d_next_char (di)(*((di)->n++)) != 'Z')
  return NULL((void*)0);
return d_encoding (di, top_level);
921}

923/* Return whether a function should have a return type.  The argument
 is the function name, which may be qualified in various ways.  The
 rules are that template functions have return types with some
 exceptions, function types which are not part of a function name
 mangling have return types with some exceptions, and non-template
 function names do not have return types.  The exceptions are that
 constructors, destructors, and conversion operators do not have
 return types.  */

932static int
933has_return_type (struct demangle_component *dc)
934{
if (dc == NULL((void*)0))
  return 0;
switch (dc->type)
  {
  default:
    return 0;
  case DEMANGLE_COMPONENT_TEMPLATE:
    return ! is_ctor_dtor_or_conversion (d_left (dc)((dc)->u.s_binary.left));
  case DEMANGLE_COMPONENT_RESTRICT_THIS:
  case DEMANGLE_COMPONENT_VOLATILE_THIS:
  case DEMANGLE_COMPONENT_CONST_THIS:
    return has_return_type (d_left (dc)((dc)->u.s_binary.left));
  }
948}

950/* Return whether a name is a constructor, a destructor, or a
 conversion operator.  */

953static int
954is_ctor_dtor_or_conversion (struct demangle_component *dc)
955{
if (dc == NULL((void*)0))
  return 0;
switch (dc->type)
  {
  default:
    return 0;
  case DEMANGLE_COMPONENT_QUAL_NAME:
  case DEMANGLE_COMPONENT_LOCAL_NAME:
    return is_ctor_dtor_or_conversion (d_right (dc)((dc)->u.s_binary.right));
  case DEMANGLE_COMPONENT_CTOR:
  case DEMANGLE_COMPONENT_DTOR:
  case DEMANGLE_COMPONENT_CAST:
    return 1;
  }
970}

972/* <encoding> ::= <(function) name> <bare-function-type>
            ::= <(data) name>
            ::= <special-name>

 TOP_LEVEL is non-zero when called at the top level, in which case
 if DMGL_PARAMS is not set we do not demangle the function
 parameters.  We only set this at the top level, because otherwise
 we would not correctly demangle names in local scopes.  */

981static struct demangle_component *
982d_encoding (struct d_info *di, int top_level)
983{
char peek = d_peek_char (di)(*((di)->n));

if (peek == 'G' || peek == 'T')
  return d_special_name (di);
else
  {
    struct demangle_component *dc;

    dc = d_name (di);

    if (dc != NULL((void*)0) && top_level && (di->options & DMGL_PARAMS(1 << 0)) == 0)
{
 /* Strip off any initial CV-qualifiers, as they really apply
    to the `this' parameter, and they were not output by the
    v2 demangler without DMGL_PARAMS.  */
 while (dc->type == DEMANGLE_COMPONENT_RESTRICT_THIS
 || dc->type == DEMANGLE_COMPONENT_VOLATILE_THIS
 || dc->type == DEMANGLE_COMPONENT_CONST_THIS)
   dc = d_left (dc)((dc)->u.s_binary.left);

 /* If the top level is a DEMANGLE_COMPONENT_LOCAL_NAME, then
    there may be CV-qualifiers on its right argument which
    really apply here; this happens when parsing a class
    which is local to a function.  */
 if (dc->type == DEMANGLE_COMPONENT_LOCAL_NAME)
   {
     struct demangle_component *dcr;

     dcr = d_right (dc)((dc)->u.s_binary.right);
     while (dcr->type == DEMANGLE_COMPONENT_RESTRICT_THIS
     || dcr->type == DEMANGLE_COMPONENT_VOLATILE_THIS
     || dcr->type == DEMANGLE_COMPONENT_CONST_THIS)
dcr = d_left (dcr)((dcr)->u.s_binary.left);
     dc->u.s_binary.right = dcr;
   }

 return dc;
}

    peek = d_peek_char (di)(*((di)->n));
    if (peek == '\0' || peek == 'E')
return dc;
    return d_make_comp (di, DEMANGLE_COMPONENT_TYPED_NAME, dc,
	  d_bare_function_type (di, has_return_type (dc)));
  }
1029}

1031/* <name> ::= <nested-name>
        ::= <unscoped-name>
        ::= <unscoped-template-name> <template-args>
        ::= <local-name>

 <unscoped-name> ::= <unqualified-name>
                 ::= St <unqualified-name>

 <unscoped-template-name> ::= <unscoped-name>
                          ::= <substitution>
1041*/

1043static struct demangle_component *
1044d_name (struct d_info *di)
1045{
char peek = d_peek_char (di)(*((di)->n));
struct demangle_component *dc;

switch (peek)
  {
  case 'N':
    return d_nested_name (di);

  case 'Z':
    return d_local_name (di);

  case 'S':
    {
int subst;

if (d_peek_next_char (di)((di)->n[1]) != 't')
 {
   dc = d_substitution (di, 0);
   subst = 1;
 }
else
 {
   d_advance (di, 2)((di)->n += (2));
   dc = d_make_comp (di, DEMANGLE_COMPONENT_QUAL_NAME,
	      d_make_name (di, "std", 3),
	      d_unqualified_name (di));
   di->expansion += 3;
   subst = 0;
 }

if (d_peek_char (di)(*((di)->n)) != 'I')
 {
   /* The grammar does not permit this case to occur if we
      called d_substitution() above (i.e., subst == 1).  We
      don't bother to check.  */
 }
else
 {
   /* This is <template-args>, which means that we just saw
      <unscoped-template-name>, which is a substitution
      candidate if we didn't just get it from a
      substitution.  */
   if (! subst)
     {
if (! d_add_substitution (di, dc))
  return NULL((void*)0);
     }
   dc = d_make_comp (di, DEMANGLE_COMPONENT_TEMPLATE, dc,
	      d_template_args (di));
 }

return dc;
    }

  default:
    dc = d_unqualified_name (di);
    if (d_peek_char (di)(*((di)->n)) == 'I')
{
 /* This is <template-args>, which means that we just saw
    <unscoped-template-name>, which is a substitution
    candidate.  */
 if (! d_add_substitution (di, dc))
   return NULL((void*)0);
 dc = d_make_comp (di, DEMANGLE_COMPONENT_TEMPLATE, dc,
	    d_template_args (di));
}
    return dc;
  }
1114}

1116/* <nested-name> ::= N [<CV-qualifiers>] <prefix> <unqualified-name> E
               ::= N [<CV-qualifiers>] <template-prefix> <template-args> E
1118*/

1120static struct demangle_component *
1121d_nested_name (struct d_info *di)
1122{
struct demangle_component *ret;
struct demangle_component **pret;

if (d_next_char (di)(*((di)->n++)) != 'N')
  return NULL((void*)0);

pret = d_cv_qualifiers (di, &ret, 1);
if (pret == NULL((void*)0))
  return NULL((void*)0);

*pret = d_prefix (di);
if (*pret == NULL((void*)0))
  return NULL((void*)0);

if (d_next_char (di)(*((di)->n++)) != 'E')
  return NULL((void*)0);

return ret;
1141}

1143/* <prefix> ::= <prefix> <unqualified-name>
          ::= <template-prefix> <template-args>
          ::= <template-param>
          ::=
          ::= <substitution>

 <template-prefix> ::= <prefix> <(template) unqualified-name>
                   ::= <template-param>
                   ::= <substitution>
1152*/

1154static struct demangle_component *
1155d_prefix (struct d_info *di)
1156{
struct demangle_component *ret = NULL((void*)0);

while (1)
  {
    char peek;
    enum demangle_component_type comb_type;
    struct demangle_component *dc;

    peek = d_peek_char (di)(*((di)->n));
    if (peek == '\0')
return NULL((void*)0);

    /* The older code accepts a <local-name> here, but I don't see
that in the grammar.  The older code does not accept a
<template-param> here.  */

    comb_type = DEMANGLE_COMPONENT_QUAL_NAME;
    if (IS_DIGIT (peek)((peek) >= '0' && (peek) <= '9')
 || IS_LOWER (peek)((peek) >= 'a' && (peek) <= 'z')
 || peek == 'C'
 || peek == 'D')
dc = d_unqualified_name (di);
    else if (peek == 'S')
dc = d_substitution (di, 1);
    else if (peek == 'I')
{
 if (ret == NULL((void*)0))
   return NULL((void*)0);
 comb_type = DEMANGLE_COMPONENT_TEMPLATE;
 dc = d_template_args (di);
}
    else if (peek == 'T')
dc = d_template_param (di);
    else if (peek == 'E')
return ret;
    else
return NULL((void*)0);

    if (ret == NULL((void*)0))
ret = dc;
    else
ret = d_make_comp (di, comb_type, ret, dc);

    if (peek != 'S' && d_peek_char (di)(*((di)->n)) != 'E')
{
 if (! d_add_substitution (di, ret))
   return NULL((void*)0);
}
  }
1206}

1208/* <unqualified-name> ::= <operator-name>
                    ::= <ctor-dtor-name>
                    ::= <source-name>
1211*/

1213static struct demangle_component *
1214d_unqualified_name (struct d_info *di)
1215{
char peek;

peek = d_peek_char (di)(*((di)->n));
if (IS_DIGIT (peek)((peek) >= '0' && (peek) <= '9'))
  return d_source_name (di);
else if (IS_LOWER (peek)((peek) >= 'a' && (peek) <= 'z'))
  {
    struct demangle_component *ret;

    ret = d_operator_name (di);
    if (ret != NULL((void*)0) && ret->type == DEMANGLE_COMPONENT_OPERATOR)
di->expansion += sizeof "operator" + ret->u.s_operator.op->len - 2;
    return ret;
  }
else if (peek == 'C' || peek == 'D')
  return d_ctor_dtor_name (di);
else
  return NULL((void*)0);
1234}

1236/* <source-name> ::= <(positive length) number> <identifier>  */

1238static struct demangle_component *
1239d_source_name (struct d_info *di)
1240{
long len;
struct demangle_component *ret;

len = d_number (di);
if (len <= 0)
  return NULL((void*)0);
ret = d_identifier (di, len);
di->last_name = ret;
return ret;
1250}

1252/* number ::= [n] <(non-negative decimal integer)>  */

1254static long
1255d_number (struct d_info *di)
1256{
int negative;
char peek;
long ret;

negative = 0;
peek = d_peek_char (di)(*((di)->n));
if (peek == 'n')
  {
    negative = 1;
    d_advance (di, 1)((di)->n += (1));
    peek = d_peek_char (di)(*((di)->n));
  }

ret = 0;
while (1)
  {
    if (! IS_DIGIT (peek)((peek) >= '0' && (peek) <= '9'))
{
 if (negative)
   ret = - ret;
 return ret;
}
    ret = ret * 10 + peek - '0';
    d_advance (di, 1)((di)->n += (1));
    peek = d_peek_char (di)(*((di)->n));
  }
1283}

1285/* identifier ::= <(unqualified source code identifier)>  */

1287static struct demangle_component *
1288d_identifier (struct d_info *di, int len)
1289{
const char *name;

name = d_str (di)((di)->n);

if (di->send - name < len)
  return NULL((void*)0);

d_advance (di, len)((di)->n += (len));

/* A Java mangled name may have a trailing '$' if it is a C++
   keyword.  This '$' is not included in the length count.  We just
   ignore the '$'.  */
if ((di->options & DMGL_JAVA(1 << 2)) != 0
    && d_peek_char (di)(*((di)->n)) == '$')
  d_advance (di, 1)((di)->n += (1));

/* Look for something which looks like a gcc encoding of an
   anonymous namespace, and replace it with a more user friendly
   name.  */
if (len >= (int) ANONYMOUS_NAMESPACE_PREFIX_LEN(sizeof ("_GLOBAL_") - 1) + 2
    && memcmp (name, ANONYMOUS_NAMESPACE_PREFIX"_GLOBAL_",
 ANONYMOUS_NAMESPACE_PREFIX_LEN(sizeof ("_GLOBAL_") - 1)) == 0)
  {
    const char *s;

    s = name + ANONYMOUS_NAMESPACE_PREFIX_LEN(sizeof ("_GLOBAL_") - 1);
    if ((*s == '.' || *s == '_' || *s == '$')
 && s[1] == 'N')
{
 di->expansion -= len - sizeof "(anonymous namespace)";
 return d_make_name (di, "(anonymous namespace)",
	      sizeof "(anonymous namespace)" - 1);
}
  }

return d_make_name (di, name, len);
1326}

1328/* operator_name ::= many different two character encodings.
               ::= cv <type>
               ::= v <digit> <source-name>
1331*/

1333#define NL(s)s, (sizeof s) - 1 s, (sizeof s) - 1

1335CP_STATIC_IF_GLIBCPP_V3
1336const struct demangle_operator_info cplus_demangle_operators[] =
1337{
{ "aN", NL ("&=")"&=", (sizeof "&=") - 1,        2 },
{ "aS", NL ("=")"=", (sizeof "=") - 1,         2 },
{ "aa", NL ("&&")"&&", (sizeof "&&") - 1,        2 },
{ "ad", NL ("&")"&", (sizeof "&") - 1,         1 },
{ "an", NL ("&")"&", (sizeof "&") - 1,         2 },
{ "cl", NL ("()")"()", (sizeof "()") - 1,        0 },
{ "cm", NL (",")",", (sizeof ",") - 1,         2 },
{ "co", NL ("~")"~", (sizeof "~") - 1,         1 },
{ "dV", NL ("/=")"/=", (sizeof "/=") - 1,        2 },
{ "da", NL ("delete[]")"delete[]", (sizeof "delete[]") - 1,  1 },
{ "de", NL ("*")"*", (sizeof "*") - 1,         1 },
{ "dl", NL ("delete")"delete", (sizeof "delete") - 1,    1 },
{ "dv", NL ("/")"/", (sizeof "/") - 1,         2 },
{ "eO", NL ("^=")"^=", (sizeof "^=") - 1,        2 },
{ "eo", NL ("^")"^", (sizeof "^") - 1,         2 },
{ "eq", NL ("==")"==", (sizeof "==") - 1,        2 },
{ "ge", NL (">=")">=", (sizeof ">=") - 1,        2 },
{ "gt", NL (">")">", (sizeof ">") - 1,         2 },
{ "ix", NL ("[]")"[]", (sizeof "[]") - 1,        2 },
{ "lS", NL ("<<=")"<<=", (sizeof "<<=") - 1,       2 },
{ "le", NL ("<=")"<=", (sizeof "<=") - 1,        2 },
{ "ls", NL ("<<")"<<", (sizeof "<<") - 1,        2 },
{ "lt", NL ("<")"<", (sizeof "<") - 1,         2 },
{ "mI", NL ("-=")"-=", (sizeof "-=") - 1,        2 },
{ "mL", NL ("*=")"*=", (sizeof "*=") - 1,        2 },
{ "mi", NL ("-")"-", (sizeof "-") - 1,         2 },
{ "ml", NL ("*")"*", (sizeof "*") - 1,         2 },
{ "mm", NL ("--")"--", (sizeof "--") - 1,        1 },
{ "na", NL ("new[]")"new[]", (sizeof "new[]") - 1,     1 },
{ "ne", NL ("!=")"!=", (sizeof "!=") - 1,        2 },
{ "ng", NL ("-")"-", (sizeof "-") - 1,         1 },
{ "nt", NL ("!")"!", (sizeof "!") - 1,         1 },
{ "nw", NL ("new")"new", (sizeof "new") - 1,       1 },
{ "oR", NL ("|=")"|=", (sizeof "|=") - 1,        2 },
{ "oo", NL ("||")"||", (sizeof "||") - 1,        2 },
{ "or", NL ("|")"|", (sizeof "|") - 1,         2 },
{ "pL", NL ("+=")"+=", (sizeof "+=") - 1,        2 },
{ "pl", NL ("+")"+", (sizeof "+") - 1,         2 },
{ "pm", NL ("->*")"->*", (sizeof "->*") - 1,       2 },
{ "pp", NL ("++")"++", (sizeof "++") - 1,        1 },
{ "ps", NL ("+")"+", (sizeof "+") - 1,         1 },
{ "pt", NL ("->")"->", (sizeof "->") - 1,        2 },
{ "qu", NL ("?")"?", (sizeof "?") - 1,         3 },
{ "rM", NL ("%=")"%=", (sizeof "%=") - 1,        2 },
{ "rS", NL (">>=")">>=", (sizeof ">>=") - 1,       2 },
{ "rm", NL ("%")"%", (sizeof "%") - 1,         2 },
{ "rs", NL (">>")">>", (sizeof ">>") - 1,        2 },
{ "st", NL ("sizeof ")"sizeof ", (sizeof "sizeof ") - 1,   1 },
{ "sz", NL ("sizeof ")"sizeof ", (sizeof "sizeof ") - 1,   1 },
{ NULL((void*)0), NULL((void*)0), 0,          0 }
1388};

1390static struct demangle_component *
1391d_operator_name (struct d_info *di)
1392{
char c1;
char c2;

c1 = d_next_char (di)(*((di)->n++));
c2 = d_next_char (di)(*((di)->n++));
if (c1 == 'v' && IS_DIGIT (c2)((c2) >= '0' && (c2) <= '9'))
  return d_make_extended_operator (di, c2 - '0', d_source_name (di));
else if (c1 == 'c' && c2 == 'v')
  return d_make_comp (di, DEMANGLE_COMPONENT_CAST,
	cplus_demangle_type (di), NULL((void*)0));
else
  {
    /* LOW is the inclusive lower bound.  */
    int low = 0;
    /* HIGH is the exclusive upper bound.  We subtract one to ignore
the sentinel at the end of the array.  */
    int high = ((sizeof (cplus_demangle_operators)
   / sizeof (cplus_demangle_operators[0]))
  - 1);

    while (1)
{
 int i;
 const struct demangle_operator_info *p;

 i = low + (high - low) / 2;
 p = cplus_demangle_operators + i;

 if (c1 == p->code[0] && c2 == p->code[1])
   return d_make_operator (di, p);

 if (c1 < p->code[0] || (c1 == p->code[0] && c2 < p->code[1]))
   high = i;
 else
   low = i + 1;
 if (low == high)
   return NULL((void*)0);
}
  }
1432}

1434/* <special-name> ::= TV <type>
                ::= TT <type>
                ::= TI <type>
                ::= TS <type>
                ::= GV <(object) name>
                ::= T <call-offset> <(base) encoding>
                ::= Tc <call-offset> <call-offset> <(base) encoding>
 Also g++ extensions:
                ::= TC <type> <(offset) number> _ <(base) type>
                ::= TF <type>
                ::= TJ <type>
                ::= GR <name>
  ::= GA <encoding>
1447*/

1449static struct demangle_component *
1450d_special_name (struct d_info *di)
1451{
char c;

di->expansion += 20;
c = d_next_char (di)(*((di)->n++));
if (c == 'T')
  {
    switch (d_next_char (di)(*((di)->n++)))
{
case 'V':
 di->expansion -= 5;
 return d_make_comp (di, DEMANGLE_COMPONENT_VTABLE,
	      cplus_demangle_type (di), NULL((void*)0));
case 'T':
 di->expansion -= 10;
 return d_make_comp (di, DEMANGLE_COMPONENT_VTT,
	      cplus_demangle_type (di), NULL((void*)0));
case 'I':
 return d_make_comp (di, DEMANGLE_COMPONENT_TYPEINFO,
	      cplus_demangle_type (di), NULL((void*)0));
case 'S':
 return d_make_comp (di, DEMANGLE_COMPONENT_TYPEINFO_NAME,
	      cplus_demangle_type (di), NULL((void*)0));

case 'h':
 if (! d_call_offset (di, 'h'))
   return NULL((void*)0);
 return d_make_comp (di, DEMANGLE_COMPONENT_THUNK,
	      d_encoding (di, 0), NULL((void*)0));

case 'v':
 if (! d_call_offset (di, 'v'))
   return NULL((void*)0);
 return d_make_comp (di, DEMANGLE_COMPONENT_VIRTUAL_THUNK,
	      d_encoding (di, 0), NULL((void*)0));

case 'c':
 if (! d_call_offset (di, '\0'))
   return NULL((void*)0);
 if (! d_call_offset (di, '\0'))
   return NULL((void*)0);
 return d_make_comp (di, DEMANGLE_COMPONENT_COVARIANT_THUNK,
	      d_encoding (di, 0), NULL((void*)0));

case 'C':
 {
   struct demangle_component *derived_type;
   long offset;
   struct demangle_component *base_type;

   derived_type = cplus_demangle_type (di);
   offset = d_number (di);
   if (offset < 0)
     return NULL((void*)0);
   if (d_next_char (di)(*((di)->n++)) != '_')
     return NULL((void*)0);
   base_type = cplus_demangle_type (di);
   /* We don't display the offset.  FIXME: We should display
      it in verbose mode.  */
   di->expansion += 5;
   return d_make_comp (di, DEMANGLE_COMPONENT_CONSTRUCTION_VTABLE,
		base_type, derived_type);
 }

case 'F':
 return d_make_comp (di, DEMANGLE_COMPONENT_TYPEINFO_FN,
	      cplus_demangle_type (di), NULL((void*)0));
case 'J':
 return d_make_comp (di, DEMANGLE_COMPONENT_JAVA_CLASS,
	      cplus_demangle_type (di), NULL((void*)0));

default:
 return NULL((void*)0);
}
  }
else if (c == 'G')
  {
    switch (d_next_char (di)(*((di)->n++)))
{
case 'V':
 return d_make_comp (di, DEMANGLE_COMPONENT_GUARD, d_name (di), NULL((void*)0));

case 'R':
 return d_make_comp (di, DEMANGLE_COMPONENT_REFTEMP, d_name (di),
	      NULL((void*)0));

case 'A':
 return d_make_comp (di, DEMANGLE_COMPONENT_HIDDEN_ALIAS,
	      d_encoding (di, 0), NULL((void*)0));

default:
 return NULL((void*)0);
}
  }
else
  return NULL((void*)0);
1547}

1549/* <call-offset> ::= h <nv-offset> _
               ::= v <v-offset> _

 <nv-offset> ::= <(offset) number>

 <v-offset> ::= <(offset) number> _ <(virtual offset) number>

 The C parameter, if not '\0', is a character we just read which is
 the start of the <call-offset>.

 We don't display the offset information anywhere.  FIXME: We should
 display it in verbose mode.  */

1562static int
1563d_call_offset (struct d_info *di, int c)
1564{
if (c == '\0')
  c = d_next_char (di)(*((di)->n++));

if (c == 'h')
  d_number (di);
else if (c == 'v')
  {
    d_number (di);
    if (d_next_char (di)(*((di)->n++)) != '_')
return 0;
    d_number (di);
  }
else
  return 0;

if (d_next_char (di)(*((di)->n++)) != '_')
  return 0;

return 1;
1584}

1586/* <ctor-dtor-name> ::= C1
                  ::= C2
                  ::= C3
                  ::= D0
                  ::= D1
                  ::= D2
1592*/

1594static struct demangle_component *
1595d_ctor_dtor_name (struct d_info *di)
1596{
if (di->last_name != NULL((void*)0))
  {
    if (di->last_name->type == DEMANGLE_COMPONENT_NAME)
di->expansion += di->last_name->u.s_name.len;
    else if (di->last_name->type == DEMANGLE_COMPONENT_SUB_STD)
di->expansion += di->last_name->u.s_string.len;
  }
switch (d_next_char (di)(*((di)->n++)))
  {
  case 'C':
    {
enum gnu_v3_ctor_kinds kind;

switch (d_next_char (di)(*((di)->n++)))
 {
 case '1':
   kind = gnu_v3_complete_object_ctor;
   break;
 case '2':
   kind = gnu_v3_base_object_ctor;
   break;
 case '3':
   kind = gnu_v3_complete_object_allocating_ctor;
   break;
 default:
   return NULL((void*)0);
 }
return d_make_ctor (di, kind, di->last_name);
    }

  case 'D':
    {
enum gnu_v3_dtor_kinds kind;

switch (d_next_char (di)(*((di)->n++)))
 {
 case '0':
   kind = gnu_v3_deleting_dtor;
   break;
 case '1':
   kind = gnu_v3_complete_object_dtor;
   break;
 case '2':
   kind = gnu_v3_base_object_dtor;
   break;
 default:
   return NULL((void*)0);
 }
return d_make_dtor (di, kind, di->last_name);
    }

  default:
    return NULL((void*)0);
  }
1651}

1653/* <type> ::= <builtin-type>
        ::= <function-type>
        ::= <class-enum-type>
        ::= <array-type>
        ::= <pointer-to-member-type>
        ::= <template-param>
        ::= <template-template-param> <template-args>
        ::= <substitution>
        ::= <CV-qualifiers> <type>
        ::= P <type>
        ::= R <type>
        ::= C <type>
        ::= G <type>
        ::= U <source-name> <type>

 <builtin-type> ::= various one letter codes
                ::= u <source-name>
1670*/

1672CP_STATIC_IF_GLIBCPP_V3
1673const struct demangle_builtin_type_info
1674cplus_demangle_builtin_types[D_BUILTIN_TYPE_COUNT(26)] =
1675{
/* a */ { NL ("signed char")"signed char", (sizeof "signed char") - 1,	NL ("signed char")"signed char", (sizeof "signed char") - 1,	D_PRINT_DEFAULT },
/* b */ { NL ("bool")"bool", (sizeof "bool") - 1,	NL ("boolean")"boolean", (sizeof "boolean") - 1,		D_PRINT_BOOL },
/* c */ { NL ("char")"char", (sizeof "char") - 1,	NL ("byte")"byte", (sizeof "byte") - 1,		D_PRINT_DEFAULT },
/* d */ { NL ("double")"double", (sizeof "double") - 1,	NL ("double")"double", (sizeof "double") - 1,		D_PRINT_FLOAT },
/* e */ { NL ("long double")"long double", (sizeof "long double") - 1,	NL ("long double")"long double", (sizeof "long double") - 1,	D_PRINT_FLOAT },
/* f */ { NL ("float")"float", (sizeof "float") - 1,	NL ("float")"float", (sizeof "float") - 1,		D_PRINT_FLOAT },
/* g */ { NL ("__float128")"__float128", (sizeof "__float128") - 1,	NL ("__float128")"__float128", (sizeof "__float128") - 1,	D_PRINT_FLOAT },
/* h */ { NL ("unsigned char")"unsigned char", (sizeof "unsigned char") - 1, NL ("unsigned char")"unsigned char", (sizeof "unsigned char") - 1,	D_PRINT_DEFAULT },
/* i */ { NL ("int")"int", (sizeof "int") - 1,		NL ("int")"int", (sizeof "int") - 1,		D_PRINT_INT },
/* j */ { NL ("unsigned int")"unsigned int", (sizeof "unsigned int") - 1, NL ("unsigned")"unsigned", (sizeof "unsigned") - 1,	D_PRINT_UNSIGNED },
/* k */ { NULL((void*)0), 0,		NULL((void*)0), 0,		D_PRINT_DEFAULT },
/* l */ { NL ("long")"long", (sizeof "long") - 1,	NL ("long")"long", (sizeof "long") - 1,		D_PRINT_LONG },
/* m */ { NL ("unsigned long")"unsigned long", (sizeof "unsigned long") - 1, NL ("unsigned long")"unsigned long", (sizeof "unsigned long") - 1,	D_PRINT_UNSIGNED_LONG },
/* n */ { NL ("__int128")"__int128", (sizeof "__int128") - 1,	NL ("__int128")"__int128", (sizeof "__int128") - 1,	D_PRINT_DEFAULT },
/* o */ { NL ("unsigned __int128")"unsigned __int128", (sizeof "unsigned __int128") - 1, NL ("unsigned __int128")"unsigned __int128", (sizeof "unsigned __int128") - 1,
   D_PRINT_DEFAULT },
/* p */ { NULL((void*)0), 0,		NULL((void*)0), 0,		D_PRINT_DEFAULT },
/* q */ { NULL((void*)0), 0,		NULL((void*)0), 0,		D_PRINT_DEFAULT },
/* r */ { NULL((void*)0), 0,		NULL((void*)0), 0,		D_PRINT_DEFAULT },
/* s */ { NL ("short")"short", (sizeof "short") - 1,	NL ("short")"short", (sizeof "short") - 1,		D_PRINT_DEFAULT },
/* t */ { NL ("unsigned short")"unsigned short", (sizeof "unsigned short") - 1, NL ("unsigned short")"unsigned short", (sizeof "unsigned short") - 1, D_PRINT_DEFAULT },
/* u */ { NULL((void*)0), 0,		NULL((void*)0), 0,		D_PRINT_DEFAULT },
/* v */ { NL ("void")"void", (sizeof "void") - 1,	NL ("void")"void", (sizeof "void") - 1,		D_PRINT_VOID },
/* w */ { NL ("wchar_t")"wchar_t", (sizeof "wchar_t") - 1,	NL ("char")"char", (sizeof "char") - 1,		D_PRINT_DEFAULT },
/* x */ { NL ("long long")"long long", (sizeof "long long") - 1,	NL ("long")"long", (sizeof "long") - 1,		D_PRINT_LONG_LONG },
/* y */ { NL ("unsigned long long")"unsigned long long", (sizeof "unsigned long long") - 1, NL ("unsigned long long")"unsigned long long", (sizeof "unsigned long long") - 1,
   D_PRINT_UNSIGNED_LONG_LONG },
/* z */ { NL ("...")"...", (sizeof "...") - 1,		NL ("...")"...", (sizeof "...") - 1,		D_PRINT_DEFAULT },
1704};

1706CP_STATIC_IF_GLIBCPP_V3
1707struct demangle_component *
1708cplus_demangle_type (struct d_info *di)
1709{
char peek;
struct demangle_component *ret;
int can_subst;

/* The ABI specifies that when CV-qualifiers are used, the base type
   is substitutable, and the fully qualified type is substitutable,
   but the base type with a strict subset of the CV-qualifiers is
   not substitutable.  The natural recursive implementation of the
   CV-qualifiers would cause subsets to be substitutable, so instead
   we pull them all off now.

   FIXME: The ABI says that order-insensitive vendor qualifiers
   should be handled in the same way, but we have no way to tell
   which vendor qualifiers are order-insensitive and which are
   order-sensitive.  So we just assume that they are all
   order-sensitive.  g++ 3.4 supports only one vendor qualifier,
   __vector, and it treats it as order-sensitive when mangling
   names.  */

peek = d_peek_char (di)(*((di)->n));
if (peek == 'r' || peek == 'V' || peek == 'K')
  {
    struct demangle_component **pret;

    pret = d_cv_qualifiers (di, &ret, 0);
    if (pret == NULL((void*)0))
return NULL((void*)0);
    *pret = cplus_demangle_type (di);
    if (! d_add_substitution (di, ret))
return NULL((void*)0);
    return ret;
  }

can_subst = 1;

switch (peek)
  {
  case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g':
  case 'h': case 'i': case 'j':           case 'l': case 'm': case 'n':
  case 'o':                               case 's': case 't':
  case 'v': case 'w': case 'x': case 'y': case 'z':
    ret = d_make_builtin_type (di,
		 &cplus_demangle_builtin_types[peek - 'a']);
    di->expansion += ret->u.s_builtin.type->len;
    can_subst = 0;
    d_advance (di, 1)((di)->n += (1));
    break;

  case 'u':
    d_advance (di, 1)((di)->n += (1));
    ret = d_make_comp (di, DEMANGLE_COMPONENT_VENDOR_TYPE,
	 d_source_name (di), NULL((void*)0));
    break;

  case 'F':
    ret = d_function_type (di);
    break;

  case '0': case '1': case '2': case '3': case '4':
  case '5': case '6': case '7': case '8': case '9':
  case 'N':
  case 'Z':
    ret = d_class_enum_type (di);
    break;

  case 'A':
    ret = d_array_type (di);
    break;

  case 'M':
    ret = d_pointer_to_member_type (di);
    break;

  case 'T':
    ret = d_template_param (di);
    if (d_peek_char (di)(*((di)->n)) == 'I')
{
 /* This is <template-template-param> <template-args>.  The
    <template-template-param> part is a substitution
    candidate.  */
 if (! d_add_substitution (di, ret))
   return NULL((void*)0);
 ret = d_make_comp (di, DEMANGLE_COMPONENT_TEMPLATE, ret,
	     d_template_args (di));
}
    break;

  case 'S':
    /* If this is a special substitution, then it is the start of
<class-enum-type>.  */
    {
char peek_next;

peek_next = d_peek_next_char (di)((di)->n[1]);
if (IS_DIGIT (peek_next)((peek_next) >= '0' && (peek_next) <= '9')
   || peek_next == '_'
   || IS_UPPER (peek_next)((peek_next) >= 'A' && (peek_next) <= 'Z'))
 {
   ret = d_substitution (di, 0);
   /* The substituted name may have been a template name and
      may be followed by tepmlate args.  */
   if (d_peek_char (di)(*((di)->n)) == 'I')
     ret = d_make_comp (di, DEMANGLE_COMPONENT_TEMPLATE, ret,
		 d_template_args (di));
   else
     can_subst = 0;
 }
else
 {
   ret = d_class_enum_type (di);
   /* If the substitution was a complete type, then it is not
      a new substitution candidate.  However, if the
      substitution was followed by template arguments, then
      the whole thing is a substitution candidate.  */
   if (ret != NULL((void*)0) && ret->type == DEMANGLE_COMPONENT_SUB_STD)
     can_subst = 0;
 }
    }
    break;

  case 'P':
    d_advance (di, 1)((di)->n += (1));
    ret = d_make_comp (di, DEMANGLE_COMPONENT_POINTER,
	 cplus_demangle_type (di), NULL((void*)0));
    break;

  case 'R':
    d_advance (di, 1)((di)->n += (1));
    ret = d_make_comp (di, DEMANGLE_COMPONENT_REFERENCE,
	 cplus_demangle_type (di), NULL((void*)0));
    break;

  case 'C':
    d_advance (di, 1)((di)->n += (1));
    ret = d_make_comp (di, DEMANGLE_COMPONENT_COMPLEX,
	 cplus_demangle_type (di), NULL((void*)0));
    break;

  case 'G':
    d_advance (di, 1)((di)->n += (1));
    ret = d_make_comp (di, DEMANGLE_COMPONENT_IMAGINARY,
	 cplus_demangle_type (di), NULL((void*)0));
    break;

  case 'U':
    d_advance (di, 1)((di)->n += (1));
    ret = d_source_name (di);
    ret = d_make_comp (di, DEMANGLE_COMPONENT_VENDOR_TYPE_QUAL,
	 cplus_demangle_type (di), ret);
    break;

  default:
    return NULL((void*)0);
  }

if (can_subst)
  {
    if (! d_add_substitution (di, ret))
return NULL((void*)0);
  }

return ret;
1872}

1874/* <CV-qualifiers> ::= [r] [V] [K]  */

1876static struct demangle_component **
1877d_cv_qualifiers (struct d_info *di,
               struct demangle_component **pret, int member_fn)
1879{
char peek;

peek = d_peek_char (di)(*((di)->n));
while (peek == 'r' || peek == 'V' || peek == 'K')
  {
    enum demangle_component_type t;

    d_advance (di, 1)((di)->n += (1));
    if (peek == 'r')
{
 t = (member_fn
      ? DEMANGLE_COMPONENT_RESTRICT_THIS
      : DEMANGLE_COMPONENT_RESTRICT);
 di->expansion += sizeof "restrict";
}
    else if (peek == 'V')
{
 t = (member_fn
      ? DEMANGLE_COMPONENT_VOLATILE_THIS
      : DEMANGLE_COMPONENT_VOLATILE);
 di->expansion += sizeof "volatile";
}
    else
{
 t = (member_fn
      ? DEMANGLE_COMPONENT_CONST_THIS
      : DEMANGLE_COMPONENT_CONST);
 di->expansion += sizeof "const";
}

    *pret = d_make_comp (di, t, NULL((void*)0), NULL((void*)0));
    if (*pret == NULL((void*)0))
return NULL((void*)0);
    pret = &d_left (*pret)((*pret)->u.s_binary.left);

    peek = d_peek_char (di)(*((di)->n));
  }

return pret;
1919}

1921/* <function-type> ::= F [Y] <bare-function-type> E  */

1923static struct demangle_component *
1924d_function_type (struct d_info *di)
1925{
struct demangle_component *ret;

if (d_next_char (di)(*((di)->n++)) != 'F')
  return NULL((void*)0);
if (d_peek_char (di)(*((di)->n)) == 'Y')
  {
    /* Function has C linkage.  We don't print this information.
FIXME: We should print it in verbose mode.  */
    d_advance (di, 1)((di)->n += (1));
  }
ret = d_bare_function_type (di, 1);
if (d_next_char (di)(*((di)->n++)) != 'E')
  return NULL((void*)0);
return ret;
1940}

1942/* <bare-function-type> ::= [J]<type>+  */

1944static struct demangle_component *
1945d_bare_function_type (struct d_info *di, int has_return_type)
1946{
struct demangle_component *return_type;
struct demangle_component *tl;
struct demangle_component **ptl;
char peek;

/* Detect special qualifier indicating that the first argument
   is the return type.  */
peek = d_peek_char (di)(*((di)->n));
if (peek == 'J')
  {
    d_advance (di, 1)((di)->n += (1));
    has_return_type = 1;
  }

return_type = NULL((void*)0);
tl = NULL((void*)0);
ptl = &tl;
while (1)
  {
    struct demangle_component *type;

    peek = d_peek_char (di)(*((di)->n));
    if (peek == '\0' || peek == 'E')
break;
    type = cplus_demangle_type (di);
    if (type == NULL((void*)0))
return NULL((void*)0);
    if (has_return_type)
{
 return_type = type;
 has_return_type = 0;
}
    else
{
 *ptl = d_make_comp (di, DEMANGLE_COMPONENT_ARGLIST, type, NULL((void*)0));
 if (*ptl == NULL((void*)0))
   return NULL((void*)0);
 ptl = &d_right (*ptl)((*ptl)->u.s_binary.right);
}
  }

/* There should be at least one parameter type besides the optional
   return type.  A function which takes no arguments will have a
   single parameter type void.  */
if (tl == NULL((void*)0))
  return NULL((void*)0);

/* If we have a single parameter type void, omit it.  */
if (d_right (tl)((tl)->u.s_binary.right) == NULL((void*)0)
    && d_left (tl)((tl)->u.s_binary.left)->type == DEMANGLE_COMPONENT_BUILTIN_TYPE
    && d_left (tl)((tl)->u.s_binary.left)->u.s_builtin.type->print == D_PRINT_VOID)
  {
    di->expansion -= d_left (tl)((tl)->u.s_binary.left)->u.s_builtin.type->len;
    tl = NULL((void*)0);
  }

return d_make_comp (di, DEMANGLE_COMPONENT_FUNCTION_TYPE, return_type, tl);
2004}

2006/* <class-enum-type> ::= <name>  */

2008static struct demangle_component *
2009d_class_enum_type (struct d_info *di)
2010{
return d_name (di);
2012}

2014/* <array-type> ::= A <(positive dimension) number> _ <(element) type>
              ::= A [<(dimension) expression>] _ <(element) type>
2016*/

2018static struct demangle_component *
2019d_array_type (struct d_info *di)
2020{
char peek;
struct demangle_component *dim;

if (d_next_char (di)(*((di)->n++)) != 'A')
  return NULL((void*)0);

peek = d_peek_char (di)(*((di)->n));
if (peek == '_')
  dim = NULL((void*)0);
else if (IS_DIGIT (peek)((peek) >= '0' && (peek) <= '9'))
  {
    const char *s;

    s = d_str (di)((di)->n);
    do
{
 d_advance (di, 1)((di)->n += (1));
 peek = d_peek_char (di)(*((di)->n));
}
    while (IS_DIGIT (peek)((peek) >= '0' && (peek) <= '9'));
    dim = d_make_name (di, s, d_str (di)((di)->n) - s);
    if (dim == NULL((void*)0))
return NULL((void*)0);
  }
else
  {
    dim = d_expression (di);
    if (dim == NULL((void*)0))
return NULL((void*)0);
  }

if (d_next_char (di)(*((di)->n++)) != '_')
  return NULL((void*)0);

return d_make_comp (di, DEMANGLE_COMPONENT_ARRAY_TYPE, dim,
      cplus_demangle_type (di));
2057}

2059/* <pointer-to-member-type> ::= M <(class) type> <(member) type>  */

2061static struct demangle_component *
2062d_pointer_to_member_type (struct d_info *di)
2063{
struct demangle_component *cl;
struct demangle_component *mem;
struct demangle_component **pmem;

if (d_next_char (di)(*((di)->n++)) != 'M')
  return NULL((void*)0);

cl = cplus_demangle_type (di);

/* The ABI specifies that any type can be a substitution source, and
   that M is followed by two types, and that when a CV-qualified
   type is seen both the base type and the CV-qualified types are
   substitution sources.  The ABI also specifies that for a pointer
   to a CV-qualified member function, the qualifiers are attached to
   the second type.  Given the grammar, a plain reading of the ABI
   suggests that both the CV-qualified member function and the
   non-qualified member function are substitution sources.  However,
   g++ does not work that way.  g++ treats only the CV-qualified
   member function as a substitution source.  FIXME.  So to work
   with g++, we need to pull off the CV-qualifiers here, in order to
   avoid calling add_substitution() in cplus_demangle_type().  */

pmem = d_cv_qualifiers (di, &mem, 1);
if (pmem == NULL((void*)0))
  return NULL((void*)0);
*pmem = cplus_demangle_type (di);

return d_make_comp (di, DEMANGLE_COMPONENT_PTRMEM_TYPE, cl, mem);
2092}

2094/* <template-param> ::= T_
                  ::= T <(parameter-2 non-negative) number> _
2096*/

2098static struct demangle_component *
2099d_template_param (struct d_info *di)
2100{
long param;

if (d_next_char (di)(*((di)->n++)) != 'T')
  return NULL((void*)0);

if (d_peek_char (di)(*((di)->n)) == '_')
  param = 0;
else
  {
    param = d_number (di);
    if (param < 0)
return NULL((void*)0);
    param += 1;
  }

if (d_next_char (di)(*((di)->n++)) != '_')
  return NULL((void*)0);

++di->did_subs;

return d_make_template_param (di, param);
2122}

2124/* <template-args> ::= I <template-arg>+ E  */

2126static struct demangle_component *
2127d_template_args (struct d_info *di)
2128{
struct demangle_component *hold_last_name;
struct demangle_component *al;
struct demangle_component **pal;

/* Preserve the last name we saw--don't let the template arguments
   clobber it, as that would give us the wrong name for a subsequent
   constructor or destructor.  */
hold_last_name = di->last_name;

if (d_next_char (di)(*((di)->n++)) != 'I')
  return NULL((void*)0);

al = NULL((void*)0);
pal = &al;
while (1)
  {
    struct demangle_component *a;

    a = d_template_arg (di);
    if (a == NULL((void*)0))
return NULL((void*)0);

    *pal = d_make_comp (di, DEMANGLE_COMPONENT_TEMPLATE_ARGLIST, a, NULL((void*)0));
    if (*pal == NULL((void*)0))
return NULL((void*)0);
    pal = &d_right (*pal)((*pal)->u.s_binary.right);

    if (d_peek_char (di)(*((di)->n)) == 'E')
{
 d_advance (di, 1)((di)->n += (1));
 break;
}
  }

di->last_name = hold_last_name;

return al;
2166}

2168/* <template-arg> ::= <type>
                ::= X <expression> E
                ::= <expr-primary>
2171*/

2173static struct demangle_component *
2174d_template_arg (struct d_info *di)
2175{
struct demangle_component *ret;

switch (d_peek_char (di)(*((di)->n)))
  {
  case 'X':
    d_advance (di, 1)((di)->n += (1));
    ret = d_expression (di);
    if (d_next_char (di)(*((di)->n++)) != 'E')
return NULL((void*)0);
    return ret;

  case 'L':
    return d_expr_primary (di);

  default:
    return cplus_demangle_type (di);
  }
2193}

2195/* <expression> ::= <(unary) operator-name> <expression>
              ::= <(binary) operator-name> <expression> <expression>
              ::= <(trinary) operator-name> <expression> <expression> <expression>
              ::= st <type>
              ::= <template-param>
              ::= sr <type> <unqualified-name>
              ::= sr <type> <unqualified-name> <template-args>
              ::= <expr-primary>
2203*/

2205static struct demangle_component *
2206d_expression (struct d_info *di)
2207{
char peek;

peek = d_peek_char (di)(*((di)->n));
if (peek == 'L')
  return d_expr_primary (di);
else if (peek == 'T')
  return d_template_param (di);
else if (peek == 's' && d_peek_next_char (di)((di)->n[1]) == 'r')
  {
    struct demangle_component *type;
    struct demangle_component *name;

    d_advance (di, 2)((di)->n += (2));
    type = cplus_demangle_type (di);
    name = d_unqualified_name (di);
    if (d_peek_char (di)(*((di)->n)) != 'I')
return d_make_comp (di, DEMANGLE_COMPONENT_QUAL_NAME, type, name);
    else
return d_make_comp (di, DEMANGLE_COMPONENT_QUAL_NAME, type,
	    d_make_comp (di, DEMANGLE_COMPONENT_TEMPLATE, name,
			 d_template_args (di)));
  }
else
  {
    struct demangle_component *op;
    int args;

    op = d_operator_name (di);
    if (op == NULL((void*)0))
return NULL((void*)0);

    if (op->type == DEMANGLE_COMPONENT_OPERATOR)
di->expansion += op->u.s_operator.op->len - 2;

    if (op->type == DEMANGLE_COMPONENT_OPERATOR
 && strcmp (op->u.s_operator.op->code, "st") == 0)
return d_make_comp (di, DEMANGLE_COMPONENT_UNARY, op,
	    cplus_demangle_type (di));

    switch (op->type)
{
default:
 return NULL((void*)0);
case DEMANGLE_COMPONENT_OPERATOR:
 args = op->u.s_operator.op->args;
 break;
case DEMANGLE_COMPONENT_EXTENDED_OPERATOR:
 args = op->u.s_extended_operator.args;
 break;
case DEMANGLE_COMPONENT_CAST:
 args = 1;
 break;
}

    switch (args)
{
case 1:
 return d_make_comp (di, DEMANGLE_COMPONENT_UNARY, op,
	      d_expression (di));
case 2:
 {
   struct demangle_component *left;

   left = d_expression (di);
   return d_make_comp (di, DEMANGLE_COMPONENT_BINARY, op,
		d_make_comp (di,
			     DEMANGLE_COMPONENT_BINARY_ARGS,
			     left,
			     d_expression (di)));
 }
case 3:
 {
   struct demangle_component *first;
   struct demangle_component *second;

   first = d_expression (di);
   second = d_expression (di);
   return d_make_comp (di, DEMANGLE_COMPONENT_TRINARY, op,
		d_make_comp (di,
			     DEMANGLE_COMPONENT_TRINARY_ARG1,
			     first,
			     d_make_comp (di,
					  DEMANGLE_COMPONENT_TRINARY_ARG2,
					  second,
					  d_expression (di))));
 }
default:
 return NULL((void*)0);
}
  }
2298}

2300/* <expr-primary> ::= L <type> <(value) number> E
                ::= L <type> <(value) float> E
                ::= L <mangled-name> E
2303*/

2305static struct demangle_component *
2306d_expr_primary (struct d_info *di)
2307{
struct demangle_component *ret;

if (d_next_char (di)(*((di)->n++)) != 'L')
  return NULL((void*)0);
if (d_peek_char (di)(*((di)->n)) == '_')
  ret = cplus_demangle_mangled_name (di, 0);
else
  {
    struct demangle_component *type;
    enum demangle_component_type t;
    const char *s;

    type = cplus_demangle_type (di);
    if (type == NULL((void*)0))
return NULL((void*)0);

    /* If we have a type we know how to print, we aren't going to
print the type name itself.  */
    if (type->type == DEMANGLE_COMPONENT_BUILTIN_TYPE
 && type->u.s_builtin.type->print != D_PRINT_DEFAULT)
di->expansion -= type->u.s_builtin.type->len;

    /* Rather than try to interpret the literal value, we just
collect it as a string.  Note that it's possible to have a
floating point literal here.  The ABI specifies that the
format of such literals is machine independent.  That's fine,
but what's not fine is that versions of g++ up to 3.2 with
-fabi-version=1 used upper case letters in the hex constant,
and dumped out gcc's internal representation.  That makes it
hard to tell where the constant ends, and hard to dump the
constant in any readable form anyhow.  We don't attempt to
handle these cases.  */

    t = DEMANGLE_COMPONENT_LITERAL;
    if (d_peek_char (di)(*((di)->n)) == 'n')
{
 t = DEMANGLE_COMPONENT_LITERAL_NEG;
 d_advance (di, 1)((di)->n += (1));
}
    s = d_str (di)((di)->n);
    while (d_peek_char (di)(*((di)->n)) != 'E')
{
 if (d_peek_char (di)(*((di)->n)) == '\0')
   return NULL((void*)0);
 d_advance (di, 1)((di)->n += (1));
}
    ret = d_make_comp (di, t, type, d_make_name (di, s, d_str (di)((di)->n) - s));
  }
if (d_next_char (di)(*((di)->n++)) != 'E')
  return NULL((void*)0);
return ret;
2359}

2361/* <local-name> ::= Z <(function) encoding> E <(entity) name> [<discriminator>]
              ::= Z <(function) encoding> E s [<discriminator>]
2363*/

2365static struct demangle_component *
2366d_local_name (struct d_info *di)
2367{
struct demangle_component *function;

if (d_next_char (di)(*((di)->n++)) != 'Z')
  return NULL((void*)0);

function = d_encoding (di, 0);

if (d_next_char (di)(*((di)->n++)) != 'E')
  return NULL((void*)0);

if (d_peek_char (di)(*((di)->n)) == 's')
  {
    d_advance (di, 1)((di)->n += (1));
    if (! d_discriminator (di))
return NULL((void*)0);
    return d_make_comp (di, DEMANGLE_COMPONENT_LOCAL_NAME, function,
	  d_make_name (di, "string literal",
		       sizeof "string literal" - 1));
  }
else
  {
    struct demangle_component *name;

    name = d_name (di);
    if (! d_discriminator (di))
return NULL((void*)0);
    return d_make_comp (di, DEMANGLE_COMPONENT_LOCAL_NAME, function, name);
  }
2396}

2398/* <discriminator> ::= _ <(non-negative) number>

 We demangle the discriminator, but we don't print it out.  FIXME:
 We should print it out in verbose mode.  */

2403static int
2404d_discriminator (struct d_info *di)
2405{
long discrim;

if (d_peek_char (di)(*((di)->n)) != '_')
  return 1;
d_advance (di, 1)((di)->n += (1));
discrim = d_number (di);
if (discrim < 0)
  return 0;
return 1;
2415}

2417/* Add a new substitution.  */

2419static int
2420d_add_substitution (struct d_info *di, struct demangle_component *dc)
2421{
if (dc == NULL((void*)0))
  return 0;
if (di->next_sub >= di->num_subs)
  return 0;
di->subs[di->next_sub] = dc;
++di->next_sub;
return 1;
2429}

2431/* <substitution> ::= S <seq-id> _
                ::= S_
                ::= St
                ::= Sa
                ::= Sb
                ::= Ss
                ::= Si
                ::= So
                ::= Sd

 If PREFIX is non-zero, then this type is being used as a prefix in
 a qualified name.  In this case, for the standard substitutions, we
 need to check whether we are being used as a prefix for a
 constructor or destructor, and return a full template name.
 Otherwise we will get something like std::iostream::~iostream()
 which does not correspond particularly well to any function which
 actually appears in the source.
2448*/

2450static const struct d_standard_sub_info standard_subs[] =
2451{
{ 't', NL ("std")"std", (sizeof "std") - 1,
  NL ("std")"std", (sizeof "std") - 1,
  NULL((void*)0), 0 },
{ 'a', NL ("std::allocator")"std::allocator", (sizeof "std::allocator") - 1,
  NL ("std::allocator")"std::allocator", (sizeof "std::allocator") - 1,
  NL ("allocator")"allocator", (sizeof "allocator") - 1 },
{ 'b', NL ("std::basic_string")"std::basic_string", (sizeof "std::basic_string") - 1,
  NL ("std::basic_string")"std::basic_string", (sizeof "std::basic_string") - 1,
  NL ("basic_string")"basic_string", (sizeof "basic_string") - 1 },
{ 's', NL ("std::string")"std::string", (sizeof "std::string") - 1,
  NL ("std::basic_string<char, std::char_traits<char>, std::allocator<char> >")"std::basic_string<char, std::char_traits<char>, std::allocator<char> >"
, (sizeof "std::basic_string<char, std::char_traits<char>, std::allocator<char> >"
) - 1,
  NL ("basic_string")"basic_string", (sizeof "basic_string") - 1 },
{ 'i', NL ("std::istream")"std::istream", (sizeof "std::istream") - 1,
  NL ("std::basic_istream<char, std::char_traits<char> >")"std::basic_istream<char, std::char_traits<char> >"
, (sizeof "std::basic_istream<char, std::char_traits<char> >"
) - 1,
  NL ("basic_istream")"basic_istream", (sizeof "basic_istream") - 1 },
{ 'o', NL ("std::ostream")"std::ostream", (sizeof "std::ostream") - 1,
  NL ("std::basic_ostream<char, std::char_traits<char> >")"std::basic_ostream<char, std::char_traits<char> >"
, (sizeof "std::basic_ostream<char, std::char_traits<char> >"
) - 1,
  NL ("basic_ostream")"basic_ostream", (sizeof "basic_ostream") - 1 },
{ 'd', NL ("std::iostream")"std::iostream", (sizeof "std::iostream") - 1,
  NL ("std::basic_iostream<char, std::char_traits<char> >")"std::basic_iostream<char, std::char_traits<char> >"
, (sizeof "std::basic_iostream<char, std::char_traits<char> >"
) - 1,
  NL ("basic_iostream")"basic_iostream", (sizeof "basic_iostream") - 1 }
2473};

2475static struct demangle_component *
2476d_substitution (struct d_info *di, int prefix)
2477{
char c;

if (d_next_char (di)(*((di)->n++)) != 'S')
  return NULL((void*)0);

c = d_next_char (di)(*((di)->n++));
if (c == '_' || IS_DIGIT (c)((c) >= '0' && (c) <= '9') || IS_UPPER (c)((c) >= 'A' && (c) <= 'Z'))
  {
    int id;

    id = 0;
    if (c != '_')
{
 do
   {
     if (IS_DIGIT (c)((c) >= '0' && (c) <= '9'))
id = id * 36 + c - '0';
     else if (IS_UPPER (c)((c) >= 'A' && (c) <= 'Z'))
id = id * 36 + c - 'A' + 10;
     else
return NULL((void*)0);
     c = d_next_char (di)(*((di)->n++));
   }
 while (c != '_');

 ++id;
}

    if (id >= di->next_sub)
return NULL((void*)0);

    ++di->did_subs;

    return di->subs[id];
  }
else
  {
    int verbose;
    const struct d_standard_sub_info *p;
    const struct d_standard_sub_info *pend;

    verbose = (di->options & DMGL_VERBOSE(1 << 3)) != 0;
    if (! verbose && prefix)
{
 char peek;

 peek = d_peek_char (di)(*((di)->n));
 if (peek == 'C' || peek == 'D')
   verbose = 1;
}

    pend = (&standard_subs[0]
     + sizeof standard_subs / sizeof standard_subs[0]);
    for (p = &standard_subs[0]; p < pend; ++p)
{
 if (c == p->code)
   {
     const char *s;
     int len;

     if (p->set_last_name != NULL((void*)0))
di->last_name = d_make_sub (di, p->set_last_name,
			    p->set_last_name_len);
     if (verbose)
{
  s = p->full_expansion;
  len = p->full_len;
}
     else
{
  s = p->simple_expansion;
  len = p->simple_len;
}
     di->expansion += len;
     return d_make_sub (di, s, len);
   }
}

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

2560/* Resize the print buffer.  */

2562static void
2563d_print_resize (struct d_print_info *dpi, size_t add)
2564{
size_t need;

if (dpi->buf == NULL((void*)0))
  return;
need = dpi->len + add;
while (need > dpi->alc)
  {
    size_t newalc;
    char *newbuf;

    newalc = dpi->alc * 2;
    newbuf = (char *) realloc (dpi->buf, newalc);
    if (newbuf == NULL((void*)0))
{
 free (dpi->buf);
 dpi->buf = NULL((void*)0);
 dpi->allocation_failure = 1;
 return;
}
    dpi->buf = newbuf;
    dpi->alc = newalc;
  }
2587}

2589/* Append a character to the print buffer.  */

2591static void
2592d_print_append_char (struct d_print_info *dpi, int c)
2593{
if (dpi->buf != NULL((void*)0))
  {
    if (dpi->len >= dpi->alc)
{
 d_print_resize (dpi, 1);
 if (dpi->buf == NULL((void*)0))
   return;
}

    dpi->buf[dpi->len] = c;
    ++dpi->len;
  }
2606}

2608/* Append a buffer to the print buffer.  */

2610static void
2611d_print_append_buffer (struct d_print_info *dpi, const char *s, size_t l)
2612{
if (dpi->buf != NULL((void*)0))
  {
    if (dpi->len + l > dpi->alc)
{
 d_print_resize (dpi, l);
 if (dpi->buf == NULL((void*)0))
   return;
}

    memcpy (dpi->buf + dpi->len, s, l);
    dpi->len += l;
  }
2625}

2627/* Indicate that an error occurred during printing.  */

2629static void
2630d_print_error (struct d_print_info *dpi)
2631{
free (dpi->buf);
dpi->buf = NULL((void*)0);
2634}

2636/* Turn components into a human readable string.  OPTIONS is the
 options bits passed to the demangler.  DC is the tree to print.
 ESTIMATE is a guess at the length of the result.  This returns a
 string allocated by malloc, or NULL on error.  On success, this
 sets *PALC to the size of the allocated buffer.  On failure, this
 sets *PALC to 0 for a bad parse, or to 1 for a memory allocation
 failure.  */

2644CP_STATIC_IF_GLIBCPP_V3
2645char *
2646cplus_demangle_print (int options, const struct demangle_component *dc,
                    int estimate, size_t *palc)
2648{
struct d_print_info dpi;

dpi.options = options;

dpi.alc = estimate + 1;
dpi.buf = (char *) malloc (dpi.alc);
if (dpi.buf == NULL((void*)0))
  {
    *palc = 1;
    return NULL((void*)0);
  }

dpi.len = 0;
dpi.templates = NULL((void*)0);
dpi.modifiers = NULL((void*)0);

dpi.allocation_failure = 0;

d_print_comp (&dpi, dc);

d_append_char (&dpi, '\0')do { if ((&dpi)->buf != ((void*)0) && (&dpi
)->len < (&dpi)->alc) (&dpi)->buf[(&dpi
)->len++] = ('\0'); else d_print_append_char ((&dpi), (
'\0')); } while (0);

if (dpi.buf != NULL((void*)0))
  *palc = dpi.alc;
else
  *palc = dpi.allocation_failure;

return dpi.buf;
2677}

2679/* Subroutine to handle components.  */

2681static void
2682d_print_comp (struct d_print_info *dpi,
            const struct demangle_component *dc)
2684{
if (dc == NULL((void*)0))
1
Assuming 'dc' is not equal to NULL→
2
←
Taking false branch→
  {
    d_print_error (dpi);
    return;
  }
if (d_print_saw_error (dpi)((dpi)->buf == ((void*)0)))
3
←
Assuming field 'buf' is not equal to null→
4
←
Taking false branch→
  return;

switch (dc->type)
5
←
Control jumps to 'case DEMANGLE_COMPONENT_TYPED_NAME:'  at line 2712→
  {
  case DEMANGLE_COMPONENT_NAME:
    if ((dpi->options & DMGL_JAVA(1 << 2)) == 0)
d_append_buffer (dpi, dc->u.s_name.s, dc->u.s_name.len)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_name.len) <= (dpi)->alc) { memcpy ((dpi)
->buf + (dpi)->len, (dc->u.s_name.s), (dc->u.s_name
.len)); (dpi)->len += dc->u.s_name.len; } else d_print_append_buffer
 ((dpi), (dc->u.s_name.s), (dc->u.s_name.len)); } while
 (0);
    else
d_print_java_identifier (dpi, dc->u.s_name.s, dc->u.s_name.len);
    return;

  case DEMANGLE_COMPONENT_QUAL_NAME:
  case DEMANGLE_COMPONENT_LOCAL_NAME:
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    if ((dpi->options & DMGL_JAVA(1 << 2)) == 0)
d_append_string_constant (dpi, "::")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("::") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, (("::")), (sizeof ("::") - 1)); (dpi)->
len += sizeof ("::") - 1; } else d_print_append_buffer ((dpi)
, (("::")), (sizeof ("::") - 1)); } while (0);
    else
d_append_char (dpi, '.')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('.'); else
 d_print_append_char ((dpi), ('.')); } while (0);
    d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));
    return;

  case DEMANGLE_COMPONENT_TYPED_NAME:
    {
struct d_print_mod *hold_modifiers;
struct demangle_component *typed_name;
struct d_print_mod adpm[4];
unsigned int i;
struct d_print_template dpt;

/* Pass the name down to the type so that it can be printed in
  the right place for the type.  We also have to pass down
  any CV-qualifiers, which apply to the this parameter.  */
hold_modifiers = dpi->modifiers;
i = 0;
typed_name = d_left (dc)((dc)->u.s_binary.left);
while (typed_name != NULL((void*)0))
6
←
Assuming 'typed_name' is not equal to NULL→
7
←
Loop condition is true.  Entering loop body→
 {
   if (i >= sizeof adpm / sizeof adpm[0])
8
←
Taking false branch→
     {
d_print_error (dpi);
return;
     }

   adpm[i].next = dpi->modifiers;
   dpi->modifiers = &adpm[i];
   adpm[i].mod = typed_name;
   adpm[i].printed = 0;
   adpm[i].templates = dpi->templates;
   ++i;

   if (typed_name->type != DEMANGLE_COMPONENT_RESTRICT_THIS
9
←
Assuming field 'type' is not equal to DEMANGLE_COMPONENT_RESTRICT_THIS→
12
←
Taking true branch→
&& typed_name->type != DEMANGLE_COMPONENT_VOLATILE_THIS
10
←
Assuming field 'type' is not equal to DEMANGLE_COMPONENT_VOLATILE_THIS→
&& typed_name->type != DEMANGLE_COMPONENT_CONST_THIS)
11
←
Assuming field 'type' is not equal to DEMANGLE_COMPONENT_CONST_THIS→
     break;
13
←
 Execution continues on line 2751→

   typed_name = d_left (typed_name)((typed_name)->u.s_binary.left);
 }

/* If typed_name is a template, then it applies to the
  function type as well.  */
if (typed_name->type == DEMANGLE_COMPONENT_TEMPLATE)
14
←
Assuming field 'type' is not equal to DEMANGLE_COMPONENT_TEMPLATE→
15
←
Taking false branch→
 {
   dpt.next = dpi->templates;
   dpi->templates = &dpt;
   dpt.template_decl = typed_name;
 }

/* If typed_name is a DEMANGLE_COMPONENT_LOCAL_NAME, then
  there may be CV-qualifiers on its right argument which
  really apply here; this happens when parsing a class which
  is local to a function.  */
if (typed_name->type == DEMANGLE_COMPONENT_LOCAL_NAME)
16
←
Assuming field 'type' is not equal to DEMANGLE_COMPONENT_LOCAL_NAME→
17
←
Taking false branch→
 {
   struct demangle_component *local_name;

   local_name = d_right (typed_name)((typed_name)->u.s_binary.right);
   while (local_name->type == DEMANGLE_COMPONENT_RESTRICT_THIS
   || local_name->type == DEMANGLE_COMPONENT_VOLATILE_THIS
   || local_name->type == DEMANGLE_COMPONENT_CONST_THIS)
     {
if (i >= sizeof adpm / sizeof adpm[0])
  {
    d_print_error (dpi);
    return;
  }

adpm[i] = adpm[i - 1];
adpm[i].next = &adpm[i - 1];
dpi->modifiers = &adpm[i];

adpm[i - 1].mod = local_name;
adpm[i - 1].printed = 0;
adpm[i - 1].templates = dpi->templates;
++i;

local_name = d_left (local_name)((local_name)->u.s_binary.left);
     }
 }

d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));

if (typed_name->type == DEMANGLE_COMPONENT_TEMPLATE)
18
←
Assuming field 'type' is equal to DEMANGLE_COMPONENT_TEMPLATE→
19
←
Taking true branch→
 dpi->templates = dpt.next;
20
←
Assigned value is garbage or undefined

/* If the modifiers didn't get printed by the type, print them
  now.  */
while (i > 0)
 {
   --i;
   if (! adpm[i].printed)
     {
d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
d_print_mod (dpi, adpm[i].mod);
     }
 }

dpi->modifiers = hold_modifiers;

return;
    }

  case DEMANGLE_COMPONENT_TEMPLATE:
    {
struct d_print_mod *hold_dpm;

/* Don't push modifiers into a template definition.  Doing so
  could give the wrong definition for a template argument.
  Instead, treat the template essentially as a name.  */

hold_dpm = dpi->modifiers;
dpi->modifiers = NULL((void*)0);

d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
if (d_last_char (dpi)((dpi)->buf == ((void*)0) || (dpi)->len == 0 ? '\0' : (
dpi)->buf[(dpi)->len - 1]) == '<')
 d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
d_append_char (dpi, '<')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('<'
); else d_print_append_char ((dpi), ('<')); } while (0);
d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));
/* Avoid generating two consecutive '>' characters, to avoid
  the C++ syntactic ambiguity.  */
if (d_last_char (dpi)((dpi)->buf == ((void*)0) || (dpi)->len == 0 ? '\0' : (
dpi)->buf[(dpi)->len - 1]) == '>')
 d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
d_append_char (dpi, '>')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('>'
); else d_print_append_char ((dpi), ('>')); } while (0);

dpi->modifiers = hold_dpm;

return;
    }

  case DEMANGLE_COMPONENT_TEMPLATE_PARAM:
    {
long i;
struct demangle_component *a;
struct d_print_template *hold_dpt;

if (dpi->templates == NULL((void*)0))
 {
   d_print_error (dpi);
   return;
 }
i = dc->u.s_number.number;
for (a = d_right (dpi->templates->template_decl)((dpi->templates->template_decl)->u.s_binary.right);
    a != NULL((void*)0);
    a = d_right (a)((a)->u.s_binary.right))
 {
   if (a->type != DEMANGLE_COMPONENT_TEMPLATE_ARGLIST)
     {
d_print_error (dpi);
return;
     }
   if (i <= 0)
     break;
   --i;
 }
if (i != 0 || a == NULL((void*)0))
 {
   d_print_error (dpi);
   return;
 }

/* While processing this parameter, we need to pop the list of
  templates.  This is because the template parameter may
  itself be a reference to a parameter of an outer
  template.  */

hold_dpt = dpi->templates;
dpi->templates = hold_dpt->next;

d_print_comp (dpi, d_left (a)((a)->u.s_binary.left));

dpi->templates = hold_dpt;

return;
    }

  case DEMANGLE_COMPONENT_CTOR:
    d_print_comp (dpi, dc->u.s_ctor.name);
    return;

  case DEMANGLE_COMPONENT_DTOR:
    d_append_char (dpi, '~')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('~'); else
 d_print_append_char ((dpi), ('~')); } while (0);
    d_print_comp (dpi, dc->u.s_dtor.name);
    return;

  case DEMANGLE_COMPONENT_VTABLE:
    d_append_string_constant (dpi, "vtable for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("vtable for ") - 1) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (("vtable for ")), (sizeof (
"vtable for ") - 1)); (dpi)->len += sizeof ("vtable for ")
 - 1; } else d_print_append_buffer ((dpi), (("vtable for ")),
 (sizeof ("vtable for ") - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_VTT:
    d_append_string_constant (dpi, "VTT for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("VTT for ") - 1) <= (dpi)->alc) { memcpy ((
dpi)->buf + (dpi)->len, (("VTT for ")), (sizeof ("VTT for "
) - 1)); (dpi)->len += sizeof ("VTT for ") - 1; } else d_print_append_buffer
 ((dpi), (("VTT for ")), (sizeof ("VTT for ") - 1)); } while (
0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_CONSTRUCTION_VTABLE:
    d_append_string_constant (dpi, "construction vtable for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("construction vtable for ") - 1) <= (dpi)->
alc) { memcpy ((dpi)->buf + (dpi)->len, (("construction vtable for "
)), (sizeof ("construction vtable for ") - 1)); (dpi)->len
 += sizeof ("construction vtable for ") - 1; } else d_print_append_buffer
 ((dpi), (("construction vtable for ")), (sizeof ("construction vtable for "
) - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    d_append_string_constant (dpi, "-in-")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("-in-") - 1) <= (dpi)->alc) { memcpy ((dpi)
->buf + (dpi)->len, (("-in-")), (sizeof ("-in-") - 1));
 (dpi)->len += sizeof ("-in-") - 1; } else d_print_append_buffer
 ((dpi), (("-in-")), (sizeof ("-in-") - 1)); } while (0);
    d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));
    return;

  case DEMANGLE_COMPONENT_TYPEINFO:
    d_append_string_constant (dpi, "typeinfo for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("typeinfo for ") - 1) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (("typeinfo for ")), (sizeof
 ("typeinfo for ") - 1)); (dpi)->len += sizeof ("typeinfo for "
) - 1; } else d_print_append_buffer ((dpi), (("typeinfo for "
)), (sizeof ("typeinfo for ") - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_TYPEINFO_NAME:
    d_append_string_constant (dpi, "typeinfo name for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("typeinfo name for ") - 1) <= (dpi)->alc) {
 memcpy ((dpi)->buf + (dpi)->len, (("typeinfo name for "
)), (sizeof ("typeinfo name for ") - 1)); (dpi)->len += sizeof
 ("typeinfo name for ") - 1; } else d_print_append_buffer ((dpi
), (("typeinfo name for ")), (sizeof ("typeinfo name for ") -
 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_TYPEINFO_FN:
    d_append_string_constant (dpi, "typeinfo fn for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("typeinfo fn for ") - 1) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (("typeinfo fn for ")), (sizeof
 ("typeinfo fn for ") - 1)); (dpi)->len += sizeof ("typeinfo fn for "
) - 1; } else d_print_append_buffer ((dpi), (("typeinfo fn for "
)), (sizeof ("typeinfo fn for ") - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_THUNK:
    d_append_string_constant (dpi, "non-virtual thunk to ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("non-virtual thunk to ") - 1) <= (dpi)->alc
) { memcpy ((dpi)->buf + (dpi)->len, (("non-virtual thunk to "
)), (sizeof ("non-virtual thunk to ") - 1)); (dpi)->len +=
 sizeof ("non-virtual thunk to ") - 1; } else d_print_append_buffer
 ((dpi), (("non-virtual thunk to ")), (sizeof ("non-virtual thunk to "
) - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_VIRTUAL_THUNK:
    d_append_string_constant (dpi, "virtual thunk to ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("virtual thunk to ") - 1) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (("virtual thunk to ")), (sizeof
 ("virtual thunk to ") - 1)); (dpi)->len += sizeof ("virtual thunk to "
) - 1; } else d_print_append_buffer ((dpi), (("virtual thunk to "
)), (sizeof ("virtual thunk to ") - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_COVARIANT_THUNK:
    d_append_string_constant (dpi, "covariant return thunk to ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("covariant return thunk to ") - 1) <= (dpi)->
alc) { memcpy ((dpi)->buf + (dpi)->len, (("covariant return thunk to "
)), (sizeof ("covariant return thunk to ") - 1)); (dpi)->len
 += sizeof ("covariant return thunk to ") - 1; } else d_print_append_buffer
 ((dpi), (("covariant return thunk to ")), (sizeof ("covariant return thunk to "
) - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_JAVA_CLASS:
    d_append_string_constant (dpi, "java Class for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("java Class for ") - 1) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (("java Class for ")), (sizeof
 ("java Class for ") - 1)); (dpi)->len += sizeof ("java Class for "
) - 1; } else d_print_append_buffer ((dpi), (("java Class for "
)), (sizeof ("java Class for ") - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_GUARD:
    d_append_string_constant (dpi, "guard variable for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("guard variable for ") - 1) <= (dpi)->alc) {
 memcpy ((dpi)->buf + (dpi)->len, (("guard variable for "
)), (sizeof ("guard variable for ") - 1)); (dpi)->len += sizeof
 ("guard variable for ") - 1; } else d_print_append_buffer ((
dpi), (("guard variable for ")), (sizeof ("guard variable for "
) - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_REFTEMP:
    d_append_string_constant (dpi, "reference temporary for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("reference temporary for ") - 1) <= (dpi)->
alc) { memcpy ((dpi)->buf + (dpi)->len, (("reference temporary for "
)), (sizeof ("reference temporary for ") - 1)); (dpi)->len
 += sizeof ("reference temporary for ") - 1; } else d_print_append_buffer
 ((dpi), (("reference temporary for ")), (sizeof ("reference temporary for "
) - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_HIDDEN_ALIAS:
    d_append_string_constant (dpi, "hidden alias for ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("hidden alias for ") - 1) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (("hidden alias for ")), (sizeof
 ("hidden alias for ") - 1)); (dpi)->len += sizeof ("hidden alias for "
) - 1; } else d_print_append_buffer ((dpi), (("hidden alias for "
)), (sizeof ("hidden alias for ") - 1)); } while (0);
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_SUB_STD:
    d_append_buffer (dpi, dc->u.s_string.string, dc->u.s_string.len)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_string.len) <= (dpi)->alc) { memcpy ((dpi
)->buf + (dpi)->len, (dc->u.s_string.string), (dc->
u.s_string.len)); (dpi)->len += dc->u.s_string.len; } else
 d_print_append_buffer ((dpi), (dc->u.s_string.string), (dc
->u.s_string.len)); } while (0);
    return;

  case DEMANGLE_COMPONENT_RESTRICT:
  case DEMANGLE_COMPONENT_VOLATILE:
  case DEMANGLE_COMPONENT_CONST:
    {
struct d_print_mod *pdpm;

/* When printing arrays, it's possible to have cases where the
  same CV-qualifier gets pushed on the stack multiple times.
  We only need to print it once.  */

for (pdpm = dpi->modifiers; pdpm != NULL((void*)0); pdpm = pdpm->next)
 {
   if (! pdpm->printed)
     {
if (pdpm->mod->type != DEMANGLE_COMPONENT_RESTRICT
    && pdpm->mod->type != DEMANGLE_COMPONENT_VOLATILE
    && pdpm->mod->type != DEMANGLE_COMPONENT_CONST)
  break;
if (pdpm->mod->type == dc->type)
  {
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;
  }
     }
 }
    }
    /* Fall through.  */
  case DEMANGLE_COMPONENT_RESTRICT_THIS:
  case DEMANGLE_COMPONENT_VOLATILE_THIS:
  case DEMANGLE_COMPONENT_CONST_THIS:
  case DEMANGLE_COMPONENT_VENDOR_TYPE_QUAL:
  case DEMANGLE_COMPONENT_POINTER:
  case DEMANGLE_COMPONENT_REFERENCE:
  case DEMANGLE_COMPONENT_COMPLEX:
  case DEMANGLE_COMPONENT_IMAGINARY:
    {
/* We keep a list of modifiers on the stack.  */
struct d_print_mod dpm;

dpm.next = dpi->modifiers;
dpi->modifiers = &dpm;
dpm.mod = dc;
dpm.printed = 0;
dpm.templates = dpi->templates;

d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));

/* If the modifier didn't get printed by the type, print it
  now.  */
if (! dpm.printed)
 d_print_mod (dpi, dc);

dpi->modifiers = dpm.next;

return;
    }

  case DEMANGLE_COMPONENT_BUILTIN_TYPE:
    if ((dpi->options & DMGL_JAVA(1 << 2)) == 0)
d_append_buffer (dpi, dc->u.s_builtin.type->name,do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_builtin.type->len) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (dc->u.s_builtin.type->
name), (dc->u.s_builtin.type->len)); (dpi)->len += dc
->u.s_builtin.type->len; } else d_print_append_buffer (
(dpi), (dc->u.s_builtin.type->name), (dc->u.s_builtin
.type->len)); } while (0)
	 dc->u.s_builtin.type->len)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_builtin.type->len) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (dc->u.s_builtin.type->
name), (dc->u.s_builtin.type->len)); (dpi)->len += dc
->u.s_builtin.type->len; } else d_print_append_buffer (
(dpi), (dc->u.s_builtin.type->name), (dc->u.s_builtin
.type->len)); } while (0);
    else
d_append_buffer (dpi, dc->u.s_builtin.type->java_name,do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_builtin.type->java_len) <= (dpi)->alc
) { memcpy ((dpi)->buf + (dpi)->len, (dc->u.s_builtin
.type->java_name), (dc->u.s_builtin.type->java_len))
; (dpi)->len += dc->u.s_builtin.type->java_len; } else
 d_print_append_buffer ((dpi), (dc->u.s_builtin.type->java_name
), (dc->u.s_builtin.type->java_len)); } while (0)
	 dc->u.s_builtin.type->java_len)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_builtin.type->java_len) <= (dpi)->alc
) { memcpy ((dpi)->buf + (dpi)->len, (dc->u.s_builtin
.type->java_name), (dc->u.s_builtin.type->java_len))
; (dpi)->len += dc->u.s_builtin.type->java_len; } else
 d_print_append_buffer ((dpi), (dc->u.s_builtin.type->java_name
), (dc->u.s_builtin.type->java_len)); } while (0);
    return;

  case DEMANGLE_COMPONENT_VENDOR_TYPE:
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    return;

  case DEMANGLE_COMPONENT_FUNCTION_TYPE:
    {
if ((dpi->options & DMGL_RET_POSTFIX(1 << 5)) != 0)
 d_print_function_type (dpi, dc, dpi->modifiers);

/* Print return type if present */
if (d_left (dc)((dc)->u.s_binary.left) != NULL((void*)0))
 {
   struct d_print_mod dpm;

   /* We must pass this type down as a modifier in order to
      print it in the right location.  */
   dpm.next = dpi->modifiers;
   dpi->modifiers = &dpm;
   dpm.mod = dc;
   dpm.printed = 0;
   dpm.templates = dpi->templates;

   d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));

   dpi->modifiers = dpm.next;

   if (dpm.printed)
     return;

   /* In standard prefix notation, there is a space between the
      return type and the function signature.  */
   if ((dpi->options & DMGL_RET_POSTFIX(1 << 5)) == 0)
     d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
 }

if ((dpi->options & DMGL_RET_POSTFIX(1 << 5)) == 0) 
 d_print_function_type (dpi, dc, dpi->modifiers);

return;
    }

  case DEMANGLE_COMPONENT_ARRAY_TYPE:
    {
struct d_print_mod *hold_modifiers;
struct d_print_mod adpm[4];
unsigned int i;
struct d_print_mod *pdpm;

/* We must pass this type down as a modifier in order to print
  multi-dimensional arrays correctly.  If the array itself is
  CV-qualified, we act as though the element type were
  CV-qualified.  We do this by copying the modifiers down
  rather than fiddling pointers, so that we don't wind up
  with a d_print_mod higher on the stack pointing into our
  stack frame after we return.  */

hold_modifiers = dpi->modifiers;

adpm[0].next = hold_modifiers;
dpi->modifiers = &adpm[0];
adpm[0].mod = dc;
adpm[0].printed = 0;
adpm[0].templates = dpi->templates;

i = 1;
pdpm = hold_modifiers;
while (pdpm != NULL((void*)0)
      && (pdpm->mod->type == DEMANGLE_COMPONENT_RESTRICT
   || pdpm->mod->type == DEMANGLE_COMPONENT_VOLATILE
   || pdpm->mod->type == DEMANGLE_COMPONENT_CONST))
 {
   if (! pdpm->printed)
     {
if (i >= sizeof adpm / sizeof adpm[0])
  {
    d_print_error (dpi);
    return;
  }

adpm[i] = *pdpm;
adpm[i].next = dpi->modifiers;
dpi->modifiers = &adpm[i];
pdpm->printed = 1;
++i;
     }

   pdpm = pdpm->next;
 }

d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));

dpi->modifiers = hold_modifiers;

if (adpm[0].printed)
 return;

while (i > 1)
 {
   --i;
   d_print_mod (dpi, adpm[i].mod);
 }

d_print_array_type (dpi, dc, dpi->modifiers);

return;
    }

  case DEMANGLE_COMPONENT_PTRMEM_TYPE:
    {
struct d_print_mod dpm;

dpm.next = dpi->modifiers;
dpi->modifiers = &dpm;
dpm.mod = dc;
dpm.printed = 0;
dpm.templates = dpi->templates;

d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));

/* If the modifier didn't get printed by the type, print it
  now.  */
if (! dpm.printed)
 {
   d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
   d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
   d_append_string_constant (dpi, "::*")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("::*") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, (("::*")), (sizeof ("::*") - 1)); (dpi)->
len += sizeof ("::*") - 1; } else d_print_append_buffer ((dpi
), (("::*")), (sizeof ("::*") - 1)); } while (0);
 }

dpi->modifiers = dpm.next;

return;
    }

  case DEMANGLE_COMPONENT_ARGLIST:
  case DEMANGLE_COMPONENT_TEMPLATE_ARGLIST:
    d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
    if (d_right (dc)((dc)->u.s_binary.right) != NULL((void*)0))
{
 d_append_string_constant (dpi, ", ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (", ") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, ((", ")), (sizeof (", ") - 1)); (dpi)->
len += sizeof (", ") - 1; } else d_print_append_buffer ((dpi)
, ((", ")), (sizeof (", ") - 1)); } while (0);
 d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));
}
    return;

  case DEMANGLE_COMPONENT_OPERATOR:
    {
char c;

d_append_string_constant (dpi, "operator")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("operator") - 1) <= (dpi)->alc) { memcpy ((
dpi)->buf + (dpi)->len, (("operator")), (sizeof ("operator"
) - 1)); (dpi)->len += sizeof ("operator") - 1; } else d_print_append_buffer
 ((dpi), (("operator")), (sizeof ("operator") - 1)); } while (
0);
c = dc->u.s_operator.op->name[0];
if (IS_LOWER (c)((c) >= 'a' && (c) <= 'z'))
 d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
d_append_buffer (dpi, dc->u.s_operator.op->name,do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_operator.op->len) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (dc->u.s_operator.op->
name), (dc->u.s_operator.op->len)); (dpi)->len += dc
->u.s_operator.op->len; } else d_print_append_buffer ((
dpi), (dc->u.s_operator.op->name), (dc->u.s_operator
.op->len)); } while (0)
	 dc->u.s_operator.op->len)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_operator.op->len) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (dc->u.s_operator.op->
name), (dc->u.s_operator.op->len)); (dpi)->len += dc
->u.s_operator.op->len; } else d_print_append_buffer ((
dpi), (dc->u.s_operator.op->name), (dc->u.s_operator
.op->len)); } while (0);
return;
    }

  case DEMANGLE_COMPONENT_EXTENDED_OPERATOR:
    d_append_string_constant (dpi, "operator ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("operator ") - 1) <= (dpi)->alc) { memcpy (
(dpi)->buf + (dpi)->len, (("operator ")), (sizeof ("operator "
) - 1)); (dpi)->len += sizeof ("operator ") - 1; } else d_print_append_buffer
 ((dpi), (("operator ")), (sizeof ("operator ") - 1)); } while
 (0);
    d_print_comp (dpi, dc->u.s_extended_operator.name);
    return;

  case DEMANGLE_COMPONENT_CAST:
    d_append_string_constant (dpi, "operator ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("operator ") - 1) <= (dpi)->alc) { memcpy (
(dpi)->buf + (dpi)->len, (("operator ")), (sizeof ("operator "
) - 1)); (dpi)->len += sizeof ("operator ") - 1; } else d_print_append_buffer
 ((dpi), (("operator ")), (sizeof ("operator ") - 1)); } while
 (0);
    d_print_cast (dpi, dc);
    return;

  case DEMANGLE_COMPONENT_UNARY:
    if (d_left (dc)((dc)->u.s_binary.left)->type != DEMANGLE_COMPONENT_CAST)
d_print_expr_op (dpi, d_left (dc)((dc)->u.s_binary.left));
    else
{
 d_append_char (dpi, '(')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('('); else
 d_print_append_char ((dpi), ('(')); } while (0);
 d_print_cast (dpi, d_left (dc)((dc)->u.s_binary.left));
 d_append_char (dpi, ')')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (')'); else
 d_print_append_char ((dpi), (')')); } while (0);
}
    d_append_char (dpi, '(')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('('); else
 d_print_append_char ((dpi), ('(')); } while (0);
    d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));
    d_append_char (dpi, ')')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (')'); else
 d_print_append_char ((dpi), (')')); } while (0);
    return;

  case DEMANGLE_COMPONENT_BINARY:
    if (d_right (dc)((dc)->u.s_binary.right)->type != DEMANGLE_COMPONENT_BINARY_ARGS)
{
 d_print_error (dpi);
 return;
}

    /* We wrap an expression which uses the greater-than operator in
an extra layer of parens so that it does not get confused
with the '>' which ends the template parameters.  */
    if (d_left (dc)((dc)->u.s_binary.left)->type == DEMANGLE_COMPONENT_OPERATOR
 && d_left (dc)((dc)->u.s_binary.left)->u.s_operator.op->len == 1
 && d_left (dc)((dc)->u.s_binary.left)->u.s_operator.op->name[0] == '>')
d_append_char (dpi, '(')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('('); else
 d_print_append_char ((dpi), ('(')); } while (0);

    d_append_char (dpi, '(')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('('); else
 d_print_append_char ((dpi), ('(')); } while (0);
    d_print_comp (dpi, d_left (d_right (dc))((((dc)->u.s_binary.right))->u.s_binary.left));
    d_append_string_constant (dpi, ") ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (") ") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, ((") ")), (sizeof (") ") - 1)); (dpi)->
len += sizeof (") ") - 1; } else d_print_append_buffer ((dpi)
, ((") ")), (sizeof (") ") - 1)); } while (0);
    d_print_expr_op (dpi, d_left (dc)((dc)->u.s_binary.left));
    d_append_string_constant (dpi, " (")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (" (") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, ((" (")), (sizeof (" (") - 1)); (dpi)->
len += sizeof (" (") - 1; } else d_print_append_buffer ((dpi)
, ((" (")), (sizeof (" (") - 1)); } while (0);
    d_print_comp (dpi, d_right (d_right (dc))((((dc)->u.s_binary.right))->u.s_binary.right));
    d_append_char (dpi, ')')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (')'); else
 d_print_append_char ((dpi), (')')); } while (0);

    if (d_left (dc)((dc)->u.s_binary.left)->type == DEMANGLE_COMPONENT_OPERATOR
 && d_left (dc)((dc)->u.s_binary.left)->u.s_operator.op->len == 1
 && d_left (dc)((dc)->u.s_binary.left)->u.s_operator.op->name[0] == '>')
d_append_char (dpi, ')')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (')'); else
 d_print_append_char ((dpi), (')')); } while (0);

    return;

  case DEMANGLE_COMPONENT_BINARY_ARGS:
    /* We should only see this as part of DEMANGLE_COMPONENT_BINARY.  */
    d_print_error (dpi);
    return;

  case DEMANGLE_COMPONENT_TRINARY:
    if (d_right (dc)((dc)->u.s_binary.right)->type != DEMANGLE_COMPONENT_TRINARY_ARG1
 || d_right (d_right (dc))((((dc)->u.s_binary.right))->u.s_binary.right)->type != DEMANGLE_COMPONENT_TRINARY_ARG2)
{
 d_print_error (dpi);
 return;
}
    d_append_char (dpi, '(')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('('); else
 d_print_append_char ((dpi), ('(')); } while (0);
    d_print_comp (dpi, d_left (d_right (dc))((((dc)->u.s_binary.right))->u.s_binary.left));
    d_append_string_constant (dpi, ") ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (") ") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, ((") ")), (sizeof (") ") - 1)); (dpi)->
len += sizeof (") ") - 1; } else d_print_append_buffer ((dpi)
, ((") ")), (sizeof (") ") - 1)); } while (0);
    d_print_expr_op (dpi, d_left (dc)((dc)->u.s_binary.left));
    d_append_string_constant (dpi, " (")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (" (") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, ((" (")), (sizeof (" (") - 1)); (dpi)->
len += sizeof (" (") - 1; } else d_print_append_buffer ((dpi)
, ((" (")), (sizeof (" (") - 1)); } while (0);
    d_print_comp (dpi, d_left (d_right (d_right (dc)))((((((dc)->u.s_binary.right))->u.s_binary.right))->u
.s_binary.left));
    d_append_string_constant (dpi, ") : (")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (") : (") - 1) <= (dpi)->alc) { memcpy ((dpi
)->buf + (dpi)->len, ((") : (")), (sizeof (") : (") - 1
)); (dpi)->len += sizeof (") : (") - 1; } else d_print_append_buffer
 ((dpi), ((") : (")), (sizeof (") : (") - 1)); } while (0);
    d_print_comp (dpi, d_right (d_right (d_right (dc)))((((((dc)->u.s_binary.right))->u.s_binary.right))->u
.s_binary.right));
    d_append_char (dpi, ')')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (')'); else
 d_print_append_char ((dpi), (')')); } while (0);
    return;

  case DEMANGLE_COMPONENT_TRINARY_ARG1:
  case DEMANGLE_COMPONENT_TRINARY_ARG2:
    /* We should only see these are part of DEMANGLE_COMPONENT_TRINARY.  */
    d_print_error (dpi);
    return;

  case DEMANGLE_COMPONENT_LITERAL:
  case DEMANGLE_COMPONENT_LITERAL_NEG:
    {
enum d_builtin_type_print tp;

/* For some builtin types, produce simpler output.  */
tp = D_PRINT_DEFAULT;
if (d_left (dc)((dc)->u.s_binary.left)->type == DEMANGLE_COMPONENT_BUILTIN_TYPE)
 {
   tp = d_left (dc)((dc)->u.s_binary.left)->u.s_builtin.type->print;
   switch (tp)
     {
     case D_PRINT_INT:
     case D_PRINT_UNSIGNED:
     case D_PRINT_LONG:
     case D_PRINT_UNSIGNED_LONG:
     case D_PRINT_LONG_LONG:
     case D_PRINT_UNSIGNED_LONG_LONG:
if (d_right (dc)((dc)->u.s_binary.right)->type == DEMANGLE_COMPONENT_NAME)
  {
    if (dc->type == DEMANGLE_COMPONENT_LITERAL_NEG)
      d_append_char (dpi, '-')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('-'); else
 d_print_append_char ((dpi), ('-')); } while (0);
    d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));
    switch (tp)
      {
      default:
	break;
      case D_PRINT_UNSIGNED:
	d_append_char (dpi, 'u')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('u'); else
 d_print_append_char ((dpi), ('u')); } while (0);
	break;
      case D_PRINT_LONG:
	d_append_char (dpi, 'l')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('l'); else
 d_print_append_char ((dpi), ('l')); } while (0);
	break;
      case D_PRINT_UNSIGNED_LONG:
	d_append_string_constant (dpi, "ul")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("ul") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, (("ul")), (sizeof ("ul") - 1)); (dpi)->
len += sizeof ("ul") - 1; } else d_print_append_buffer ((dpi)
, (("ul")), (sizeof ("ul") - 1)); } while (0);
	break;
      case D_PRINT_LONG_LONG:
	d_append_string_constant (dpi, "ll")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("ll") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, (("ll")), (sizeof ("ll") - 1)); (dpi)->
len += sizeof ("ll") - 1; } else d_print_append_buffer ((dpi)
, (("ll")), (sizeof ("ll") - 1)); } while (0);
	break;
      case D_PRINT_UNSIGNED_LONG_LONG:
	d_append_string_constant (dpi, "ull")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("ull") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, (("ull")), (sizeof ("ull") - 1)); (dpi)->
len += sizeof ("ull") - 1; } else d_print_append_buffer ((dpi
), (("ull")), (sizeof ("ull") - 1)); } while (0);
	break;
      }
    return;
  }
break;

     case D_PRINT_BOOL:
if (d_right (dc)((dc)->u.s_binary.right)->type == DEMANGLE_COMPONENT_NAME
    && d_right (dc)((dc)->u.s_binary.right)->u.s_name.len == 1
    && dc->type == DEMANGLE_COMPONENT_LITERAL)
  {
    switch (d_right (dc)((dc)->u.s_binary.right)->u.s_name.s[0])
      {
      case '0':
	d_append_string_constant (dpi, "false")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("false") - 1) <= (dpi)->alc) { memcpy ((dpi
)->buf + (dpi)->len, (("false")), (sizeof ("false") - 1
)); (dpi)->len += sizeof ("false") - 1; } else d_print_append_buffer
 ((dpi), (("false")), (sizeof ("false") - 1)); } while (0);
	return;
      case '1':
	d_append_string_constant (dpi, "true")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("true") - 1) <= (dpi)->alc) { memcpy ((dpi)
->buf + (dpi)->len, (("true")), (sizeof ("true") - 1));
 (dpi)->len += sizeof ("true") - 1; } else d_print_append_buffer
 ((dpi), (("true")), (sizeof ("true") - 1)); } while (0);
	return;
      default:
	break;
      }
  }
break;

     default:
break;
     }
 }

d_append_char (dpi, '(')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('('); else
 d_print_append_char ((dpi), ('(')); } while (0);
d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
d_append_char (dpi, ')')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (')'); else
 d_print_append_char ((dpi), (')')); } while (0);
if (dc->type == DEMANGLE_COMPONENT_LITERAL_NEG)
 d_append_char (dpi, '-')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('-'); else
 d_print_append_char ((dpi), ('-')); } while (0);
if (tp == D_PRINT_FLOAT)
 d_append_char (dpi, '[')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('['); else
 d_print_append_char ((dpi), ('[')); } while (0);
d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));
if (tp == D_PRINT_FLOAT)
 d_append_char (dpi, ']')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (']'); else
 d_print_append_char ((dpi), (']')); } while (0);
    }
    return;

  default:
    d_print_error (dpi);
    return;
  }
3358}

3360/* Print a Java dentifier.  For Java we try to handle encoded extended
 Unicode characters.  The C++ ABI doesn't mention Unicode encoding,
 so we don't it for C++.  Characters are encoded as
 __U<hex-char>+_.  */

3365static void
3366d_print_java_identifier (struct d_print_info *dpi, const char *name, int len)
3367{
const char *p;
const char *end;

end = name + len;
for (p = name; p < end; ++p)
  {
    if (end - p > 3
 && p[0] == '_'
 && p[1] == '_'
 && p[2] == 'U')
{
 unsigned long c;
 const char *q;

 c = 0;
 for (q = p + 3; q < end; ++q)
   {
     int dig;

     if (IS_DIGIT (*q)((*q) >= '0' && (*q) <= '9'))
dig = *q - '0';
     else if (*q >= 'A' && *q <= 'F')
dig = *q - 'A' + 10;
     else if (*q >= 'a' && *q <= 'f')
dig = *q - 'a' + 10;
     else
break;

     c = c * 16 + dig;
   }
 /* If the Unicode character is larger than 256, we don't try
    to deal with it here.  FIXME.  */
 if (q < end && *q == '_' && c < 256)
   {
     d_append_char (dpi, c)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (c); else
 d_print_append_char ((dpi), (c)); } while (0);
     p = q;
     continue;
   }
}

    d_append_char (dpi, *p)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (*p); else
 d_print_append_char ((dpi), (*p)); } while (0);
  }
3410}

3412/* Print a list of modifiers.  SUFFIX is 1 if we are printing
 qualifiers on this after printing a function.  */

3415static void
3416d_print_mod_list (struct d_print_info *dpi,
                struct d_print_mod *mods, int suffix)
3418{
struct d_print_template *hold_dpt;

if (mods == NULL((void*)0) || d_print_saw_error (dpi)((dpi)->buf == ((void*)0)))
  return;

if (mods->printed
    || (! suffix
 && (mods->mod->type == DEMANGLE_COMPONENT_RESTRICT_THIS
     || mods->mod->type == DEMANGLE_COMPONENT_VOLATILE_THIS
     || mods->mod->type == DEMANGLE_COMPONENT_CONST_THIS)))
  {
    d_print_mod_list (dpi, mods->next, suffix);
    return;
  }

mods->printed = 1;

hold_dpt = dpi->templates;
dpi->templates = mods->templates;

if (mods->mod->type == DEMANGLE_COMPONENT_FUNCTION_TYPE)
  {
    d_print_function_type (dpi, mods->mod, mods->next);
    dpi->templates = hold_dpt;
    return;
  }
else if (mods->mod->type == DEMANGLE_COMPONENT_ARRAY_TYPE)
  {
    d_print_array_type (dpi, mods->mod, mods->next);
    dpi->templates = hold_dpt;
    return;
  }
else if (mods->mod->type == DEMANGLE_COMPONENT_LOCAL_NAME)
  {
    struct d_print_mod *hold_modifiers;
    struct demangle_component *dc;

    /* When this is on the modifier stack, we have pulled any
qualifiers off the right argument already.  Otherwise, we
print it as usual, but don't let the left argument see any
modifiers.  */

    hold_modifiers = dpi->modifiers;
    dpi->modifiers = NULL((void*)0);
    d_print_comp (dpi, d_left (mods->mod)((mods->mod)->u.s_binary.left));
    dpi->modifiers = hold_modifiers;

    if ((dpi->options & DMGL_JAVA(1 << 2)) == 0)
d_append_string_constant (dpi, "::")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("::") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, (("::")), (sizeof ("::") - 1)); (dpi)->
len += sizeof ("::") - 1; } else d_print_append_buffer ((dpi)
, (("::")), (sizeof ("::") - 1)); } while (0);
    else
d_append_char (dpi, '.')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('.'); else
 d_print_append_char ((dpi), ('.')); } while (0);

    dc = d_right (mods->mod)((mods->mod)->u.s_binary.right);
    while (dc->type == DEMANGLE_COMPONENT_RESTRICT_THIS
    || dc->type == DEMANGLE_COMPONENT_VOLATILE_THIS
    || dc->type == DEMANGLE_COMPONENT_CONST_THIS)
dc = d_left (dc)((dc)->u.s_binary.left);

    d_print_comp (dpi, dc);

    dpi->templates = hold_dpt;
    return;
  }

d_print_mod (dpi, mods->mod);

dpi->templates = hold_dpt;

d_print_mod_list (dpi, mods->next, suffix);
3488}

3490/* Print a modifier.  */

3492static void
3493d_print_mod (struct d_print_info *dpi,
           const struct demangle_component *mod)
3495{
switch (mod->type)
  {
  case DEMANGLE_COMPONENT_RESTRICT:
  case DEMANGLE_COMPONENT_RESTRICT_THIS:
    d_append_string_constant (dpi, " restrict")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (" restrict") - 1) <= (dpi)->alc) { memcpy (
(dpi)->buf + (dpi)->len, ((" restrict")), (sizeof (" restrict"
) - 1)); (dpi)->len += sizeof (" restrict") - 1; } else d_print_append_buffer
 ((dpi), ((" restrict")), (sizeof (" restrict") - 1)); } while
 (0);
    return;
  case DEMANGLE_COMPONENT_VOLATILE:
  case DEMANGLE_COMPONENT_VOLATILE_THIS:
    d_append_string_constant (dpi, " volatile")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (" volatile") - 1) <= (dpi)->alc) { memcpy (
(dpi)->buf + (dpi)->len, ((" volatile")), (sizeof (" volatile"
) - 1)); (dpi)->len += sizeof (" volatile") - 1; } else d_print_append_buffer
 ((dpi), ((" volatile")), (sizeof (" volatile") - 1)); } while
 (0);
    return;
  case DEMANGLE_COMPONENT_CONST:
  case DEMANGLE_COMPONENT_CONST_THIS:
    d_append_string_constant (dpi, " const")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (" const") - 1) <= (dpi)->alc) { memcpy ((dpi
)->buf + (dpi)->len, ((" const")), (sizeof (" const") -
 1)); (dpi)->len += sizeof (" const") - 1; } else d_print_append_buffer
 ((dpi), ((" const")), (sizeof (" const") - 1)); } while (0);
    return;
  case DEMANGLE_COMPONENT_VENDOR_TYPE_QUAL:
    d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
    d_print_comp (dpi, d_right (mod)((mod)->u.s_binary.right));
    return;
  case DEMANGLE_COMPONENT_POINTER:
    /* There is no pointer symbol in Java.  */
    if ((dpi->options & DMGL_JAVA(1 << 2)) == 0)
d_append_char (dpi, '*')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('*'); else
 d_print_append_char ((dpi), ('*')); } while (0);
    return;
  case DEMANGLE_COMPONENT_REFERENCE:
    d_append_char (dpi, '&')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('&'
); else d_print_append_char ((dpi), ('&')); } while (0);
    return;
  case DEMANGLE_COMPONENT_COMPLEX:
    d_append_string_constant (dpi, "complex ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("complex ") - 1) <= (dpi)->alc) { memcpy ((
dpi)->buf + (dpi)->len, (("complex ")), (sizeof ("complex "
) - 1)); (dpi)->len += sizeof ("complex ") - 1; } else d_print_append_buffer
 ((dpi), (("complex ")), (sizeof ("complex ") - 1)); } while (
0);
    return;
  case DEMANGLE_COMPONENT_IMAGINARY:
    d_append_string_constant (dpi, "imaginary ")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("imaginary ") - 1) <= (dpi)->alc) { memcpy (
(dpi)->buf + (dpi)->len, (("imaginary ")), (sizeof ("imaginary "
) - 1)); (dpi)->len += sizeof ("imaginary ") - 1; } else d_print_append_buffer
 ((dpi), (("imaginary ")), (sizeof ("imaginary ") - 1)); } while
 (0);
    return;
  case DEMANGLE_COMPONENT_PTRMEM_TYPE:
    if (d_last_char (dpi)((dpi)->buf == ((void*)0) || (dpi)->len == 0 ? '\0' : (
dpi)->buf[(dpi)->len - 1]) != '(')
d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
    d_print_comp (dpi, d_left (mod)((mod)->u.s_binary.left));
    d_append_string_constant (dpi, "::*")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof ("::*") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, (("::*")), (sizeof ("::*") - 1)); (dpi)->
len += sizeof ("::*") - 1; } else d_print_append_buffer ((dpi
), (("::*")), (sizeof ("::*") - 1)); } while (0);
    return;
  case DEMANGLE_COMPONENT_TYPED_NAME:
    d_print_comp (dpi, d_left (mod)((mod)->u.s_binary.left));
    return;
  default:
    /* Otherwise, we have something that won't go back on the
modifier stack, so we can just print it.  */
    d_print_comp (dpi, mod);
    return;
  }
3543}

3545/* Print a function type, except for the return type.  */

3547static void
3548d_print_function_type (struct d_print_info *dpi,
                     const struct demangle_component *dc,
                     struct d_print_mod *mods)
3551{
int need_paren;
int saw_mod;
int need_space;
struct d_print_mod *p;
struct d_print_mod *hold_modifiers;

need_paren = 0;
saw_mod = 0;
need_space = 0;
for (p = mods; p != NULL((void*)0); p = p->next)
  {
    if (p->printed)
break;

    saw_mod = 1;
    switch (p->mod->type)
{
case DEMANGLE_COMPONENT_POINTER:
case DEMANGLE_COMPONENT_REFERENCE:
 need_paren = 1;
 break;
case DEMANGLE_COMPONENT_RESTRICT:
case DEMANGLE_COMPONENT_VOLATILE:
case DEMANGLE_COMPONENT_CONST:
case DEMANGLE_COMPONENT_VENDOR_TYPE_QUAL:
case DEMANGLE_COMPONENT_COMPLEX:
case DEMANGLE_COMPONENT_IMAGINARY:
case DEMANGLE_COMPONENT_PTRMEM_TYPE:
 need_space = 1;
 need_paren = 1;
 break;
case DEMANGLE_COMPONENT_RESTRICT_THIS:
case DEMANGLE_COMPONENT_VOLATILE_THIS:
case DEMANGLE_COMPONENT_CONST_THIS:
 break;
default:
 break;
}
    if (need_paren)
break;
  }

if (d_left (dc)((dc)->u.s_binary.left) != NULL((void*)0) && ! saw_mod)
  need_paren = 1;

if (need_paren)
  {
    if (! need_space)
{
 if (d_last_char (dpi)((dpi)->buf == ((void*)0) || (dpi)->len == 0 ? '\0' : (
dpi)->buf[(dpi)->len - 1]) != '('
     && d_last_char (dpi)((dpi)->buf == ((void*)0) || (dpi)->len == 0 ? '\0' : (
dpi)->buf[(dpi)->len - 1]) != '*')
   need_space = 1;
}
    if (need_space && d_last_char (dpi)((dpi)->buf == ((void*)0) || (dpi)->len == 0 ? '\0' : (
dpi)->buf[(dpi)->len - 1]) != ' ')
d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
    d_append_char (dpi, '(')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('('); else
 d_print_append_char ((dpi), ('(')); } while (0);
  }

hold_modifiers = dpi->modifiers;
dpi->modifiers = NULL((void*)0);

d_print_mod_list (dpi, mods, 0);

if (need_paren)
  d_append_char (dpi, ')')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (')'); else
 d_print_append_char ((dpi), (')')); } while (0);

d_append_char (dpi, '(')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('('); else
 d_print_append_char ((dpi), ('(')); } while (0);

if (d_right (dc)((dc)->u.s_binary.right) != NULL((void*)0))
  d_print_comp (dpi, d_right (dc)((dc)->u.s_binary.right));

d_append_char (dpi, ')')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (')'); else
 d_print_append_char ((dpi), (')')); } while (0);

d_print_mod_list (dpi, mods, 1);

dpi->modifiers = hold_modifiers;
3628}

3630/* Print an array type, except for the element type.  */

3632static void
3633d_print_array_type (struct d_print_info *dpi,
                  const struct demangle_component *dc,
                  struct d_print_mod *mods)
3636{
int need_space;

need_space = 1;
if (mods != NULL((void*)0))
  {
    int need_paren;
    struct d_print_mod *p;

    need_paren = 0;
    for (p = mods; p != NULL((void*)0); p = p->next)
{
 if (! p->printed)
   {
     if (p->mod->type == DEMANGLE_COMPONENT_ARRAY_TYPE)
{
  need_space = 0;
  break;
}
     else
{
  need_paren = 1;
  need_space = 1;
  break;
}
   }
}

    if (need_paren)
d_append_string_constant (dpi, " (")do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (sizeof (" (") - 1) <= (dpi)->alc) { memcpy ((dpi)->
buf + (dpi)->len, ((" (")), (sizeof (" (") - 1)); (dpi)->
len += sizeof (" (") - 1; } else d_print_append_buffer ((dpi)
, ((" (")), (sizeof (" (") - 1)); } while (0);

    d_print_mod_list (dpi, mods, 0);

    if (need_paren)
d_append_char (dpi, ')')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (')'); else
 d_print_append_char ((dpi), (')')); } while (0);
  }

if (need_space)
  d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);

d_append_char (dpi, '[')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('['); else
 d_print_append_char ((dpi), ('[')); } while (0);

if (d_left (dc)((dc)->u.s_binary.left) != NULL((void*)0))
  d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));

d_append_char (dpi, ']')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (']'); else
 d_print_append_char ((dpi), (']')); } while (0);
3682}

3684/* Print an operator in an expression.  */

3686static void
3687d_print_expr_op (struct d_print_info *dpi,
               const struct demangle_component *dc)
3689{
if (dc->type == DEMANGLE_COMPONENT_OPERATOR)
  d_append_buffer (dpi, dc->u.s_operator.op->name,do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_operator.op->len) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (dc->u.s_operator.op->
name), (dc->u.s_operator.op->len)); (dpi)->len += dc
->u.s_operator.op->len; } else d_print_append_buffer ((
dpi), (dc->u.s_operator.op->name), (dc->u.s_operator
.op->len)); } while (0)
     dc->u.s_operator.op->len)do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 + (dc->u.s_operator.op->len) <= (dpi)->alc) { memcpy
 ((dpi)->buf + (dpi)->len, (dc->u.s_operator.op->
name), (dc->u.s_operator.op->len)); (dpi)->len += dc
->u.s_operator.op->len; } else d_print_append_buffer ((
dpi), (dc->u.s_operator.op->name), (dc->u.s_operator
.op->len)); } while (0);
else
  d_print_comp (dpi, dc);
3695}

3697/* Print a cast.  */

3699static void
3700d_print_cast (struct d_print_info *dpi,
            const struct demangle_component *dc)
3702{
if (d_left (dc)((dc)->u.s_binary.left)->type != DEMANGLE_COMPONENT_TEMPLATE)
  d_print_comp (dpi, d_left (dc)((dc)->u.s_binary.left));
else
  {
    struct d_print_mod *hold_dpm;
    struct d_print_template dpt;

    /* It appears that for a templated cast operator, we need to put
the template parameters in scope for the operator name, but
not for the parameters.  The effect is that we need to handle
the template printing here.  */

    hold_dpm = dpi->modifiers;
    dpi->modifiers = NULL((void*)0);

    dpt.next = dpi->templates;
    dpi->templates = &dpt;
    dpt.template_decl = d_left (dc)((dc)->u.s_binary.left);

    d_print_comp (dpi, d_left (d_left (dc))((((dc)->u.s_binary.left))->u.s_binary.left));

    dpi->templates = dpt.next;

    if (d_last_char (dpi)((dpi)->buf == ((void*)0) || (dpi)->len == 0 ? '\0' : (
dpi)->buf[(dpi)->len - 1]) == '<')
d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
    d_append_char (dpi, '<')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('<'
); else d_print_append_char ((dpi), ('<')); } while (0);
    d_print_comp (dpi, d_right (d_left (dc))((((dc)->u.s_binary.left))->u.s_binary.right));
    /* Avoid generating two consecutive '>' characters, to avoid
the C++ syntactic ambiguity.  */
    if (d_last_char (dpi)((dpi)->buf == ((void*)0) || (dpi)->len == 0 ? '\0' : (
dpi)->buf[(dpi)->len - 1]) == '>')
d_append_char (dpi, ' ')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = (' '); else
 d_print_append_char ((dpi), (' ')); } while (0);
    d_append_char (dpi, '>')do { if ((dpi)->buf != ((void*)0) && (dpi)->len
 < (dpi)->alc) (dpi)->buf[(dpi)->len++] = ('>'
); else d_print_append_char ((dpi), ('>')); } while (0);

    dpi->modifiers = hold_dpm;
  }
3738}

3740/* Initialize the information structure we use to pass around
 information.  */

3743CP_STATIC_IF_GLIBCPP_V3
3744void
3745cplus_demangle_init_info (const char *mangled, int options, size_t len,
                        struct d_info *di)
3747{
di->s = mangled;
di->send = mangled + len;
di->options = options;

di->n = mangled;

/* We can not need more components than twice the number of chars in
   the mangled string.  Most components correspond directly to
   chars, but the ARGLIST types are exceptions.  */
di->num_comps = 2 * len;
di->next_comp = 0;

/* Similarly, we can not need more substitutions than there are
   chars in the mangled string.  */
di->num_subs = len;
di->next_sub = 0;
di->did_subs = 0;

di->last_name = NULL((void*)0);

di->expansion = 0;
3769}

3771/* Entry point for the demangler.  If MANGLED is a g++ v3 ABI mangled
 name, return a buffer allocated with malloc holding the demangled
 name.  OPTIONS is the usual libiberty demangler options.  On
 success, this sets *PALC to the allocated size of the returned
 buffer.  On failure, this sets *PALC to 0 for a bad name, or 1 for
 a memory allocation failure.  On failure, this returns NULL.  */

3778static char *
3779d_demangle (const char* mangled, int options, size_t *palc)
3780{
size_t len;
int type;
struct d_info di;
struct demangle_component *dc;
int estimate;
char *ret;

*palc = 0;

len = strlen (mangled);

if (mangled[0] == '_' && mangled[1] == 'Z')
  type = 0;
else if (strncmp (mangled, "_GLOBAL_", 8) == 0
  && (mangled[8] == '.' || mangled[8] == '_' || mangled[8] == '$')
  && (mangled[9] == 'D' || mangled[9] == 'I')
  && mangled[10] == '_')
  {
    char *r;
    size_t sz = 40 + len - 11;

    r = (char *) malloc (sz);
    if (r == NULL((void*)0))
*palc = 1;
    else
{
 if (mangled[9] == 'I')
   strlcpy (r, "global constructors keyed to ", sz);
 else
   strlcpy (r, "global destructors keyed to ", sz);
 strlcat (r, mangled + 11, sz);
}
    return r;
  }
else
  {
    if ((options & DMGL_TYPES(1 << 4)) == 0)
return NULL((void*)0);
    type = 1;
  }

cplus_demangle_init_info (mangled, options, len, &di);

{
3825#ifdef CP_DYNAMIC_ARRAYS
  __extension__ struct demangle_component comps[di.num_comps];
  __extension__ struct demangle_component *subs[di.num_subs];

  di.comps = &comps[0];
  di.subs = &subs[0];
3831#else
  di.comps = ((struct demangle_component *)
malloc (di.num_comps * sizeof (struct demangle_component)));
  di.subs = ((struct demangle_component **)
      malloc (di.num_subs * sizeof (struct demangle_component *)));
  if (di.comps == NULL((void*)0) || di.subs == NULL((void*)0))
    {
if (di.comps != NULL((void*)0))
 free (di.comps);
if (di.subs != NULL((void*)0))
 free (di.subs);
*palc = 1;
return NULL((void*)0);
    }
3845#endif

  if (! type)
    dc = cplus_demangle_mangled_name (&di, 1);
  else
    dc = cplus_demangle_type (&di);

  /* If DMGL_PARAMS is set, then if we didn't consume the entire
     mangled string, then we didn't successfully demangle it.  If
     DMGL_PARAMS is not set, we didn't look at the trailing
     parameters.  */
  if (((options & DMGL_PARAMS(1 << 0)) != 0) && d_peek_char (&di)(*((&di)->n)) != '\0')
    dc = NULL((void*)0);

3859#ifdef CP_DEMANGLE_DEBUG
  if (dc == NULL((void*)0))
    printf ("failed demangling\n");
  else
    d_dump (dc, 0);
3864#endif

  /* We try to guess the length of the demangled string, to minimize
     calls to realloc during demangling.  */
  estimate = len + di.expansion + 10 * di.did_subs;
  estimate += estimate / 8;

  ret = NULL((void*)0);
  if (dc != NULL((void*)0))
    ret = cplus_demangle_print (options, dc, estimate, palc);

3875#ifndef CP_DYNAMIC_ARRAYS
  free (di.comps);
  free (di.subs);
3878#endif

3880#ifdef CP_DEMANGLE_DEBUG
  if (ret != NULL((void*)0))
    {
int rlen;

rlen = strlen (ret);
if (rlen > 2 * estimate)
 printf ("*** Length %d much greater than estimate %d\n",
  rlen, estimate);
else if (rlen > estimate)
 printf ("*** Length %d greater than estimate %d\n",
  rlen, estimate);
else if (rlen < estimate / 2)
 printf ("*** Length %d much less than estimate %d\n",
  rlen, estimate);
    }
3896#endif
}

return ret;
3900}

3902#if defined(IN_LIBGCC2) || defined(IN_GLIBCPP_V3)

3904extern char *__cxa_demangle (const char *, char *, size_t *, int *);

3906/* ia64 ABI-mandated entry point in the C++ runtime library for
 performing demangling.  MANGLED_NAME is a NUL-terminated character
 string containing the name to be demangled.

 OUTPUT_BUFFER is a region of memory, allocated with malloc, of
 *LENGTH bytes, into which the demangled name is stored.  If
 OUTPUT_BUFFER is not long enough, it is expanded using realloc.
 OUTPUT_BUFFER may instead be NULL; in that case, the demangled name
 is placed in a region of memory allocated with malloc.

 If LENGTH is non-NULL, the length of the buffer containing the
 demangled name, is placed in *LENGTH.

 The return value is a pointer to the start of the NUL-terminated
 demangled name, or NULL if the demangling fails.  The caller is
 responsible for deallocating this memory using free.

 *STATUS is set to one of the following values:
    0: The demangling operation succeeded.
   -1: A memory allocation failure occurred.
   -2: MANGLED_NAME is not a valid name under the C++ ABI mangling rules.
   -3: One of the arguments is invalid.

 The demangling is performed using the C++ ABI mangling rules, with
 GNU extensions.  */

3932char *
3933__cxa_demangle (const char *mangled_name, char *output_buffer,
              size_t *length, int *status)
3935{
char *demangled;
size_t alc;

if (mangled_name == NULL((void*)0))
  {
    if (status != NULL((void*)0))
*status = -3;
    return NULL((void*)0);
  }

if (output_buffer != NULL((void*)0) && length == NULL((void*)0))
  {
    if (status != NULL((void*)0))
*status = -3;
    return NULL((void*)0);
  }

demangled = d_demangle (mangled_name, DMGL_PARAMS(1 << 0) | DMGL_TYPES(1 << 4), &alc);

if (demangled == NULL((void*)0))
  {
    if (status != NULL((void*)0))
{
 if (alc == 1)
   *status = -1;
 else
   *status = -2;
}
    return NULL((void*)0);
  }

if (output_buffer == NULL((void*)0))
  {
    if (length != NULL((void*)0))
*length = alc;
  }
else
  {
    if (strlen (demangled) < *length)
{
 strlcpy (output_buffer, demangled, *length);
 free (demangled);
 demangled = output_buffer;
}
    else
{
 free (output_buffer);
 *length = alc;
}
  }

if (status != NULL((void*)0))
  *status = 0;

return demangled;
3991}

3993#else /* ! (IN_LIBGCC2 || IN_GLIBCPP_V3) */

3995/* Entry point for libiberty demangler.  If MANGLED is a g++ v3 ABI
 mangled name, return a buffer allocated with malloc holding the
 demangled name.  Otherwise, return NULL.  */

3999char *
4000cplus_demangle_v3 (const char* mangled, int options)
4001{
size_t alc;

return d_demangle (mangled, options, &alc);
4005}

4007/* Demangle a Java symbol.  Java uses a subset of the V3 ABI C++ mangling 
 conventions, but the output formatting is a little different.
 This instructs the C++ demangler not to emit pointer characters ("*"), and 
 to use Java's namespace separator symbol ("." instead of "::").  It then 
 does an additional pass over the demangled output to replace instances 
 of JArray<TYPE> with TYPE[].  */

4014char *
4015java_demangle_v3 (const char* mangled)
4016{
size_t alc;
char *demangled;
int nesting;
char *from;
char *to;

demangled = d_demangle (mangled, DMGL_JAVA(1 << 2) | DMGL_PARAMS(1 << 0) | DMGL_RET_POSTFIX(1 << 5), 
	  &alc);

if (demangled == NULL((void*)0))
  return NULL((void*)0);

nesting = 0;
from = demangled;
to = from;
while (*from != '\0')
  {
    if (strncmp (from, "JArray<", 7) == 0)
{
 from += 7;
 ++nesting;
}
    else if (nesting > 0 && *from == '>')
{
 while (to > demangled && to[-1] == ' ')
   --to;
 *to++ = '[';
 *to++ = ']';
 --nesting;
 ++from;
}
    else
*to++ = *from++;
  }

*to = '\0';

return demangled;
4055}

4057#endif /* IN_LIBGCC2 || IN_GLIBCPP_V3 */

4059#ifndef IN_GLIBCPP_V3

4061/* Demangle a string in order to find out whether it is a constructor
 or destructor.  Return non-zero on success.  Set *CTOR_KIND and
 *DTOR_KIND appropriately.  */

4065static int
4066is_ctor_or_dtor (const char *mangled,
               enum gnu_v3_ctor_kinds *ctor_kind,
               enum gnu_v3_dtor_kinds *dtor_kind)
4069{
struct d_info di;
struct demangle_component *dc;
int ret;

*ctor_kind = (enum gnu_v3_ctor_kinds) 0;
*dtor_kind = (enum gnu_v3_dtor_kinds) 0;

cplus_demangle_init_info (mangled, DMGL_GNU_V3(1 << 14), strlen (mangled), &di);

{
4080#ifdef CP_DYNAMIC_ARRAYS
  __extension__ struct demangle_component comps[di.num_comps];
  __extension__ struct demangle_component *subs[di.num_subs];

  di.comps = &comps[0];
  di.subs = &subs[0];
4086#else
  di.comps = ((struct demangle_component *)
malloc (di.num_comps * sizeof (struct demangle_component)));
  di.subs = ((struct demangle_component **)
      malloc (di.num_subs * sizeof (struct demangle_component *)));
  if (di.comps == NULL((void*)0) || di.subs == NULL((void*)0))
    {
if (di.comps != NULL((void*)0))
 free (di.comps);
if (di.subs != NULL((void*)0))
 free (di.subs);
return 0;
    }
4099#endif

  dc = cplus_demangle_mangled_name (&di, 1);

  /* Note that because we did not pass DMGL_PARAMS, we don't expect
     to demangle the entire string.  */

  ret = 0;
  while (dc != NULL((void*)0))
    {
switch (dc->type)
 {
 default:
   dc = NULL((void*)0);
   break;
 case DEMANGLE_COMPONENT_TYPED_NAME:
 case DEMANGLE_COMPONENT_TEMPLATE:
 case DEMANGLE_COMPONENT_RESTRICT_THIS:
 case DEMANGLE_COMPONENT_VOLATILE_THIS:
 case DEMANGLE_COMPONENT_CONST_THIS:
   dc = d_left (dc)((dc)->u.s_binary.left);
   break;
 case DEMANGLE_COMPONENT_QUAL_NAME:
 case DEMANGLE_COMPONENT_LOCAL_NAME:
   dc = d_right (dc)((dc)->u.s_binary.right);
   break;
 case DEMANGLE_COMPONENT_CTOR:
   *ctor_kind = dc->u.s_ctor.kind;
   ret = 1;
   dc = NULL((void*)0);
   break;
 case DEMANGLE_COMPONENT_DTOR:
   *dtor_kind = dc->u.s_dtor.kind;
   ret = 1;
   dc = NULL((void*)0);
   break;
 }
    }

4138#ifndef CP_DYNAMIC_ARRAYS
  free (di.subs);
  free (di.comps);
4141#endif
}

return ret;
4145}

4147/* Return whether NAME is the mangled form of a g++ V3 ABI constructor
 name.  A non-zero return indicates the type of constructor.  */

4150enum gnu_v3_ctor_kinds
4151is_gnu_v3_mangled_ctor (const char *name)
4152{
enum gnu_v3_ctor_kinds ctor_kind;
enum gnu_v3_dtor_kinds dtor_kind;

if (! is_ctor_or_dtor (name, &ctor_kind, &dtor_kind))
  return (enum gnu_v3_ctor_kinds) 0;
return ctor_kind;
4159}


4162/* Return whether NAME is the mangled form of a g++ V3 ABI destructor
 name.  A non-zero return indicates the type of destructor.  */

4165enum gnu_v3_dtor_kinds
4166is_gnu_v3_mangled_dtor (const char *name)
4167{
enum gnu_v3_ctor_kinds ctor_kind;
enum gnu_v3_dtor_kinds dtor_kind;

if (! is_ctor_or_dtor (name, &ctor_kind, &dtor_kind))
  return (enum gnu_v3_dtor_kinds) 0;
return dtor_kind;
4174}

4176#endif /* IN_GLIBCPP_V3 */

4178#ifdef STANDALONE_DEMANGLER

4180#include "getopt.h"
4181#include "dyn-string.h"

4183static void print_usage (FILE* fp, int exit_value);

4185#define IS_ALPHA(CHAR)                                                  \
(((CHAR) >= 'a' && (CHAR) <= 'z')                                     \
 || ((CHAR) >= 'A' && (CHAR) <= 'Z'))

4189/* Non-zero if CHAR is a character than can occur in a mangled name.  */
4190#define is_mangled_char(CHAR)                                           \
(IS_ALPHA (CHAR) || IS_DIGIT (CHAR)((CHAR) >= '0' && (CHAR) <= '9')                                   \
 || (CHAR) == '_' || (CHAR) == '.' || (CHAR) == '$')

4194/* The name of this program, as invoked.  */
4195const char* program_name;

4197/* Prints usage summary to FP and then exits with EXIT_VALUE.  */

4199static void
4200print_usage (FILE* fp, int exit_value)
4201{
fprintf (fp, "Usage: %s [options] [names ...]\n", program_name);
fprintf (fp, "Options:\n");
fprintf (fp, "  -h,--help       Display this message.\n");
fprintf (fp, "  -p,--no-params  Don't display function parameters\n");
fprintf (fp, "  -v,--verbose    Produce verbose demanglings.\n");
fprintf (fp, "If names are provided, they are demangled.  Otherwise filters standard input.\n");

exit (exit_value);
4210}

4212/* Option specification for getopt_long.  */
4213static const struct option long_options[] = 
4214{
{ "help",	 no_argument, NULL((void*)0), 'h' },
{ "no-params", no_argument, NULL((void*)0), 'p' },
{ "verbose",   no_argument, NULL((void*)0), 'v' },
{ NULL((void*)0),        no_argument, NULL((void*)0), 0   },
4219};

4221/* Main entry for a demangling filter executable.  It will demangle
 its command line arguments, if any.  If none are provided, it will
 filter stdin to stdout, replacing any recognized mangled C++ names
 with their demangled equivalents.  */

4226int
4227main (int argc, char *argv[])
4228{
int i;
int opt_char;
int options = DMGL_PARAMS(1 << 0) | DMGL_ANSI(1 << 1) | DMGL_TYPES(1 << 4);

/* Use the program name of this program, as invoked.  */
program_name = argv[0];

/* Parse options.  */
do 
  {
    opt_char = getopt_long (argc, argv, "hpv", long_options, NULL((void*)0));
    switch (opt_char)
{
case '?':  /* Unrecognized option.  */
 print_usage (stderr(&__sF[2]), 1);
 break;

case 'h':
 print_usage (stdout(&__sF[1]), 0);
 break;

case 'p':
 options &= ~ DMGL_PARAMS(1 << 0);
 break;

case 'v':
 options |= DMGL_VERBOSE(1 << 3);
 break;
}
  }
while (opt_char != -1);

if (optind == argc) 
  /* No command line arguments were provided.  Filter stdin.  */
  {
    dyn_string_t mangled = dyn_string_new (3);
    char *s;

    /* Read all of input.  */
    while (!feof (stdin)(!__isthreaded ? ((((&__sF[0]))->_flags & 0x0020) !=
 0) : (feof)((&__sF[0]))))
{
 char c;

 /* Pile characters into mangled until we hit one that can't
    occur in a mangled name.  */
 c = getchar ()(!__isthreaded ? (--((&__sF[0]))->_r < 0 ? __srget(
(&__sF[0])) : (int)(*((&__sF[0]))->_p++)) : (getc)
((&__sF[0])));
 while (!feof (stdin)(!__isthreaded ? ((((&__sF[0]))->_flags & 0x0020) !=
 0) : (feof)((&__sF[0]))) && is_mangled_char (c))
   {
     dyn_string_append_char (mangled, c);
     if (feof (stdin)(!__isthreaded ? ((((&__sF[0]))->_flags & 0x0020) !=
 0) : (feof)((&__sF[0]))))
break;
     c = getchar ()(!__isthreaded ? (--((&__sF[0]))->_r < 0 ? __srget(
(&__sF[0])) : (int)(*((&__sF[0]))->_p++)) : (getc)
((&__sF[0])));
   }

 if (dyn_string_length (mangled) > 0)
   {
4285#ifdef IN_GLIBCPP_V3
     s = __cxa_demangle (dyn_string_buf (mangled), NULL((void*)0), NULL((void*)0), NULL((void*)0));
4287#else
     s = cplus_demangle_v3 (dyn_string_buf (mangled), options);
4289#endif

     if (s != NULL((void*)0))
{
  fputs (s, stdout(&__sF[1]));
  free (s);
}
     else
{
  /* It might not have been a mangled name.  Print the
     original text.  */
  fputs (dyn_string_buf (mangled), stdout(&__sF[1]));
}

     dyn_string_clear (mangled);
   }

 /* If we haven't hit EOF yet, we've read one character that
    can't occur in a mangled name, so print it out.  */
 if (!feof (stdin)(!__isthreaded ? ((((&__sF[0]))->_flags & 0x0020) !=
 0) : (feof)((&__sF[0]))))
   putchar (c)(!__isthreaded ? __sputc(c, (&__sF[1])) : (putc)(c, (&
__sF[1])));
}

    dyn_string_delete (mangled);
  }
else
  /* Demangle command line arguments.  */
  {
    /* Loop over command line arguments.  */
    for (i = optind; i < argc; ++i)
{
 char *s;
4321#ifdef IN_GLIBCPP_V3
 int status;
4323#endif

 /* Attempt to demangle.  */
4326#ifdef IN_GLIBCPP_V3
 s = __cxa_demangle (argv[i], NULL((void*)0), NULL((void*)0), &status);
4328#else
 s = cplus_demangle_v3 (argv[i], options);
4330#endif

 /* If it worked, print the demangled name.  */
 if (s != NULL((void*)0))
   {
     printf ("%s\n", s);
     free (s);
   }
 else
   {
4340#ifdef IN_GLIBCPP_V3
     fprintf (stderr(&__sF[2]), "Failed: %s (status %d)\n", argv[i], status);
4342#else
     fprintf (stderr(&__sF[2]), "Failed: %s\n", argv[i]);
4344#endif
   }
}
  }

return 0;
4350}

4352#endif /* STANDALONE_DEMANGLER */