gcc/cp/error.c

   1 /* Call-backs for C++ error reporting.
   2    This code is non-reentrant.
   3    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002,
   4    2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
   5    This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 3, or (at your option)
  10 any later version.
  11
  12 GCC is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING3.  If not see
  19 <http://www.gnu.org/licenses/>.  */
  20
  21 #include "config.h"
  22 #include "system.h"
  23 #include "coretypes.h"
  24 #include "tm.h"
  25 #include "tree.h"
  26 #include "cp-tree.h"
  27 #include "real.h"
  28 #include "toplev.h"
  29 #include "flags.h"
  30 #include "diagnostic.h"
  31 #include "langhooks-def.h"
  32 #include "cxx-pretty-print.h"
  33
  34 #define pp_separate_with_comma(PP) pp_cxx_separate_with (PP, ',')
  35
  36 /* The global buffer where we dump everything.  It is there only for
  37    transitional purpose.  It is expected, in the near future, to be
  38    completely removed.  */
  39 static cxx_pretty_printer scratch_pretty_printer;
  40 #define cxx_pp (&scratch_pretty_printer)
  41
  42 # define NEXT_CODE(T) (TREE_CODE (TREE_TYPE (T)))
  43
  44 static const char *args_to_string (tree, int);
  45 static const char *assop_to_string (enum tree_code);
  46 static const char *code_to_string (enum tree_code);
  47 static const char *cv_to_string (tree, int);
  48 static const char *decl_to_string (tree, int);
  49 static const char *expr_to_string (tree);
  50 static const char *fndecl_to_string (tree, int);
  51 static const char *op_to_string (enum tree_code);
  52 static const char *parm_to_string (int);
  53 static const char *type_to_string (tree, int);
  54
  55 static void dump_type (tree, int);
  56 static void dump_typename (tree, int);
  57 static void dump_simple_decl (tree, tree, int);
  58 static void dump_decl (tree, int);
  59 static void dump_template_decl (tree, int);
  60 static void dump_function_decl (tree, int);
  61 static void dump_expr (tree, int);
  62 static void dump_unary_op (const char *, tree, int);
  63 static void dump_binary_op (const char *, tree, int);
  64 static void dump_aggr_type (tree, int);
  65 static void dump_type_prefix (tree, int);
  66 static void dump_type_suffix (tree, int);
  67 static void dump_function_name (tree, int);
  68 static void dump_call_expr_args (tree, int, bool);
  69 static void dump_aggr_init_expr_args (tree, int, bool);
  70 static void dump_expr_list (tree, int);
  71 static void dump_global_iord (tree);
  72 static void dump_parameters (tree, int);
  73 static void dump_exception_spec (tree, int);
  74 static void dump_template_argument (tree, int);
  75 static void dump_template_argument_list (tree, int);
  76 static void dump_template_parameter (tree, int);
  77 static void dump_template_bindings (tree, tree);
  78 static void dump_scope (tree, int);
  79 static void dump_template_parms (tree, int, int);
  80
  81 static const char *function_category (tree);
  82 static void maybe_print_instantiation_context (diagnostic_context *);
  83 static void print_instantiation_full_context (diagnostic_context *);
  84 static void print_instantiation_partial_context (diagnostic_context *,
  85                                                  struct tinst_level *,
  86                                                  location_t);
  87 static void cp_diagnostic_starter (diagnostic_context *, diagnostic_info *);
  88 static void cp_diagnostic_finalizer (diagnostic_context *, diagnostic_info *);
  89 static void cp_print_error_function (diagnostic_context *, diagnostic_info *);
  90
  91 static bool cp_printer (pretty_printer *, text_info *, const char *,
  92                         int, bool, bool, bool);
  93 static location_t location_of (tree);
  94
  95 void
  96 init_error (void)
  97 {
  98   diagnostic_starter (global_dc) = cp_diagnostic_starter;
  99   diagnostic_finalizer (global_dc) = cp_diagnostic_finalizer;
 100   diagnostic_format_decoder (global_dc) = cp_printer;
 101
 102   pp_construct (pp_base (cxx_pp), NULL, 0);
 103   pp_cxx_pretty_printer_init (cxx_pp);
 104 }
 105
 106 /* Dump a scope, if deemed necessary.  */
 107
 108 static void
 109 dump_scope (tree scope, int flags)
 110 {
 111   int f = ~TFF_RETURN_TYPE & (flags & (TFF_SCOPE | TFF_CHASE_TYPEDEF));
 112
 113   if (scope == NULL_TREE)
 114     return;
 115
 116   if (TREE_CODE (scope) == NAMESPACE_DECL)
 117     {
 118       if (scope != global_namespace)
 119         {
 120           dump_decl (scope, f);
 121           pp_cxx_colon_colon (cxx_pp);
 122         }
 123     }
 124   else if (AGGREGATE_TYPE_P (scope))
 125     {
 126       dump_type (scope, f);
 127       pp_cxx_colon_colon (cxx_pp);
 128     }
 129   else if ((flags & TFF_SCOPE) && TREE_CODE (scope) == FUNCTION_DECL)
 130     {
 131       dump_function_decl (scope, f);
 132       pp_cxx_colon_colon (cxx_pp);
 133     }
 134 }
 135
 136 /* Dump the template ARGument under control of FLAGS.  */
 137
 138 static void
 139 dump_template_argument (tree arg, int flags)
 140 {
 141   if (ARGUMENT_PACK_P (arg))
 142     dump_template_argument_list (ARGUMENT_PACK_ARGS (arg), flags);
 143   else if (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL)
 144     dump_type (arg, flags & ~TFF_CLASS_KEY_OR_ENUM);
 145   else
 146     {
 147       if (TREE_CODE (arg) == TREE_LIST)
 148         arg = TREE_VALUE (arg);
 149
 150       dump_expr (arg, (flags | TFF_EXPR_IN_PARENS) & ~TFF_CLASS_KEY_OR_ENUM);
 151     }
 152 }
 153
 154 /* Dump a template-argument-list ARGS (always a TREE_VEC) under control
 155    of FLAGS.  */
 156
 157 static void
 158 dump_template_argument_list (tree args, int flags)
 159 {
 160   int n = TREE_VEC_LENGTH (args);
 161   int need_comma = 0;
 162   int i;
 163
 164   for (i = 0; i< n; ++i)
 165     {
 166       tree arg = TREE_VEC_ELT (args, i);
 167
 168       /* Only print a comma if we know there is an argument coming. In
 169          the case of an empty template argument pack, no actual
 170          argument will be printed.  */
 171       if (need_comma
 172           && (!ARGUMENT_PACK_P (arg)
 173               || TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg)) > 0))
 174         pp_separate_with_comma (cxx_pp);
 175
 176       dump_template_argument (arg, flags);
 177       need_comma = 1;
 178     }
 179 }
 180
 181 /* Dump a template parameter PARM (a TREE_LIST) under control of FLAGS.  */
 182
 183 static void
 184 dump_template_parameter (tree parm, int flags)
 185 {
 186   tree p;
 187   tree a;
 188
 189   if (parm == error_mark_node)
 190    return;
 191
 192   p = TREE_VALUE (parm);
 193   a = TREE_PURPOSE (parm);
 194
 195   if (TREE_CODE (p) == TYPE_DECL)
 196     {
 197       if (flags & TFF_DECL_SPECIFIERS)
 198         {
 199           pp_cxx_identifier (cxx_pp, "class");
 200           if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (p)))
 201             pp_cxx_identifier (cxx_pp, "...");
 202           if (DECL_NAME (p))
 203             pp_cxx_tree_identifier (cxx_pp, DECL_NAME (p));
 204         }
 205       else if (DECL_NAME (p))
 206         pp_cxx_tree_identifier (cxx_pp, DECL_NAME (p));
 207       else
 208         pp_cxx_canonical_template_parameter (cxx_pp, TREE_TYPE (p));
 209     }
 210   else
 211     dump_decl (p, flags | TFF_DECL_SPECIFIERS);
 212
 213   if ((flags & TFF_FUNCTION_DEFAULT_ARGUMENTS) && a != NULL_TREE)
 214     {
 215       pp_cxx_whitespace (cxx_pp);
 216       pp_equal (cxx_pp);
 217       pp_cxx_whitespace (cxx_pp);
 218       if (TREE_CODE (p) == TYPE_DECL || TREE_CODE (p) == TEMPLATE_DECL)
 219         dump_type (a, flags & ~TFF_CHASE_TYPEDEF);
 220       else
 221         dump_expr (a, flags | TFF_EXPR_IN_PARENS);
 222     }
 223 }
 224
 225 /* Dump, under control of FLAGS, a template-parameter-list binding.
 226    PARMS is a TREE_LIST of TREE_VEC of TREE_LIST and ARGS is a
 227    TREE_VEC.  */
 228
 229 static void
 230 dump_template_bindings (tree parms, tree args)
 231 {
 232   int need_comma = 0;
 233
 234   while (parms)
 235     {
 236       tree p = TREE_VALUE (parms);
 237       int lvl = TMPL_PARMS_DEPTH (parms);
 238       int arg_idx = 0;
 239       int i;
 240
 241       for (i = 0; i < TREE_VEC_LENGTH (p); ++i)
 242         {
 243           tree arg = NULL_TREE;
 244
 245           /* Don't crash if we had an invalid argument list.  */
 246           if (TMPL_ARGS_DEPTH (args) >= lvl)
 247             {
 248               tree lvl_args = TMPL_ARGS_LEVEL (args, lvl);
 249               if (NUM_TMPL_ARGS (lvl_args) > arg_idx)
 250                 arg = TREE_VEC_ELT (lvl_args, arg_idx);
 251             }
 252
 253           if (need_comma)
 254             pp_separate_with_comma (cxx_pp);
 255           dump_template_parameter (TREE_VEC_ELT (p, i), TFF_PLAIN_IDENTIFIER);
 256           pp_cxx_whitespace (cxx_pp);
 257           pp_equal (cxx_pp);
 258           pp_cxx_whitespace (cxx_pp);
 259           if (arg)
 260             dump_template_argument (arg, TFF_PLAIN_IDENTIFIER);
 261           else
 262             pp_identifier (cxx_pp, "<missing>");
 263
 264           ++arg_idx;
 265           need_comma = 1;
 266         }
 267
 268       parms = TREE_CHAIN (parms);
 269     }
 270 }
 271
 272 /* Dump a human-readable equivalent of TYPE.  FLAGS controls the
 273    format.  */
 274
 275 static void
 276 dump_type (tree t, int flags)
 277 {
 278   if (t == NULL_TREE)
 279     return;
 280
 281   if (TYPE_PTRMEMFUNC_P (t))
 282     goto offset_type;
 283
 284   switch (TREE_CODE (t))
 285     {
 286     case UNKNOWN_TYPE:
 287       if (t == init_list_type_node)
 288         pp_identifier (cxx_pp, "<brace-enclosed initializer list>");
 289       else
 290         pp_identifier (cxx_pp, "<unresolved overloaded function type>");
 291       break;
 292
 293     case TREE_LIST:
 294       /* A list of function parms.  */
 295       dump_parameters (t, flags);
 296       break;
 297
 298     case IDENTIFIER_NODE:
 299       pp_cxx_tree_identifier (cxx_pp, t);
 300       break;
 301
 302     case TREE_BINFO:
 303       dump_type (BINFO_TYPE (t), flags);
 304       break;
 305
 306     case RECORD_TYPE:
 307     case UNION_TYPE:
 308     case ENUMERAL_TYPE:
 309       dump_aggr_type (t, flags);
 310       break;
 311
 312     case TYPE_DECL:
 313       if (flags & TFF_CHASE_TYPEDEF)
 314         {
 315           dump_type (DECL_ORIGINAL_TYPE (t)
 316                      ? DECL_ORIGINAL_TYPE (t) : TREE_TYPE (t), flags);
 317           break;
 318         }
 319       /* Else fall through.  */
 320
 321     case TEMPLATE_DECL:
 322     case NAMESPACE_DECL:
 323       dump_decl (t, flags & ~TFF_DECL_SPECIFIERS);
 324       break;
 325
 326     case INTEGER_TYPE:
 327     case REAL_TYPE:
 328     case VOID_TYPE:
 329     case BOOLEAN_TYPE:
 330     case COMPLEX_TYPE:
 331     case VECTOR_TYPE:
 332     case FIXED_POINT_TYPE:
 333       pp_type_specifier_seq (cxx_pp, t);
 334       break;
 335
 336     case TEMPLATE_TEMPLATE_PARM:
 337       /* For parameters inside template signature.  */
 338       if (TYPE_IDENTIFIER (t))
 339         pp_cxx_tree_identifier (cxx_pp, TYPE_IDENTIFIER (t));
 340       else
 341         pp_cxx_canonical_template_parameter (cxx_pp, t);
 342       break;
 343
 344     case BOUND_TEMPLATE_TEMPLATE_PARM:
 345       {
 346         tree args = TYPE_TI_ARGS (t);
 347         pp_cxx_cv_qualifier_seq (cxx_pp, t);
 348         pp_cxx_tree_identifier (cxx_pp, TYPE_IDENTIFIER (t));
 349         pp_cxx_begin_template_argument_list (cxx_pp);
 350         dump_template_argument_list (args, flags);
 351         pp_cxx_end_template_argument_list (cxx_pp);
 352       }
 353       break;
 354
 355     case TEMPLATE_TYPE_PARM:
 356       pp_cxx_cv_qualifier_seq (cxx_pp, t);
 357       if (TYPE_IDENTIFIER (t))
 358         pp_cxx_tree_identifier (cxx_pp, TYPE_IDENTIFIER (t));
 359       else
 360         pp_cxx_canonical_template_parameter
 361           (cxx_pp, TEMPLATE_TYPE_PARM_INDEX (t));
 362       break;
 363
 364       /* This is not always necessary for pointers and such, but doing this
 365          reduces code size.  */
 366     case ARRAY_TYPE:
 367     case POINTER_TYPE:
 368     case REFERENCE_TYPE:
 369     case OFFSET_TYPE:
 370     offset_type:
 371     case FUNCTION_TYPE:
 372     case METHOD_TYPE:
 373     {
 374       dump_type_prefix (t, flags);
 375       dump_type_suffix (t, flags);
 376       break;
 377     }
 378     case TYPENAME_TYPE:
 379       pp_cxx_cv_qualifier_seq (cxx_pp, t);
 380       pp_cxx_identifier (cxx_pp,
 381                          TYPENAME_IS_ENUM_P (t) ? "enum"
 382                          : TYPENAME_IS_CLASS_P (t) ? "class"
 383                          : "typename");
 384       dump_typename (t, flags);
 385       break;
 386
 387     case UNBOUND_CLASS_TEMPLATE:
 388       dump_type (TYPE_CONTEXT (t), flags);
 389       pp_cxx_colon_colon (cxx_pp);
 390       pp_cxx_identifier (cxx_pp, "template");
 391       dump_type (DECL_NAME (TYPE_NAME (t)), flags);
 392       break;
 393
 394     case TYPEOF_TYPE:
 395       pp_cxx_identifier (cxx_pp, "__typeof__");
 396       pp_cxx_whitespace (cxx_pp);
 397       pp_cxx_left_paren (cxx_pp);
 398       dump_expr (TYPEOF_TYPE_EXPR (t), flags & ~TFF_EXPR_IN_PARENS);
 399       pp_cxx_right_paren (cxx_pp);
 400       break;
 401
 402     case TYPE_PACK_EXPANSION:
 403       dump_type (PACK_EXPANSION_PATTERN (t), flags);
 404       pp_cxx_identifier (cxx_pp, "...");
 405       break;
 406
 407     case TYPE_ARGUMENT_PACK:
 408       dump_template_argument (t, flags);
 409       break;
 410
 411     case DECLTYPE_TYPE:
 412       pp_cxx_identifier (cxx_pp, "decltype");
 413       pp_cxx_whitespace (cxx_pp);
 414       pp_cxx_left_paren (cxx_pp);
 415       dump_expr (DECLTYPE_TYPE_EXPR (t), flags & ~TFF_EXPR_IN_PARENS);
 416       pp_cxx_right_paren (cxx_pp);
 417       break;
 418
 419     default:
 420       pp_unsupported_tree (cxx_pp, t);
 421       /* Fall through to error.  */
 422
 423     case ERROR_MARK:
 424       pp_identifier (cxx_pp, "<type error>");
 425       break;
 426     }
 427 }
 428
 429 /* Dump a TYPENAME_TYPE. We need to notice when the context is itself
 430    a TYPENAME_TYPE.  */
 431
 432 static void
 433 dump_typename (tree t, int flags)
 434 {
 435   tree ctx = TYPE_CONTEXT (t);
 436
 437   if (TREE_CODE (ctx) == TYPENAME_TYPE)
 438     dump_typename (ctx, flags);
 439   else
 440     dump_type (ctx, flags & ~TFF_CLASS_KEY_OR_ENUM);
 441   pp_cxx_colon_colon (cxx_pp);
 442   dump_decl (TYPENAME_TYPE_FULLNAME (t), flags);
 443 }
 444
 445 /* Return the name of the supplied aggregate, or enumeral type.  */
 446
 447 const char *
 448 class_key_or_enum_as_string (tree t)
 449 {
 450   if (TREE_CODE (t) == ENUMERAL_TYPE)
 451     {
 452       if (SCOPED_ENUM_P (t))
 453         return "enum class";
 454       else
 455         return "enum";
 456     }
 457   else if (TREE_CODE (t) == UNION_TYPE)
 458     return "union";
 459   else if (TYPE_LANG_SPECIFIC (t) && CLASSTYPE_DECLARED_CLASS (t))
 460     return "class";
 461   else
 462     return "struct";
 463 }
 464
 465 /* Print out a class declaration T under the control of FLAGS,
 466    in the form `class foo'.  */
 467
 468 static void
 469 dump_aggr_type (tree t, int flags)
 470 {
 471   tree name;
 472   const char *variety = class_key_or_enum_as_string (t);
 473   int typdef = 0;
 474   int tmplate = 0;
 475
 476   pp_cxx_cv_qualifier_seq (cxx_pp, t);
 477
 478   if (flags & TFF_CLASS_KEY_OR_ENUM)
 479     pp_cxx_identifier (cxx_pp, variety);
 480
 481   if (flags & TFF_CHASE_TYPEDEF)
 482     t = TYPE_MAIN_VARIANT (t);
 483
 484   name = TYPE_NAME (t);
 485
 486   if (name)
 487     {
 488       typdef = !DECL_ARTIFICIAL (name);
 489       tmplate = !typdef && TREE_CODE (t) != ENUMERAL_TYPE
 490                 && TYPE_LANG_SPECIFIC (t) && CLASSTYPE_TEMPLATE_INFO (t)
 491                 && (TREE_CODE (CLASSTYPE_TI_TEMPLATE (t)) != TEMPLATE_DECL
 492                     || PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (t)));
 493
 494       if (! (flags & TFF_UNQUALIFIED_NAME))
 495         dump_scope (CP_DECL_CONTEXT (name), flags | TFF_SCOPE);
 496       flags &= ~TFF_UNQUALIFIED_NAME;
 497       if (tmplate)
 498         {
 499           /* Because the template names are mangled, we have to locate
 500              the most general template, and use that name.  */
 501           tree tpl = CLASSTYPE_TI_TEMPLATE (t);
 502
 503           while (DECL_TEMPLATE_INFO (tpl))
 504             tpl = DECL_TI_TEMPLATE (tpl);
 505           name = tpl;
 506         }
 507       name = DECL_NAME (name);
 508     }
 509
 510   if (name == 0 || ANON_AGGRNAME_P (name))
 511     {
 512       if (flags & TFF_CLASS_KEY_OR_ENUM)
 513         pp_identifier (cxx_pp, "<anonymous>");
 514       else
 515         pp_printf (pp_base (cxx_pp), "<anonymous %s>", variety);
 516     }
 517   else
 518     pp_cxx_tree_identifier (cxx_pp, name);
 519   if (tmplate)
 520     dump_template_parms (TYPE_TEMPLATE_INFO (t),
 521                          !CLASSTYPE_USE_TEMPLATE (t),
 522                          flags & ~TFF_TEMPLATE_HEADER);
 523 }
 524
 525 /* Dump into the obstack the initial part of the output for a given type.
 526    This is necessary when dealing with things like functions returning
 527    functions.  Examples:
 528
 529    return type of `int (* fee ())()': pointer -> function -> int.  Both
 530    pointer (and reference and offset) and function (and member) types must
 531    deal with prefix and suffix.
 532
 533    Arrays must also do this for DECL nodes, like int a[], and for things like
 534    int *[]&.  */
 535
 536 static void
 537 dump_type_prefix (tree t, int flags)
 538 {
 539   if (TYPE_PTRMEMFUNC_P (t))
 540     {
 541       t = TYPE_PTRMEMFUNC_FN_TYPE (t);
 542       goto offset_type;
 543     }
 544
 545   switch (TREE_CODE (t))
 546     {
 547     case POINTER_TYPE:
 548     case REFERENCE_TYPE:
 549       {
 550         tree sub = TREE_TYPE (t);
 551
 552         dump_type_prefix (sub, flags);
 553         if (TREE_CODE (sub) == ARRAY_TYPE)
 554           {
 555             pp_cxx_whitespace (cxx_pp);
 556             pp_cxx_left_paren (cxx_pp);
 557           }
 558         if (TREE_CODE (t) == POINTER_TYPE)
 559           pp_character(cxx_pp, '*');
 560         else if (TREE_CODE (t) == REFERENCE_TYPE)
 561         {
 562           if (TYPE_REF_IS_RVALUE (t))
 563             pp_string (cxx_pp, "&&");
 564           else
 565             pp_character (cxx_pp, '&');
 566         }
 567         pp_base (cxx_pp)->padding = pp_before;
 568         pp_cxx_cv_qualifier_seq (cxx_pp, t);
 569       }
 570       break;
 571
 572     case OFFSET_TYPE:
 573     offset_type:
 574       dump_type_prefix (TREE_TYPE (t), flags);
 575       if (TREE_CODE (t) == OFFSET_TYPE) /* pmfs deal with this in d_t_p */
 576         {
 577           pp_maybe_space (cxx_pp);
 578           if (TREE_CODE (TREE_TYPE (t)) == ARRAY_TYPE)
 579              pp_cxx_left_paren (cxx_pp);
 580           dump_type (TYPE_OFFSET_BASETYPE (t), flags);
 581           pp_cxx_colon_colon (cxx_pp);
 582         }
 583       pp_cxx_star (cxx_pp);
 584       pp_cxx_cv_qualifier_seq (cxx_pp, t);
 585       pp_base (cxx_pp)->padding = pp_before;
 586       break;
 587
 588       /* Can only be reached through function pointer -- this would not be
 589          correct if FUNCTION_DECLs used it.  */
 590     case FUNCTION_TYPE:
 591       dump_type_prefix (TREE_TYPE (t), flags);
 592       pp_maybe_space (cxx_pp);
 593       pp_cxx_left_paren (cxx_pp);
 594       break;
 595
 596     case METHOD_TYPE:
 597       dump_type_prefix (TREE_TYPE (t), flags);
 598       pp_maybe_space (cxx_pp);
 599       pp_cxx_left_paren (cxx_pp);
 600       dump_aggr_type (TYPE_METHOD_BASETYPE (t), flags);
 601       pp_cxx_colon_colon (cxx_pp);
 602       break;
 603
 604     case ARRAY_TYPE:
 605       dump_type_prefix (TREE_TYPE (t), flags);
 606       break;
 607
 608     case ENUMERAL_TYPE:
 609     case IDENTIFIER_NODE:
 610     case INTEGER_TYPE:
 611     case BOOLEAN_TYPE:
 612     case REAL_TYPE:
 613     case RECORD_TYPE:
 614     case TEMPLATE_TYPE_PARM:
 615     case TEMPLATE_TEMPLATE_PARM:
 616     case BOUND_TEMPLATE_TEMPLATE_PARM:
 617     case TREE_LIST:
 618     case TYPE_DECL:
 619     case TREE_VEC:
 620     case UNION_TYPE:
 621     case UNKNOWN_TYPE:
 622     case VOID_TYPE:
 623     case TYPENAME_TYPE:
 624     case COMPLEX_TYPE:
 625     case VECTOR_TYPE:
 626     case TYPEOF_TYPE:
 627     case DECLTYPE_TYPE:
 628     case TYPE_PACK_EXPANSION:
 629     case FIXED_POINT_TYPE:
 630       dump_type (t, flags);
 631       pp_base (cxx_pp)->padding = pp_before;
 632       break;
 633
 634     default:
 635       pp_unsupported_tree (cxx_pp, t);
 636       /* fall through.  */
 637     case ERROR_MARK:
 638       pp_identifier (cxx_pp, "<typeprefixerror>");
 639       break;
 640     }
 641 }
 642
 643 /* Dump the suffix of type T, under control of FLAGS.  This is the part
 644    which appears after the identifier (or function parms).  */
 645
 646 static void
 647 dump_type_suffix (tree t, int flags)
 648 {
 649   if (TYPE_PTRMEMFUNC_P (t))
 650     t = TYPE_PTRMEMFUNC_FN_TYPE (t);
 651
 652   switch (TREE_CODE (t))
 653     {
 654     case POINTER_TYPE:
 655     case REFERENCE_TYPE:
 656     case OFFSET_TYPE:
 657       if (TREE_CODE (TREE_TYPE (t)) == ARRAY_TYPE)
 658         pp_cxx_right_paren (cxx_pp);
 659       dump_type_suffix (TREE_TYPE (t), flags);
 660       break;
 661
 662       /* Can only be reached through function pointer.  */
 663     case FUNCTION_TYPE:
 664     case METHOD_TYPE:
 665       {
 666         tree arg;
 667         pp_cxx_right_paren (cxx_pp);
 668         arg = TYPE_ARG_TYPES (t);
 669         if (TREE_CODE (t) == METHOD_TYPE)
 670           arg = TREE_CHAIN (arg);
 671
 672         /* Function pointers don't have default args.  Not in standard C++,
 673            anyway; they may in g++, but we'll just pretend otherwise.  */
 674         dump_parameters (arg, flags & ~TFF_FUNCTION_DEFAULT_ARGUMENTS);
 675
 676         if (TREE_CODE (t) == METHOD_TYPE)
 677           pp_cxx_cv_qualifier_seq
 678             (cxx_pp, TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (t))));
 679         else
 680           pp_cxx_cv_qualifier_seq(cxx_pp, t);
 681         dump_exception_spec (TYPE_RAISES_EXCEPTIONS (t), flags);
 682         dump_type_suffix (TREE_TYPE (t), flags);
 683         break;
 684       }
 685
 686     case ARRAY_TYPE:
 687       pp_maybe_space (cxx_pp);
 688       pp_cxx_left_bracket (cxx_pp);
 689       if (TYPE_DOMAIN (t))
 690         {
 691           tree dtype = TYPE_DOMAIN (t);
 692           tree max = TYPE_MAX_VALUE (dtype);
 693           if (host_integerp (max, 0))
 694             pp_wide_integer (cxx_pp, tree_low_cst (max, 0) + 1);
 695           else if (TREE_CODE (max) == MINUS_EXPR)
 696             dump_expr (TREE_OPERAND (max, 0),
 697                        flags & ~TFF_EXPR_IN_PARENS);
 698           else
 699             dump_expr (fold_build2 (PLUS_EXPR, dtype, max,
 700                                     build_int_cst (dtype, 1)),
 701                        flags & ~TFF_EXPR_IN_PARENS);
 702         }
 703       pp_cxx_right_bracket (cxx_pp);
 704       dump_type_suffix (TREE_TYPE (t), flags);
 705       break;
 706
 707     case ENUMERAL_TYPE:
 708     case IDENTIFIER_NODE:
 709     case INTEGER_TYPE:
 710     case BOOLEAN_TYPE:
 711     case REAL_TYPE:
 712     case RECORD_TYPE:
 713     case TEMPLATE_TYPE_PARM:
 714     case TEMPLATE_TEMPLATE_PARM:
 715     case BOUND_TEMPLATE_TEMPLATE_PARM:
 716     case TREE_LIST:
 717     case TYPE_DECL:
 718     case TREE_VEC:
 719     case UNION_TYPE:
 720     case UNKNOWN_TYPE:
 721     case VOID_TYPE:
 722     case TYPENAME_TYPE:
 723     case COMPLEX_TYPE:
 724     case VECTOR_TYPE:
 725     case TYPEOF_TYPE:
 726     case DECLTYPE_TYPE:
 727     case TYPE_PACK_EXPANSION:
 728     case FIXED_POINT_TYPE:
 729       break;
 730
 731     default:
 732       pp_unsupported_tree (cxx_pp, t);
 733     case ERROR_MARK:
 734       /* Don't mark it here, we should have already done in
 735          dump_type_prefix.  */
 736       break;
 737     }
 738 }
 739
 740 static void
 741 dump_global_iord (tree t)
 742 {
 743   const char *p = NULL;
 744
 745   if (DECL_GLOBAL_CTOR_P (t))
 746     p = "initializers";
 747   else if (DECL_GLOBAL_DTOR_P (t))
 748     p = "destructors";
 749   else
 750     gcc_unreachable ();
 751
 752   pp_printf (pp_base (cxx_pp), "(static %s for %s)", p, input_filename);
 753 }
 754
 755 static void
 756 dump_simple_decl (tree t, tree type, int flags)
 757 {
 758   if (flags & TFF_DECL_SPECIFIERS)
 759     {
 760       dump_type_prefix (type, flags & ~TFF_UNQUALIFIED_NAME);
 761       pp_maybe_space (cxx_pp);
 762     }
 763   if (! (flags & TFF_UNQUALIFIED_NAME)
 764       && (!DECL_INITIAL (t)
 765           || TREE_CODE (DECL_INITIAL (t)) != TEMPLATE_PARM_INDEX))
 766     dump_scope (CP_DECL_CONTEXT (t), flags);
 767   flags &= ~TFF_UNQUALIFIED_NAME;
 768   if ((flags & TFF_DECL_SPECIFIERS)
 769       && DECL_TEMPLATE_PARM_P (t)
 770       && TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (t)))
 771     pp_identifier (cxx_pp, "...");
 772   if (DECL_NAME (t))
 773     dump_decl (DECL_NAME (t), flags);
 774   else
 775     pp_identifier (cxx_pp, "<anonymous>");
 776   if (flags & TFF_DECL_SPECIFIERS)
 777     dump_type_suffix (type, flags);
 778 }
 779
 780 /* Dump a human readable string for the decl T under control of FLAGS.  */
 781
 782 static void
 783 dump_decl (tree t, int flags)
 784 {
 785   if (t == NULL_TREE)
 786     return;
 787
 788   switch (TREE_CODE (t))
 789     {
 790     case TYPE_DECL:
 791       /* Don't say 'typedef class A' */
 792       if (DECL_ARTIFICIAL (t))
 793         {
 794           if ((flags & TFF_DECL_SPECIFIERS)
 795               && TREE_CODE (TREE_TYPE (t)) == TEMPLATE_TYPE_PARM)
 796             {
 797               /* Say `class T' not just `T'.  */
 798               pp_cxx_identifier (cxx_pp, "class");
 799
 800               /* Emit the `...' for a parameter pack.  */
 801               if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (t)))
 802                 pp_cxx_identifier (cxx_pp, "...");
 803             }
 804
 805           dump_type (TREE_TYPE (t), flags);
 806           break;
 807         }
 808       if (flags & TFF_DECL_SPECIFIERS)
 809         pp_cxx_identifier (cxx_pp, "typedef");
 810       dump_simple_decl (t, DECL_ORIGINAL_TYPE (t)
 811                         ? DECL_ORIGINAL_TYPE (t) : TREE_TYPE (t),
 812                         flags);
 813       break;
 814
 815     case VAR_DECL:
 816       if (DECL_NAME (t) && VTABLE_NAME_P (DECL_NAME (t)))
 817         {
 818           pp_string (cxx_pp, "vtable for ");
 819           gcc_assert (TYPE_P (DECL_CONTEXT (t)));
 820           dump_type (DECL_CONTEXT (t), flags);
 821           break;
 822         }
 823       /* Else fall through.  */
 824     case FIELD_DECL:
 825     case PARM_DECL:
 826       dump_simple_decl (t, TREE_TYPE (t), flags);
 827       break;
 828
 829     case RESULT_DECL:
 830       pp_string (cxx_pp, "<return value> ");
 831       dump_simple_decl (t, TREE_TYPE (t), flags);
 832       break;
 833
 834     case NAMESPACE_DECL:
 835       if (flags & TFF_DECL_SPECIFIERS)
 836         pp_cxx_declaration (cxx_pp, t);
 837       else
 838         {
 839           if (! (flags & TFF_UNQUALIFIED_NAME))
 840             dump_scope (CP_DECL_CONTEXT (t), flags);
 841           flags &= ~TFF_UNQUALIFIED_NAME;
 842           if (DECL_NAME (t) == NULL_TREE)
 843             pp_identifier (cxx_pp, "<unnamed>");
 844           else
 845             pp_cxx_tree_identifier (cxx_pp, DECL_NAME (t));
 846         }
 847       break;
 848
 849     case SCOPE_REF:
 850       pp_expression (cxx_pp, t);
 851       break;
 852
 853     case ARRAY_REF:
 854       dump_decl (TREE_OPERAND (t, 0), flags);
 855       pp_cxx_left_bracket (cxx_pp);
 856       dump_decl (TREE_OPERAND (t, 1), flags);
 857       pp_cxx_right_bracket (cxx_pp);
 858       break;
 859
 860       /* So that we can do dump_decl on an aggr type.  */
 861     case RECORD_TYPE:
 862     case UNION_TYPE:
 863     case ENUMERAL_TYPE:
 864       dump_type (t, flags);
 865       break;
 866
 867     case BIT_NOT_EXPR:
 868       /* This is a pseudo destructor call which has not been folded into
 869          a PSEUDO_DTOR_EXPR yet.  */
 870       pp_cxx_complement (cxx_pp);
 871       dump_type (TREE_OPERAND (t, 0), flags);
 872       break;
 873
 874     case TYPE_EXPR:
 875       gcc_unreachable ();
 876       break;
 877
 878       /* These special cases are duplicated here so that other functions
 879          can feed identifiers to error and get them demangled properly.  */
 880     case IDENTIFIER_NODE:
 881       if (IDENTIFIER_TYPENAME_P (t))
 882         {
 883           pp_cxx_identifier (cxx_pp, "operator");
 884           /* Not exactly IDENTIFIER_TYPE_VALUE.  */
 885           dump_type (TREE_TYPE (t), flags);
 886           break;
 887         }
 888       else
 889         pp_cxx_tree_identifier (cxx_pp, t);
 890       break;
 891
 892     case OVERLOAD:
 893       if (OVL_CHAIN (t))
 894         {
 895           t = OVL_CURRENT (t);
 896           if (DECL_CLASS_SCOPE_P (t))
 897             {
 898               dump_type (DECL_CONTEXT (t), flags);
 899               pp_cxx_colon_colon (cxx_pp);
 900             }
 901           else if (DECL_CONTEXT (t))
 902             {
 903               dump_decl (DECL_CONTEXT (t), flags);
 904               pp_cxx_colon_colon (cxx_pp);
 905             }
 906           dump_decl (DECL_NAME (t), flags);
 907           break;
 908         }
 909
 910       /* If there's only one function, just treat it like an ordinary
 911          FUNCTION_DECL.  */
 912       t = OVL_CURRENT (t);
 913       /* Fall through.  */
 914
 915     case FUNCTION_DECL:
 916       if (! DECL_LANG_SPECIFIC (t))
 917         pp_identifier (cxx_pp, "<built-in>");
 918       else if (DECL_GLOBAL_CTOR_P (t) || DECL_GLOBAL_DTOR_P (t))
 919         dump_global_iord (t);
 920       else
 921         dump_function_decl (t, flags);
 922       break;
 923
 924     case TEMPLATE_DECL:
 925       dump_template_decl (t, flags);
 926       break;
 927
 928     case TEMPLATE_ID_EXPR:
 929       {
 930         tree name = TREE_OPERAND (t, 0);
 931
 932         if (is_overloaded_fn (name))
 933           name = DECL_NAME (get_first_fn (name));
 934         dump_decl (name, flags);
 935         pp_cxx_begin_template_argument_list (cxx_pp);
 936         if (TREE_OPERAND (t, 1))
 937           dump_template_argument_list (TREE_OPERAND (t, 1), flags);
 938         pp_cxx_end_template_argument_list (cxx_pp);
 939       }
 940       break;
 941
 942     case LABEL_DECL:
 943       pp_cxx_tree_identifier (cxx_pp, DECL_NAME (t));
 944       break;
 945
 946     case CONST_DECL:
 947       if ((TREE_TYPE (t) != NULL_TREE && NEXT_CODE (t) == ENUMERAL_TYPE)
 948           || (DECL_INITIAL (t) &&
 949               TREE_CODE (DECL_INITIAL (t)) == TEMPLATE_PARM_INDEX))
 950         dump_simple_decl (t, TREE_TYPE (t), flags);
 951       else if (DECL_NAME (t))
 952         dump_decl (DECL_NAME (t), flags);
 953       else if (DECL_INITIAL (t))
 954         dump_expr (DECL_INITIAL (t), flags | TFF_EXPR_IN_PARENS);
 955       else
 956         pp_identifier (cxx_pp, "<enumerator>");
 957       break;
 958
 959     case USING_DECL:
 960       pp_cxx_identifier (cxx_pp, "using");
 961       dump_type (USING_DECL_SCOPE (t), flags);
 962       pp_cxx_colon_colon (cxx_pp);
 963       dump_decl (DECL_NAME (t), flags);
 964       break;
 965
 966     case STATIC_ASSERT:
 967       pp_cxx_declaration (cxx_pp, t);
 968       break;
 969
 970     case BASELINK:
 971       dump_decl (BASELINK_FUNCTIONS (t), flags);
 972       break;
 973
 974     case NON_DEPENDENT_EXPR:
 975       dump_expr (t, flags);
 976       break;
 977
 978     case TEMPLATE_TYPE_PARM:
 979       if (flags & TFF_DECL_SPECIFIERS)
 980         pp_cxx_declaration (cxx_pp, t);
 981       else
 982         pp_type_id (cxx_pp, t);
 983       break;
 984
 985     case UNBOUND_CLASS_TEMPLATE:
 986     case TYPE_PACK_EXPANSION:
 987     case TREE_BINFO:
 988       dump_type (t, flags);
 989       break;
 990
 991     default:
 992       pp_unsupported_tree (cxx_pp, t);
 993       /* Fall through to error.  */
 994
 995     case ERROR_MARK:
 996       pp_identifier (cxx_pp, "<declaration error>");
 997       break;
 998     }
 999 }
1000
1001 /* Dump a template declaration T under control of FLAGS. This means the
1002    'template <...> leaders plus the 'class X' or 'void fn(...)' part.  */
1003
1004 static void
1005 dump_template_decl (tree t, int flags)
1006 {
1007   tree orig_parms = DECL_TEMPLATE_PARMS (t);
1008   tree parms;
1009   int i;
1010
1011   if (flags & TFF_TEMPLATE_HEADER)
1012     {
1013       for (parms = orig_parms = nreverse (orig_parms);
1014            parms;
1015            parms = TREE_CHAIN (parms))
1016         {
1017           tree inner_parms = INNERMOST_TEMPLATE_PARMS (parms);
1018           int len = TREE_VEC_LENGTH (inner_parms);
1019
1020           pp_cxx_identifier (cxx_pp, "template");
1021           pp_cxx_begin_template_argument_list (cxx_pp);
1022
1023           /* If we've shown the template prefix, we'd better show the
1024              parameters' and decl's type too.  */
1025             flags |= TFF_DECL_SPECIFIERS;
1026
1027           for (i = 0; i < len; i++)
1028             {
1029               if (i)
1030                 pp_separate_with_comma (cxx_pp);
1031               dump_template_parameter (TREE_VEC_ELT (inner_parms, i), flags);
1032             }
1033           pp_cxx_end_template_argument_list (cxx_pp);
1034           pp_cxx_whitespace (cxx_pp);
1035         }
1036       nreverse(orig_parms);
1037
1038       if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
1039         {
1040           /* Say `template<arg> class TT' not just `template<arg> TT'.  */
1041           pp_cxx_identifier (cxx_pp, "class");
1042
1043           /* If this is a parameter pack, print the ellipsis.  */
1044           if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (t)))
1045             pp_cxx_identifier (cxx_pp, "...");
1046         }
1047     }
1048
1049   if (DECL_TEMPLATE_RESULT (t)
1050       && TREE_CODE (DECL_TEMPLATE_RESULT (t)) == TYPE_DECL)
1051     dump_type (TREE_TYPE (t),
1052                ((flags & ~TFF_CLASS_KEY_OR_ENUM) | TFF_TEMPLATE_NAME
1053                 | (flags & TFF_DECL_SPECIFIERS ? TFF_CLASS_KEY_OR_ENUM : 0)));
1054   else if (DECL_TEMPLATE_RESULT (t)
1055            && TREE_CODE (DECL_TEMPLATE_RESULT (t)) == VAR_DECL)
1056     dump_decl (DECL_TEMPLATE_RESULT (t), flags | TFF_TEMPLATE_NAME);
1057   else
1058     {
1059       gcc_assert (TREE_TYPE (t));
1060       switch (NEXT_CODE (t))
1061         {
1062         case METHOD_TYPE:
1063         case FUNCTION_TYPE:
1064           dump_function_decl (t, flags | TFF_TEMPLATE_NAME);
1065           break;
1066         default:
1067           /* This case can occur with some invalid code.  */
1068           dump_type (TREE_TYPE (t),
1069                      (flags & ~TFF_CLASS_KEY_OR_ENUM) | TFF_TEMPLATE_NAME
1070                      | (flags & TFF_DECL_SPECIFIERS
1071                         ? TFF_CLASS_KEY_OR_ENUM : 0));
1072         }
1073     }
1074 }
1075
1076 /* Pretty print a function decl. There are several ways we want to print a
1077    function declaration. The TFF_ bits in FLAGS tells us how to behave.
1078    As error can only apply the '#' flag once to give 0 and 1 for V, there
1079    is %D which doesn't print the throw specs, and %F which does.  */
1080
1081 static void
1082 dump_function_decl (tree t, int flags)
1083 {
1084   tree fntype;
1085   tree parmtypes;
1086   tree cname = NULL_TREE;
1087   tree template_args = NULL_TREE;
1088   tree template_parms = NULL_TREE;
1089   int show_return = flags & TFF_RETURN_TYPE || flags & TFF_DECL_SPECIFIERS;
1090   int do_outer_scope = ! (flags & TFF_UNQUALIFIED_NAME);
1091   tree exceptions;
1092
1093   flags &= ~TFF_UNQUALIFIED_NAME;
1094   if (TREE_CODE (t) == TEMPLATE_DECL)
1095     t = DECL_TEMPLATE_RESULT (t);
1096
1097   /* Save the exceptions, in case t is a specialization and we are
1098      emitting an error about incompatible specifications.  */
1099   exceptions = TYPE_RAISES_EXCEPTIONS (TREE_TYPE (t));
1100
1101   /* Pretty print template instantiations only.  */
1102   if (DECL_USE_TEMPLATE (t) && DECL_TEMPLATE_INFO (t))
1103     {
1104       tree tmpl;
1105
1106       template_args = DECL_TI_ARGS (t);
1107       tmpl = most_general_template (t);
1108       if (tmpl && TREE_CODE (tmpl) == TEMPLATE_DECL)
1109         {
1110           template_parms = DECL_TEMPLATE_PARMS (tmpl);
1111           t = tmpl;
1112         }
1113     }
1114
1115   fntype = TREE_TYPE (t);
1116   parmtypes = FUNCTION_FIRST_USER_PARMTYPE (t);
1117
1118   if (DECL_CLASS_SCOPE_P (t))
1119     cname = DECL_CONTEXT (t);
1120   /* This is for partially instantiated template methods.  */
1121   else if (TREE_CODE (fntype) == METHOD_TYPE)
1122     cname = TREE_TYPE (TREE_VALUE (parmtypes));
1123
1124   if (!(flags & TFF_DECL_SPECIFIERS))
1125     /* OK */;
1126   else if (DECL_STATIC_FUNCTION_P (t))
1127     pp_cxx_identifier (cxx_pp, "static");
1128   else if (DECL_VIRTUAL_P (t))
1129     pp_cxx_identifier (cxx_pp, "virtual");
1130
1131   /* Print the return type?  */
1132   if (show_return)
1133     show_return = !DECL_CONV_FN_P (t)  && !DECL_CONSTRUCTOR_P (t)
1134                   && !DECL_DESTRUCTOR_P (t);
1135   if (show_return)
1136     dump_type_prefix (TREE_TYPE (fntype), flags);
1137
1138   /* Print the function name.  */
1139   if (!do_outer_scope)
1140     /* Nothing.  */;
1141   else if (cname)
1142     {
1143       dump_type (cname, flags);
1144       pp_cxx_colon_colon (cxx_pp);
1145     }
1146   else
1147     dump_scope (CP_DECL_CONTEXT (t), flags);
1148
1149   dump_function_name (t, flags);
1150
1151   if (!(flags & TFF_NO_FUNCTION_ARGUMENTS))
1152     {
1153       dump_parameters (parmtypes, flags);
1154
1155       if (TREE_CODE (fntype) == METHOD_TYPE)
1156         {
1157           pp_base (cxx_pp)->padding = pp_before;
1158           pp_cxx_cv_qualifier_seq
1159             (cxx_pp, TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (fntype))));
1160         }
1161
1162       if (flags & TFF_EXCEPTION_SPECIFICATION)
1163         {
1164           pp_base (cxx_pp)->padding = pp_before;
1165           dump_exception_spec (exceptions, flags);
1166         }
1167
1168       if (show_return)
1169         dump_type_suffix (TREE_TYPE (fntype), flags);
1170     }
1171
1172   /* If T is a template instantiation, dump the parameter binding.  */
1173   if (template_parms != NULL_TREE && template_args != NULL_TREE)
1174     {
1175       pp_cxx_whitespace (cxx_pp);
1176       pp_cxx_left_bracket (cxx_pp);
1177       pp_cxx_identifier (cxx_pp, "with");
1178       pp_cxx_whitespace (cxx_pp);
1179       dump_template_bindings (template_parms, template_args);
1180       pp_cxx_right_bracket (cxx_pp);
1181     }
1182 }
1183
1184 /* Print a parameter list. If this is for a member function, the
1185    member object ptr (and any other hidden args) should have
1186    already been removed.  */
1187
1188 static void
1189 dump_parameters (tree parmtypes, int flags)
1190 {
1191   int first = 1;
1192   pp_cxx_left_paren (cxx_pp);
1193
1194   for (first = 1; parmtypes != void_list_node;
1195        parmtypes = TREE_CHAIN (parmtypes))
1196     {
1197       if (!first)
1198         pp_separate_with_comma (cxx_pp);
1199       first = 0;
1200       if (!parmtypes)
1201         {
1202           pp_cxx_identifier (cxx_pp, "...");
1203           break;
1204         }
1205
1206       dump_type (TREE_VALUE (parmtypes), flags);
1207
1208       if ((flags & TFF_FUNCTION_DEFAULT_ARGUMENTS) && TREE_PURPOSE (parmtypes))
1209         {
1210           pp_cxx_whitespace (cxx_pp);
1211           pp_equal (cxx_pp);
1212           pp_cxx_whitespace (cxx_pp);
1213           dump_expr (TREE_PURPOSE (parmtypes), flags | TFF_EXPR_IN_PARENS);
1214         }
1215     }
1216
1217   pp_cxx_right_paren (cxx_pp);
1218 }
1219
1220 /* Print an exception specification. T is the exception specification.  */
1221
1222 static void
1223 dump_exception_spec (tree t, int flags)
1224 {
1225   if (t)
1226     {
1227       pp_cxx_identifier (cxx_pp, "throw");
1228       pp_cxx_whitespace (cxx_pp);
1229       pp_cxx_left_paren (cxx_pp);
1230       if (TREE_VALUE (t) != NULL_TREE)
1231         while (1)
1232           {
1233             dump_type (TREE_VALUE (t), flags);
1234             t = TREE_CHAIN (t);
1235             if (!t)
1236               break;
1237             pp_separate_with_comma (cxx_pp);
1238           }
1239       pp_cxx_right_paren (cxx_pp);
1240     }
1241 }
1242
1243 /* Handle the function name for a FUNCTION_DECL node, grokking operators
1244    and destructors properly.  */
1245
1246 static void
1247 dump_function_name (tree t, int flags)
1248 {
1249   tree name = DECL_NAME (t);
1250
1251   /* We can get here with a decl that was synthesized by language-
1252      independent machinery (e.g. coverage.c) in which case it won't
1253      have a lang_specific structure attached and DECL_CONSTRUCTOR_P
1254      will crash.  In this case it is safe just to print out the
1255      literal name.  */
1256   if (!DECL_LANG_SPECIFIC (t))
1257     {
1258       pp_cxx_tree_identifier (cxx_pp, name);
1259       return;
1260     }
1261
1262   if (TREE_CODE (t) == TEMPLATE_DECL)
1263     t = DECL_TEMPLATE_RESULT (t);
1264
1265   /* Don't let the user see __comp_ctor et al.  */
1266   if (DECL_CONSTRUCTOR_P (t)
1267       || DECL_DESTRUCTOR_P (t))
1268     name = constructor_name (DECL_CONTEXT (t));
1269
1270   if (DECL_DESTRUCTOR_P (t))
1271     {
1272       pp_cxx_complement (cxx_pp);
1273       dump_decl (name, TFF_PLAIN_IDENTIFIER);
1274     }
1275   else if (DECL_CONV_FN_P (t))
1276     {
1277       /* This cannot use the hack that the operator's return
1278          type is stashed off of its name because it may be
1279          used for error reporting.  In the case of conflicting
1280          declarations, both will have the same name, yet
1281          the types will be different, hence the TREE_TYPE field
1282          of the first name will be clobbered by the second.  */
1283       pp_cxx_identifier (cxx_pp, "operator");
1284       dump_type (TREE_TYPE (TREE_TYPE (t)), flags);
1285     }
1286   else if (IDENTIFIER_OPNAME_P (name))
1287     pp_cxx_tree_identifier (cxx_pp, name);
1288   else
1289     dump_decl (name, flags);
1290
1291   if (DECL_TEMPLATE_INFO (t)
1292       && !DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (t)
1293       && (TREE_CODE (DECL_TI_TEMPLATE (t)) != TEMPLATE_DECL
1294           || PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (t))))
1295     dump_template_parms (DECL_TEMPLATE_INFO (t), !DECL_USE_TEMPLATE (t), flags);
1296 }
1297
1298 /* Dump the template parameters from the template info INFO under control of
1299    FLAGS. PRIMARY indicates whether this is a primary template decl, or
1300    specialization (partial or complete). For partial specializations we show
1301    the specialized parameter values. For a primary template we show no
1302    decoration.  */
1303
1304 static void
1305 dump_template_parms (tree info, int primary, int flags)
1306 {
1307   tree args = info ? TI_ARGS (info) : NULL_TREE;
1308
1309   if (primary && flags & TFF_TEMPLATE_NAME)
1310     return;
1311   flags &= ~(TFF_CLASS_KEY_OR_ENUM | TFF_TEMPLATE_NAME);
1312   pp_cxx_begin_template_argument_list (cxx_pp);
1313
1314   /* Be careful only to print things when we have them, so as not
1315          to crash producing error messages.  */
1316   if (args && !primary)
1317     {
1318       int len, ix;
1319
1320       if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
1321         args = TREE_VEC_ELT (args, TREE_VEC_LENGTH (args) - 1);
1322
1323       len = TREE_VEC_LENGTH (args);
1324
1325       for (ix = 0; ix != len; ix++)
1326         {
1327           tree arg = TREE_VEC_ELT (args, ix);
1328
1329           /* Only print a comma if we know there is an argument coming. In
1330              the case of an empty template argument pack, no actual
1331              argument will be printed.  */
1332           if (ix
1333               && (!ARGUMENT_PACK_P (arg)
1334                   || TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg)) > 0))
1335             pp_separate_with_comma (cxx_pp);
1336
1337           if (!arg)
1338             pp_identifier (cxx_pp, "<template parameter error>");
1339           else
1340             dump_template_argument (arg, flags);
1341         }
1342     }
1343   else if (primary)
1344     {
1345       tree tpl = TI_TEMPLATE (info);
1346       tree parms = DECL_TEMPLATE_PARMS (tpl);
1347       int len, ix;
1348
1349       parms = TREE_CODE (parms) == TREE_LIST ? TREE_VALUE (parms) : NULL_TREE;
1350       len = parms ? TREE_VEC_LENGTH (parms) : 0;
1351
1352       for (ix = 0; ix != len; ix++)
1353         {
1354           tree parm;
1355
1356           if (TREE_VEC_ELT (parms, ix) == error_mark_node)
1357             {
1358               pp_identifier (cxx_pp, "<template parameter error>");
1359               continue;
1360             }
1361
1362           parm = TREE_VALUE (TREE_VEC_ELT (parms, ix));
1363
1364           if (ix)
1365             pp_separate_with_comma (cxx_pp);
1366
1367           dump_decl (parm, flags & ~TFF_DECL_SPECIFIERS);
1368         }
1369     }
1370   pp_cxx_end_template_argument_list (cxx_pp);
1371 }
1372
1373 /* Print out the arguments of CALL_EXPR T as a parenthesized list using
1374    flags FLAGS.  Skip over the first argument if SKIPFIRST is true.  */
1375
1376 static void
1377 dump_call_expr_args (tree t, int flags, bool skipfirst)
1378 {
1379   tree arg;
1380   call_expr_arg_iterator iter;
1381
1382   pp_cxx_left_paren (cxx_pp);
1383   FOR_EACH_CALL_EXPR_ARG (arg, iter, t)
1384     {
1385       if (skipfirst)
1386         skipfirst = false;
1387       else
1388         {
1389           dump_expr (arg, flags | TFF_EXPR_IN_PARENS);
1390           if (more_call_expr_args_p (&iter))
1391             pp_separate_with_comma (cxx_pp);
1392         }
1393     }
1394   pp_cxx_right_paren (cxx_pp);
1395 }
1396
1397 /* Print out the arguments of AGGR_INIT_EXPR T as a parenthesized list
1398    using flags FLAGS.  Skip over the first argument if SKIPFIRST is
1399    true.  */
1400
1401 static void
1402 dump_aggr_init_expr_args (tree t, int flags, bool skipfirst)
1403 {
1404   tree arg;
1405   aggr_init_expr_arg_iterator iter;
1406
1407   pp_cxx_left_paren (cxx_pp);
1408   FOR_EACH_AGGR_INIT_EXPR_ARG (arg, iter, t)
1409     {
1410       if (skipfirst)
1411         skipfirst = false;
1412       else
1413         {
1414           dump_expr (arg, flags | TFF_EXPR_IN_PARENS);
1415           if (more_aggr_init_expr_args_p (&iter))
1416             pp_separate_with_comma (cxx_pp);
1417         }
1418     }
1419   pp_cxx_right_paren (cxx_pp);
1420 }
1421
1422 /* Print out a list of initializers (subr of dump_expr).  */
1423
1424 static void
1425 dump_expr_list (tree l, int flags)
1426 {
1427   while (l)
1428     {
1429       dump_expr (TREE_VALUE (l), flags | TFF_EXPR_IN_PARENS);
1430       l = TREE_CHAIN (l);
1431       if (l)
1432         pp_separate_with_comma (cxx_pp);
1433     }
1434 }
1435
1436 /* Print out a vector of initializers (subr of dump_expr).  */
1437
1438 static void
1439 dump_expr_init_vec (VEC(constructor_elt,gc) *v, int flags)
1440 {
1441   unsigned HOST_WIDE_INT idx;
1442   tree value;
1443
1444   FOR_EACH_CONSTRUCTOR_VALUE (v, idx, value)
1445     {
1446       dump_expr (value, flags | TFF_EXPR_IN_PARENS);
1447       if (idx != VEC_length (constructor_elt, v) - 1)
1448         pp_separate_with_comma (cxx_pp);
1449     }
1450 }
1451
1452
1453 /* We've gotten an indirect REFERENCE (an OBJ_TYPE_REF) to a virtual
1454    function.  Resolve it to a close relative -- in the sense of static
1455    type -- variant being overridden.  That is close to what was written in
1456    the source code.  Subroutine of dump_expr.  */
1457
1458 static tree
1459 resolve_virtual_fun_from_obj_type_ref (tree ref)
1460 {
1461   tree obj_type = TREE_TYPE (OBJ_TYPE_REF_OBJECT (ref));
1462   HOST_WIDE_INT index = tree_low_cst (OBJ_TYPE_REF_TOKEN (ref), 1);
1463   tree fun = BINFO_VIRTUALS (TYPE_BINFO (TREE_TYPE (obj_type)));
1464   while (index)
1465     {
1466       fun = TREE_CHAIN (fun);
1467       index -= (TARGET_VTABLE_USES_DESCRIPTORS
1468                 ? TARGET_VTABLE_USES_DESCRIPTORS : 1);
1469     }
1470
1471   return BV_FN (fun);
1472 }
1473
1474 /* Print out an expression E under control of FLAGS.  */
1475
1476 static void
1477 dump_expr (tree t, int flags)
1478 {
1479   if (t == 0)
1480     return;
1481
1482   if (STATEMENT_CLASS_P (t))
1483     {
1484       pp_cxx_identifier (cxx_pp, "<statement>");
1485       return;
1486     }
1487
1488   switch (TREE_CODE (t))
1489     {
1490     case VAR_DECL:
1491     case PARM_DECL:
1492     case FIELD_DECL:
1493     case CONST_DECL:
1494     case FUNCTION_DECL:
1495     case TEMPLATE_DECL:
1496     case NAMESPACE_DECL:
1497     case LABEL_DECL:
1498     case OVERLOAD:
1499     case IDENTIFIER_NODE:
1500       dump_decl (t, (flags & ~TFF_DECL_SPECIFIERS) | TFF_NO_FUNCTION_ARGUMENTS);
1501       break;
1502
1503     case INTEGER_CST:
1504     case REAL_CST:
1505     case STRING_CST:
1506     case COMPLEX_CST:
1507       pp_constant (cxx_pp, t);
1508       break;
1509
1510     case THROW_EXPR:
1511       /* While waiting for caret diagnostics, avoid printing
1512          __cxa_allocate_exception, __cxa_throw, and the like.  */
1513       pp_cxx_identifier (cxx_pp, "<throw-expression>");
1514       break;
1515
1516     case PTRMEM_CST:
1517       pp_ampersand (cxx_pp);
1518       dump_type (PTRMEM_CST_CLASS (t), flags);
1519       pp_cxx_colon_colon (cxx_pp);
1520       pp_cxx_tree_identifier (cxx_pp, DECL_NAME (PTRMEM_CST_MEMBER (t)));
1521       break;
1522
1523     case COMPOUND_EXPR:
1524       pp_cxx_left_paren (cxx_pp);
1525       dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
1526       pp_separate_with_comma (cxx_pp);
1527       dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
1528       pp_cxx_right_paren (cxx_pp);
1529       break;
1530
1531     case COND_EXPR:
1532       pp_cxx_left_paren (cxx_pp);
1533       dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
1534       pp_string (cxx_pp, " ? ");
1535       dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
1536       pp_string (cxx_pp, " : ");
1537       dump_expr (TREE_OPERAND (t, 2), flags | TFF_EXPR_IN_PARENS);
1538       pp_cxx_right_paren (cxx_pp);
1539       break;
1540
1541     case SAVE_EXPR:
1542       if (TREE_HAS_CONSTRUCTOR (t))
1543         {
1544           pp_cxx_identifier (cxx_pp, "new");
1545           pp_cxx_whitespace (cxx_pp);
1546           dump_type (TREE_TYPE (TREE_TYPE (t)), flags);
1547         }
1548       else
1549         dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
1550       break;
1551
1552     case AGGR_INIT_EXPR:
1553       {
1554         tree fn = NULL_TREE;
1555
1556         if (TREE_CODE (AGGR_INIT_EXPR_FN (t)) == ADDR_EXPR)
1557           fn = TREE_OPERAND (AGGR_INIT_EXPR_FN (t), 0);
1558
1559         if (fn && TREE_CODE (fn) == FUNCTION_DECL)
1560           {
1561             if (DECL_CONSTRUCTOR_P (fn))
1562               dump_type (DECL_CONTEXT (fn), flags);
1563             else
1564               dump_decl (fn, 0);
1565           }
1566         else
1567           dump_expr (AGGR_INIT_EXPR_FN (t), 0);
1568       }
1569       dump_aggr_init_expr_args (t, flags, true);
1570       break;
1571
1572     case CALL_EXPR:
1573       {
1574         tree fn = CALL_EXPR_FN (t);
1575         bool skipfirst = false;
1576
1577         if (TREE_CODE (fn) == ADDR_EXPR)
1578           fn = TREE_OPERAND (fn, 0);
1579
1580         /* Nobody is interested in seeing the guts of vcalls.  */
1581         if (TREE_CODE (fn) == OBJ_TYPE_REF)
1582           fn = resolve_virtual_fun_from_obj_type_ref (fn);
1583
1584         if (TREE_TYPE (fn) != NULL_TREE && NEXT_CODE (fn) == METHOD_TYPE)
1585           {
1586             tree ob = CALL_EXPR_ARG (t, 0);
1587             if (TREE_CODE (ob) == ADDR_EXPR)
1588               {
1589                 dump_expr (TREE_OPERAND (ob, 0), flags | TFF_EXPR_IN_PARENS);
1590                 pp_cxx_dot (cxx_pp);
1591               }
1592             else if (TREE_CODE (ob) != PARM_DECL
1593                      || strcmp (IDENTIFIER_POINTER (DECL_NAME (ob)), "this"))
1594               {
1595                 dump_expr (ob, flags | TFF_EXPR_IN_PARENS);
1596                 pp_cxx_arrow (cxx_pp);
1597               }
1598             skipfirst = true;
1599           }
1600         dump_expr (fn, flags | TFF_EXPR_IN_PARENS);
1601         dump_call_expr_args (t, flags, skipfirst);
1602       }
1603       break;
1604
1605     case TARGET_EXPR:
1606       /* Note that this only works for G++ target exprs.  If somebody
1607          builds a general TARGET_EXPR, there's no way to represent that
1608          it initializes anything other that the parameter slot for the
1609          default argument.  Note we may have cleared out the first
1610          operand in expand_expr, so don't go killing ourselves.  */
1611       if (TREE_OPERAND (t, 1))
1612         dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
1613       break;
1614
1615     case POINTER_PLUS_EXPR:
1616       dump_binary_op ("+", t, flags);
1617       break;
1618
1619     case INIT_EXPR:
1620     case MODIFY_EXPR:
1621     case PLUS_EXPR:
1622     case MINUS_EXPR:
1623     case MULT_EXPR:
1624     case TRUNC_DIV_EXPR:
1625     case TRUNC_MOD_EXPR:
1626     case MIN_EXPR:
1627     case MAX_EXPR:
1628     case LSHIFT_EXPR:
1629     case RSHIFT_EXPR:
1630     case BIT_IOR_EXPR:
1631     case BIT_XOR_EXPR:
1632     case BIT_AND_EXPR:
1633     case TRUTH_ANDIF_EXPR:
1634     case TRUTH_ORIF_EXPR:
1635     case LT_EXPR:
1636     case LE_EXPR:
1637     case GT_EXPR:
1638     case GE_EXPR:
1639     case EQ_EXPR:
1640     case NE_EXPR:
1641     case EXACT_DIV_EXPR:
1642       dump_binary_op (operator_name_info[(int) TREE_CODE (t)].name, t, flags);
1643       break;
1644
1645     case CEIL_DIV_EXPR:
1646     case FLOOR_DIV_EXPR:
1647     case ROUND_DIV_EXPR:
1648     case RDIV_EXPR:
1649       dump_binary_op ("/", t, flags);
1650       break;
1651
1652     case CEIL_MOD_EXPR:
1653     case FLOOR_MOD_EXPR:
1654     case ROUND_MOD_EXPR:
1655       dump_binary_op ("%", t, flags);
1656       break;
1657
1658     case COMPONENT_REF:
1659       {
1660         tree ob = TREE_OPERAND (t, 0);
1661         if (TREE_CODE (ob) == INDIRECT_REF)
1662           {
1663             ob = TREE_OPERAND (ob, 0);
1664             if (TREE_CODE (ob) != PARM_DECL
1665                 || (DECL_NAME (ob)
1666                     && strcmp (IDENTIFIER_POINTER (DECL_NAME (ob)), "this")))
1667               {
1668                 dump_expr (ob, flags | TFF_EXPR_IN_PARENS);
1669                 pp_cxx_arrow (cxx_pp);
1670               }
1671           }
1672         else
1673           {
1674             dump_expr (ob, flags | TFF_EXPR_IN_PARENS);
1675             pp_cxx_dot (cxx_pp);
1676           }
1677         dump_expr (TREE_OPERAND (t, 1), flags & ~TFF_EXPR_IN_PARENS);
1678       }
1679       break;
1680
1681     case ARRAY_REF:
1682       dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
1683       pp_cxx_left_bracket (cxx_pp);
1684       dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
1685       pp_cxx_right_bracket (cxx_pp);
1686       break;
1687
1688     case UNARY_PLUS_EXPR:
1689       dump_unary_op ("+", t, flags);
1690       break;
1691
1692     case ADDR_EXPR:
1693       if (TREE_CODE (TREE_OPERAND (t, 0)) == FUNCTION_DECL
1694           || TREE_CODE (TREE_OPERAND (t, 0)) == STRING_CST
1695           /* An ADDR_EXPR can have reference type.  In that case, we
1696              shouldn't print the `&' doing so indicates to the user
1697              that the expression has pointer type.  */
1698           || (TREE_TYPE (t)
1699               && TREE_CODE (TREE_TYPE (t)) == REFERENCE_TYPE))
1700         dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
1701       else if (TREE_CODE (TREE_OPERAND (t, 0)) == LABEL_DECL)
1702         dump_unary_op ("&&", t, flags);
1703       else
1704         dump_unary_op ("&", t, flags);
1705       break;
1706
1707     case INDIRECT_REF:
1708       if (TREE_HAS_CONSTRUCTOR (t))
1709         {
1710           t = TREE_OPERAND (t, 0);
1711           gcc_assert (TREE_CODE (t) == CALL_EXPR);
1712           dump_expr (CALL_EXPR_FN (t), flags | TFF_EXPR_IN_PARENS);
1713           dump_call_expr_args (t, flags, true);
1714         }
1715       else
1716         {
1717           if (TREE_OPERAND (t,0) != NULL_TREE
1718               && TREE_TYPE (TREE_OPERAND (t, 0))
1719               && NEXT_CODE (TREE_OPERAND (t, 0)) == REFERENCE_TYPE)
1720             dump_expr (TREE_OPERAND (t, 0), flags);
1721           else
1722             dump_unary_op ("*", t, flags);
1723         }
1724       break;
1725
1726     case NEGATE_EXPR:
1727     case BIT_NOT_EXPR:
1728     case TRUTH_NOT_EXPR:
1729     case PREDECREMENT_EXPR:
1730     case PREINCREMENT_EXPR:
1731       dump_unary_op (operator_name_info [(int)TREE_CODE (t)].name, t, flags);
1732       break;
1733
1734     case POSTDECREMENT_EXPR:
1735     case POSTINCREMENT_EXPR:
1736       pp_cxx_left_paren (cxx_pp);
1737       dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
1738       pp_cxx_identifier (cxx_pp, operator_name_info[(int)TREE_CODE (t)].name);
1739       pp_cxx_right_paren (cxx_pp);
1740       break;
1741
1742     case NON_LVALUE_EXPR:
1743       /* FIXME: This is a KLUDGE workaround for a parsing problem.  There
1744          should be another level of INDIRECT_REF so that I don't have to do
1745          this.  */
1746       if (TREE_TYPE (t) != NULL_TREE && NEXT_CODE (t) == POINTER_TYPE)
1747         {
1748           tree next = TREE_TYPE (TREE_TYPE (t));
1749
1750           while (TREE_CODE (next) == POINTER_TYPE)
1751             next = TREE_TYPE (next);
1752
1753           if (TREE_CODE (next) == FUNCTION_TYPE)
1754             {
1755               if (flags & TFF_EXPR_IN_PARENS)
1756                 pp_cxx_left_paren (cxx_pp);
1757               pp_cxx_star (cxx_pp);
1758               dump_expr (TREE_OPERAND (t, 0), flags & ~TFF_EXPR_IN_PARENS);
1759               if (flags & TFF_EXPR_IN_PARENS)
1760                 pp_cxx_right_paren (cxx_pp);
1761               break;
1762             }
1763           /* Else fall through.  */
1764         }
1765       dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
1766       break;
1767
1768     CASE_CONVERT:
1769     case VIEW_CONVERT_EXPR:
1770       {
1771         tree op = TREE_OPERAND (t, 0);
1772
1773         if (!same_type_p (TREE_TYPE (op), TREE_TYPE (t)))
1774           {
1775             /* It is a cast, but we cannot tell whether it is a
1776                reinterpret or static cast. Use the C style notation.  */
1777             if (flags & TFF_EXPR_IN_PARENS)
1778               pp_cxx_left_paren (cxx_pp);
1779             pp_cxx_left_paren (cxx_pp);
1780             dump_type (TREE_TYPE (t), flags);
1781             pp_cxx_right_paren (cxx_pp);
1782             dump_expr (op, flags | TFF_EXPR_IN_PARENS);
1783             if (flags & TFF_EXPR_IN_PARENS)
1784               pp_cxx_right_paren (cxx_pp);
1785           }
1786         else
1787           dump_expr (op, flags);
1788         break;
1789       }
1790
1791     case CONSTRUCTOR:
1792       if (TREE_TYPE (t) && TYPE_PTRMEMFUNC_P (TREE_TYPE (t)))
1793         {
1794           tree idx = build_ptrmemfunc_access_expr (t, pfn_identifier);
1795
1796           if (integer_zerop (idx))
1797             {
1798               /* A NULL pointer-to-member constant.  */
1799               pp_cxx_left_paren (cxx_pp);
1800               pp_cxx_left_paren (cxx_pp);
1801               dump_type (TREE_TYPE (t), flags);
1802               pp_cxx_right_paren (cxx_pp);
1803               pp_character (cxx_pp, '0');
1804               pp_cxx_right_paren (cxx_pp);
1805               break;
1806             }
1807           else if (host_integerp (idx, 0))
1808             {
1809               tree virtuals;
1810               unsigned HOST_WIDE_INT n;
1811
1812               t = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (TREE_TYPE (t)));
1813               t = TYPE_METHOD_BASETYPE (t);
1814               virtuals = BINFO_VIRTUALS (TYPE_BINFO (TYPE_MAIN_VARIANT (t)));
1815
1816               n = tree_low_cst (idx, 0);
1817
1818               /* Map vtable index back one, to allow for the null pointer to
1819                  member.  */
1820               --n;
1821
1822               while (n > 0 && virtuals)
1823                 {
1824                   --n;
1825                   virtuals = TREE_CHAIN (virtuals);
1826                 }
1827               if (virtuals)
1828                 {
1829                   dump_expr (BV_FN (virtuals),
1830                              flags | TFF_EXPR_IN_PARENS);
1831                   break;
1832                 }
1833             }
1834         }
1835       if (TREE_TYPE (t) && EMPTY_CONSTRUCTOR_P (t))
1836         {
1837           dump_type (TREE_TYPE (t), 0);
1838           pp_cxx_left_paren (cxx_pp);
1839           pp_cxx_right_paren (cxx_pp);
1840         }
1841       else
1842         {
1843           pp_cxx_left_brace (cxx_pp);
1844           dump_expr_init_vec (CONSTRUCTOR_ELTS (t), flags);
1845           pp_cxx_right_brace (cxx_pp);
1846         }
1847
1848       break;
1849
1850     case OFFSET_REF:
1851       {
1852         tree ob = TREE_OPERAND (t, 0);
1853         if (is_dummy_object (ob))
1854           {
1855             t = TREE_OPERAND (t, 1);
1856             if (TREE_CODE (t) == FUNCTION_DECL)
1857               /* A::f */
1858               dump_expr (t, flags | TFF_EXPR_IN_PARENS);
1859             else if (BASELINK_P (t))
1860               dump_expr (OVL_CURRENT (BASELINK_FUNCTIONS (t)),
1861                          flags | TFF_EXPR_IN_PARENS);
1862             else
1863               dump_decl (t, flags);
1864           }
1865         else
1866           {
1867             if (TREE_CODE (ob) == INDIRECT_REF)
1868               {
1869                 dump_expr (TREE_OPERAND (ob, 0), flags | TFF_EXPR_IN_PARENS);
1870                 pp_cxx_arrow (cxx_pp);
1871                 pp_cxx_star (cxx_pp);
1872               }
1873             else
1874               {
1875                 dump_expr (ob, flags | TFF_EXPR_IN_PARENS);
1876                 pp_cxx_dot (cxx_pp);
1877                 pp_cxx_star (cxx_pp);
1878               }
1879             dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
1880           }
1881         break;
1882       }
1883
1884     case TEMPLATE_PARM_INDEX:
1885       dump_decl (TEMPLATE_PARM_DECL (t), flags & ~TFF_DECL_SPECIFIERS);
1886       break;
1887
1888     case CAST_EXPR:
1889       if (TREE_OPERAND (t, 0) == NULL_TREE
1890           || TREE_CHAIN (TREE_OPERAND (t, 0)))
1891         {
1892           dump_type (TREE_TYPE (t), flags);
1893           pp_cxx_left_paren (cxx_pp);
1894           dump_expr_list (TREE_OPERAND (t, 0), flags);
1895           pp_cxx_right_paren (cxx_pp);
1896         }
1897       else
1898         {
1899           pp_cxx_left_paren (cxx_pp);
1900           dump_type (TREE_TYPE (t), flags);
1901           pp_cxx_right_paren (cxx_pp);
1902           pp_cxx_left_paren (cxx_pp);
1903           dump_expr_list (TREE_OPERAND (t, 0), flags);
1904           pp_cxx_right_paren (cxx_pp);
1905         }
1906       break;
1907
1908     case STATIC_CAST_EXPR:
1909       pp_cxx_identifier (cxx_pp, "static_cast");
1910       goto cast;
1911     case REINTERPRET_CAST_EXPR:
1912       pp_cxx_identifier (cxx_pp, "reinterpret_cast");
1913       goto cast;
1914     case CONST_CAST_EXPR:
1915       pp_cxx_identifier (cxx_pp, "const_cast");
1916       goto cast;
1917     case DYNAMIC_CAST_EXPR:
1918       pp_cxx_identifier (cxx_pp, "dynamic_cast");
1919     cast:
1920       pp_cxx_begin_template_argument_list (cxx_pp);
1921       dump_type (TREE_TYPE (t), flags);
1922       pp_cxx_end_template_argument_list (cxx_pp);
1923       pp_cxx_left_paren (cxx_pp);
1924       dump_expr (TREE_OPERAND (t, 0), flags);
1925       pp_cxx_right_paren (cxx_pp);
1926       break;
1927
1928     case ARROW_EXPR:
1929       dump_expr (TREE_OPERAND (t, 0), flags);
1930       pp_cxx_arrow (cxx_pp);
1931       break;
1932
1933     case SIZEOF_EXPR:
1934     case ALIGNOF_EXPR:
1935       if (TREE_CODE (t) == SIZEOF_EXPR)
1936         pp_cxx_identifier (cxx_pp, "sizeof");
1937       else
1938         {
1939           gcc_assert (TREE_CODE (t) == ALIGNOF_EXPR);
1940           pp_cxx_identifier (cxx_pp, "__alignof__");
1941         }
1942       pp_cxx_whitespace (cxx_pp);
1943       pp_cxx_left_paren (cxx_pp);
1944       if (TYPE_P (TREE_OPERAND (t, 0)))
1945         dump_type (TREE_OPERAND (t, 0), flags);
1946       else
1947         dump_expr (TREE_OPERAND (t, 0), flags);
1948       pp_cxx_right_paren (cxx_pp);
1949       break;
1950
1951     case REALPART_EXPR:
1952     case IMAGPART_EXPR:
1953       pp_cxx_identifier (cxx_pp, operator_name_info[TREE_CODE (t)].name);
1954       pp_cxx_whitespace (cxx_pp);
1955       dump_expr (TREE_OPERAND (t, 0), flags);
1956       break;
1957
1958     case DEFAULT_ARG:
1959       pp_identifier (cxx_pp, "<unparsed>");
1960       break;
1961
1962     case TRY_CATCH_EXPR:
1963     case WITH_CLEANUP_EXPR:
1964     case CLEANUP_POINT_EXPR:
1965       dump_expr (TREE_OPERAND (t, 0), flags);
1966       break;
1967
1968     case PSEUDO_DTOR_EXPR:
1969       dump_expr (TREE_OPERAND (t, 2), flags);
1970       pp_cxx_dot (cxx_pp);
1971       dump_type (TREE_OPERAND (t, 0), flags);
1972       pp_cxx_colon_colon (cxx_pp);
1973       pp_cxx_complement (cxx_pp);
1974       dump_type (TREE_OPERAND (t, 1), flags);
1975       break;
1976
1977     case TEMPLATE_ID_EXPR:
1978       dump_decl (t, flags);
1979       break;
1980
1981     case BIND_EXPR:
1982     case STMT_EXPR:
1983     case EXPR_STMT:
1984     case STATEMENT_LIST:
1985       /* We don't yet have a way of dumping statements in a
1986          human-readable format.  */
1987       pp_string (cxx_pp, "({...})");
1988       break;
1989
1990     case LOOP_EXPR:
1991       pp_string (cxx_pp, "while (1) { ");
1992       dump_expr (TREE_OPERAND (t, 0), flags & ~TFF_EXPR_IN_PARENS);
1993       pp_cxx_right_brace (cxx_pp);
1994       break;
1995
1996     case EXIT_EXPR:
1997       pp_string (cxx_pp, "if (");
1998       dump_expr (TREE_OPERAND (t, 0), flags & ~TFF_EXPR_IN_PARENS);
1999       pp_string (cxx_pp, ") break; ");
2000       break;
2001
2002     case BASELINK:
2003       dump_expr (get_first_fn (t), flags & ~TFF_EXPR_IN_PARENS);
2004       break;
2005
2006     case EMPTY_CLASS_EXPR:
2007       dump_type (TREE_TYPE (t), flags);
2008       pp_cxx_left_paren (cxx_pp);
2009       pp_cxx_right_paren (cxx_pp);
2010       break;
2011
2012     case NON_DEPENDENT_EXPR:
2013       dump_expr (TREE_OPERAND (t, 0), flags);
2014       break;
2015
2016     case ARGUMENT_PACK_SELECT:
2017       dump_template_argument (ARGUMENT_PACK_SELECT_FROM_PACK (t), flags);
2018       break;
2019
2020     case RECORD_TYPE:
2021     case UNION_TYPE:
2022     case ENUMERAL_TYPE:
2023     case REAL_TYPE:
2024     case VOID_TYPE:
2025     case BOOLEAN_TYPE:
2026     case INTEGER_TYPE:
2027     case COMPLEX_TYPE:
2028     case VECTOR_TYPE:
2029       pp_type_specifier_seq (cxx_pp, t);
2030       break;
2031
2032     case TYPENAME_TYPE:
2033       /* We get here when we want to print a dependent type as an
2034          id-expression, without any disambiguator decoration.  */
2035       pp_id_expression (cxx_pp, t);
2036       break;
2037
2038     case TEMPLATE_TYPE_PARM:
2039     case BOUND_TEMPLATE_TEMPLATE_PARM:
2040       dump_type (t, flags);
2041       break;
2042
2043     case TRAIT_EXPR:
2044       pp_cxx_trait_expression (cxx_pp, t);
2045       break;
2046
2047     case VA_ARG_EXPR:
2048       pp_cxx_va_arg_expression (cxx_pp, t);
2049       break;
2050
2051     case OFFSETOF_EXPR:
2052       pp_cxx_offsetof_expression (cxx_pp, t);
2053       break;
2054
2055     case SCOPE_REF:
2056     case EXPR_PACK_EXPANSION:
2057     case TYPEID_EXPR:
2058     case MEMBER_REF:
2059     case DOTSTAR_EXPR:
2060     case NEW_EXPR:
2061     case VEC_NEW_EXPR:
2062     case DELETE_EXPR:
2063     case VEC_DELETE_EXPR:
2064     case MODOP_EXPR:
2065     case ABS_EXPR:
2066     case CONJ_EXPR:
2067     case VECTOR_CST:
2068     case FIXED_CST:
2069     case UNORDERED_EXPR:
2070     case ORDERED_EXPR:
2071     case UNLT_EXPR:
2072     case UNLE_EXPR:
2073     case UNGT_EXPR:
2074     case UNGE_EXPR:
2075     case UNEQ_EXPR:
2076     case LTGT_EXPR:
2077     case COMPLEX_EXPR:
2078     case BIT_FIELD_REF:
2079     case FIX_TRUNC_EXPR:
2080     case FLOAT_EXPR:
2081       pp_expression (cxx_pp, t);
2082       break;
2083
2084     case TRUTH_AND_EXPR:
2085     case TRUTH_OR_EXPR:
2086     case TRUTH_XOR_EXPR:
2087       if (flags & TFF_EXPR_IN_PARENS)
2088         pp_cxx_left_paren (cxx_pp);
2089       pp_expression (cxx_pp, t);
2090       if (flags & TFF_EXPR_IN_PARENS)
2091         pp_cxx_right_paren (cxx_pp);
2092       break;
2093
2094     case OBJ_TYPE_REF:
2095       dump_expr (resolve_virtual_fun_from_obj_type_ref (t), flags);
2096       break;
2097
2098       /*  This list is incomplete, but should suffice for now.
2099           It is very important that `sorry' does not call
2100           `report_error_function'.  That could cause an infinite loop.  */
2101     default:
2102       pp_unsupported_tree (cxx_pp, t);
2103       /* fall through to ERROR_MARK...  */
2104     case ERROR_MARK:
2105       pp_identifier (cxx_pp, "<expression error>");
2106       break;
2107     }
2108 }
2109
2110 static void
2111 dump_binary_op (const char *opstring, tree t, int flags)
2112 {
2113   pp_cxx_left_paren (cxx_pp);
2114   dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
2115   pp_cxx_whitespace (cxx_pp);
2116   if (opstring)
2117     pp_cxx_identifier (cxx_pp, opstring);
2118   else
2119     pp_identifier (cxx_pp, "<unknown operator>");
2120   pp_cxx_whitespace (cxx_pp);
2121   dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
2122   pp_cxx_right_paren (cxx_pp);
2123 }
2124
2125 static void
2126 dump_unary_op (const char *opstring, tree t, int flags)
2127 {
2128   if (flags & TFF_EXPR_IN_PARENS)
2129     pp_cxx_left_paren (cxx_pp);
2130   pp_cxx_identifier (cxx_pp, opstring);
2131   dump_expr (TREE_OPERAND (t, 0), flags & ~TFF_EXPR_IN_PARENS);
2132   if (flags & TFF_EXPR_IN_PARENS)
2133     pp_cxx_right_paren (cxx_pp);
2134 }
2135
2136 static void
2137 reinit_cxx_pp (void)
2138 {
2139   pp_clear_output_area (cxx_pp);
2140   pp_base (cxx_pp)->padding = pp_none;
2141   pp_indentation (cxx_pp) = 0;
2142   pp_needs_newline (cxx_pp) = false;
2143   cxx_pp->enclosing_scope = current_function_decl;
2144 }
2145
2146
2147 /* Exported interface to stringifying types, exprs and decls under TFF_*
2148    control.  */
2149
2150 const char *
2151 type_as_string (tree typ, int flags)
2152 {
2153   reinit_cxx_pp ();
2154   dump_type (typ, flags);
2155   return pp_formatted_text (cxx_pp);
2156 }
2157
2158 const char *
2159 expr_as_string (tree decl, int flags)
2160 {
2161   reinit_cxx_pp ();
2162   dump_expr (decl, flags);
2163   return pp_formatted_text (cxx_pp);
2164 }
2165
2166 const char *
2167 decl_as_string (tree decl, int flags)
2168 {
2169   reinit_cxx_pp ();
2170   dump_decl (decl, flags);
2171   return pp_formatted_text (cxx_pp);
2172 }
2173
2174 /* Generate the three forms of printable names for cxx_printable_name.  */
2175
2176 const char *
2177 lang_decl_name (tree decl, int v)
2178 {
2179   if (v >= 2)
2180     return decl_as_string (decl, TFF_DECL_SPECIFIERS);
2181
2182   reinit_cxx_pp ();
2183   if (v == 1 && DECL_CLASS_SCOPE_P (decl))
2184     {
2185       dump_type (CP_DECL_CONTEXT (decl), TFF_PLAIN_IDENTIFIER);
2186       pp_cxx_colon_colon (cxx_pp);
2187     }
2188
2189   if (TREE_CODE (decl) == FUNCTION_DECL)
2190     dump_function_name (decl, TFF_PLAIN_IDENTIFIER);
2191   else
2192     dump_decl (DECL_NAME (decl), TFF_PLAIN_IDENTIFIER);
2193
2194   return pp_formatted_text (cxx_pp);
2195 }
2196
2197 /* Return the location of a tree passed to %+ formats.  */
2198
2199 static location_t
2200 location_of (tree t)
2201 {
2202   if (TREE_CODE (t) == PARM_DECL && DECL_CONTEXT (t))
2203     t = DECL_CONTEXT (t);
2204   else if (TYPE_P (t))
2205     t = TYPE_MAIN_DECL (t);
2206   else if (TREE_CODE (t) == OVERLOAD)
2207     t = OVL_FUNCTION (t);
2208
2209   return DECL_SOURCE_LOCATION (t);
2210 }
2211
2212 /* Now the interfaces from error et al to dump_type et al. Each takes an
2213    on/off VERBOSE flag and supply the appropriate TFF_ flags to a dump_
2214    function.  */
2215
2216 static const char *
2217 decl_to_string (tree decl, int verbose)
2218 {
2219   int flags = 0;
2220
2221   if (TREE_CODE (decl) == TYPE_DECL || TREE_CODE (decl) == RECORD_TYPE
2222       || TREE_CODE (decl) == UNION_TYPE || TREE_CODE (decl) == ENUMERAL_TYPE)
2223     flags = TFF_CLASS_KEY_OR_ENUM;
2224   if (verbose)
2225     flags |= TFF_DECL_SPECIFIERS;
2226   else if (TREE_CODE (decl) == FUNCTION_DECL)
2227     flags |= TFF_DECL_SPECIFIERS | TFF_RETURN_TYPE;
2228   flags |= TFF_TEMPLATE_HEADER;
2229
2230   reinit_cxx_pp ();
2231   dump_decl (decl, flags);
2232   return pp_formatted_text (cxx_pp);
2233 }
2234
2235 static const char *
2236 expr_to_string (tree decl)
2237 {
2238   reinit_cxx_pp ();
2239   dump_expr (decl, 0);
2240   return pp_formatted_text (cxx_pp);
2241 }
2242
2243 static const char *
2244 fndecl_to_string (tree fndecl, int verbose)
2245 {
2246   int flags;
2247
2248   flags = TFF_EXCEPTION_SPECIFICATION | TFF_DECL_SPECIFIERS
2249     | TFF_TEMPLATE_HEADER;
2250   if (verbose)
2251     flags |= TFF_FUNCTION_DEFAULT_ARGUMENTS;
2252   reinit_cxx_pp ();
2253   dump_decl (fndecl, flags);
2254   return pp_formatted_text (cxx_pp);
2255 }
2256
2257
2258 static const char *
2259 code_to_string (enum tree_code c)
2260 {
2261   return tree_code_name [c];
2262 }
2263
2264 const char *
2265 language_to_string (enum languages c)
2266 {
2267   switch (c)
2268     {
2269     case lang_c:
2270       return "C";
2271
2272     case lang_cplusplus:
2273       return "C++";
2274
2275     case lang_java:
2276       return "Java";
2277
2278     default:
2279       gcc_unreachable ();
2280     }
2281   return NULL;
2282 }
2283
2284 /* Return the proper printed version of a parameter to a C++ function.  */
2285
2286 static const char *
2287 parm_to_string (int p)
2288 {
2289   reinit_cxx_pp ();
2290   if (p < 0)
2291     pp_string (cxx_pp, "'this'");
2292   else
2293     pp_decimal_int (cxx_pp, p + 1);
2294   return pp_formatted_text (cxx_pp);
2295 }
2296
2297 static const char *
2298 op_to_string (enum tree_code p)
2299 {
2300   tree id = operator_name_info[(int) p].identifier;
2301   return id ? IDENTIFIER_POINTER (id) : "<unknown>";
2302 }
2303
2304 static const char *
2305 type_to_string (tree typ, int verbose)
2306 {
2307   int flags = 0;
2308   if (verbose)
2309     flags |= TFF_CLASS_KEY_OR_ENUM;
2310   flags |= TFF_TEMPLATE_HEADER;
2311
2312   reinit_cxx_pp ();
2313   dump_type (typ, flags);
2314   return pp_formatted_text (cxx_pp);
2315 }
2316
2317 static const char *
2318 assop_to_string (enum tree_code p)
2319 {
2320   tree id = assignment_operator_name_info[(int) p].identifier;
2321   return id ? IDENTIFIER_POINTER (id) : "{unknown}";
2322 }
2323
2324 static const char *
2325 args_to_string (tree p, int verbose)
2326 {
2327   int flags = 0;
2328   if (verbose)
2329     flags |= TFF_CLASS_KEY_OR_ENUM;
2330
2331   if (p == NULL_TREE)
2332     return "";
2333
2334   if (TYPE_P (TREE_VALUE (p)))
2335     return type_as_string (p, flags);
2336
2337   reinit_cxx_pp ();
2338   for (; p; p = TREE_CHAIN (p))
2339     {
2340       if (TREE_VALUE (p) == null_node)
2341         pp_cxx_identifier (cxx_pp, "NULL");
2342       else
2343         dump_type (error_type (TREE_VALUE (p)), flags);
2344       if (TREE_CHAIN (p))
2345         pp_separate_with_comma (cxx_pp);
2346     }
2347   return pp_formatted_text (cxx_pp);
2348 }
2349
2350 static const char *
2351 cv_to_string (tree p, int v)
2352 {
2353   reinit_cxx_pp ();
2354   pp_base (cxx_pp)->padding = v ? pp_before : pp_none;
2355   pp_cxx_cv_qualifier_seq (cxx_pp, p);
2356   return pp_formatted_text (cxx_pp);
2357 }
2358
2359 /* Langhook for print_error_function.  */
2360 void
2361 cxx_print_error_function (diagnostic_context *context, const char *file,
2362                           diagnostic_info *diagnostic)
2363 {
2364   lhd_print_error_function (context, file, diagnostic);
2365   pp_base_set_prefix (context->printer, file);
2366   maybe_print_instantiation_context (context);
2367 }
2368
2369 static void
2370 cp_diagnostic_starter (diagnostic_context *context,
2371                        diagnostic_info *diagnostic)
2372 {
2373   diagnostic_report_current_module (context);
2374   cp_print_error_function (context, diagnostic);
2375   maybe_print_instantiation_context (context);
2376   pp_base_set_prefix (context->printer, diagnostic_build_prefix (diagnostic));
2377 }
2378
2379 static void
2380 cp_diagnostic_finalizer (diagnostic_context *context,
2381                          diagnostic_info *diagnostic ATTRIBUTE_UNUSED)
2382 {
2383   pp_base_destroy_prefix (context->printer);
2384 }
2385
2386 /* Print current function onto BUFFER, in the process of reporting
2387    a diagnostic message.  Called from cp_diagnostic_starter.  */
2388 static void
2389 cp_print_error_function (diagnostic_context *context,
2390                          diagnostic_info *diagnostic)
2391 {
2392   if (diagnostic_last_function_changed (context, diagnostic))
2393     {
2394       const char *old_prefix = context->printer->prefix;
2395       const char *file = LOCATION_FILE (diagnostic->location);
2396       tree abstract_origin = diagnostic->abstract_origin;
2397       char *new_prefix = (file && abstract_origin == NULL)
2398                          ? file_name_as_prefix (file) : NULL;
2399
2400       pp_base_set_prefix (context->printer, new_prefix);
2401
2402       if (current_function_decl == NULL)
2403         pp_base_string (context->printer, "At global scope:");
2404       else
2405         {
2406           tree fndecl, ao;
2407
2408           if (abstract_origin)
2409             {
2410               ao = BLOCK_ABSTRACT_ORIGIN (abstract_origin);
2411               while (TREE_CODE (ao) == BLOCK
2412                      && BLOCK_ABSTRACT_ORIGIN (ao)
2413                      && BLOCK_ABSTRACT_ORIGIN (ao) != ao)
2414                 ao = BLOCK_ABSTRACT_ORIGIN (ao);
2415               gcc_assert (TREE_CODE (ao) == FUNCTION_DECL);
2416               fndecl = ao;
2417             }
2418           else
2419             fndecl = current_function_decl;
2420
2421           pp_printf (context->printer, "In %s %qs",
2422                      function_category (fndecl),
2423                      cxx_printable_name (fndecl, 2));
2424
2425           while (abstract_origin)
2426             {
2427               location_t *locus;
2428               tree block = abstract_origin;
2429
2430               locus = &BLOCK_SOURCE_LOCATION (block);
2431               fndecl = NULL;
2432               block = BLOCK_SUPERCONTEXT (block);
2433               while (block && TREE_CODE (block) == BLOCK
2434                      && BLOCK_ABSTRACT_ORIGIN (block))
2435                 {
2436                   ao = BLOCK_ABSTRACT_ORIGIN (block);
2437
2438                   while (TREE_CODE (ao) == BLOCK
2439                          && BLOCK_ABSTRACT_ORIGIN (ao)
2440                          && BLOCK_ABSTRACT_ORIGIN (ao) != ao)
2441                     ao = BLOCK_ABSTRACT_ORIGIN (ao);
2442
2443                   if (TREE_CODE (ao) == FUNCTION_DECL)
2444                     {
2445                       fndecl = ao;
2446                       break;
2447                     }
2448                   else if (TREE_CODE (ao) != BLOCK)
2449                     break;
2450
2451                   block = BLOCK_SUPERCONTEXT (block);
2452                 }
2453               if (fndecl)
2454                 abstract_origin = block;
2455               else
2456                 {
2457                   while (block && TREE_CODE (block) == BLOCK)
2458                     block = BLOCK_SUPERCONTEXT (block);
2459
2460                   if (TREE_CODE (block) == FUNCTION_DECL)
2461                     fndecl = block;
2462                   abstract_origin = NULL;
2463                 }
2464               if (fndecl)
2465                 {
2466                   expanded_location s = expand_location (*locus);
2467                   pp_base_character (context->printer, ',');
2468                   pp_base_newline (context->printer);
2469                   if (s.file != NULL)
2470                     {
2471                       if (flag_show_column && s.column != 0)
2472                         pp_printf (context->printer,
2473                                    "    inlined from %qs at %s:%d:%d",
2474                                    cxx_printable_name (fndecl, 2),
2475                                    s.file, s.line, s.column);
2476                       else
2477                         pp_printf (context->printer,
2478                                    "    inlined from %qs at %s:%d",
2479                                    cxx_printable_name (fndecl, 2),
2480                                    s.file, s.line);
2481
2482                     }
2483                   else
2484                     pp_printf (context->printer, "    inlined from %qs",
2485                                cxx_printable_name (fndecl, 2));
2486                 }
2487             }
2488           pp_base_character (context->printer, ':');
2489         }
2490       pp_base_newline (context->printer);
2491
2492       diagnostic_set_last_function (context, diagnostic);
2493       pp_base_destroy_prefix (context->printer);
2494       context->printer->prefix = old_prefix;
2495     }
2496 }
2497
2498 /* Returns a description of FUNCTION using standard terminology.  */
2499 static const char *
2500 function_category (tree fn)
2501 {
2502   if (DECL_FUNCTION_MEMBER_P (fn))
2503     {
2504       if (DECL_STATIC_FUNCTION_P (fn))
2505         return "static member function";
2506       else if (DECL_COPY_CONSTRUCTOR_P (fn))
2507         return "copy constructor";
2508       else if (DECL_CONSTRUCTOR_P (fn))
2509         return "constructor";
2510       else if (DECL_DESTRUCTOR_P (fn))
2511         return "destructor";
2512       else
2513         return "member function";
2514     }
2515   else
2516     return "function";
2517 }
2518
2519 /* Report the full context of a current template instantiation,
2520    onto BUFFER.  */
2521 static void
2522 print_instantiation_full_context (diagnostic_context *context)
2523 {
2524   struct tinst_level *p = current_instantiation ();
2525   location_t location = input_location;
2526
2527   if (p)
2528     {
2529       if (current_function_decl != p->decl
2530           && current_function_decl != NULL_TREE)
2531         /* We can get here during the processing of some synthesized
2532            method.  Then, P->DECL will be the function that's causing
2533            the synthesis.  */
2534         ;
2535       else
2536         {
2537           if (current_function_decl == p->decl)
2538             /* Avoid redundancy with the "In function" line.  */;
2539           else
2540             pp_verbatim (context->printer,
2541                          "%s: In instantiation of %qs:\n",
2542                          LOCATION_FILE (location),
2543                          decl_as_string (p->decl,
2544                                          TFF_DECL_SPECIFIERS | TFF_RETURN_TYPE));
2545
2546           location = p->locus;
2547           p = p->next;
2548         }
2549     }
2550
2551   print_instantiation_partial_context (context, p, location);
2552 }
2553
2554 /* Same as above but less verbose.  */
2555 static void
2556 print_instantiation_partial_context (diagnostic_context *context,
2557                                      struct tinst_level *t, location_t loc)
2558 {
2559   expanded_location xloc;
2560   for (; ; t = t->next)
2561     {
2562       xloc = expand_location (loc);
2563       if (t == NULL)
2564         break;
2565       pp_verbatim (context->printer, "%s:%d:   instantiated from %qs\n",
2566                    xloc.file, xloc.line,
2567                    decl_as_string (t->decl,
2568                                    TFF_DECL_SPECIFIERS | TFF_RETURN_TYPE));
2569       loc = t->locus;
2570     }
2571   pp_verbatim (context->printer, "%s:%d:   instantiated from here",
2572                xloc.file, xloc.line);
2573   pp_base_newline (context->printer);
2574 }
2575
2576 /* Called from cp_thing to print the template context for an error.  */
2577 static void
2578 maybe_print_instantiation_context (diagnostic_context *context)
2579 {
2580   if (!problematic_instantiation_changed () || current_instantiation () == 0)
2581     return;
2582
2583   record_last_problematic_instantiation ();
2584   print_instantiation_full_context (context);
2585 }
2586
2587 /* Report the bare minimum context of a template instantiation.  */
2588 void
2589 print_instantiation_context (void)
2590 {
2591   print_instantiation_partial_context
2592     (global_dc, current_instantiation (), input_location);
2593   diagnostic_flush_buffer (global_dc);
2594 }
2595 \f
2596 /* Called from output_format -- during diagnostic message processing --
2597    to handle C++ specific format specifier with the following meanings:
2598    %A   function argument-list.
2599    %C   tree code.
2600    %D   declaration.
2601    %E   expression.
2602    %F   function declaration.
2603    %L   language as used in extern "lang".
2604    %O   binary operator.
2605    %P   function parameter whose position is indicated by an integer.
2606    %Q   assignment operator.
2607    %T   type.
2608    %V   cv-qualifier.  */
2609 static bool
2610 cp_printer (pretty_printer *pp, text_info *text, const char *spec,
2611             int precision, bool wide, bool set_locus, bool verbose)
2612 {
2613   const char *result;
2614   tree t = NULL;
2615 #define next_tree    (t = va_arg (*text->args_ptr, tree))
2616 #define next_tcode   va_arg (*text->args_ptr, enum tree_code)
2617 #define next_lang    va_arg (*text->args_ptr, enum languages)
2618 #define next_int     va_arg (*text->args_ptr, int)
2619
2620   if (precision != 0 || wide)
2621     return false;
2622
2623   if (text->locus == NULL)
2624     set_locus = false;
2625
2626   switch (*spec)
2627     {
2628     case 'A': result = args_to_string (next_tree, verbose);     break;
2629     case 'C': result = code_to_string (next_tcode);             break;
2630     case 'D':
2631       {
2632         tree temp = next_tree;
2633         if (DECL_P (temp)
2634             && DECL_DEBUG_EXPR_IS_FROM (temp) && DECL_DEBUG_EXPR (temp))
2635           {
2636             temp = DECL_DEBUG_EXPR (temp);
2637             if (!DECL_P (temp))
2638               {
2639                 result = expr_to_string (temp);
2640                 break;
2641               }
2642           }
2643         result = decl_to_string (temp, verbose);
2644       }
2645       break;
2646     case 'E': result = expr_to_string (next_tree);              break;
2647     case 'F': result = fndecl_to_string (next_tree, verbose);   break;
2648     case 'L': result = language_to_string (next_lang);          break;
2649     case 'O': result = op_to_string (next_tcode);               break;
2650     case 'P': result = parm_to_string (next_int);               break;
2651     case 'Q': result = assop_to_string (next_tcode);            break;
2652     case 'T': result = type_to_string (next_tree, verbose);     break;
2653     case 'V': result = cv_to_string (next_tree, verbose);       break;
2654
2655     default:
2656       return false;
2657     }
2658
2659   pp_base_string (pp, result);
2660   if (set_locus && t != NULL)
2661     *text->locus = location_of (t);
2662   return true;
2663 #undef next_tree
2664 #undef next_tcode
2665 #undef next_lang
2666 #undef next_int
2667 }
2668 \f
2669 /* Callback from cpp_error for PFILE to print diagnostics arising from
2670    interpreting strings.  The diagnostic is of type LEVEL; MSG is the
2671    translated message and AP the arguments.  */
2672
2673 void
2674 cp_cpp_error (cpp_reader *pfile ATTRIBUTE_UNUSED, int level,
2675               const char *msg, va_list *ap)
2676 {
2677   diagnostic_info diagnostic;
2678   diagnostic_t dlevel;
2679   switch (level)
2680     {
2681     case CPP_DL_WARNING:
2682     case CPP_DL_WARNING_SYSHDR:
2683       dlevel = DK_WARNING;
2684       break;
2685     case CPP_DL_PEDWARN:
2686       dlevel = DK_PEDWARN;
2687       break;
2688     case CPP_DL_ERROR:
2689       dlevel = DK_ERROR;
2690       break;
2691     case CPP_DL_ICE:
2692       dlevel = DK_ICE;
2693       break;
2694     default:
2695       gcc_unreachable ();
2696     }
2697   diagnostic_set_info_translated (&diagnostic, msg, ap,
2698                                   input_location, dlevel);
2699   report_diagnostic (&diagnostic);
2700 }
2701
2702 /* Warn about the use of C++0x features when appropriate.  */
2703 void
2704 maybe_warn_cpp0x (const char* str)
2705 {
2706   if ((cxx_dialect == cxx98) && !in_system_header)
2707     /* We really want to suppress this warning in system headers,
2708        because libstdc++ uses variadic templates even when we aren't
2709        in C++0x mode. */
2710     pedwarn (input_location, 0, "%s only available with -std=c++0x or -std=gnu++0x", str);
2711 }
2712
2713 /* Warn about the use of variadic templates when appropriate.  */
2714 void
2715 maybe_warn_variadic_templates (void)
2716 {
2717   maybe_warn_cpp0x ("variadic templates");
2718 }