+2013-08-03 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
+ * pretty-print.h (pp_underscore): New.
+ (pp_comma): Tidy.
+ * gimple-pretty-print.c (dump_unary_rhs): Use specialized pretty
+ printer functions instead of pp_character.
+ (dump_binary_rhs): Likewise.
+ (dump_ternary_rhs): Likewise.
+ (dump_gimple_call_args): Likewise.
+ (pp_points_to_solution): Likewise.
+ (dump_gimple_call): Likewise.
+ (dump_gimple_switch): Likewise.
+ (dump_gimple_cond): Likewise.
+ (dump_gimple_bind): Likewise.
+ (dump_gimple_try): Likewise.
+ (dump_gimple_omp_for): Likewise.
+ (dump_gimple_omp_continue): Likewise.
+ (dump_gimple_omp_single): Likewise.
+ (dump_gimple_omp_sections): Likewise.
+ (dump_gimple_omp_block): Likewise.
+ (dump_gimple_omp_critical): Likewise.
+ (dump_gimple_transaction): Likewise.
+ (dump_gimple_asm): Likewise.
+ (dump_gimple_phi): Likewise.
+ (dump_gimple_omp_parallel): Likewise.
+ (dump_gimple_omp_task): Likewise.
+ (dump_gimple_omp_atomic_load): Likewise.
+ (dump_gimple_omp_atomic_store): Likewise.
+ (dump_gimple_mem_ops): Likewise.
+ (pp_gimple_stmt_1): Likewise.
+ (pp_cfg_jump): Likewise.
+ (dump_implicit_edges): Likewise.
+ (gimple_dump_bb_for_graph): Likewise.
+ * graph.c (draw_cfg_node): Likewise.
+ * langhooks.c (lhd_print_error_function): Likewise.
+ * sched-vis.c (print_exp): Likewise.
+ (print_value): Likewise.
+ (print_pattern): Likewise.
+ (print_insn): Likewise.
+ (rtl_dump_bb_for_graph): Likewise.
+ * tree-pretty-print.c (dump_function_declaration): Likewise.
+ (dump_array_domain): Likewise.
+ (dump_omp_clause): Likewise.
+ (dump_location): Likewise.
+ (dump_generic_node): Likewise.
+ (print_struct_decl): Likewise.
+ * diagnostic.c (diagnostic_show_locus): Use pp_space.
+
2013-08-03 Bill Schmidt <wschmidt@vnet.linux.ibm.com>
* gimple-ssa-strength-reduction.c (replace_mult_candidate): Update
+2013-08-03 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
+ * c-ada-spec.c (print_ada_macros): Use specialized pretty printer
+ functions instead of pp_character.
+ (pp_ada_tree_identifier): Likewise.
+ (dump_ada_double_name): Likewise.
+ (dump_ada_function_declaration): Likewise.
+ (dump_ada_array_domains): Likewise.
+ (dump_template_types): Likewise.
+ (dump_generic_ada_node): Likewise.
+ (print_ada_declaration): Likewise.
+ (print_ada_struct_decl): Likewise.
+ * c-pretty-print.c (pp_c_integer_constant): Likewise.
+
2013-07-23 Tom Tromey <tromey@redhat.com>
* c-common.h (enum rid) <RID_GENERIC>: New constant.
pp_string (pp, "; -- ");
pp_string (pp, sloc.file);
- pp_character (pp, ':');
+ pp_colon (pp);
pp_scalar (pp, "%d", sloc.line);
pp_newline (pp);
}
{
append_withs (s1, limited_access);
pp_string (buffer, s1);
- pp_character (buffer, '.');
+ pp_dot (buffer);
}
free (s1);
}
pp_scalar (buffer, "%d", TYPE_UID (TREE_TYPE (t1)));
}
- pp_character (buffer, '_');
+ pp_underscore (buffer);
if (DECL_NAME (t1))
pp_ada_tree_identifier (buffer, DECL_NAME (t2), t2, false);
if (num_args > 0)
{
pp_space (buffer);
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
}
if (TREE_CODE (func) == FUNCTION_DECL)
if (num < num_args)
{
- pp_character (buffer, ';');
+ pp_semicolon (buffer);
if (num_args > 2)
newline_and_indent (buffer, spc + INDENT_INCR);
}
if (num_args > 0)
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
return num_args;
}
dump_ada_array_domains (pretty_printer *buffer, tree node, int spc)
{
int first = 1;
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
for (; TREE_CODE (node) == ARRAY_TYPE; node = TREE_TYPE (node))
{
else
pp_string (buffer, "size_t");
}
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
/* Dump in BUFFER file:line information related to NODE. */
for (i = 0; i < len; i++)
{
tree elem = TREE_VEC_ELT (types, i);
- pp_character (buffer, '_');
+ pp_underscore (buffer);
if (!dump_generic_ada_node (buffer, elem, 0, cpp_check, spc, false, true))
{
pp_string (buffer, "unknown");
if (tree_int_cst_sgn (val) < 0)
{
- pp_character (buffer, '-');
+ pp_minus (buffer);
high = ~high + !low;
low = -low;
}
dump_generic_ada_node
(buffer, TYPE_NAME (TREE_TYPE (t)), type, cpp_check,
spc, false, true);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
print_ada_methods (buffer, TREE_TYPE (t), cpp_check, spc);
}
dump_generic_ada_node
(buffer, TREE_TYPE (type), type, cpp_check, spc, false, true);
package_prefix = true;
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
if (is_union)
{
dump_generic_ada_node
(buffer, TREE_TYPE (type), type, cpp_check, spc, false, true);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
if (bitfield_used)
pp_string (buffer, "pragma Pack (");
dump_generic_ada_node
(buffer, TREE_TYPE (type), type, cpp_check, spc, false, true);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
bitfield_used = false;
}
HOST_WIDE_INT high = TREE_INT_CST_HIGH (i);
if (tree_int_cst_sgn (i) < 0)
{
- pp_character (pp, '-');
+ pp_minus (pp);
high = ~high + !low;
low = -low;
}
+2013-08-03 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
+ * error.c (dump_aggr_type): Use specialized pretty printer
+ functions instead of pp_character.
+ (dump_type_prefix): Likewise.
+ (dump_simple_decl): Likewise.
+ (type_to_string): Likewise.
+
2013-08-02 Paolo Carlini <paolo.carlini@oracle.com>
* cp-tree.h (finish_stmt): Do not declare.
if (lambda_function (t))
dump_parameters (FUNCTION_FIRST_USER_PARMTYPE (lambda_function (t)),
flags);
- pp_character(cxx_pp, '>');
+ pp_greater (cxx_pp);
}
else
pp_cxx_tree_identifier (cxx_pp, name);
TYPE_ATTRIBUTES (sub));
}
if (TYPE_PTR_P (t))
- pp_character(cxx_pp, '*');
+ pp_star (cxx_pp);
else if (TREE_CODE (t) == REFERENCE_TYPE)
{
if (TYPE_REF_IS_RVALUE (t))
pp_string (cxx_pp, "&&");
else
- pp_character (cxx_pp, '&');
+ pp_ampersand (cxx_pp);
}
pp_base (cxx_pp)->padding = pp_before;
pp_cxx_cv_qualifier_seq (cxx_pp, t);
{
if (TREE_CODE (t) == FIELD_DECL && DECL_NORMAL_CAPTURE_P (t))
{
- pp_character (cxx_pp, '<');
+ pp_less (cxx_pp);
pp_string (cxx_pp, IDENTIFIER_POINTER (DECL_NAME (t)) + 2);
pp_string (cxx_pp, " capture>");
}
/* And remember the start of the aka dump. */
aka_start = obstack_object_size (ob);
dump_type (aka, flags);
- pp_character (cxx_pp, '}');
+ pp_right_brace (cxx_pp);
p = (char*)obstack_base (ob);
/* If they are identical, cut off the aka with a NUL. */
if (memcmp (p, p+aka_start, len) == 0)
pp_newline (context->printer);
saved_prefix = pp_get_prefix (context->printer);
pp_set_prefix (context->printer, NULL);
- pp_character (context->printer, ' ');
+ pp_space (context->printer);
while (max_width > 0 && *line != '\0')
{
char c = *line == '\t' ? ' ' : *line;
case FIX_TRUNC_EXPR:
case FLOAT_EXPR:
CASE_CONVERT:
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, TREE_TYPE (lhs), spc, flags, false);
pp_string (buffer, ") ");
if (op_prio (rhs) < op_code_prio (rhs_code))
{
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, rhs, spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
else
dump_generic_node (buffer, rhs, spc, flags, false);
case ABS_EXPR:
pp_string (buffer, "ABS_EXPR <");
dump_generic_node (buffer, rhs, spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
default:
break;
}
else if (rhs_code == BIT_NOT_EXPR)
- pp_character (buffer, '~');
+ pp_complement (buffer);
else if (rhs_code == TRUTH_NOT_EXPR)
- pp_character (buffer, '!');
+ pp_exclamation (buffer);
else if (rhs_code == NEGATE_EXPR)
- pp_character (buffer, '-');
+ pp_minus (buffer);
else
{
- pp_character (buffer, '[');
+ pp_left_bracket (buffer);
pp_string (buffer, tree_code_name [rhs_code]);
pp_string (buffer, "] ");
}
if (op_prio (rhs) < op_code_prio (rhs_code))
{
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, rhs, spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
else
dump_generic_node (buffer, rhs, spc, flags, false);
dump_generic_node (buffer, gimple_assign_rhs1 (gs), spc, flags, false);
pp_string (buffer, ", ");
dump_generic_node (buffer, gimple_assign_rhs2 (gs), spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
default:
if (op_prio (gimple_assign_rhs1 (gs)) <= op_code_prio (code))
{
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, gimple_assign_rhs1 (gs), spc, flags,
false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
else
dump_generic_node (buffer, gimple_assign_rhs1 (gs), spc, flags, false);
pp_space (buffer);
if (op_prio (gimple_assign_rhs2 (gs)) <= op_code_prio (code))
{
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, gimple_assign_rhs2 (gs), spc, flags,
false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
else
dump_generic_node (buffer, gimple_assign_rhs2 (gs), spc, flags, false);
dump_generic_node (buffer, gimple_assign_rhs2 (gs), spc, flags, false);
pp_string (buffer, ", ");
dump_generic_node (buffer, gimple_assign_rhs3 (gs), spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
case FMA_EXPR:
{
dump_generic_node (buffer, gimple_assign_lhs (gs), spc, flags, false);
pp_space (buffer);
- pp_character (buffer, '=');
+ pp_equal (buffer);
if (gimple_assign_nontemporal_move_p (gs))
pp_string (buffer, "{nt}");
{
if (gimple_call_num_args (gs) > 0)
{
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
}
{
pp_string (buffer, "D.");
pp_decimal_int (buffer, i);
- pp_character (buffer, ' ');
+ pp_space (buffer);
}
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
if (pt->vars_contains_global)
pp_string (buffer, " (glob)");
}
pp_string (buffer, ", ");
dump_gimple_call_args (buffer, gs, flags);
}
- pp_character (buffer, '>');
+ pp_greater (buffer);
}
else
{
print_call_name (buffer, fn, flags);
pp_string (buffer, " (");
dump_gimple_call_args (buffer, gs, flags);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
if (!(flags & TDF_RHS_ONLY))
pp_semicolon (buffer);
}
{
pp_string (buffer, " [static-chain: ");
dump_generic_node (buffer, gimple_call_chain (gs), spc, flags, false);
- pp_character (buffer, ']');
+ pp_right_bracket (buffer);
}
if (gimple_call_return_slot_opt_p (gs))
tree case_label = gimple_switch_label (gs, i);
gcc_checking_assert (case_label != NULL_TREE);
dump_generic_node (buffer, case_label, spc, flags, false);
- pp_character (buffer, ' ');
+ pp_space (buffer);
dump_generic_node (buffer, CASE_LABEL (case_label), spc, flags, false);
if (i < gimple_switch_num_labels (gs) - 1)
pp_string (buffer, ", ");
}
- pp_character (buffer, '>');
+ pp_greater (buffer);
}
dump_generic_node (buffer, gimple_cond_rhs (gs), spc, flags, false);
if (!(flags & TDF_RHS_ONLY))
{
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
if (gimple_cond_true_label (gs))
{
else
{
dump_generic_node (buffer, label, spc, flags, false);
- pp_character (buffer, ':');
+ pp_colon (buffer);
}
if (DECL_NONLOCAL (label))
pp_string (buffer, " [non-local]");
if (flags & TDF_RAW)
dump_gimple_fmt (buffer, spc, flags, "%G <", gs);
else
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
if (!(flags & TDF_SLIM))
{
tree var;
dump_gimple_seq (buffer, gimple_bind_body (gs), spc + 2, flags);
newline_and_indent (buffer, spc);
if (flags & TDF_RAW)
- pp_character (buffer, '>');
+ pp_greater (buffer);
else
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
{
pp_string (buffer, "try");
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
dump_gimple_seq (buffer, gimple_try_eval (gs), spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
if (gimple_try_kind (gs) == GIMPLE_TRY_CATCH)
{
newline_and_indent (buffer, spc);
pp_string (buffer, "catch");
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
}
else if (gimple_try_kind (gs) == GIMPLE_TRY_FINALLY)
{
newline_and_indent (buffer, spc);
pp_string (buffer, "finally");
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
}
else
pp_string (buffer, " <UNKNOWN GIMPLE_TRY> {");
pp_newline (buffer);
dump_gimple_seq (buffer, gimple_try_cleanup (gs), spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
}
switch (gimple_omp_for_cond (gs, i))
{
case LT_EXPR:
- pp_character (buffer, '<');
+ pp_less (buffer);
break;
case GT_EXPR:
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
case LE_EXPR:
pp_string (buffer, "<=");
pp_string (buffer, " = ");
dump_generic_node (buffer, gimple_omp_for_incr (gs, i), spc,
flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
if (!gimple_seq_empty_p (gimple_omp_body (gs)))
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
dump_gimple_seq (buffer, gimple_omp_body (gs), spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
}
}
pp_string (buffer, "#pragma omp continue (");
dump_generic_node (buffer, gimple_omp_continue_control_def (gs),
spc, flags, false);
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
dump_generic_node (buffer, gimple_omp_continue_control_use (gs),
spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
}
if (!gimple_seq_empty_p (gimple_omp_body (gs)))
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
dump_gimple_seq (buffer, gimple_omp_body (gs), spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
}
}
pp_string (buffer, " <");
dump_generic_node (buffer, gimple_omp_sections_control (gs), spc,
flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
}
dump_omp_clauses (buffer, gimple_omp_sections_clauses (gs), spc, flags);
if (!gimple_seq_empty_p (gimple_omp_body (gs)))
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
dump_gimple_seq (buffer, gimple_omp_body (gs), spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
}
}
if (!gimple_seq_empty_p (gimple_omp_body (gs)))
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
dump_gimple_seq (buffer, gimple_omp_body (gs), spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
}
}
pp_string (buffer, " (");
dump_generic_node (buffer, gimple_omp_critical_name (gs), spc,
flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
if (!gimple_seq_empty_p (gimple_omp_body (gs)))
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
dump_gimple_seq (buffer, gimple_omp_body (gs), spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
}
}
if (!gimple_seq_empty_p (gimple_transaction_body (gs)))
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
dump_gimple_seq (buffer, gimple_transaction_body (gs),
spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
}
}
}
newline_and_indent (buffer, spc);
- pp_character (buffer, '>');
+ pp_greater (buffer);
}
else
{
expanded_location xloc;
xloc = expand_location (gimple_phi_arg_location (phi, i));
- pp_character (buffer, '[');
+ pp_left_bracket (buffer);
if (xloc.file)
{
pp_string (buffer, xloc.file);
}
dump_generic_node (buffer, gimple_phi_arg_def (phi, i), spc, flags,
false);
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
pp_decimal_int (buffer, gimple_phi_arg_edge (phi, i)->src->index);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
if (i < gimple_phi_num_args (phi) - 1)
pp_string (buffer, ", ");
}
- pp_character (buffer, '>');
+ pp_greater (buffer);
}
if (body && gimple_code (gimple_seq_first_stmt (body)) != GIMPLE_BIND)
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
dump_gimple_seq (buffer, body, spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
else if (body)
{
if (body && gimple_code (gimple_seq_first_stmt (body)) != GIMPLE_BIND)
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
dump_gimple_seq (buffer, body, spc + 4, flags);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
else if (body)
{
dump_generic_node (buffer, gimple_omp_atomic_load_lhs (gs),
spc, flags, false);
pp_space (buffer);
- pp_character (buffer, '=');
+ pp_equal (buffer);
pp_space (buffer);
- pp_character (buffer, '*');
+ pp_star (buffer);
dump_generic_node (buffer, gimple_omp_atomic_load_rhs (gs),
spc, flags, false);
}
pp_string (buffer, "#pragma omp atomic_store ");
if (gimple_omp_atomic_need_value_p (gs))
pp_string (buffer, "[needed] ");
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, gimple_omp_atomic_store_val (gs),
spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
}
dump_generic_node (buffer, vdef, spc + 2, flags, false);
pp_string (buffer, " = VDEF <");
dump_generic_node (buffer, vuse, spc + 2, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
newline_and_indent (buffer, spc);
}
else if (vuse != NULL_TREE)
{
pp_string (buffer, "# VUSE <");
dump_generic_node (buffer, vuse, spc + 2, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
newline_and_indent (buffer, spc);
}
}
if ((flags & TDF_LINENO) && gimple_has_location (gs))
{
expanded_location xloc = expand_location (gimple_location (gs));
- pp_character (buffer, '[');
+ pp_left_bracket (buffer);
if (xloc.file)
{
pp_string (buffer, xloc.file);
pp_string (buffer, "goto <bb ");
pp_decimal_int (buffer, bb->index);
- pp_character (buffer, '>');
+ pp_greater (buffer);
if (stmt && gimple_code (stmt) == GIMPLE_LABEL)
{
pp_string (buffer, " (");
dump_generic_node (buffer, gimple_label_label (stmt), 0, 0, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
pp_semicolon (buffer);
}
else
{
expanded_location goto_xloc;
goto_xloc = expand_location (e->goto_locus);
- pp_character (buffer, '[');
+ pp_left_bracket (buffer);
if (goto_xloc.file)
{
pp_string (buffer, goto_xloc.file);
if (!virtual_operand_p (gimple_phi_result (phi))
|| (dump_flags & TDF_VOPS))
{
- pp_character (pp, '|');
+ pp_bar (pp);
pp_write_text_to_stream (pp);
pp_string (pp, "# ");
pp_gimple_stmt_1 (pp, phi, 0, dump_flags);
for (gsi = gsi_start_bb (bb); !gsi_end_p (gsi); gsi_next (&gsi))
{
gimple stmt = gsi_stmt (gsi);
- pp_character (pp, '|');
+ pp_bar (pp);
pp_write_text_to_stream (pp);
pp_gimple_stmt_1 (pp, stmt, 0, dump_flags);
pp_newline (pp);
pp_string (pp, "EXIT");
else
{
- pp_character (pp, '{');
+ pp_left_brace (pp);
pp_write_text_to_stream (pp);
dump_bb_for_graph (pp, bb);
- pp_character (pp, '}');
+ pp_right_brace (pp);
}
pp_string (pp, "\"];\n\n");
if (fndecl)
{
expanded_location s = expand_location (*locus);
- pp_character (context->printer, ',');
+ pp_comma (context->printer);
pp_newline (context->printer);
if (s.file != NULL)
{
identifier_to_locale (lang_hooks.decl_printable_name (fndecl, 2)));
}
}
- pp_character (context->printer, ':');
+ pp_colon (context->printer);
}
diagnostic_set_last_function (context, diagnostic);
#define pp_left_brace(PP) pp_character (PP, '{')
#define pp_right_brace(PP) pp_character (PP, '}')
#define pp_semicolon(PP) pp_character (PP, ';')
-#define pp_comma(PP) pp_string (PP, ", ")
+#define pp_comma(PP) pp_character (PP, ',')
#define pp_dot(PP) pp_character (PP, '.')
#define pp_colon(PP) pp_character (PP, ':')
#define pp_colon_colon(PP) pp_string (PP, "::")
#define pp_quote(PP) pp_character (PP, '\'')
#define pp_backquote(PP) pp_character (PP, '`')
#define pp_doublequote(PP) pp_character (PP, '"')
+#define pp_underscore(PP) pp_character (PP, '_')
#define pp_newline_and_flush(PP) \
do { \
pp_newline (PP); \
pp_string (pp, "unspec");
if (GET_CODE (x) == UNSPEC_VOLATILE)
pp_string (pp, "/v");
- pp_character (pp, '[');
+ pp_left_bracket (pp);
for (i = 0; i < XVECLEN (x, 0); i++)
{
if (i != 0)
- pp_character (pp, ',');
+ pp_comma (pp);
print_pattern (pp, XVECEXP (x, 0, i), verbose);
}
pp_string (pp, "] ");
if (fun)
{
pp_string (pp, fun);
- pp_character (pp, '(');
+ pp_left_paren (pp);
}
for (i = 0; i < 4; i++)
if (op[i])
{
if (fun && i != 0)
- pp_character (pp, ',');
+ pp_comma (pp);
print_value (pp, op[i], verbose);
}
}
if (fun)
- pp_character (pp, ')');
+ pp_right_paren (pp);
} /* print_exp */
/* Prints rtxes, I customarily classified as values. They're constants,
case STRICT_LOW_PART:
pp_printf (pp, "%s(", GET_RTX_NAME (GET_CODE (x)));
print_value (pp, XEXP (x, 0), verbose);
- pp_character (pp, ')');
+ pp_right_paren (pp);
break;
case REG:
if (REGNO (x) < FIRST_PSEUDO_REGISTER)
{
if (ISDIGIT (reg_names[REGNO (x)][0]))
- pp_character (pp, '%');
+ pp_modulo (pp);
pp_string (pp, reg_names[REGNO (x)]);
}
else
pp_string (pp, GET_RTX_NAME (GET_CODE (x)));
break;
case MEM:
- pp_character (pp, '[');
+ pp_left_bracket (pp);
print_value (pp, XEXP (x, 0), verbose);
- pp_character (pp, ']');
+ pp_right_bracket (pp);
break;
case DEBUG_EXPR:
pp_printf (pp, "D#%i", DEBUG_TEMP_UID (DEBUG_EXPR_TREE_DECL (x)));
{
case SET:
print_value (pp, SET_DEST (x), verbose);
- pp_character (pp, '=');
+ pp_equal (pp);
print_value (pp, SET_SRC (x), verbose);
break;
case RETURN:
print_value (pp, PAT_VAR_LOCATION_LOC (x), verbose);
break;
case COND_EXEC:
- pp_character (pp, '(');
+ pp_left_paren (pp);
if (GET_CODE (COND_EXEC_TEST (x)) == NE
&& XEXP (COND_EXEC_TEST (x), 1) == const0_rtx)
print_value (pp, XEXP (COND_EXEC_TEST (x), 0), verbose);
else if (GET_CODE (COND_EXEC_TEST (x)) == EQ
&& XEXP (COND_EXEC_TEST (x), 1) == const0_rtx)
{
- pp_character (pp, '!');
+ pp_exclamation (pp);
print_value (pp, XEXP (COND_EXEC_TEST (x), 0), verbose);
}
else
{
int i;
- pp_character (pp, '{');
+ pp_left_brace (pp);
for (i = 0; i < XVECLEN (x, 0); i++)
{
print_pattern (pp, XVECEXP (x, 0, i), verbose);
- pp_character (pp, ';');
+ pp_semicolon (pp);
}
- pp_character (pp, '}');
+ pp_right_brace (pp);
}
break;
case SEQUENCE:
for (int i = 0; i < XVECLEN (x, 0); i++)
{
print_pattern (pp, XVECEXP (x, 0, i), verbose);
- pp_character (pp, ';');
+ pp_semicolon (pp);
}
}
- pp_character (pp, '}');
+ pp_right_brace (pp);
}
break;
case ASM_INPUT:
case NOTE_INSN_VAR_LOCATION:
case NOTE_INSN_CALL_ARG_LOCATION:
- pp_character (pp, '{');
+ pp_left_brace (pp);
print_pattern (pp, NOTE_VAR_LOCATION (x), verbose);
- pp_character (pp, '}');
+ pp_right_brace (pp);
break;
default:
{
if (! first)
{
- pp_character (pp, '|');
+ pp_bar (pp);
pp_write_text_to_stream (pp);
}
first = false;
tree arg;
pp_space (buffer);
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
/* Print the argument types. */
arg = TYPE_ARG_TYPES (node);
{
if (wrote_arg)
{
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
}
wrote_arg = true;
pp_string (buffer, ", ...");
/* Avoid printing any arg for unprototyped functions. */
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
/* Dump the domain associated with an array. */
static void
dump_array_domain (pretty_printer *buffer, tree domain, int spc, int flags)
{
- pp_character (buffer, '[');
+ pp_left_bracket (buffer);
if (domain)
{
tree min = TYPE_MIN_VALUE (domain);
{
if (min)
dump_generic_node (buffer, min, spc, flags, false);
- pp_character (buffer, ':');
+ pp_colon (buffer);
if (max)
dump_generic_node (buffer, max, spc, flags, false);
}
}
else
pp_string (buffer, "<unknown>");
- pp_character (buffer, ']');
+ pp_right_bracket (buffer);
}
goto print_remap;
print_remap:
pp_string (buffer, name);
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, OMP_CLAUSE_DECL (clause),
spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case OMP_CLAUSE_REDUCTION:
pp_string (buffer, "reduction(");
pp_string (buffer, op_symbol_code (OMP_CLAUSE_REDUCTION_CODE (clause)));
- pp_character (buffer, ':');
+ pp_colon (buffer);
dump_generic_node (buffer, OMP_CLAUSE_DECL (clause),
spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case OMP_CLAUSE_IF:
pp_string (buffer, "if(");
dump_generic_node (buffer, OMP_CLAUSE_IF_EXPR (clause),
spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case OMP_CLAUSE_NUM_THREADS:
pp_string (buffer, "num_threads(");
dump_generic_node (buffer, OMP_CLAUSE_NUM_THREADS_EXPR (clause),
spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case OMP_CLAUSE_NOWAIT:
default:
gcc_unreachable ();
}
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case OMP_CLAUSE_SCHEDULE:
}
if (OMP_CLAUSE_SCHEDULE_CHUNK_EXPR (clause))
{
- pp_character (buffer, ',');
+ pp_comma (buffer);
dump_generic_node (buffer,
OMP_CLAUSE_SCHEDULE_CHUNK_EXPR (clause),
spc, flags, false);
}
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case OMP_CLAUSE_UNTIED:
dump_generic_node (buffer,
OMP_CLAUSE_COLLAPSE_EXPR (clause),
spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case OMP_CLAUSE_FINAL:
pp_string (buffer, "final(");
dump_generic_node (buffer, OMP_CLAUSE_FINAL_EXPR (clause),
spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case OMP_CLAUSE_MERGEABLE:
{
expanded_location xloc = expand_location (loc);
- pp_character (buffer, '[');
+ pp_left_bracket (buffer);
if (xloc.file)
{
pp_string (buffer, xloc.file);
node = TREE_CHAIN (node);
if (node && TREE_CODE (node) == TREE_LIST)
{
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
}
}
{
dump_generic_node (buffer, TREE_VEC_ELT (node, i), spc, flags,
false);
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
}
dump_generic_node (buffer, TREE_VEC_ELT (node, len - 1), spc,
else if (TREE_CODE (node) == VECTOR_TYPE)
{
pp_string (buffer, "vector");
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
pp_wide_integer (buffer, TYPE_VECTOR_SUBPARTS (node));
pp_string (buffer, ") ");
dump_generic_node (buffer, TREE_TYPE (node), spc, flags, false);
dump_generic_node (buffer, TREE_TYPE (fnode), spc, flags, false);
pp_space (buffer);
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
pp_string (buffer, str);
if (TYPE_NAME (node) && DECL_NAME (TYPE_NAME (node)))
dump_decl_name (buffer, TYPE_NAME (node), flags);
else
pp_printf (buffer, "<T%x>", TYPE_UID (node));
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
dump_function_declaration (buffer, fnode, spc, flags);
}
else
if (tree_int_cst_sgn (val) < 0)
{
- pp_character (buffer, '-');
+ pp_minus (buffer);
high = ~high + !low;
low = -low;
}
str = "->";
}
if (op_prio (op0) < op_prio (node))
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, op0, spc, flags, false);
if (op_prio (op0) < op_prio (node))
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
pp_string (buffer, str);
dump_generic_node (buffer, TREE_OPERAND (node, 1), spc, flags, false);
op0 = component_ref_field_offset (node);
{
pp_string (buffer, "{off: ");
dump_generic_node (buffer, op0, spc, flags, false);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
break;
case ARRAY_RANGE_REF:
op0 = TREE_OPERAND (node, 0);
if (op_prio (op0) < op_prio (node))
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, op0, spc, flags, false);
if (op_prio (op0) < op_prio (node))
- pp_character (buffer, ')');
- pp_character (buffer, '[');
+ pp_right_paren (buffer);
+ pp_left_bracket (buffer);
dump_generic_node (buffer, TREE_OPERAND (node, 1), spc, flags, false);
if (TREE_CODE (node) == ARRAY_RANGE_REF)
pp_string (buffer, " ...");
- pp_character (buffer, ']');
+ pp_right_bracket (buffer);
op0 = array_ref_low_bound (node);
op1 = array_ref_element_size (node);
dump_generic_node (buffer, op0, spc, flags, false);
pp_string (buffer, " sz: ");
dump_generic_node (buffer, op1, spc, flags, false);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
break;
bool is_struct_init = false;
bool is_array_init = false;
double_int curidx = double_int_zero;
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
if (TREE_CLOBBER_P (node))
pp_string (buffer, "CLOBBER");
else if (TREE_CODE (TREE_TYPE (node)) == RECORD_TYPE
{
if (is_struct_init)
{
- pp_character (buffer, '.');
+ pp_dot (buffer);
dump_generic_node (buffer, field, spc, flags, false);
- pp_character (buffer, '=');
+ pp_equal (buffer);
}
else if (is_array_init
&& (TREE_CODE (field) != INTEGER_CST
|| tree_to_double_int (field) != curidx))
{
- pp_character (buffer, '[');
+ pp_left_bracket (buffer);
if (TREE_CODE (field) == RANGE_EXPR)
{
dump_generic_node (buffer, TREE_OPERAND (field, 0), spc,
dump_generic_node (buffer, val, spc, flags, false);
if (ix != vec_safe_length (CONSTRUCTOR_ELTS (node)) - 1)
{
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
}
}
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
break;
newline_and_indent (buffer, spc);
else
{
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
}
newline_and_indent (buffer, spc);
else
{
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
}
}
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags,
false);
pp_space (buffer);
- pp_character (buffer, '=');
+ pp_equal (buffer);
pp_space (buffer);
dump_generic_node (buffer, TREE_OPERAND (node, 1), spc, flags,
false);
case TARGET_EXPR:
pp_string (buffer, "TARGET_EXPR <");
dump_generic_node (buffer, TARGET_EXPR_SLOT (node), spc, flags, false);
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
dump_generic_node (buffer, TARGET_EXPR_INITIAL (node), spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
case DECL_EXPR:
{
pp_string (buffer, "if (");
dump_generic_node (buffer, COND_EXPR_COND (node), spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
/* The lowered cond_exprs should always be printed in full. */
if (COND_EXPR_THEN (node)
&& (IS_EMPTY_STMT (COND_EXPR_THEN (node))
if (COND_EXPR_THEN (node))
{
newline_and_indent (buffer, spc+2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
newline_and_indent (buffer, spc+4);
dump_generic_node (buffer, COND_EXPR_THEN (node), spc+4,
flags, true);
newline_and_indent (buffer, spc+2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
/* Output COND_EXPR_ELSE. */
newline_and_indent (buffer, spc);
pp_string (buffer, "else");
newline_and_indent (buffer, spc+2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
newline_and_indent (buffer, spc+4);
dump_generic_node (buffer, COND_EXPR_ELSE (node), spc+4,
flags, true);
newline_and_indent (buffer, spc+2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
}
is_expr = false;
{
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
pp_space (buffer);
- pp_character (buffer, '?');
+ pp_question (buffer);
pp_space (buffer);
dump_generic_node (buffer, TREE_OPERAND (node, 1), spc, flags, false);
pp_space (buffer);
- pp_character (buffer, ':');
+ pp_colon (buffer);
pp_space (buffer);
dump_generic_node (buffer, TREE_OPERAND (node, 2), spc, flags, false);
}
break;
case BIND_EXPR:
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
if (!(flags & TDF_SLIM))
{
if (BIND_EXPR_VARS (node))
newline_and_indent (buffer, spc+2);
dump_generic_node (buffer, BIND_EXPR_BODY (node), spc+2, flags, true);
newline_and_indent (buffer, spc);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
is_expr = false;
break;
/* Print parameters. */
pp_space (buffer);
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
{
tree arg;
call_expr_arg_iterator iter;
dump_generic_node (buffer, arg, spc, flags, false);
if (more_call_expr_args_p (&iter))
{
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
}
}
{
if (call_expr_nargs (node) > 0)
{
- pp_character (buffer, ',');
+ pp_comma (buffer);
pp_space (buffer);
}
pp_string (buffer, "__builtin_va_arg_pack ()");
}
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
op1 = CALL_EXPR_STATIC_CHAIN (node);
if (op1)
{
pp_string (buffer, " [static-chain: ");
dump_generic_node (buffer, op1, spc, flags, false);
- pp_character (buffer, ']');
+ pp_right_bracket (buffer);
}
if (CALL_EXPR_RETURN_SLOT_OPT (node))
case PLACEHOLDER_EXPR:
pp_string (buffer, "<PLACEHOLDER_EXPR ");
dump_generic_node (buffer, TREE_TYPE (node), spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
/* Binary arithmetic and logic expressions. */
keep semantics of the tree representation. */
if (op_prio (op0) <= op_prio (node))
{
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, op0, spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
else
dump_generic_node (buffer, op0, spc, flags, false);
keep semantics of the tree representation. */
if (op_prio (op1) <= op_prio (node))
{
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, op1, spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
else
dump_generic_node (buffer, op1, spc, flags, false);
if (op_prio (TREE_OPERAND (node, 0)) < op_prio (node))
{
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
else
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
case POSTINCREMENT_EXPR:
if (op_prio (TREE_OPERAND (node, 0)) < op_prio (node))
{
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
else
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
pp_string (buffer, ", ");
dump_generic_node (buffer, TREE_OPERAND (node, 1), spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
case MAX_EXPR:
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
pp_string (buffer, ", ");
dump_generic_node (buffer, TREE_OPERAND (node, 1), spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
case ABS_EXPR:
pp_string (buffer, "ABS_EXPR <");
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
case RANGE_EXPR:
op0 = TREE_OPERAND (node, 0);
if (type != TREE_TYPE (op0))
{
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, type, spc, flags, false);
pp_string (buffer, ") ");
}
if (op_prio (op0) < op_prio (node))
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, op0, spc, flags, false);
if (op_prio (op0) < op_prio (node))
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case VIEW_CONVERT_EXPR:
dump_generic_node (buffer, TREE_TYPE (node), spc, flags, false);
pp_string (buffer, ">(");
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case PAREN_EXPR:
case NON_LVALUE_EXPR:
pp_string (buffer, "NON_LVALUE_EXPR <");
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
case SAVE_EXPR:
pp_string (buffer, "SAVE_EXPR <");
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
- pp_character (buffer, '>');
+ pp_greater (buffer);
break;
case COMPLEX_EXPR:
break;
}
dump_generic_node (buffer, op0, spc, flags, false);
- pp_character (buffer, ':');
+ pp_colon (buffer);
if (DECL_NONLOCAL (op0))
pp_string (buffer, " [non-local]");
break;
if (!(flags & TDF_SLIM))
{
newline_and_indent (buffer, spc+2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
newline_and_indent (buffer, spc+4);
dump_generic_node (buffer, LOOP_EXPR_BODY (node), spc+4, flags, true);
newline_and_indent (buffer, spc+2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
is_expr = false;
break;
case SWITCH_EXPR:
pp_string (buffer, "switch (");
dump_generic_node (buffer, SWITCH_COND (node), spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
if (!(flags & TDF_SLIM))
{
newline_and_indent (buffer, spc+2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
if (SWITCH_BODY (node))
{
newline_and_indent (buffer, spc+4);
}
}
newline_and_indent (buffer, spc+2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
is_expr = false;
break;
pp_string (buffer, "__asm__");
if (ASM_VOLATILE_P (node))
pp_string (buffer, " __volatile__");
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, ASM_STRING (node), spc, flags, false);
- pp_character (buffer, ':');
+ pp_colon (buffer);
dump_generic_node (buffer, ASM_OUTPUTS (node), spc, flags, false);
- pp_character (buffer, ':');
+ pp_colon (buffer);
dump_generic_node (buffer, ASM_INPUTS (node), spc, flags, false);
if (ASM_CLOBBERS (node))
{
- pp_character (buffer, ':');
+ pp_colon (buffer);
dump_generic_node (buffer, ASM_CLOBBERS (node), spc, flags, false);
}
pp_string (buffer, ")");
}
else
pp_string (buffer, "default");
- pp_character (buffer, ':');
+ pp_colon (buffer);
break;
case OBJ_TYPE_REF:
pp_string (buffer, "OBJ_TYPE_REF(");
dump_generic_node (buffer, OBJ_TYPE_REF_EXPR (node), spc, flags, false);
- pp_character (buffer, ';');
+ pp_semicolon (buffer);
dump_generic_node (buffer, OBJ_TYPE_REF_OBJECT (node), spc, flags, false);
- pp_character (buffer, '-');
- pp_character (buffer, '>');
+ pp_arrow (buffer);
dump_generic_node (buffer, OBJ_TYPE_REF_TOKEN (node), spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
break;
case SSA_NAME:
if (!(flags & TDF_SLIM) && OMP_BODY (node))
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
newline_and_indent (buffer, spc + 4);
dump_generic_node (buffer, OMP_BODY (node), spc + 4, flags, false);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
is_expr = false;
break;
if (OMP_FOR_PRE_BODY (node))
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
spc += 4;
newline_and_indent (buffer, spc);
dump_generic_node (buffer, OMP_FOR_PRE_BODY (node),
if (OMP_FOR_BODY (node))
{
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
newline_and_indent (buffer, spc + 4);
dump_generic_node (buffer, OMP_FOR_BODY (node), spc + 4, flags,
false);
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
spc -= 2 * TREE_VEC_LENGTH (OMP_FOR_INIT (node)) - 2;
if (OMP_FOR_PRE_BODY (node))
{
spc -= 4;
newline_and_indent (buffer, spc + 2);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
}
is_expr = false;
if (OMP_CRITICAL_NAME (node))
{
pp_space (buffer);
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, OMP_CRITICAL_NAME (node), spc,
flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
goto dump_omp_body;
newline_and_indent (buffer, spc + 2);
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
pp_space (buffer);
- pp_character (buffer, '=');
+ pp_equal (buffer);
pp_space (buffer);
dump_generic_node (buffer, TREE_OPERAND (node, 1), spc, flags, false);
break;
newline_and_indent (buffer, spc + 2);
dump_generic_node (buffer, TREE_OPERAND (node, 0), spc, flags, false);
pp_space (buffer);
- pp_character (buffer, '=');
+ pp_equal (buffer);
pp_space (buffer);
dump_generic_node (buffer, TREE_OPERAND (node, 1), spc, flags, false);
break;
if (!(flags & TDF_SLIM) && TRANSACTION_EXPR_BODY (node))
{
newline_and_indent (buffer, spc);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
newline_and_indent (buffer, spc + 2);
dump_generic_node (buffer, TRANSACTION_EXPR_BODY (node),
spc + 2, flags, false);
newline_and_indent (buffer, spc);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
is_expr = false;
break;
case VEC_WIDEN_MULT_ODD_EXPR:
case VEC_WIDEN_LSHIFT_HI_EXPR:
case VEC_WIDEN_LSHIFT_LO_EXPR:
- pp_character (buffer, ' ');
+ pp_space (buffer);
for (str = tree_code_name [code]; *str; str++)
pp_character (buffer, TOUPPER (*str));
pp_string (buffer, " < ");
if (TREE_CODE (t) == VAR_DECL && DECL_HARD_REGISTER (t))
{
pp_string (buffer, " __asm__ ");
- pp_character (buffer, '(');
+ pp_left_paren (buffer);
dump_generic_node (buffer, DECL_ASSEMBLER_NAME (t), spc, flags, false);
- pp_character (buffer, ')');
+ pp_right_paren (buffer);
}
/* The initial value of a function serves to determine whether the function
if (DECL_INITIAL (t))
{
pp_space (buffer);
- pp_character (buffer, '=');
+ pp_equal (buffer);
pp_space (buffer);
dump_generic_node (buffer, DECL_INITIAL (t), spc, flags, false);
}
{
pp_string (buffer, " [value-expr: ");
dump_generic_node (buffer, DECL_VALUE_EXPR (t), spc, flags, false);
- pp_character (buffer, ']');
+ pp_right_bracket (buffer);
}
- pp_character (buffer, ';');
+ pp_semicolon (buffer);
}
/* Print the contents of the structure. */
pp_newline (buffer);
INDENT (spc);
- pp_character (buffer, '{');
+ pp_left_brace (buffer);
pp_newline (buffer);
/* Print the fields of the structure. */
}
}
INDENT (spc);
- pp_character (buffer, '}');
+ pp_right_brace (buffer);
}
/* Return the priority of the operator CODE.
projects / platform / upstream / linaro-gcc.git / commitdiff