1996-09-18 05:35:50 +00:00
|
|
|
|
/* Call-backs for C++ error reporting.
|
|
|
|
|
This code is non-reentrant.
|
2002-02-01 18:16:02 +00:00
|
|
|
|
Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002
|
|
|
|
|
Free Software Foundation, Inc.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
This file is part of GNU CC.
|
|
|
|
|
|
|
|
|
|
GNU CC 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, or (at your option)
|
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GNU CC 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 GNU CC; see the file COPYING. If not, write to
|
|
|
|
|
the Free Software Foundation, 59 Temple Place - Suite 330,
|
|
|
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
|
|
|
|
|
|
#include "config.h"
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#include "system.h"
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#include "tree.h"
|
|
|
|
|
#include "cp-tree.h"
|
2002-02-01 18:16:02 +00:00
|
|
|
|
#include "real.h"
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#include "obstack.h"
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#include "toplev.h"
|
2002-02-01 18:16:02 +00:00
|
|
|
|
#include "flags.h"
|
|
|
|
|
#include "diagnostic.h"
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
enum pad { none, before, after };
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
#define sorry_for_unsupported_tree(T) \
|
|
|
|
|
sorry ("`%s' not supported by %s", tree_code_name[(int) TREE_CODE (T)], \
|
|
|
|
|
__FUNCTION__)
|
|
|
|
|
|
|
|
|
|
#define print_scope_operator(BUFFER) output_add_string ((BUFFER), "::")
|
|
|
|
|
#define print_left_paren(BUFFER) output_add_character ((BUFFER), '(')
|
|
|
|
|
#define print_right_paren(BUFFER) output_add_character ((BUFFER), ')')
|
|
|
|
|
#define print_left_bracket(BUFFER) output_add_character ((BUFFER), '[')
|
|
|
|
|
#define print_right_bracket(BUFFER) output_add_character ((BUFFER), ']')
|
|
|
|
|
#define print_template_argument_list_start(BUFFER) \
|
|
|
|
|
print_non_consecutive_character ((BUFFER), '<')
|
|
|
|
|
#define print_template_argument_list_end(BUFFER) \
|
|
|
|
|
print_non_consecutive_character ((BUFFER), '>')
|
|
|
|
|
#define print_whitespace(BUFFER, TFI) \
|
|
|
|
|
do { \
|
|
|
|
|
output_add_space (BUFFER); \
|
|
|
|
|
put_whitespace (TFI) = none; \
|
|
|
|
|
} while (0)
|
|
|
|
|
#define print_tree_identifier(BUFFER, TID) \
|
|
|
|
|
output_add_string ((BUFFER), IDENTIFIER_POINTER (TID))
|
|
|
|
|
#define print_identifier(BUFFER, ID) output_add_string ((BUFFER), (ID))
|
|
|
|
|
#define separate_with_comma(BUFFER) output_add_string ((BUFFER), ", ")
|
|
|
|
|
|
|
|
|
|
/* The global buffer where we dump everything. It is there only for
|
|
|
|
|
transitional purpose. It is expected, in the near future, to be
|
|
|
|
|
completely removed. */
|
|
|
|
|
static output_buffer scratch_buffer_rec;
|
|
|
|
|
static output_buffer *scratch_buffer = &scratch_buffer_rec;
|
|
|
|
|
|
|
|
|
|
# define NEXT_CODE(T) (TREE_CODE (TREE_TYPE (T)))
|
|
|
|
|
|
|
|
|
|
#define reinit_global_formatting_buffer() \
|
|
|
|
|
output_clear_message_text (scratch_buffer)
|
|
|
|
|
|
|
|
|
|
static const char *args_to_string PARAMS ((tree, int));
|
|
|
|
|
static const char *assop_to_string PARAMS ((enum tree_code, int));
|
|
|
|
|
static const char *code_to_string PARAMS ((enum tree_code, int));
|
|
|
|
|
static const char *cv_to_string PARAMS ((tree, int));
|
|
|
|
|
static const char *decl_to_string PARAMS ((tree, int));
|
|
|
|
|
static const char *expr_to_string PARAMS ((tree, int));
|
|
|
|
|
static const char *fndecl_to_string PARAMS ((tree, int));
|
|
|
|
|
static const char *op_to_string PARAMS ((enum tree_code, int));
|
|
|
|
|
static const char *parm_to_string PARAMS ((int, int));
|
|
|
|
|
static const char *type_to_string PARAMS ((tree, int));
|
|
|
|
|
|
|
|
|
|
static void dump_type PARAMS ((tree, int));
|
|
|
|
|
static void dump_typename PARAMS ((tree, int));
|
|
|
|
|
static void dump_simple_decl PARAMS ((tree, tree, int));
|
|
|
|
|
static void dump_decl PARAMS ((tree, int));
|
|
|
|
|
static void dump_template_decl PARAMS ((tree, int));
|
|
|
|
|
static void dump_function_decl PARAMS ((tree, int));
|
|
|
|
|
static void dump_expr PARAMS ((tree, int));
|
|
|
|
|
static void dump_unary_op PARAMS ((const char *, tree, int));
|
|
|
|
|
static void dump_binary_op PARAMS ((const char *, tree, int));
|
|
|
|
|
static void dump_aggr_type PARAMS ((tree, int));
|
|
|
|
|
static enum pad dump_type_prefix PARAMS ((tree, int));
|
|
|
|
|
static void dump_type_suffix PARAMS ((tree, int));
|
|
|
|
|
static void dump_function_name PARAMS ((tree, int));
|
|
|
|
|
static void dump_expr_list PARAMS ((tree, int));
|
|
|
|
|
static void dump_global_iord PARAMS ((tree));
|
|
|
|
|
static enum pad dump_qualifiers PARAMS ((tree, enum pad));
|
|
|
|
|
static void dump_char PARAMS ((int));
|
|
|
|
|
static void dump_parameters PARAMS ((tree, int));
|
|
|
|
|
static void dump_exception_spec PARAMS ((tree, int));
|
|
|
|
|
static const char *class_key_or_enum PARAMS ((tree));
|
|
|
|
|
static void dump_template_argument PARAMS ((tree, int));
|
|
|
|
|
static void dump_template_argument_list PARAMS ((tree, int));
|
|
|
|
|
static void dump_template_parameter PARAMS ((tree, int));
|
|
|
|
|
static void dump_template_bindings PARAMS ((tree, tree));
|
|
|
|
|
static void dump_scope PARAMS ((tree, int));
|
|
|
|
|
static void dump_template_parms PARAMS ((tree, int, int));
|
|
|
|
|
|
|
|
|
|
static const char *function_category PARAMS ((tree));
|
|
|
|
|
static void lang_print_error_function PARAMS ((diagnostic_context *,
|
|
|
|
|
const char *));
|
|
|
|
|
static void maybe_print_instantiation_context PARAMS ((output_buffer *));
|
|
|
|
|
static void print_instantiation_full_context PARAMS ((output_buffer *));
|
|
|
|
|
static void print_instantiation_partial_context PARAMS ((output_buffer *, tree,
|
|
|
|
|
const char *, int));
|
|
|
|
|
static void cp_diagnostic_starter PARAMS ((output_buffer *,
|
|
|
|
|
diagnostic_context *));
|
|
|
|
|
static void cp_diagnostic_finalizer PARAMS ((output_buffer *,
|
|
|
|
|
diagnostic_context *));
|
|
|
|
|
static void cp_print_error_function PARAMS ((output_buffer *,
|
|
|
|
|
diagnostic_context *));
|
|
|
|
|
|
|
|
|
|
static int cp_printer PARAMS ((output_buffer *));
|
|
|
|
|
static void print_non_consecutive_character PARAMS ((output_buffer *, int));
|
|
|
|
|
static void print_integer PARAMS ((output_buffer *, HOST_WIDE_INT));
|
|
|
|
|
static tree locate_error PARAMS ((const char *, va_list));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
init_error ()
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_error_function = lang_print_error_function;
|
|
|
|
|
diagnostic_starter (global_dc) = cp_diagnostic_starter;
|
|
|
|
|
diagnostic_finalizer (global_dc) = cp_diagnostic_finalizer;
|
|
|
|
|
diagnostic_format_decoder (global_dc) = cp_printer;
|
|
|
|
|
|
|
|
|
|
init_output_buffer (scratch_buffer, /* prefix */NULL, /* line-width */0);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Dump a scope, if deemed necessary. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static void
|
|
|
|
|
dump_scope (scope, flags)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
tree scope;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int f = ~TFF_RETURN_TYPE & (flags & (TFF_SCOPE | TFF_CHASE_TYPEDEF));
|
|
|
|
|
|
|
|
|
|
if (scope == NULL_TREE)
|
|
|
|
|
return;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (TREE_CODE (scope) == NAMESPACE_DECL)
|
|
|
|
|
{
|
|
|
|
|
if (scope != global_namespace)
|
|
|
|
|
{
|
|
|
|
|
dump_decl (scope, f);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (AGGREGATE_TYPE_P (scope))
|
|
|
|
|
{
|
|
|
|
|
dump_type (scope, f);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
}
|
|
|
|
|
else if ((flags & TFF_SCOPE) && TREE_CODE (scope) == FUNCTION_DECL)
|
|
|
|
|
{
|
|
|
|
|
dump_function_decl (scope, f);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Dump type qualifiers, providing padding as requested. Return an
|
|
|
|
|
indication of whether we dumped something. */
|
|
|
|
|
|
|
|
|
|
static enum pad
|
1999-10-16 06:09:09 +00:00
|
|
|
|
dump_qualifiers (t, p)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
|
|
|
|
enum pad p;
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static const int masks[] =
|
|
|
|
|
{TYPE_QUAL_CONST, TYPE_QUAL_VOLATILE, TYPE_QUAL_RESTRICT};
|
|
|
|
|
static const char *const names[] =
|
|
|
|
|
{"const", "volatile", "__restrict"};
|
|
|
|
|
int ix;
|
|
|
|
|
int quals = TYPE_QUALS (t);
|
|
|
|
|
int do_after = p == after;
|
|
|
|
|
|
|
|
|
|
if (quals)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
for (ix = 0; ix != 3; ix++)
|
|
|
|
|
if (masks[ix] & quals)
|
|
|
|
|
{
|
|
|
|
|
if (p == before)
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
p = before;
|
|
|
|
|
print_identifier (scratch_buffer, names[ix]);
|
|
|
|
|
}
|
|
|
|
|
if (do_after)
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
p = none;
|
|
|
|
|
return p;
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* This must be large enough to hold any printed integer or floating-point
|
|
|
|
|
value. */
|
|
|
|
|
static char digit_buffer[128];
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Dump the template ARGument under control of FLAGS. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static void
|
|
|
|
|
dump_template_argument (arg, flags)
|
|
|
|
|
tree arg;
|
|
|
|
|
int flags;
|
|
|
|
|
{
|
|
|
|
|
if (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL)
|
|
|
|
|
dump_type (arg, flags & ~TFF_CLASS_KEY_OR_ENUM);
|
|
|
|
|
else
|
|
|
|
|
dump_expr (arg, (flags | TFF_EXPR_IN_PARENS) & ~TFF_CLASS_KEY_OR_ENUM);
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Dump a template-argument-list ARGS (always a TREE_VEC) under control
|
|
|
|
|
of FLAGS. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static void
|
|
|
|
|
dump_template_argument_list (args, flags)
|
|
|
|
|
tree args;
|
|
|
|
|
int flags;
|
|
|
|
|
{
|
|
|
|
|
int n = TREE_VEC_LENGTH (args);
|
|
|
|
|
int need_comma = 0;
|
|
|
|
|
int i;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
for (i = 0; i< n; ++i)
|
|
|
|
|
{
|
|
|
|
|
if (need_comma)
|
|
|
|
|
separate_with_comma (scratch_buffer);
|
|
|
|
|
dump_template_argument (TREE_VEC_ELT (args, i), flags);
|
|
|
|
|
need_comma = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Dump a template parameter PARM (a TREE_LIST) under control of FLAGS. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
dump_template_parameter (parm, flags)
|
|
|
|
|
tree parm;
|
|
|
|
|
int flags;
|
|
|
|
|
{
|
|
|
|
|
tree p = TREE_VALUE (parm);
|
|
|
|
|
tree a = TREE_PURPOSE (parm);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (p) == TYPE_DECL)
|
|
|
|
|
{
|
|
|
|
|
if (flags & TFF_DECL_SPECIFIERS)
|
|
|
|
|
{
|
|
|
|
|
print_identifier (scratch_buffer, "class");
|
|
|
|
|
if (DECL_NAME (p))
|
|
|
|
|
{
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
print_tree_identifier (scratch_buffer, DECL_NAME (p));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (DECL_NAME (p))
|
|
|
|
|
print_tree_identifier (scratch_buffer, DECL_NAME (p));
|
|
|
|
|
else
|
|
|
|
|
print_identifier (scratch_buffer, "{template default argument error}");
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
dump_decl (p, flags | TFF_DECL_SPECIFIERS);
|
|
|
|
|
|
|
|
|
|
if ((flags & TFF_FUNCTION_DEFAULT_ARGUMENTS) && a != NULL_TREE)
|
|
|
|
|
{
|
|
|
|
|
output_add_string (scratch_buffer, " = ");
|
|
|
|
|
if (TREE_CODE (p) == TYPE_DECL || TREE_CODE (p) == TEMPLATE_DECL)
|
|
|
|
|
dump_type (a, flags & ~TFF_CHASE_TYPEDEF);
|
|
|
|
|
else
|
|
|
|
|
dump_expr (a, flags | TFF_EXPR_IN_PARENS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Dump, under control of FLAGS, a template-parameter-list binding.
|
|
|
|
|
PARMS is a TREE_LIST of TREE_VEC of TREE_LIST and ARGS is a
|
|
|
|
|
TREE_VEC. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static void
|
|
|
|
|
dump_template_bindings (parms, args)
|
|
|
|
|
tree parms, args;
|
|
|
|
|
{
|
|
|
|
|
int need_comma = 0;
|
|
|
|
|
|
|
|
|
|
while (parms)
|
|
|
|
|
{
|
|
|
|
|
tree p = TREE_VALUE (parms);
|
|
|
|
|
int lvl = TMPL_PARMS_DEPTH (parms);
|
|
|
|
|
int arg_idx = 0;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < TREE_VEC_LENGTH (p); ++i)
|
|
|
|
|
{
|
|
|
|
|
tree arg = NULL_TREE;
|
|
|
|
|
|
|
|
|
|
/* Don't crash if we had an invalid argument list. */
|
|
|
|
|
if (TMPL_ARGS_DEPTH (args) >= lvl)
|
|
|
|
|
{
|
|
|
|
|
tree lvl_args = TMPL_ARGS_LEVEL (args, lvl);
|
|
|
|
|
if (NUM_TMPL_ARGS (lvl_args) > arg_idx)
|
|
|
|
|
arg = TREE_VEC_ELT (lvl_args, arg_idx);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (need_comma)
|
|
|
|
|
separate_with_comma (scratch_buffer);
|
|
|
|
|
dump_template_parameter (TREE_VEC_ELT (p, i), TFF_PLAIN_IDENTIFIER);
|
|
|
|
|
output_add_string (scratch_buffer, " = ");
|
|
|
|
|
if (arg)
|
|
|
|
|
dump_template_argument (arg, TFF_PLAIN_IDENTIFIER);
|
|
|
|
|
else
|
|
|
|
|
print_identifier (scratch_buffer, "<missing>");
|
|
|
|
|
|
|
|
|
|
++arg_idx;
|
|
|
|
|
need_comma = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
parms = TREE_CHAIN (parms);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Dump into the obstack a human-readable equivalent of TYPE. FLAGS
|
|
|
|
|
controls the format. */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (t, flags)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (t == NULL_TREE)
|
|
|
|
|
return;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (TYPE_PTRMEMFUNC_P (t))
|
|
|
|
|
goto offset_type;
|
|
|
|
|
|
|
|
|
|
switch (TREE_CODE (t))
|
|
|
|
|
{
|
|
|
|
|
case UNKNOWN_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "<unknown type>");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TREE_LIST:
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* A list of function parms. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_parameters (t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case IDENTIFIER_NODE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, t);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TREE_VEC:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (BINFO_TYPE (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case RECORD_TYPE:
|
|
|
|
|
case UNION_TYPE:
|
|
|
|
|
case ENUMERAL_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_aggr_type (t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_DECL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (flags & TFF_CHASE_TYPEDEF)
|
|
|
|
|
{
|
|
|
|
|
dump_type (DECL_ORIGINAL_TYPE (t)
|
|
|
|
|
? DECL_ORIGINAL_TYPE (t) : TREE_TYPE (t), flags);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
/* else fallthrough */
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TEMPLATE_DECL:
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case NAMESPACE_DECL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (t, flags & ~TFF_DECL_SPECIFIERS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case COMPLEX_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "__complex__ ");
|
|
|
|
|
dump_type (TREE_TYPE (t), flags);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case VECTOR_TYPE:
|
|
|
|
|
output_add_string (scratch_buffer, "vector ");
|
2002-05-09 20:02:13 +00:00
|
|
|
|
{
|
|
|
|
|
/* The subtype of a VECTOR_TYPE is something like intQI_type_node,
|
|
|
|
|
which has no name and is not very useful for diagnostics. So
|
|
|
|
|
look up the equivalent C type and print its name. */
|
|
|
|
|
tree elt = TREE_TYPE (t);
|
|
|
|
|
elt = type_for_mode (TYPE_MODE (elt), TREE_UNSIGNED (elt));
|
|
|
|
|
dump_type (elt, flags);
|
|
|
|
|
}
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case INTEGER_TYPE:
|
|
|
|
|
if (!TREE_UNSIGNED (TYPE_MAIN_VARIANT (t)) && TREE_UNSIGNED (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "unsigned ");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else if (TREE_UNSIGNED (TYPE_MAIN_VARIANT (t)) && !TREE_UNSIGNED (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "signed ");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* fall through. */
|
|
|
|
|
case REAL_TYPE:
|
|
|
|
|
case VOID_TYPE:
|
|
|
|
|
case BOOLEAN_TYPE:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
|
|
|
|
tree type;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
dump_qualifiers (t, after);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
type = flags & TFF_CHASE_TYPEDEF ? TYPE_MAIN_VARIANT (t) : t;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TYPE_NAME (type) && TYPE_IDENTIFIER (type))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, TYPE_IDENTIFIER (type));
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else
|
|
|
|
|
/* Types like intQI_type_node and friends have no names.
|
|
|
|
|
These don't come up in user error messages, but it's nice
|
|
|
|
|
to be able to print them from the debugger. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "<anonymous>");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TEMPLATE_TEMPLATE_PARM:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* For parameters inside template signature. */
|
|
|
|
|
if (TYPE_IDENTIFIER (t))
|
|
|
|
|
print_tree_identifier (scratch_buffer, TYPE_IDENTIFIER (t));
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier
|
|
|
|
|
(scratch_buffer, "<anonymous template template parameter>");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BOUND_TEMPLATE_TEMPLATE_PARM:
|
|
|
|
|
{
|
|
|
|
|
tree args = TYPE_TI_ARGS (t);
|
|
|
|
|
print_tree_identifier (scratch_buffer, TYPE_IDENTIFIER (t));
|
|
|
|
|
print_template_argument_list_start (scratch_buffer);
|
|
|
|
|
dump_template_argument_list (args, flags);
|
|
|
|
|
print_template_argument_list_end (scratch_buffer);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TEMPLATE_TYPE_PARM:
|
1999-10-16 06:09:09 +00:00
|
|
|
|
dump_qualifiers (t, after);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TYPE_IDENTIFIER (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, TYPE_IDENTIFIER (t));
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier
|
|
|
|
|
(scratch_buffer, "<anonymous template type parameter>");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
/* This is not always necessary for pointers and such, but doing this
|
|
|
|
|
reduces code size. */
|
|
|
|
|
case ARRAY_TYPE:
|
|
|
|
|
case POINTER_TYPE:
|
|
|
|
|
case REFERENCE_TYPE:
|
|
|
|
|
case OFFSET_TYPE:
|
|
|
|
|
offset_type:
|
|
|
|
|
case FUNCTION_TYPE:
|
|
|
|
|
case METHOD_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
{
|
|
|
|
|
dump_type_prefix (t, flags);
|
|
|
|
|
dump_type_suffix (t, flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
}
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TYPENAME_TYPE:
|
2002-05-09 20:02:13 +00:00
|
|
|
|
if (IMPLICIT_TYPENAME_P (t))
|
|
|
|
|
output_add_string (scratch_buffer, "typename ");
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_typename (t, flags);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case UNBOUND_CLASS_TEMPLATE:
|
|
|
|
|
dump_type (TYPE_CONTEXT (t), flags);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
print_identifier (scratch_buffer, "template ");
|
|
|
|
|
dump_type (DECL_NAME (TYPE_NAME (t)), flags);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPEOF_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "__typeof (");
|
|
|
|
|
dump_expr (TYPE_FIELDS (t), flags & ~TFF_EXPR_IN_PARENS);
|
2002-09-01 20:38:57 +00:00
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
sorry_for_unsupported_tree (t);
|
|
|
|
|
/* Fall through to error. */
|
|
|
|
|
|
|
|
|
|
case ERROR_MARK:
|
|
|
|
|
print_identifier (scratch_buffer, "<type error>");
|
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Dump a TYPENAME_TYPE. We need to notice when the context is itself
|
|
|
|
|
a TYPENAME_TYPE. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
dump_typename (t, flags)
|
|
|
|
|
tree t;
|
|
|
|
|
int flags;
|
|
|
|
|
{
|
|
|
|
|
tree ctx = TYPE_CONTEXT (t);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (ctx) == TYPENAME_TYPE)
|
|
|
|
|
dump_typename (ctx, flags);
|
|
|
|
|
else
|
|
|
|
|
dump_type (ctx, flags & ~TFF_CLASS_KEY_OR_ENUM);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
dump_decl (TYPENAME_TYPE_FULLNAME (t), flags);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the name of the supplied aggregate, or enumeral type. */
|
|
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
|
class_key_or_enum (t)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
|
|
|
|
{
|
|
|
|
|
if (TREE_CODE (t) == ENUMERAL_TYPE)
|
|
|
|
|
return "enum";
|
|
|
|
|
else if (TREE_CODE (t) == UNION_TYPE)
|
|
|
|
|
return "union";
|
|
|
|
|
else if (TYPE_LANG_SPECIFIC (t) && CLASSTYPE_DECLARED_CLASS (t))
|
|
|
|
|
return "class";
|
|
|
|
|
else
|
|
|
|
|
return "struct";
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Print out a class declaration T under the control of FLAGS,
|
|
|
|
|
in the form `class foo'. */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_aggr_type (t, flags)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
tree name;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *variety = class_key_or_enum (t);
|
|
|
|
|
int typdef = 0;
|
|
|
|
|
int tmplate = 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
dump_qualifiers (t, after);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (flags & TFF_CLASS_KEY_OR_ENUM)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, variety);
|
|
|
|
|
output_add_space (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (flags & TFF_CHASE_TYPEDEF)
|
|
|
|
|
t = TYPE_MAIN_VARIANT (t);
|
|
|
|
|
|
|
|
|
|
name = TYPE_NAME (t);
|
|
|
|
|
|
|
|
|
|
if (name)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
typdef = !DECL_ARTIFICIAL (name);
|
|
|
|
|
tmplate = !typdef && TREE_CODE (t) != ENUMERAL_TYPE
|
|
|
|
|
&& TYPE_LANG_SPECIFIC (t) && CLASSTYPE_TEMPLATE_INFO (t)
|
|
|
|
|
&& (CLASSTYPE_TEMPLATE_SPECIALIZATION (t)
|
|
|
|
|
|| TREE_CODE (CLASSTYPE_TI_TEMPLATE (t)) != TEMPLATE_DECL
|
|
|
|
|
|| DECL_TEMPLATE_SPECIALIZATION (CLASSTYPE_TI_TEMPLATE (t))
|
|
|
|
|
|| PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (t)));
|
|
|
|
|
dump_scope (CP_DECL_CONTEXT (name), flags | TFF_SCOPE);
|
|
|
|
|
if (tmplate)
|
|
|
|
|
{
|
|
|
|
|
/* Because the template names are mangled, we have to locate
|
|
|
|
|
the most general template, and use that name. */
|
|
|
|
|
tree tpl = CLASSTYPE_TI_TEMPLATE (t);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
while (DECL_TEMPLATE_INFO (tpl))
|
|
|
|
|
tpl = DECL_TI_TEMPLATE (tpl);
|
|
|
|
|
name = tpl;
|
|
|
|
|
}
|
|
|
|
|
name = DECL_NAME (name);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (name == 0 || ANON_AGGRNAME_P (name))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (flags & TFF_CLASS_KEY_OR_ENUM)
|
|
|
|
|
print_identifier (scratch_buffer, "<anonymous>");
|
|
|
|
|
else
|
|
|
|
|
output_printf (scratch_buffer, "<anonymous %s>", variety);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, name);
|
|
|
|
|
if (tmplate)
|
|
|
|
|
dump_template_parms (TYPE_TEMPLATE_INFO (t),
|
|
|
|
|
!CLASSTYPE_USE_TEMPLATE (t),
|
|
|
|
|
flags & ~TFF_TEMPLATE_HEADER);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Dump into the obstack the initial part of the output for a given type.
|
|
|
|
|
This is necessary when dealing with things like functions returning
|
|
|
|
|
functions. Examples:
|
|
|
|
|
|
|
|
|
|
return type of `int (* fee ())()': pointer -> function -> int. Both
|
|
|
|
|
pointer (and reference and offset) and function (and member) types must
|
|
|
|
|
deal with prefix and suffix.
|
|
|
|
|
|
|
|
|
|
Arrays must also do this for DECL nodes, like int a[], and for things like
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int *[]&.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
Return indicates how you should pad an object name after this. I.e. you
|
|
|
|
|
want to pad non-*, non-& cores, but not pad * or & types. */
|
|
|
|
|
|
|
|
|
|
static enum pad
|
|
|
|
|
dump_type_prefix (t, flags)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
enum pad padding = before;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (TYPE_PTRMEMFUNC_P (t))
|
|
|
|
|
{
|
|
|
|
|
t = TYPE_PTRMEMFUNC_FN_TYPE (t);
|
|
|
|
|
goto offset_type;
|
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
switch (TREE_CODE (t))
|
|
|
|
|
{
|
|
|
|
|
case POINTER_TYPE:
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case REFERENCE_TYPE:
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
tree sub = TREE_TYPE (t);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
|
|
|
|
padding = dump_type_prefix (sub, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* A tree for a member pointer looks like pointer to offset,
|
|
|
|
|
so let the OFFSET_TYPE case handle it. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (!TYPE_PTRMEM_P (t))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (TREE_CODE (sub) == ARRAY_TYPE)
|
|
|
|
|
{
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
}
|
|
|
|
|
output_add_character
|
|
|
|
|
(scratch_buffer, "&*"[TREE_CODE (t) == POINTER_TYPE]);
|
|
|
|
|
padding = dump_qualifiers (t, before);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OFFSET_TYPE:
|
|
|
|
|
offset_type:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
padding = dump_type_prefix (TREE_TYPE (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (TREE_CODE (t) == OFFSET_TYPE) /* pmfs deal with this in d_t_p */
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (padding != none)
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
dump_type (TYPE_OFFSET_BASETYPE (t), flags);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_character (scratch_buffer, '*');
|
|
|
|
|
padding = dump_qualifiers (t, none);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
/* Can only be reached through function pointer -- this would not be
|
|
|
|
|
correct if FUNCTION_DECLs used it. */
|
|
|
|
|
case FUNCTION_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
padding = dump_type_prefix (TREE_TYPE (t), flags);
|
|
|
|
|
if (padding != none)
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
padding = none;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case METHOD_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
padding = dump_type_prefix (TREE_TYPE (t), flags);
|
|
|
|
|
if (padding != none)
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
padding = none;
|
|
|
|
|
dump_aggr_type (TYPE_METHOD_BASETYPE (t), flags);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ARRAY_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
padding = dump_type_prefix (TREE_TYPE (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ENUMERAL_TYPE:
|
|
|
|
|
case IDENTIFIER_NODE:
|
|
|
|
|
case INTEGER_TYPE:
|
|
|
|
|
case BOOLEAN_TYPE:
|
|
|
|
|
case REAL_TYPE:
|
|
|
|
|
case RECORD_TYPE:
|
|
|
|
|
case TEMPLATE_TYPE_PARM:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TEMPLATE_TEMPLATE_PARM:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
case BOUND_TEMPLATE_TEMPLATE_PARM:
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case TREE_LIST:
|
|
|
|
|
case TYPE_DECL:
|
|
|
|
|
case TREE_VEC:
|
|
|
|
|
case UNION_TYPE:
|
|
|
|
|
case UNKNOWN_TYPE:
|
|
|
|
|
case VOID_TYPE:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TYPENAME_TYPE:
|
|
|
|
|
case COMPLEX_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
case VECTOR_TYPE:
|
|
|
|
|
dump_type (t, flags);
|
|
|
|
|
padding = before;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
default:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
sorry_for_unsupported_tree (t);
|
|
|
|
|
/* fall through. */
|
|
|
|
|
case ERROR_MARK:
|
|
|
|
|
print_identifier (scratch_buffer, "<typeprefixerror>");
|
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
return padding;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Dump the suffix of type T, under control of FLAGS. This is the part
|
|
|
|
|
which appears after the identifier (or function parms). */
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type_suffix (t, flags)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (TYPE_PTRMEMFUNC_P (t))
|
|
|
|
|
t = TYPE_PTRMEMFUNC_FN_TYPE (t);
|
|
|
|
|
|
|
|
|
|
switch (TREE_CODE (t))
|
|
|
|
|
{
|
|
|
|
|
case POINTER_TYPE:
|
|
|
|
|
case REFERENCE_TYPE:
|
|
|
|
|
case OFFSET_TYPE:
|
|
|
|
|
if (TREE_CODE (TREE_TYPE (t)) == ARRAY_TYPE)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_right_paren (scratch_buffer);
|
|
|
|
|
dump_type_suffix (TREE_TYPE (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
/* Can only be reached through function pointer */
|
|
|
|
|
case FUNCTION_TYPE:
|
|
|
|
|
case METHOD_TYPE:
|
|
|
|
|
{
|
|
|
|
|
tree arg;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
arg = TYPE_ARG_TYPES (t);
|
|
|
|
|
if (TREE_CODE (t) == METHOD_TYPE)
|
|
|
|
|
arg = TREE_CHAIN (arg);
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Function pointers don't have default args. Not in standard C++,
|
|
|
|
|
anyway; they may in g++, but we'll just pretend otherwise. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_parameters (arg, flags & ~TFF_FUNCTION_DEFAULT_ARGUMENTS);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (TREE_CODE (t) == METHOD_TYPE)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
dump_qualifiers
|
1996-09-18 05:35:50 +00:00
|
|
|
|
(TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (t))), before);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_exception_spec (TYPE_RAISES_EXCEPTIONS (t), flags);
|
|
|
|
|
dump_type_suffix (TREE_TYPE (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case ARRAY_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_left_bracket (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (TYPE_DOMAIN (t))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (host_integerp (TYPE_MAX_VALUE (TYPE_DOMAIN (t)), 0))
|
|
|
|
|
print_integer
|
|
|
|
|
(scratch_buffer,
|
|
|
|
|
tree_low_cst (TYPE_MAX_VALUE (TYPE_DOMAIN (t)), 0) + 1);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else if (TREE_CODE (TYPE_MAX_VALUE (TYPE_DOMAIN (t))) == MINUS_EXPR)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (TYPE_MAX_VALUE (TYPE_DOMAIN (t)), 0),
|
|
|
|
|
flags & ~TFF_EXPR_IN_PARENS);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (fold (cp_build_binary_op
|
1999-08-26 09:30:50 +00:00
|
|
|
|
(PLUS_EXPR, TYPE_MAX_VALUE (TYPE_DOMAIN (t)),
|
2002-02-01 18:16:02 +00:00
|
|
|
|
integer_one_node)),
|
|
|
|
|
flags & ~TFF_EXPR_IN_PARENS);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_right_bracket (scratch_buffer);
|
|
|
|
|
dump_type_suffix (TREE_TYPE (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case ENUMERAL_TYPE:
|
|
|
|
|
case IDENTIFIER_NODE:
|
|
|
|
|
case INTEGER_TYPE:
|
|
|
|
|
case BOOLEAN_TYPE:
|
|
|
|
|
case REAL_TYPE:
|
|
|
|
|
case RECORD_TYPE:
|
|
|
|
|
case TEMPLATE_TYPE_PARM:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TEMPLATE_TEMPLATE_PARM:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
case BOUND_TEMPLATE_TEMPLATE_PARM:
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case TREE_LIST:
|
|
|
|
|
case TYPE_DECL:
|
|
|
|
|
case TREE_VEC:
|
|
|
|
|
case UNION_TYPE:
|
|
|
|
|
case UNKNOWN_TYPE:
|
|
|
|
|
case VOID_TYPE:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TYPENAME_TYPE:
|
|
|
|
|
case COMPLEX_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
case VECTOR_TYPE:
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
sorry_for_unsupported_tree (t);
|
|
|
|
|
case ERROR_MARK:
|
|
|
|
|
/* Don't mark it here, we should have already done in
|
|
|
|
|
dump_type_prefix. */
|
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static void
|
1996-09-18 05:35:50 +00:00
|
|
|
|
dump_global_iord (t)
|
|
|
|
|
tree t;
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *p = NULL;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (DECL_GLOBAL_CTOR_P (t))
|
|
|
|
|
p = "initializers";
|
|
|
|
|
else if (DECL_GLOBAL_DTOR_P (t))
|
|
|
|
|
p = "destructors";
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
output_printf (scratch_buffer, "(static %s for %s)", p, input_filename);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_simple_decl (t, type, flags)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
tree t;
|
|
|
|
|
tree type;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (flags & TFF_DECL_SPECIFIERS)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (dump_type_prefix (type, flags) != none)
|
|
|
|
|
output_add_space (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (!DECL_INITIAL (t) || TREE_CODE (DECL_INITIAL (t)) != TEMPLATE_PARM_INDEX)
|
|
|
|
|
dump_scope (CP_DECL_CONTEXT (t), flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (DECL_NAME (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (DECL_NAME (t), flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "<anonymous>");
|
|
|
|
|
if (flags & TFF_DECL_SPECIFIERS)
|
|
|
|
|
dump_type_suffix (type, flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Dump a human readable string for the decl T under control of FLAGS. */
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (t, flags)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (t == NULL_TREE)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
switch (TREE_CODE (t))
|
|
|
|
|
{
|
|
|
|
|
case TYPE_DECL:
|
|
|
|
|
{
|
|
|
|
|
/* Don't say 'typedef class A' */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (DECL_ARTIFICIAL (t))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if ((flags & TFF_DECL_SPECIFIERS)
|
|
|
|
|
&& TREE_CODE (TREE_TYPE (t)) == TEMPLATE_TYPE_PARM)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* Say `class T' not just `T'. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "class ");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (TREE_TYPE (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (flags & TFF_DECL_SPECIFIERS)
|
|
|
|
|
output_add_string (scratch_buffer, "typedef ");
|
|
|
|
|
dump_simple_decl (t, DECL_ORIGINAL_TYPE (t)
|
|
|
|
|
? DECL_ORIGINAL_TYPE (t) : TREE_TYPE (t),
|
|
|
|
|
flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case VAR_DECL:
|
|
|
|
|
if (DECL_NAME (t) && VTABLE_NAME_P (DECL_NAME (t)))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "vtable for ");
|
|
|
|
|
my_friendly_assert (TYPE_P (DECL_CONTEXT (t)), 20010720);
|
|
|
|
|
dump_type (DECL_CONTEXT (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
/* else fall through */
|
|
|
|
|
case FIELD_DECL:
|
|
|
|
|
case PARM_DECL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_simple_decl (t, TREE_TYPE (t), flags);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case RESULT_DECL:
|
|
|
|
|
output_add_string (scratch_buffer, "<return value> ");
|
|
|
|
|
dump_simple_decl (t, TREE_TYPE (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case NAMESPACE_DECL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_scope (CP_DECL_CONTEXT (t), flags);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (DECL_NAME (t) == anonymous_namespace_name)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "<unnamed>");
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, DECL_NAME (t));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case SCOPE_REF:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (TREE_OPERAND (t, 0), flags & ~TFF_DECL_SPECIFIERS);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
dump_decl (TREE_OPERAND (t, 1), flags);
|
|
|
|
|
break;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case ARRAY_REF:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
print_left_bracket (scratch_buffer);
|
|
|
|
|
dump_decl (TREE_OPERAND (t, 1), flags);
|
|
|
|
|
print_right_bracket (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* So that we can do dump_decl on an aggr type. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case RECORD_TYPE:
|
|
|
|
|
case UNION_TYPE:
|
|
|
|
|
case ENUMERAL_TYPE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TYPE_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
abort ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
/* These special cases are duplicated here so that other functions
|
2002-02-01 18:16:02 +00:00
|
|
|
|
can feed identifiers to error and get them demangled properly. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case IDENTIFIER_NODE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (IDENTIFIER_TYPENAME_P (t))
|
|
|
|
|
{
|
|
|
|
|
output_add_string (scratch_buffer, "operator ");
|
|
|
|
|
/* Not exactly IDENTIFIER_TYPE_VALUE. */
|
|
|
|
|
dump_type (TREE_TYPE (t), flags);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
print_tree_identifier (scratch_buffer, t);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case OVERLOAD:
|
2003-02-10 05:41:50 +00:00
|
|
|
|
if (OVL_CHAIN (t))
|
|
|
|
|
{
|
|
|
|
|
t = OVL_CURRENT (t);
|
|
|
|
|
if (DECL_CLASS_SCOPE_P (t))
|
|
|
|
|
{
|
|
|
|
|
dump_type (DECL_CONTEXT (t), flags);
|
|
|
|
|
output_add_string (scratch_buffer, "::");
|
|
|
|
|
}
|
|
|
|
|
else if (DECL_CONTEXT (t))
|
|
|
|
|
{
|
|
|
|
|
dump_decl (DECL_CONTEXT (t), flags);
|
|
|
|
|
output_add_string (scratch_buffer, "::");
|
|
|
|
|
}
|
|
|
|
|
dump_decl (DECL_NAME (t), flags);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If there's only one function, just treat it like an ordinary
|
|
|
|
|
FUNCTION_DECL. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
t = OVL_CURRENT (t);
|
|
|
|
|
/* Fall through. */
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case FUNCTION_DECL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (DECL_GLOBAL_CTOR_P (t) || DECL_GLOBAL_DTOR_P (t))
|
|
|
|
|
dump_global_iord (t);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else if (! DECL_LANG_SPECIFIC (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "<internal>");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_function_decl (t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TEMPLATE_DECL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_template_decl (t, flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TEMPLATE_ID_EXPR:
|
|
|
|
|
{
|
|
|
|
|
tree args;
|
|
|
|
|
tree name = TREE_OPERAND (t, 0);
|
|
|
|
|
if (is_overloaded_fn (name))
|
|
|
|
|
name = DECL_NAME (get_first_fn (name));
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (name, flags);
|
|
|
|
|
print_template_argument_list_start (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
for (args = TREE_OPERAND (t, 1); args; args = TREE_CHAIN (args))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_template_argument (TREE_VALUE (args), flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_CHAIN (args))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
separate_with_comma (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_template_argument_list_end (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case LOOKUP_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (TREE_OPERAND (t, 0), flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case LABEL_DECL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, DECL_NAME (t));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case CONST_DECL:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if ((TREE_TYPE (t) != NULL_TREE && NEXT_CODE (t) == ENUMERAL_TYPE)
|
|
|
|
|
|| (DECL_INITIAL (t) &&
|
|
|
|
|
TREE_CODE (DECL_INITIAL (t)) == TEMPLATE_PARM_INDEX))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_simple_decl (t, TREE_TYPE (t), flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else if (DECL_NAME (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (DECL_NAME (t), flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else if (DECL_INITIAL (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (DECL_INITIAL (t), flags | TFF_EXPR_IN_PARENS);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "enumerator");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case USING_DECL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "using ");
|
|
|
|
|
dump_type (DECL_INITIAL (t), flags);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
print_tree_identifier (scratch_buffer, DECL_NAME (t));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
sorry_for_unsupported_tree (t);
|
|
|
|
|
/* Fallthrough to error. */
|
|
|
|
|
|
|
|
|
|
case ERROR_MARK:
|
|
|
|
|
print_identifier (scratch_buffer, "<declaration error>");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Dump a template declaration T under control of FLAGS. This means the
|
|
|
|
|
'template <...> leaders plus the 'class X' or 'void fn(...)' part. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
dump_template_decl (t, flags)
|
|
|
|
|
tree t;
|
|
|
|
|
int flags;
|
|
|
|
|
{
|
|
|
|
|
tree orig_parms = DECL_TEMPLATE_PARMS (t);
|
|
|
|
|
tree parms;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
if (flags & TFF_TEMPLATE_HEADER)
|
|
|
|
|
{
|
|
|
|
|
for (parms = orig_parms = nreverse (orig_parms);
|
|
|
|
|
parms;
|
|
|
|
|
parms = TREE_CHAIN (parms))
|
|
|
|
|
{
|
|
|
|
|
tree inner_parms = INNERMOST_TEMPLATE_PARMS (parms);
|
|
|
|
|
int len = TREE_VEC_LENGTH (inner_parms);
|
|
|
|
|
|
|
|
|
|
output_add_string (scratch_buffer, "template<");
|
|
|
|
|
|
|
|
|
|
/* If we've shown the template prefix, we'd better show the
|
|
|
|
|
parameters' and decl's type too. */
|
|
|
|
|
flags |= TFF_DECL_SPECIFIERS;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < len; i++)
|
|
|
|
|
{
|
|
|
|
|
if (i)
|
|
|
|
|
separate_with_comma (scratch_buffer);
|
|
|
|
|
dump_template_parameter (TREE_VEC_ELT (inner_parms, i), flags);
|
|
|
|
|
}
|
|
|
|
|
print_template_argument_list_end (scratch_buffer);
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
}
|
|
|
|
|
nreverse(orig_parms);
|
|
|
|
|
|
|
|
|
|
if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
|
|
|
|
|
/* Say `template<arg> class TT' not just `template<arg> TT'. */
|
|
|
|
|
output_add_string (scratch_buffer, "class ");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (DECL_TEMPLATE_RESULT (t)) == TYPE_DECL)
|
|
|
|
|
dump_type (TREE_TYPE (t),
|
|
|
|
|
((flags & ~TFF_CLASS_KEY_OR_ENUM) | TFF_TEMPLATE_NAME
|
|
|
|
|
| (flags & TFF_DECL_SPECIFIERS ? TFF_CLASS_KEY_OR_ENUM : 0)));
|
|
|
|
|
else if (TREE_CODE (DECL_TEMPLATE_RESULT (t)) == VAR_DECL)
|
|
|
|
|
dump_decl (DECL_TEMPLATE_RESULT (t), flags | TFF_TEMPLATE_NAME);
|
|
|
|
|
else if (TREE_TYPE (t) == NULL_TREE)
|
|
|
|
|
abort ();
|
|
|
|
|
else
|
|
|
|
|
switch (NEXT_CODE (t))
|
|
|
|
|
{
|
|
|
|
|
case METHOD_TYPE:
|
|
|
|
|
case FUNCTION_TYPE:
|
|
|
|
|
dump_function_decl (t, flags | TFF_TEMPLATE_NAME);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
/* This case can occur with some illegal code. */
|
|
|
|
|
dump_type (TREE_TYPE (t),
|
|
|
|
|
(flags & ~TFF_CLASS_KEY_OR_ENUM) | TFF_TEMPLATE_NAME
|
|
|
|
|
| (flags & TFF_DECL_SPECIFIERS ? TFF_CLASS_KEY_OR_ENUM : 0));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Pretty print a function decl. There are several ways we want to print a
|
2002-02-01 18:16:02 +00:00
|
|
|
|
function declaration. The TFF_ bits in FLAGS tells us how to behave.
|
|
|
|
|
As error can only apply the '#' flag once to give 0 and 1 for V, there
|
1999-10-16 06:09:09 +00:00
|
|
|
|
is %D which doesn't print the throw specs, and %F which does. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_function_decl (t, flags)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-08-26 09:30:50 +00:00
|
|
|
|
tree fntype;
|
|
|
|
|
tree parmtypes;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree cname = NULL_TREE;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
tree template_args = NULL_TREE;
|
|
|
|
|
tree template_parms = NULL_TREE;
|
|
|
|
|
int show_return = flags & TFF_RETURN_TYPE || flags & TFF_DECL_SPECIFIERS;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_CODE (t) == TEMPLATE_DECL)
|
|
|
|
|
t = DECL_TEMPLATE_RESULT (t);
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Pretty print template instantiations only. */
|
|
|
|
|
if (DECL_USE_TEMPLATE (t) && DECL_TEMPLATE_INFO (t))
|
|
|
|
|
{
|
|
|
|
|
tree tmpl;
|
|
|
|
|
|
|
|
|
|
template_args = DECL_TI_ARGS (t);
|
|
|
|
|
tmpl = most_general_template (t);
|
|
|
|
|
if (tmpl && TREE_CODE (tmpl) == TEMPLATE_DECL)
|
|
|
|
|
{
|
|
|
|
|
template_parms = DECL_TEMPLATE_PARMS (tmpl);
|
|
|
|
|
t = tmpl;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
fntype = TREE_TYPE (t);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
parmtypes = FUNCTION_FIRST_USER_PARMTYPE (t);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (DECL_CLASS_SCOPE_P (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
cname = DECL_CONTEXT (t);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* this is for partially instantiated template methods */
|
|
|
|
|
else if (TREE_CODE (fntype) == METHOD_TYPE)
|
|
|
|
|
cname = TREE_TYPE (TREE_VALUE (parmtypes));
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (!(flags & TFF_DECL_SPECIFIERS))
|
|
|
|
|
/* OK */;
|
|
|
|
|
else if (DECL_STATIC_FUNCTION_P (t))
|
|
|
|
|
print_identifier (scratch_buffer, "static ");
|
|
|
|
|
else if (DECL_VIRTUAL_P (t))
|
|
|
|
|
print_identifier (scratch_buffer, "virtual ");
|
|
|
|
|
|
|
|
|
|
/* Print the return type? */
|
|
|
|
|
if (show_return)
|
|
|
|
|
show_return = !DECL_CONV_FN_P (t) && !DECL_CONSTRUCTOR_P (t)
|
|
|
|
|
&& !DECL_DESTRUCTOR_P (t);
|
|
|
|
|
if (show_return)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type_prefix (TREE_TYPE (fntype), flags);
|
|
|
|
|
output_add_space (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Print the function name. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (cname)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (cname, flags);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
else
|
|
|
|
|
dump_scope (CP_DECL_CONTEXT (t), flags);
|
|
|
|
|
|
|
|
|
|
dump_function_name (t, flags);
|
|
|
|
|
|
|
|
|
|
if (1)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_parameters (parmtypes, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (TREE_CODE (fntype) == METHOD_TYPE)
|
|
|
|
|
dump_qualifiers (TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (fntype))),
|
|
|
|
|
before);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (flags & TFF_EXCEPTION_SPECIFICATION)
|
|
|
|
|
dump_exception_spec (TYPE_RAISES_EXCEPTIONS (fntype), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (show_return)
|
|
|
|
|
dump_type_suffix (TREE_TYPE (fntype), flags);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* If T is a template instantiation, dump the parameter binding. */
|
|
|
|
|
if (template_parms != NULL_TREE && template_args != NULL_TREE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, " [with ");
|
|
|
|
|
dump_template_bindings (template_parms, template_args);
|
|
|
|
|
print_right_bracket (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Print a parameter list. If this is for a member function, the
|
|
|
|
|
member object ptr (and any other hidden args) should have
|
|
|
|
|
already been removed. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_parameters (parmtypes, flags)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
tree parmtypes;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
int first;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
|
|
|
|
print_left_paren (scratch_buffer);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
for (first = 1; parmtypes != void_list_node;
|
|
|
|
|
parmtypes = TREE_CHAIN (parmtypes))
|
|
|
|
|
{
|
|
|
|
|
if (!first)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
separate_with_comma (scratch_buffer);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
first = 0;
|
|
|
|
|
if (!parmtypes)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "...");
|
1999-10-16 06:09:09 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (TREE_VALUE (parmtypes), flags);
|
|
|
|
|
|
|
|
|
|
if ((flags & TFF_FUNCTION_DEFAULT_ARGUMENTS) && TREE_PURPOSE (parmtypes))
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, " = ");
|
|
|
|
|
dump_expr (TREE_PURPOSE (parmtypes), flags | TFF_EXPR_IN_PARENS);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_right_paren (scratch_buffer);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print an exception specification. T is the exception specification. */
|
|
|
|
|
|
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_exception_spec (t, flags)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
if (t)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, " throw (");
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (TREE_VALUE (t) != NULL_TREE)
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (TREE_VALUE (t), flags);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
t = TREE_CHAIN (t);
|
|
|
|
|
if (!t)
|
|
|
|
|
break;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
separate_with_comma (scratch_buffer);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_right_paren (scratch_buffer);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle the function name for a FUNCTION_DECL node, grokking operators
|
|
|
|
|
and destructors properly. */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_function_name (t, flags)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
tree name = DECL_NAME (t);
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Don't let the user see __comp_ctor et al. */
|
|
|
|
|
if (DECL_CONSTRUCTOR_P (t)
|
|
|
|
|
|| DECL_DESTRUCTOR_P (t))
|
|
|
|
|
name = constructor_name (DECL_CONTEXT (t));
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (DECL_DESTRUCTOR_P (t))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_character (scratch_buffer, '~');
|
|
|
|
|
dump_decl (name, TFF_PLAIN_IDENTIFIER);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (DECL_CONV_FN_P (t))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
/* This cannot use the hack that the operator's return
|
|
|
|
|
type is stashed off of its name because it may be
|
|
|
|
|
used for error reporting. In the case of conflicting
|
|
|
|
|
declarations, both will have the same name, yet
|
|
|
|
|
the types will be different, hence the TREE_TYPE field
|
|
|
|
|
of the first name will be clobbered by the second. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "operator ");
|
|
|
|
|
dump_type (TREE_TYPE (TREE_TYPE (t)), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else if (IDENTIFIER_OPNAME_P (name))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, name);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (name, flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t)
|
|
|
|
|
&& !DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (t)
|
|
|
|
|
&& (DECL_TEMPLATE_SPECIALIZATION (t)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|| TREE_CODE (DECL_TI_TEMPLATE (t)) != TEMPLATE_DECL
|
|
|
|
|
|| DECL_TEMPLATE_SPECIALIZATION (DECL_TI_TEMPLATE (t))
|
|
|
|
|
|| PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (t))))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_template_parms (DECL_TEMPLATE_INFO (t), !DECL_USE_TEMPLATE (t), flags);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Dump the template parameters from the template info INFO under control of
|
|
|
|
|
FLAGS. PRIMARY indicates whether this is a primary template decl, or
|
|
|
|
|
specialization (partial or complete). For partial specializations we show
|
|
|
|
|
the specialized parameter values. For a primary template we show no
|
|
|
|
|
decoration. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
dump_template_parms (info, primary, flags)
|
|
|
|
|
tree info;
|
|
|
|
|
int primary;
|
|
|
|
|
int flags;
|
|
|
|
|
{
|
|
|
|
|
tree args = info ? TI_ARGS (info) : NULL_TREE;
|
|
|
|
|
|
|
|
|
|
if (primary && flags & TFF_TEMPLATE_NAME)
|
|
|
|
|
return;
|
|
|
|
|
flags &= ~(TFF_CLASS_KEY_OR_ENUM | TFF_TEMPLATE_NAME);
|
|
|
|
|
print_template_argument_list_start (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Be careful only to print things when we have them, so as not
|
1999-10-16 06:09:09 +00:00
|
|
|
|
to crash producing error messages. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (args && !primary)
|
|
|
|
|
{
|
|
|
|
|
int len = 0;
|
|
|
|
|
int ix = 0;
|
|
|
|
|
int need_comma = 0;
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (args) == TREE_VEC)
|
|
|
|
|
{
|
|
|
|
|
if (TREE_VEC_LENGTH (args) > 0
|
|
|
|
|
&& TREE_CODE (TREE_VEC_ELT (args, 0)) == TREE_VEC)
|
|
|
|
|
args = TREE_VEC_ELT (args, TREE_VEC_LENGTH (args) - 1);
|
|
|
|
|
|
|
|
|
|
len = TREE_VEC_LENGTH (args);
|
|
|
|
|
}
|
|
|
|
|
else if (TREE_CODE (args) == TREE_LIST)
|
|
|
|
|
len = -1;
|
|
|
|
|
while (ix != len && args)
|
|
|
|
|
{
|
|
|
|
|
tree arg;
|
|
|
|
|
if (len >= 0)
|
|
|
|
|
{
|
|
|
|
|
arg = TREE_VEC_ELT (args, ix);
|
|
|
|
|
ix++;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
arg = TREE_VALUE (args);
|
|
|
|
|
args = TREE_CHAIN (args);
|
|
|
|
|
}
|
|
|
|
|
if (need_comma)
|
|
|
|
|
separate_with_comma (scratch_buffer);
|
|
|
|
|
|
|
|
|
|
if (!arg)
|
|
|
|
|
print_identifier (scratch_buffer, "<template parameter error>");
|
|
|
|
|
else
|
|
|
|
|
dump_template_argument (arg, flags);
|
|
|
|
|
need_comma = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (primary)
|
|
|
|
|
{
|
|
|
|
|
tree tpl = TI_TEMPLATE (info);
|
|
|
|
|
tree parms = DECL_TEMPLATE_PARMS (tpl);
|
|
|
|
|
int len, ix;
|
|
|
|
|
|
|
|
|
|
parms = TREE_CODE (parms) == TREE_LIST ? TREE_VALUE (parms) : NULL_TREE;
|
|
|
|
|
len = parms ? TREE_VEC_LENGTH (parms) : 0;
|
|
|
|
|
|
|
|
|
|
for (ix = 0; ix != len; ix++)
|
|
|
|
|
{
|
|
|
|
|
tree parm = TREE_VALUE (TREE_VEC_ELT (parms, ix));
|
|
|
|
|
|
|
|
|
|
if (ix)
|
|
|
|
|
separate_with_comma (scratch_buffer);
|
|
|
|
|
|
|
|
|
|
dump_decl (parm, flags & ~TFF_DECL_SPECIFIERS);
|
|
|
|
|
}
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_template_argument_list_end (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
dump_char (c)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
int c;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case TARGET_NEWLINE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\n");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
case TARGET_TAB:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\t");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
case TARGET_VT:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\v");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
case TARGET_BS:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\b");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
case TARGET_CR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\r");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
case TARGET_FF:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\f");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
case TARGET_BELL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\a");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
case '\\':
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\\\");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
case '\'':
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\'");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
case '\"':
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "\\\"");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
default:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (ISPRINT (c))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_character (scratch_buffer, c);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
sprintf (digit_buffer, "\\%03o", (int) c);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, digit_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print out a list of initializers (subr of dump_expr) */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr_list (l, flags)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree l;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
while (l)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_VALUE (l), flags | TFF_EXPR_IN_PARENS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
l = TREE_CHAIN (l);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (l)
|
|
|
|
|
separate_with_comma (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Print out an expression E under control of FLAGS. */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (t, flags)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2003-02-10 05:41:50 +00:00
|
|
|
|
if (t == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
switch (TREE_CODE (t))
|
|
|
|
|
{
|
|
|
|
|
case VAR_DECL:
|
|
|
|
|
case PARM_DECL:
|
|
|
|
|
case FIELD_DECL:
|
|
|
|
|
case CONST_DECL:
|
|
|
|
|
case FUNCTION_DECL:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TEMPLATE_DECL:
|
|
|
|
|
case NAMESPACE_DECL:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
case OVERLOAD:
|
|
|
|
|
dump_decl (t, flags & ~TFF_DECL_SPECIFIERS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case INTEGER_CST:
|
|
|
|
|
{
|
|
|
|
|
tree type = TREE_TYPE (t);
|
|
|
|
|
my_friendly_assert (type != 0, 81);
|
|
|
|
|
|
|
|
|
|
/* If it's an enum, output its tag, rather than its value. */
|
|
|
|
|
if (TREE_CODE (type) == ENUMERAL_TYPE)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
tree values = TYPE_VALUES (type);
|
|
|
|
|
|
|
|
|
|
for (; values;
|
|
|
|
|
values = TREE_CHAIN (values))
|
|
|
|
|
if (tree_int_cst_equal (TREE_VALUE (values), t))
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
if (values)
|
|
|
|
|
print_tree_identifier (scratch_buffer, TREE_PURPOSE (values));
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Value must have been cast. */
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_type (type, flags);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
|
|
|
|
goto do_int;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else if (type == boolean_type_node)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (t == boolean_false_node || integer_zerop (t))
|
|
|
|
|
print_identifier (scratch_buffer, "false");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else if (t == boolean_true_node)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "true");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else if (type == char_type_node)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_character (scratch_buffer, '\'');
|
2003-02-10 05:41:50 +00:00
|
|
|
|
if (host_integerp (t, TREE_UNSIGNED (type)))
|
|
|
|
|
dump_char (tree_low_cst (t, TREE_UNSIGNED (type)));
|
|
|
|
|
else
|
|
|
|
|
output_printf (scratch_buffer, "\\x%x",
|
|
|
|
|
(unsigned int) TREE_INT_CST_LOW (t));
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_character (scratch_buffer, '\'');
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
else
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
do_int:
|
|
|
|
|
if (! host_integerp (t, 0))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
tree val = t;
|
|
|
|
|
|
|
|
|
|
if (tree_int_cst_sgn (val) < 0)
|
|
|
|
|
{
|
|
|
|
|
output_add_character (scratch_buffer, '-');
|
|
|
|
|
val = build_int_2 (-TREE_INT_CST_LOW (val),
|
|
|
|
|
~TREE_INT_CST_HIGH (val)
|
|
|
|
|
+ !TREE_INT_CST_LOW (val));
|
|
|
|
|
}
|
|
|
|
|
/* Would "%x%0*x" or "%x%*0x" get zero-padding on all
|
|
|
|
|
systems? */
|
|
|
|
|
{
|
|
|
|
|
static char format[10]; /* "%x%09999x\0" */
|
|
|
|
|
if (!format[0])
|
|
|
|
|
sprintf (format, "%%x%%0%dx", HOST_BITS_PER_INT / 4);
|
|
|
|
|
sprintf (digit_buffer, format, TREE_INT_CST_HIGH (val),
|
|
|
|
|
TREE_INT_CST_LOW (val));
|
|
|
|
|
output_add_string (scratch_buffer, digit_buffer);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
else
|
|
|
|
|
print_integer (scratch_buffer, TREE_INT_CST_LOW (t));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case REAL_CST:
|
|
|
|
|
#ifndef REAL_IS_NOT_DOUBLE
|
|
|
|
|
sprintf (digit_buffer, "%g", TREE_REAL_CST (t));
|
|
|
|
|
#else
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const unsigned char *p = (const unsigned char *) &TREE_REAL_CST (t);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
size_t i;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
strcpy (digit_buffer, "0x");
|
|
|
|
|
for (i = 0; i < sizeof TREE_REAL_CST (t); i++)
|
|
|
|
|
sprintf (digit_buffer + 2 + 2*i, "%02x", *p++);
|
|
|
|
|
}
|
|
|
|
|
#endif
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, digit_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case PTRMEM_CST:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_character (scratch_buffer, '&');
|
|
|
|
|
dump_type (PTRMEM_CST_CLASS (t), flags);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
print_tree_identifier
|
|
|
|
|
(scratch_buffer, DECL_NAME (PTRMEM_CST_MEMBER (t)));
|
1999-10-16 06:09:09 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case STRING_CST:
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *p = TREE_STRING_POINTER (t);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
int len = TREE_STRING_LENGTH (t) - 1;
|
|
|
|
|
int i;
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_character (scratch_buffer, '\"');
|
1996-09-18 05:35:50 +00:00
|
|
|
|
for (i = 0; i < len; i++)
|
|
|
|
|
dump_char (p[i]);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_character (scratch_buffer, '\"');
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case COMPOUND_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
separate_with_comma (scratch_buffer);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case COND_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_string (scratch_buffer, " ? ");
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_string (scratch_buffer, " : ");
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 2), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case SAVE_EXPR:
|
|
|
|
|
if (TREE_HAS_CONSTRUCTOR (t))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "new ");
|
|
|
|
|
dump_type (TREE_TYPE (TREE_TYPE (t)), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case AGGR_INIT_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
{
|
|
|
|
|
tree fn = NULL_TREE;
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (TREE_OPERAND (t, 0)) == ADDR_EXPR)
|
|
|
|
|
fn = TREE_OPERAND (TREE_OPERAND (t, 0), 0);
|
|
|
|
|
|
|
|
|
|
if (fn && TREE_CODE (fn) == FUNCTION_DECL)
|
|
|
|
|
{
|
|
|
|
|
if (DECL_CONSTRUCTOR_P (fn))
|
|
|
|
|
print_tree_identifier
|
|
|
|
|
(scratch_buffer, TYPE_IDENTIFIER (TREE_TYPE (t)));
|
|
|
|
|
else
|
|
|
|
|
dump_decl (fn, 0);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), 0);
|
|
|
|
|
}
|
|
|
|
|
print_left_paren (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_OPERAND (t, 1))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr_list (TREE_CHAIN (TREE_OPERAND (t, 1)), flags);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case CALL_EXPR:
|
|
|
|
|
{
|
|
|
|
|
tree fn = TREE_OPERAND (t, 0);
|
|
|
|
|
tree args = TREE_OPERAND (t, 1);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (TREE_CODE (fn) == ADDR_EXPR)
|
|
|
|
|
fn = TREE_OPERAND (fn, 0);
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_TYPE (fn) != NULL_TREE && NEXT_CODE (fn) == METHOD_TYPE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
tree ob = TREE_VALUE (args);
|
|
|
|
|
if (TREE_CODE (ob) == ADDR_EXPR)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (ob, 0), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_character (scratch_buffer, '.');
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else if (TREE_CODE (ob) != PARM_DECL
|
|
|
|
|
|| strcmp (IDENTIFIER_POINTER (DECL_NAME (ob)), "this"))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (ob, flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_string (scratch_buffer, "->");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
args = TREE_CHAIN (args);
|
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (fn, flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_expr_list (args, flags);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case NEW_EXPR:
|
|
|
|
|
{
|
|
|
|
|
tree type = TREE_OPERAND (t, 1);
|
|
|
|
|
if (NEW_EXPR_USE_GLOBAL (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
output_add_string (scratch_buffer, "new ");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_OPERAND (t, 0))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_expr_list (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
output_add_string (scratch_buffer, ") ");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
if (TREE_CODE (type) == ARRAY_REF)
|
|
|
|
|
type = build_cplus_array_type
|
|
|
|
|
(TREE_OPERAND (type, 0),
|
2002-02-01 18:16:02 +00:00
|
|
|
|
build_index_type (fold (build (MINUS_EXPR, integer_type_node,
|
|
|
|
|
TREE_OPERAND (type, 1),
|
|
|
|
|
integer_one_node))));
|
|
|
|
|
dump_type (type, flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_OPERAND (t, 2))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_expr_list (TREE_OPERAND (t, 2), flags);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TARGET_EXPR:
|
|
|
|
|
/* Note that this only works for G++ target exprs. If somebody
|
|
|
|
|
builds a general TARGET_EXPR, there's no way to represent that
|
|
|
|
|
it initializes anything other that the parameter slot for the
|
|
|
|
|
default argument. Note we may have cleared out the first
|
|
|
|
|
operand in expand_expr, so don't go killing ourselves. */
|
|
|
|
|
if (TREE_OPERAND (t, 1))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
case INIT_EXPR:
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case MODIFY_EXPR:
|
|
|
|
|
case PLUS_EXPR:
|
|
|
|
|
case MINUS_EXPR:
|
|
|
|
|
case MULT_EXPR:
|
|
|
|
|
case TRUNC_DIV_EXPR:
|
|
|
|
|
case TRUNC_MOD_EXPR:
|
|
|
|
|
case MIN_EXPR:
|
|
|
|
|
case MAX_EXPR:
|
|
|
|
|
case LSHIFT_EXPR:
|
|
|
|
|
case RSHIFT_EXPR:
|
|
|
|
|
case BIT_IOR_EXPR:
|
|
|
|
|
case BIT_XOR_EXPR:
|
|
|
|
|
case BIT_AND_EXPR:
|
|
|
|
|
case BIT_ANDTC_EXPR:
|
|
|
|
|
case TRUTH_ANDIF_EXPR:
|
|
|
|
|
case TRUTH_ORIF_EXPR:
|
|
|
|
|
case LT_EXPR:
|
|
|
|
|
case LE_EXPR:
|
|
|
|
|
case GT_EXPR:
|
|
|
|
|
case GE_EXPR:
|
|
|
|
|
case EQ_EXPR:
|
|
|
|
|
case NE_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
case EXACT_DIV_EXPR:
|
|
|
|
|
dump_binary_op (operator_name_info[(int) TREE_CODE (t)].name, t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case CEIL_DIV_EXPR:
|
|
|
|
|
case FLOOR_DIV_EXPR:
|
|
|
|
|
case ROUND_DIV_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_binary_op ("/", t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case CEIL_MOD_EXPR:
|
|
|
|
|
case FLOOR_MOD_EXPR:
|
|
|
|
|
case ROUND_MOD_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_binary_op ("%", t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case COMPONENT_REF:
|
|
|
|
|
{
|
|
|
|
|
tree ob = TREE_OPERAND (t, 0);
|
|
|
|
|
if (TREE_CODE (ob) == INDIRECT_REF)
|
|
|
|
|
{
|
|
|
|
|
ob = TREE_OPERAND (ob, 0);
|
|
|
|
|
if (TREE_CODE (ob) != PARM_DECL
|
|
|
|
|
|| strcmp (IDENTIFIER_POINTER (DECL_NAME (ob)), "this"))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (ob, flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_string (scratch_buffer, "->");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (ob, flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_character (scratch_buffer, '.');
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 1), flags & ~TFF_EXPR_IN_PARENS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ARRAY_REF:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
print_left_bracket (scratch_buffer);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
print_right_bracket (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case CONVERT_EXPR:
|
2002-05-09 20:02:13 +00:00
|
|
|
|
if (TREE_TYPE (t) && VOID_TYPE_P (TREE_TYPE (t)))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
{
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_type (TREE_TYPE (t), flags);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
dump_unary_op ("+", t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ADDR_EXPR:
|
|
|
|
|
if (TREE_CODE (TREE_OPERAND (t, 0)) == FUNCTION_DECL
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|| TREE_CODE (TREE_OPERAND (t, 0)) == STRING_CST
|
|
|
|
|
/* An ADDR_EXPR can have reference type. In that case, we
|
|
|
|
|
shouldn't print the `&' doing so indicates to the user
|
|
|
|
|
that the expression has pointer type. */
|
|
|
|
|
|| (TREE_TYPE (t)
|
|
|
|
|
&& TREE_CODE (TREE_TYPE (t)) == REFERENCE_TYPE))
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_unary_op ("&", t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case INDIRECT_REF:
|
|
|
|
|
if (TREE_HAS_CONSTRUCTOR (t))
|
|
|
|
|
{
|
|
|
|
|
t = TREE_OPERAND (t, 0);
|
|
|
|
|
my_friendly_assert (TREE_CODE (t) == CALL_EXPR, 237);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_expr_list (TREE_CHAIN (TREE_OPERAND (t, 1)), flags);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_OPERAND (t,0) != NULL_TREE
|
1999-10-16 06:09:09 +00:00
|
|
|
|
&& TREE_TYPE (TREE_OPERAND (t, 0))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
&& NEXT_CODE (TREE_OPERAND (t, 0)) == REFERENCE_TYPE)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_unary_op ("*", t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case NEGATE_EXPR:
|
|
|
|
|
case BIT_NOT_EXPR:
|
|
|
|
|
case TRUTH_NOT_EXPR:
|
|
|
|
|
case PREDECREMENT_EXPR:
|
|
|
|
|
case PREINCREMENT_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_unary_op (operator_name_info [(int)TREE_CODE (t)].name, t, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case POSTDECREMENT_EXPR:
|
|
|
|
|
case POSTINCREMENT_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
print_identifier
|
|
|
|
|
(scratch_buffer, operator_name_info[(int)TREE_CODE (t)].name);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case NON_LVALUE_EXPR:
|
|
|
|
|
/* FIXME: This is a KLUDGE workaround for a parsing problem. There
|
|
|
|
|
should be another level of INDIRECT_REF so that I don't have to do
|
|
|
|
|
this. */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_TYPE (t) != NULL_TREE && NEXT_CODE (t) == POINTER_TYPE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
tree next = TREE_TYPE (TREE_TYPE (t));
|
|
|
|
|
|
|
|
|
|
while (TREE_CODE (next) == POINTER_TYPE)
|
|
|
|
|
next = TREE_TYPE (next);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (TREE_CODE (next) == FUNCTION_TYPE)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (flags & TFF_EXPR_IN_PARENS)
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
output_add_character (scratch_buffer, '*');
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags & ~TFF_EXPR_IN_PARENS);
|
|
|
|
|
if (flags & TFF_EXPR_IN_PARENS)
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
/* else FALLTHRU */
|
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case NOP_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case EXPR_WITH_FILE_LOCATION:
|
|
|
|
|
dump_expr (EXPR_WFL_NODE (t), flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case CONSTRUCTOR:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_TYPE (t) && TYPE_PTRMEMFUNC_P (TREE_TYPE (t)))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
tree idx = build_component_ref (t, pfn_identifier, NULL_TREE, 0);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (integer_zerop (idx))
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
/* A NULL pointer-to-member constant. */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "((");
|
|
|
|
|
dump_type (TREE_TYPE (t), flags);
|
|
|
|
|
output_add_string (scratch_buffer, ") 0)");
|
1999-10-16 06:09:09 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
else if (host_integerp (idx, 0))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
|
|
|
|
tree virtuals;
|
|
|
|
|
unsigned HOST_WIDE_INT n;
|
|
|
|
|
|
|
|
|
|
t = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (TREE_TYPE (t)));
|
|
|
|
|
t = TYPE_METHOD_BASETYPE (t);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
virtuals = TYPE_BINFO_VIRTUALS (TYPE_MAIN_VARIANT (t));
|
|
|
|
|
|
|
|
|
|
n = tree_low_cst (idx, 0);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
|
|
|
|
/* Map vtable index back one, to allow for the null pointer to
|
|
|
|
|
member. */
|
|
|
|
|
--n;
|
|
|
|
|
|
|
|
|
|
while (n > 0 && virtuals)
|
|
|
|
|
{
|
|
|
|
|
--n;
|
|
|
|
|
virtuals = TREE_CHAIN (virtuals);
|
|
|
|
|
}
|
|
|
|
|
if (virtuals)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (BV_FN (virtuals),
|
|
|
|
|
flags | TFF_EXPR_IN_PARENS);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_character (scratch_buffer, '{');
|
|
|
|
|
dump_expr_list (CONSTRUCTOR_ELTS (t), flags);
|
|
|
|
|
output_add_character (scratch_buffer, '}');
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OFFSET_REF:
|
|
|
|
|
{
|
|
|
|
|
tree ob = TREE_OPERAND (t, 0);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (is_dummy_object (ob))
|
|
|
|
|
{
|
|
|
|
|
t = TREE_OPERAND (t, 1);
|
|
|
|
|
if (TREE_CODE (t) == FUNCTION_DECL)
|
|
|
|
|
/* A::f */
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (t, flags | TFF_EXPR_IN_PARENS);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (BASELINK_P (t))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (OVL_CURRENT (TREE_VALUE (t)), flags | TFF_EXPR_IN_PARENS);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (t, flags);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (TREE_CODE (ob) == INDIRECT_REF)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (ob, 0), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_string (scratch_buffer, "->*");
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (ob, flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_string (scratch_buffer, ".*");
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case TEMPLATE_PARM_INDEX:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (TEMPLATE_PARM_DECL (t), flags & ~TFF_DECL_SPECIFIERS);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case IDENTIFIER_NODE:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, t);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case SCOPE_REF:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case CAST_EXPR:
|
|
|
|
|
if (TREE_OPERAND (t, 0) == NULL_TREE
|
|
|
|
|
|| TREE_CHAIN (TREE_OPERAND (t, 0)))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (TREE_TYPE (t), flags);
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_expr_list (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_type (TREE_TYPE (t), flags);
|
|
|
|
|
output_add_string (scratch_buffer, ")(");
|
|
|
|
|
dump_expr_list (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
case STATIC_CAST_EXPR:
|
|
|
|
|
output_add_string (scratch_buffer, "static_cast<");
|
|
|
|
|
goto cast;
|
|
|
|
|
case REINTERPRET_CAST_EXPR:
|
|
|
|
|
output_add_string (scratch_buffer, "reinterpret_cast<");
|
|
|
|
|
goto cast;
|
|
|
|
|
case CONST_CAST_EXPR:
|
|
|
|
|
output_add_string (scratch_buffer, "const_cast<");
|
|
|
|
|
goto cast;
|
|
|
|
|
case DYNAMIC_CAST_EXPR:
|
|
|
|
|
output_add_string (scratch_buffer, "dynamic_cast<");
|
|
|
|
|
cast:
|
|
|
|
|
dump_type (TREE_TYPE (t), flags);
|
|
|
|
|
output_add_string (scratch_buffer, ">(");
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
|
|
|
|
break;
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case LOOKUP_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, TREE_OPERAND (t, 0));
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ARROW_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
output_add_string (scratch_buffer, "->");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case SIZEOF_EXPR:
|
|
|
|
|
case ALIGNOF_EXPR:
|
|
|
|
|
if (TREE_CODE (t) == SIZEOF_EXPR)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "sizeof (");
|
|
|
|
|
else
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
|
|
|
|
my_friendly_assert (TREE_CODE (t) == ALIGNOF_EXPR, 0);
|
2002-02-01 18:16:02 +00:00
|
|
|
|
output_add_string (scratch_buffer, "__alignof__ (");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (TYPE_P (TREE_OPERAND (t, 0)))
|
|
|
|
|
dump_type (TREE_OPERAND (t, 0), flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_unary_op ("*", t, flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case DEFAULT_ARG:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "<unparsed>");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case TRY_CATCH_EXPR:
|
|
|
|
|
case WITH_CLEANUP_EXPR:
|
|
|
|
|
case CLEANUP_POINT_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case PSEUDO_DTOR_EXPR:
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 2), flags);
|
|
|
|
|
output_add_character (scratch_buffer, '.');
|
|
|
|
|
dump_type (TREE_OPERAND (t, 0), flags);
|
|
|
|
|
output_add_string (scratch_buffer, "::~");
|
|
|
|
|
dump_type (TREE_OPERAND (t, 1), flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case TEMPLATE_ID_EXPR:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (t, flags);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case STMT_EXPR:
|
|
|
|
|
/* We don't yet have a way of dumping statements in a
|
|
|
|
|
human-readable format. */
|
|
|
|
|
output_add_string (scratch_buffer, "({...})");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BIND_EXPR:
|
|
|
|
|
output_add_character (scratch_buffer, '{');
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 1), flags & ~TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_character (scratch_buffer, '}');
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOOP_EXPR:
|
|
|
|
|
output_add_string (scratch_buffer, "while (1) { ");
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags & ~TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_character (scratch_buffer, '}');
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case EXIT_EXPR:
|
|
|
|
|
output_add_string (scratch_buffer, "if (");
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags & ~TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_string (scratch_buffer, ") break; ");
|
1999-10-16 06:09:09 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case TREE_LIST:
|
|
|
|
|
if (TREE_VALUE (t) && TREE_CODE (TREE_VALUE (t)) == FUNCTION_DECL)
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_tree_identifier (scratch_buffer, DECL_NAME (TREE_VALUE (t)));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* else fall through */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* This list is incomplete, but should suffice for now.
|
|
|
|
|
It is very important that `sorry' does not call
|
|
|
|
|
`report_error_function'. That could cause an infinite loop. */
|
|
|
|
|
default:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
sorry_for_unsupported_tree (t);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* fall through to ERROR_MARK... */
|
|
|
|
|
case ERROR_MARK:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "<expression error>");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_binary_op (opstring, t, flags)
|
|
|
|
|
const char *opstring;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
if (opstring)
|
|
|
|
|
print_identifier (scratch_buffer, opstring);
|
|
|
|
|
else
|
|
|
|
|
print_identifier (scratch_buffer, "<unknown operator>");
|
|
|
|
|
output_add_space (scratch_buffer);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 1), flags | TFF_EXPR_IN_PARENS);
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_unary_op (opstring, t, flags)
|
|
|
|
|
const char *opstring;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree t;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (flags & TFF_EXPR_IN_PARENS)
|
|
|
|
|
print_left_paren (scratch_buffer);
|
|
|
|
|
print_identifier (scratch_buffer, opstring);
|
|
|
|
|
dump_expr (TREE_OPERAND (t, 0), flags & ~TFF_EXPR_IN_PARENS);
|
|
|
|
|
if (flags & TFF_EXPR_IN_PARENS)
|
|
|
|
|
print_right_paren (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Exported interface to stringifying types, exprs and decls under TFF_*
|
|
|
|
|
control. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *
|
|
|
|
|
type_as_string (typ, flags)
|
|
|
|
|
tree typ;
|
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
reinit_global_formatting_buffer ();
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (typ, flags);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
return output_finalize_message (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *
|
|
|
|
|
expr_as_string (decl, flags)
|
|
|
|
|
tree decl;
|
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
reinit_global_formatting_buffer ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_expr (decl, flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
return output_finalize_message (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *
|
|
|
|
|
decl_as_string (decl, flags)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree decl;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
reinit_global_formatting_buffer ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (decl, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
return output_finalize_message (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *
|
|
|
|
|
context_as_string (context, flags)
|
|
|
|
|
tree context;
|
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
reinit_global_formatting_buffer ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_scope (context, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
return output_finalize_message (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* Generate the three forms of printable names for lang_printable_name. */
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *
|
1999-08-26 09:30:50 +00:00
|
|
|
|
lang_decl_name (decl, v)
|
|
|
|
|
tree decl;
|
|
|
|
|
int v;
|
|
|
|
|
{
|
|
|
|
|
if (v >= 2)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
return decl_as_string (decl, TFF_DECL_SPECIFIERS);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
reinit_global_formatting_buffer ();
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
|
|
|
|
if (v == 1 && DECL_CLASS_SCOPE_P (decl))
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (CP_DECL_CONTEXT (decl), TFF_PLAIN_IDENTIFIER);
|
|
|
|
|
print_scope_operator (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (decl) == FUNCTION_DECL)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_function_name (decl, TFF_PLAIN_IDENTIFIER);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_decl (DECL_NAME (decl), TFF_PLAIN_IDENTIFIER);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
return output_finalize_message (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cp_file_of (t)
|
|
|
|
|
tree t;
|
|
|
|
|
{
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_CODE (t) == PARM_DECL && DECL_CONTEXT (t))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return DECL_SOURCE_FILE (DECL_CONTEXT (t));
|
2002-02-01 18:16:02 +00:00
|
|
|
|
else if (TYPE_P (t))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
return DECL_SOURCE_FILE (TYPE_MAIN_DECL (t));
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (TREE_CODE (t) == OVERLOAD)
|
|
|
|
|
return DECL_SOURCE_FILE (OVL_FUNCTION (t));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
|
|
|
|
return DECL_SOURCE_FILE (t);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
cp_line_of (t)
|
|
|
|
|
tree t;
|
|
|
|
|
{
|
|
|
|
|
int line = 0;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_CODE (t) == PARM_DECL && DECL_CONTEXT (t))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
line = DECL_SOURCE_LINE (DECL_CONTEXT (t));
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (TREE_CODE (t) == TYPE_DECL && DECL_ARTIFICIAL (t)
|
|
|
|
|
&& TYPE_MAIN_DECL (TREE_TYPE (t)))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
t = TREE_TYPE (t);
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (TYPE_P (t))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
line = DECL_SOURCE_LINE (TYPE_MAIN_DECL (t));
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (TREE_CODE (t) == OVERLOAD)
|
|
|
|
|
line = DECL_SOURCE_LINE (OVL_FUNCTION (t));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
|
|
|
|
line = DECL_SOURCE_LINE (t);
|
|
|
|
|
|
|
|
|
|
if (line == 0)
|
|
|
|
|
return lineno;
|
|
|
|
|
|
|
|
|
|
return line;
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
/* Now the interfaces from error et al to dump_type et al. Each takes an
|
|
|
|
|
on/off VERBOSE flag and supply the appropriate TFF_ flags to a dump_
|
|
|
|
|
function. */
|
|
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
|
decl_to_string (decl, verbose)
|
|
|
|
|
tree decl;
|
|
|
|
|
int verbose;
|
|
|
|
|
{
|
|
|
|
|
int flags = 0;
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (decl) == TYPE_DECL || TREE_CODE (decl) == RECORD_TYPE
|
|
|
|
|
|| TREE_CODE (decl) == UNION_TYPE || TREE_CODE (decl) == ENUMERAL_TYPE)
|
|
|
|
|
flags = TFF_CLASS_KEY_OR_ENUM;
|
|
|
|
|
if (verbose)
|
|
|
|
|
flags |= TFF_DECL_SPECIFIERS | TFF_FUNCTION_DEFAULT_ARGUMENTS;
|
|
|
|
|
else if (TREE_CODE (decl) == FUNCTION_DECL)
|
|
|
|
|
flags |= TFF_DECL_SPECIFIERS | TFF_RETURN_TYPE;
|
|
|
|
|
flags |= TFF_TEMPLATE_HEADER;
|
|
|
|
|
|
|
|
|
|
reinit_global_formatting_buffer ();
|
|
|
|
|
|
|
|
|
|
dump_decl (decl, flags);
|
|
|
|
|
|
|
|
|
|
return output_finalize_message (scratch_buffer);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
|
expr_to_string (decl, verbose)
|
|
|
|
|
tree decl;
|
|
|
|
|
int verbose ATTRIBUTE_UNUSED;
|
|
|
|
|
{
|
|
|
|
|
reinit_global_formatting_buffer ();
|
|
|
|
|
|
|
|
|
|
dump_expr (decl, 0);
|
|
|
|
|
|
|
|
|
|
return output_finalize_message (scratch_buffer);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
|
fndecl_to_string (fndecl, verbose)
|
|
|
|
|
tree fndecl;
|
|
|
|
|
int verbose;
|
|
|
|
|
{
|
|
|
|
|
int flags;
|
|
|
|
|
|
|
|
|
|
flags = TFF_EXCEPTION_SPECIFICATION | TFF_DECL_SPECIFIERS;
|
|
|
|
|
if (verbose)
|
|
|
|
|
flags |= TFF_FUNCTION_DEFAULT_ARGUMENTS;
|
|
|
|
|
reinit_global_formatting_buffer ();
|
|
|
|
|
|
|
|
|
|
dump_decl (fndecl, flags);
|
|
|
|
|
|
|
|
|
|
return output_finalize_message (scratch_buffer);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
|
code_to_string (c, v)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
enum tree_code c;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
int v ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
return tree_code_name [c];
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
const char *
|
|
|
|
|
language_to_string (c, v)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
enum languages c;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
int v ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case lang_c:
|
|
|
|
|
return "C";
|
|
|
|
|
|
|
|
|
|
case lang_cplusplus:
|
|
|
|
|
return "C++";
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
case lang_java:
|
|
|
|
|
return "Java";
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
default:
|
2002-02-01 18:16:02 +00:00
|
|
|
|
abort ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the proper printed version of a parameter to a C++ function. */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static const char *
|
|
|
|
|
parm_to_string (p, v)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
int p;
|
|
|
|
|
int v ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (p < 0)
|
|
|
|
|
return "`this'";
|
|
|
|
|
|
|
|
|
|
sprintf (digit_buffer, "%d", p+1);
|
|
|
|
|
return digit_buffer;
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static const char *
|
|
|
|
|
op_to_string (p, v)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
enum tree_code p;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
int v ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
tree id;
|
|
|
|
|
|
|
|
|
|
id = operator_name_info[(int) p].identifier;
|
|
|
|
|
return id ? IDENTIFIER_POINTER (id) : "{unknown}";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
|
type_to_string (typ, verbose)
|
|
|
|
|
tree typ;
|
|
|
|
|
int verbose;
|
|
|
|
|
{
|
|
|
|
|
int flags;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
flags = 0;
|
|
|
|
|
if (verbose)
|
|
|
|
|
flags |= TFF_CLASS_KEY_OR_ENUM;
|
|
|
|
|
flags |= TFF_TEMPLATE_HEADER;
|
|
|
|
|
|
|
|
|
|
reinit_global_formatting_buffer ();
|
|
|
|
|
|
|
|
|
|
dump_type (typ, flags);
|
|
|
|
|
|
|
|
|
|
return output_finalize_message (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static const char *
|
|
|
|
|
assop_to_string (p, v)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
enum tree_code p;
|
|
|
|
|
int v ATTRIBUTE_UNUSED;
|
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
tree id;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
id = assignment_operator_name_info[(int) p].identifier;
|
|
|
|
|
return id ? IDENTIFIER_POINTER (id) : "{unknown}";
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static const char *
|
|
|
|
|
args_to_string (p, verbose)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree p;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int verbose;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int flags = 0;
|
|
|
|
|
if (verbose)
|
|
|
|
|
flags |= TFF_CLASS_KEY_OR_ENUM;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (p == NULL_TREE)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
return "";
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
if (TYPE_P (TREE_VALUE (p)))
|
|
|
|
|
return type_as_string (p, flags);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
reinit_global_formatting_buffer ();
|
1999-08-26 09:30:50 +00:00
|
|
|
|
for (; p; p = TREE_CHAIN (p))
|
|
|
|
|
{
|
|
|
|
|
if (TREE_VALUE (p) == null_node)
|
2002-02-01 18:16:02 +00:00
|
|
|
|
print_identifier (scratch_buffer, "NULL");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
else
|
2002-02-01 18:16:02 +00:00
|
|
|
|
dump_type (error_type (TREE_VALUE (p)), flags);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (TREE_CHAIN (p))
|
2002-02-01 18:16:02 +00:00
|
|
|
|
separate_with_comma (scratch_buffer);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
2002-02-01 18:16:02 +00:00
|
|
|
|
return output_finalize_message (scratch_buffer);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
static const char *
|
|
|
|
|
cv_to_string (p, v)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
tree p;
|
2002-02-01 18:16:02 +00:00
|
|
|
|
int v;
|
|
|
|
|
{
|
|
|
|
|
reinit_global_formatting_buffer ();
|
|
|
|
|
|
|
|
|
|
dump_qualifiers (p, v ? before : none);
|
|
|
|
|
|
|
|
|
|
return output_finalize_message (scratch_buffer);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
lang_print_error_function (context, file)
|
|
|
|
|
diagnostic_context *context;
|
|
|
|
|
const char *file;
|
|
|
|
|
{
|
|
|
|
|
output_state os;
|
|
|
|
|
|
|
|
|
|
default_print_error_function (context, file);
|
|
|
|
|
os = output_buffer_state (context);
|
|
|
|
|
output_set_prefix ((output_buffer *)context, file);
|
|
|
|
|
maybe_print_instantiation_context ((output_buffer *)context);
|
|
|
|
|
output_buffer_state (context) = os;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
cp_diagnostic_starter (buffer, dc)
|
|
|
|
|
output_buffer *buffer;
|
|
|
|
|
diagnostic_context *dc;
|
|
|
|
|
{
|
|
|
|
|
report_problematic_module (buffer);
|
|
|
|
|
cp_print_error_function (buffer, dc);
|
|
|
|
|
maybe_print_instantiation_context (buffer);
|
|
|
|
|
output_set_prefix (buffer,
|
|
|
|
|
context_as_prefix (diagnostic_file_location (dc),
|
|
|
|
|
diagnostic_line_location (dc),
|
|
|
|
|
diagnostic_is_warning (dc)));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
cp_diagnostic_finalizer (buffer, dc)
|
|
|
|
|
output_buffer *buffer;
|
|
|
|
|
diagnostic_context *dc __attribute__ ((__unused__));
|
|
|
|
|
{
|
|
|
|
|
output_destroy_prefix (buffer);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print current function onto BUFFER, in the process of reporting
|
|
|
|
|
a diagnostic message. Called from cp_diagnostic_starter. */
|
|
|
|
|
static void
|
|
|
|
|
cp_print_error_function (buffer, dc)
|
|
|
|
|
output_buffer *buffer;
|
|
|
|
|
diagnostic_context *dc;
|
|
|
|
|
{
|
|
|
|
|
if (error_function_changed ())
|
|
|
|
|
{
|
|
|
|
|
char *prefix = diagnostic_file_location (dc)
|
|
|
|
|
? file_name_as_prefix (diagnostic_file_location (dc))
|
|
|
|
|
: NULL;
|
|
|
|
|
output_state os;
|
|
|
|
|
|
|
|
|
|
os = output_buffer_state (buffer);
|
|
|
|
|
output_set_prefix (buffer, prefix);
|
|
|
|
|
|
|
|
|
|
if (current_function_decl == NULL)
|
|
|
|
|
output_add_string (buffer, "At global scope:");
|
|
|
|
|
else
|
|
|
|
|
output_printf
|
|
|
|
|
(buffer, "In %s `%s':", function_category (current_function_decl),
|
|
|
|
|
(*decl_printable_name) (current_function_decl, 2));
|
|
|
|
|
output_add_newline (buffer);
|
|
|
|
|
|
|
|
|
|
record_last_error_function ();
|
|
|
|
|
output_destroy_prefix (buffer);
|
|
|
|
|
output_buffer_state (buffer) = os;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Returns a description of FUNCTION using standard terminology. */
|
|
|
|
|
static const char *
|
|
|
|
|
function_category (fn)
|
|
|
|
|
tree fn;
|
|
|
|
|
{
|
|
|
|
|
if (DECL_FUNCTION_MEMBER_P (fn))
|
|
|
|
|
{
|
|
|
|
|
if (DECL_STATIC_FUNCTION_P (fn))
|
|
|
|
|
return "static member function";
|
|
|
|
|
else if (DECL_COPY_CONSTRUCTOR_P (fn))
|
|
|
|
|
return "copy constructor";
|
|
|
|
|
else if (DECL_CONSTRUCTOR_P (fn))
|
|
|
|
|
return "constructor";
|
|
|
|
|
else if (DECL_DESTRUCTOR_P (fn))
|
|
|
|
|
return "destructor";
|
|
|
|
|
else
|
|
|
|
|
return "member function";
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return "function";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Report the full context of a current template instantiation,
|
|
|
|
|
onto BUFFER. */
|
|
|
|
|
static void
|
|
|
|
|
print_instantiation_full_context (buffer)
|
|
|
|
|
output_buffer *buffer;
|
|
|
|
|
{
|
|
|
|
|
tree p = current_instantiation ();
|
|
|
|
|
int line = lineno;
|
|
|
|
|
const char *file = input_filename;
|
|
|
|
|
|
|
|
|
|
if (p)
|
|
|
|
|
{
|
|
|
|
|
if (current_function_decl != TINST_DECL (p)
|
|
|
|
|
&& current_function_decl != NULL_TREE)
|
|
|
|
|
/* We can get here during the processing of some synthesized
|
|
|
|
|
method. Then, TINST_DECL (p) will be the function that's causing
|
|
|
|
|
the synthesis. */
|
|
|
|
|
;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (current_function_decl == TINST_DECL (p))
|
|
|
|
|
/* Avoid redundancy with the the "In function" line. */;
|
|
|
|
|
else
|
|
|
|
|
output_verbatim (buffer, "%s: In instantiation of `%s':\n", file,
|
|
|
|
|
decl_as_string (TINST_DECL (p),
|
|
|
|
|
TFF_DECL_SPECIFIERS | TFF_RETURN_TYPE));
|
|
|
|
|
|
|
|
|
|
line = TINST_LINE (p);
|
|
|
|
|
file = TINST_FILE (p);
|
|
|
|
|
p = TREE_CHAIN (p);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
print_instantiation_partial_context (buffer, p, file, line);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Same as above but less verbose. */
|
|
|
|
|
static void
|
|
|
|
|
print_instantiation_partial_context (buffer, t, file, line)
|
|
|
|
|
output_buffer *buffer;
|
|
|
|
|
tree t;
|
|
|
|
|
const char *file;
|
|
|
|
|
int line;
|
|
|
|
|
{
|
|
|
|
|
for (; t; t = TREE_CHAIN (t))
|
|
|
|
|
{
|
|
|
|
|
output_verbatim
|
|
|
|
|
(buffer, "%s:%d: instantiated from `%s'\n", file, line,
|
|
|
|
|
decl_as_string (TINST_DECL (t), TFF_DECL_SPECIFIERS | TFF_RETURN_TYPE));
|
|
|
|
|
line = TINST_LINE (t);
|
|
|
|
|
file = TINST_FILE (t);
|
|
|
|
|
}
|
|
|
|
|
output_verbatim (buffer, "%s:%d: instantiated from here\n", file, line);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Called from cp_thing to print the template context for an error. */
|
|
|
|
|
static void
|
|
|
|
|
maybe_print_instantiation_context (buffer)
|
|
|
|
|
output_buffer *buffer;
|
|
|
|
|
{
|
|
|
|
|
if (!problematic_instantiation_changed () || current_instantiation () == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
record_last_problematic_instantiation ();
|
|
|
|
|
print_instantiation_full_context (buffer);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Report the bare minimum context of a template instantiation. */
|
|
|
|
|
void
|
|
|
|
|
print_instantiation_context ()
|
|
|
|
|
{
|
|
|
|
|
print_instantiation_partial_context
|
|
|
|
|
(diagnostic_buffer, current_instantiation (), input_filename, lineno);
|
|
|
|
|
flush_diagnostic_buffer ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Called from output_format -- during diagnostic message processing --
|
|
|
|
|
to handle C++ specific format specifier with the following meanings:
|
|
|
|
|
%A function argument-list.
|
|
|
|
|
%C tree code.
|
|
|
|
|
%D declaration.
|
|
|
|
|
%E expression.
|
|
|
|
|
%F function declaration.
|
|
|
|
|
%L language as used in extern "lang".
|
|
|
|
|
%O binary operator.
|
|
|
|
|
%P function parameter whose position is indicated by an integer.
|
|
|
|
|
%Q assignment operator.
|
|
|
|
|
%T type.
|
|
|
|
|
%V cv-qualifier. */
|
|
|
|
|
static int
|
|
|
|
|
cp_printer (buffer)
|
|
|
|
|
output_buffer *buffer;
|
|
|
|
|
{
|
|
|
|
|
int verbose = 0;
|
|
|
|
|
const char *result;
|
|
|
|
|
#define next_tree va_arg (output_buffer_format_args (buffer), tree)
|
|
|
|
|
#define next_tcode va_arg (output_buffer_format_args (buffer), enum tree_code)
|
|
|
|
|
#define next_lang va_arg (output_buffer_format_args (buffer), enum languages)
|
|
|
|
|
#define next_int va_arg (output_buffer_format_args (buffer), int)
|
|
|
|
|
|
|
|
|
|
if (*output_buffer_text_cursor (buffer) == '+')
|
|
|
|
|
++output_buffer_text_cursor (buffer);
|
|
|
|
|
if (*output_buffer_text_cursor (buffer) == '#')
|
|
|
|
|
{
|
|
|
|
|
verbose = 1;
|
|
|
|
|
++output_buffer_text_cursor (buffer);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (*output_buffer_text_cursor (buffer))
|
|
|
|
|
{
|
|
|
|
|
case 'A': result = args_to_string (next_tree, verbose); break;
|
|
|
|
|
case 'C': result = code_to_string (next_tcode, verbose); break;
|
|
|
|
|
case 'D': result = decl_to_string (next_tree, verbose); break;
|
|
|
|
|
case 'E': result = expr_to_string (next_tree, verbose); break;
|
|
|
|
|
case 'F': result = fndecl_to_string (next_tree, verbose); break;
|
|
|
|
|
case 'L': result = language_to_string (next_lang, verbose); break;
|
|
|
|
|
case 'O': result = op_to_string (next_tcode, verbose); break;
|
|
|
|
|
case 'P': result = parm_to_string (next_int, verbose); break;
|
|
|
|
|
case 'Q': result = assop_to_string (next_tcode, verbose); break;
|
|
|
|
|
case 'T': result = type_to_string (next_tree, verbose); break;
|
|
|
|
|
case 'V': result = cv_to_string (next_tree, verbose); break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
output_add_string (buffer, result);
|
|
|
|
|
return 1;
|
|
|
|
|
#undef next_tree
|
|
|
|
|
#undef next_tcode
|
|
|
|
|
#undef next_lang
|
|
|
|
|
#undef next_int
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
print_integer (buffer, i)
|
|
|
|
|
output_buffer *buffer;
|
|
|
|
|
HOST_WIDE_INT i;
|
|
|
|
|
{
|
|
|
|
|
sprintf (digit_buffer, HOST_WIDE_INT_PRINT_DEC, (HOST_WIDE_INT) i);
|
|
|
|
|
output_add_string (buffer, digit_buffer);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
print_non_consecutive_character (buffer, c)
|
|
|
|
|
output_buffer *buffer;
|
|
|
|
|
int c;
|
|
|
|
|
{
|
|
|
|
|
const char *p = output_last_position (buffer);
|
|
|
|
|
|
|
|
|
|
if (p != NULL && *p == c)
|
|
|
|
|
output_add_space (buffer);
|
|
|
|
|
output_add_character (buffer, c);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* These are temporary wrapper functions which handle the historic
|
|
|
|
|
behavior of cp_*_at. */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
locate_error (msgid, ap)
|
|
|
|
|
const char *msgid;
|
|
|
|
|
va_list ap;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-01 18:16:02 +00:00
|
|
|
|
tree here = 0, t;
|
|
|
|
|
int plus = 0;
|
|
|
|
|
const char *f;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
for (f = msgid; *f; f++)
|
|
|
|
|
{
|
|
|
|
|
plus = 0;
|
|
|
|
|
if (*f == '%')
|
|
|
|
|
{
|
|
|
|
|
f++;
|
|
|
|
|
if (*f == '+')
|
|
|
|
|
f++, plus = 1;
|
|
|
|
|
if (*f == '#')
|
|
|
|
|
f++;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
switch (*f)
|
|
|
|
|
{
|
|
|
|
|
/* Just ignore these possibilities. */
|
|
|
|
|
case '%': break;
|
|
|
|
|
case 'd': (void) va_arg (ap, int); break;
|
|
|
|
|
case 's': (void) va_arg (ap, char *); break;
|
|
|
|
|
case 'L': (void) va_arg (ap, enum languages); break;
|
|
|
|
|
case 'C':
|
|
|
|
|
case 'O':
|
|
|
|
|
case 'Q': (void) va_arg (ap, enum tree_code); break;
|
|
|
|
|
|
|
|
|
|
/* These take a tree, which may be where the error is
|
|
|
|
|
located. */
|
|
|
|
|
case 'A':
|
|
|
|
|
case 'D':
|
|
|
|
|
case 'E':
|
|
|
|
|
case 'F':
|
|
|
|
|
case 'P':
|
|
|
|
|
case 'T':
|
|
|
|
|
case 'V':
|
|
|
|
|
t = va_arg (ap, tree);
|
|
|
|
|
if (!here || plus)
|
|
|
|
|
here = t;
|
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-01 18:16:02 +00:00
|
|
|
|
default:
|
|
|
|
|
errorcount = 0; /* damn ICE suppression */
|
|
|
|
|
internal_error ("unexpected letter `%c' in locate_error\n", *f);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (here == 0)
|
|
|
|
|
here = va_arg (ap, tree);
|
|
|
|
|
|
|
|
|
|
return here;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cp_error_at VPARAMS ((const char *msgid, ...))
|
|
|
|
|
{
|
|
|
|
|
tree here;
|
|
|
|
|
diagnostic_context dc;
|
|
|
|
|
|
|
|
|
|
VA_OPEN (ap, msgid);
|
|
|
|
|
VA_FIXEDARG (ap, const char *, msgid);
|
|
|
|
|
here = locate_error (msgid, ap);
|
|
|
|
|
VA_CLOSE (ap);
|
|
|
|
|
|
|
|
|
|
VA_OPEN (ap, msgid);
|
|
|
|
|
VA_FIXEDARG (ap, const char *, msgid);
|
|
|
|
|
|
|
|
|
|
set_diagnostic_context (&dc, msgid, &ap,
|
|
|
|
|
cp_file_of (here),
|
|
|
|
|
cp_line_of (here), /* warning = */ 0);
|
|
|
|
|
report_diagnostic (&dc);
|
|
|
|
|
VA_CLOSE (ap);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cp_warning_at VPARAMS ((const char *msgid, ...))
|
|
|
|
|
{
|
|
|
|
|
tree here;
|
|
|
|
|
diagnostic_context dc;
|
|
|
|
|
|
|
|
|
|
VA_OPEN (ap, msgid);
|
|
|
|
|
VA_FIXEDARG (ap, const char *, msgid);
|
|
|
|
|
here = locate_error (msgid, ap);
|
|
|
|
|
VA_CLOSE (ap);
|
|
|
|
|
|
|
|
|
|
VA_OPEN (ap, msgid);
|
|
|
|
|
VA_FIXEDARG (ap, const char *, msgid);
|
|
|
|
|
|
|
|
|
|
set_diagnostic_context (&dc, msgid, &ap,
|
|
|
|
|
cp_file_of (here),
|
|
|
|
|
cp_line_of (here), /* warning = */ 1);
|
|
|
|
|
report_diagnostic (&dc);
|
|
|
|
|
VA_CLOSE (ap);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cp_pedwarn_at VPARAMS ((const char *msgid, ...))
|
|
|
|
|
{
|
|
|
|
|
tree here;
|
|
|
|
|
diagnostic_context dc;
|
|
|
|
|
|
|
|
|
|
VA_OPEN (ap, msgid);
|
|
|
|
|
VA_FIXEDARG (ap, const char *, msgid);
|
|
|
|
|
here = locate_error (msgid, ap);
|
|
|
|
|
VA_CLOSE (ap);
|
|
|
|
|
|
|
|
|
|
VA_OPEN (ap, msgid);
|
|
|
|
|
VA_FIXEDARG (ap, const char *, msgid);
|
|
|
|
|
|
|
|
|
|
set_diagnostic_context (&dc, msgid, &ap,
|
|
|
|
|
cp_file_of (here),
|
|
|
|
|
cp_line_of (here),
|
|
|
|
|
/* warning = */ !flag_pedantic_errors);
|
|
|
|
|
report_diagnostic (&dc);
|
|
|
|
|
VA_CLOSE (ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|