1 /* Tree-dumping functionality for intermediate representation.
2 Copyright (C) 1999-2015 Free Software Foundation, Inc.
3 Written by Mark Mitchell <mark@codesourcery.com>
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
23 #include "coretypes.h"
29 #include "tree-dump.h"
31 static void dump_access (dump_info_p
, tree
);
33 static void dump_op (dump_info_p
, tree
);
35 /* Dump a representation of the accessibility information associated
39 dump_access (dump_info_p di
, tree t
)
41 if (TREE_PROTECTED(t
))
42 dump_string_field (di
, "accs", "prot");
43 else if (TREE_PRIVATE(t
))
44 dump_string_field (di
, "accs", "priv");
46 dump_string_field (di
, "accs", "pub");
49 /* Dump a representation of the specific operator for an overloaded
50 operator associated with node t. */
53 dump_op (dump_info_p di
, tree t
)
55 switch (DECL_OVERLOADED_OPERATOR_P (t
)) {
57 dump_string (di
, "new");
60 dump_string (di
, "vecnew");
63 dump_string (di
, "delete");
66 dump_string (di
, "vecdelete");
69 dump_string (di
, "pos");
72 dump_string (di
, "neg");
75 dump_string (di
, "addr");
78 dump_string(di
, "deref");
81 dump_string(di
, "not");
84 dump_string(di
, "lnot");
86 case PREINCREMENT_EXPR
:
87 dump_string(di
, "preinc");
89 case PREDECREMENT_EXPR
:
90 dump_string(di
, "predec");
93 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
94 dump_string (di
, "plusassign");
96 dump_string(di
, "plus");
99 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
100 dump_string (di
, "minusassign");
102 dump_string(di
, "minus");
105 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
106 dump_string (di
, "multassign");
108 dump_string (di
, "mult");
111 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
112 dump_string (di
, "divassign");
114 dump_string (di
, "div");
117 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
118 dump_string (di
, "modassign");
120 dump_string (di
, "mod");
123 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
124 dump_string (di
, "andassign");
126 dump_string (di
, "and");
129 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
130 dump_string (di
, "orassign");
132 dump_string (di
, "or");
135 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
136 dump_string (di
, "xorassign");
138 dump_string (di
, "xor");
141 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
142 dump_string (di
, "lshiftassign");
144 dump_string (di
, "lshift");
147 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
148 dump_string (di
, "rshiftassign");
150 dump_string (di
, "rshift");
153 dump_string (di
, "eq");
156 dump_string (di
, "ne");
159 dump_string (di
, "lt");
162 dump_string (di
, "gt");
165 dump_string (di
, "le");
168 dump_string (di
, "ge");
170 case TRUTH_ANDIF_EXPR
:
171 dump_string (di
, "land");
173 case TRUTH_ORIF_EXPR
:
174 dump_string (di
, "lor");
177 dump_string (di
, "compound");
180 dump_string (di
, "memref");
183 dump_string (di
, "ref");
186 dump_string (di
, "subs");
188 case POSTINCREMENT_EXPR
:
189 dump_string (di
, "postinc");
191 case POSTDECREMENT_EXPR
:
192 dump_string (di
, "postdec");
195 dump_string (di
, "call");
198 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
199 dump_string (di
, "assign");
206 /* Dump information common to statements from STMT. */
209 dump_stmt (dump_info_p di
, const_tree t
)
211 if (EXPR_HAS_LOCATION (t
))
212 dump_int (di
, "line", EXPR_LINENO (t
));
216 cp_dump_tree (void* dump_info
, tree t
)
219 dump_info_p di
= (dump_info_p
) dump_info
;
221 /* Figure out what kind of node this is. */
222 code
= TREE_CODE (t
);
226 if (DECL_LANG_SPECIFIC (t
) && DECL_LANGUAGE (t
) != lang_cplusplus
)
227 dump_string_field (di
, "lang", language_to_string (DECL_LANGUAGE (t
)));
232 case IDENTIFIER_NODE
:
233 if (IDENTIFIER_OPNAME_P (t
))
235 dump_string_field (di
, "note", "operator");
238 else if (IDENTIFIER_TYPENAME_P (t
))
240 dump_child ("tynm", TREE_TYPE (t
));
246 dump_string_field (di
, "note", "ptrmem");
247 dump_child ("ptd", TYPE_PTRMEM_POINTED_TO_TYPE (t
));
248 dump_child ("cls", TYPE_PTRMEM_CLASS_TYPE (t
));
252 if (TYPE_PTRMEMFUNC_P (t
))
254 dump_string_field (di
, "note", "ptrmem");
255 dump_child ("ptd", TYPE_PTRMEM_POINTED_TO_TYPE (t
));
256 dump_child ("cls", TYPE_PTRMEM_CLASS_TYPE (t
));
262 /* Is it a type used as a base? */
263 if (TYPE_CONTEXT (t
) && TREE_CODE (TYPE_CONTEXT (t
)) == TREE_CODE (t
)
264 && CLASSTYPE_AS_BASE (TYPE_CONTEXT (t
)) == t
)
266 dump_child ("bfld", TYPE_CONTEXT (t
));
270 if (! MAYBE_CLASS_TYPE_P (t
))
273 dump_child ("vfld", TYPE_VFIELD (t
));
274 if (CLASSTYPE_TEMPLATE_SPECIALIZATION(t
))
275 dump_string(di
, "spec");
277 if (!dump_flag (di
, TDF_SLIM
, t
) && TYPE_BINFO (t
))
283 for (binfo
= TYPE_BINFO (t
), i
= 0;
284 BINFO_BASE_ITERATE (binfo
, i
, base_binfo
); ++i
)
286 dump_child ("base", BINFO_TYPE (base_binfo
));
287 if (BINFO_VIRTUAL_P (base_binfo
))
288 dump_string_field (di
, "spec", "virt");
289 dump_access (di
, base_binfo
);
296 if (DECL_MUTABLE_P (t
))
297 dump_string_field (di
, "spec", "mutable");
301 if (TREE_CODE (CP_DECL_CONTEXT (t
)) == RECORD_TYPE
)
303 if (TREE_STATIC (t
) && !TREE_PUBLIC (t
))
304 dump_string_field (di
, "link", "static");
308 if (!DECL_THUNK_P (t
))
310 if (DECL_OVERLOADED_OPERATOR_P (t
)) {
311 dump_string_field (di
, "note", "operator");
314 if (DECL_FUNCTION_MEMBER_P (t
))
316 dump_string_field (di
, "note", "member");
319 if (DECL_PURE_VIRTUAL_P (t
))
320 dump_string_field (di
, "spec", "pure");
321 if (DECL_VIRTUAL_P (t
))
322 dump_string_field (di
, "spec", "virt");
323 if (DECL_CONSTRUCTOR_P (t
))
324 dump_string_field (di
, "note", "constructor");
325 if (DECL_DESTRUCTOR_P (t
))
326 dump_string_field (di
, "note", "destructor");
327 if (DECL_CONV_FN_P (t
))
328 dump_string_field (di
, "note", "conversion");
329 if (DECL_GLOBAL_CTOR_P (t
))
330 dump_string_field (di
, "note", "global init");
331 if (DECL_GLOBAL_DTOR_P (t
))
332 dump_string_field (di
, "note", "global fini");
333 if (DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (t
))
334 dump_string_field (di
, "note", "pseudo tmpl");
338 tree virt
= THUNK_VIRTUAL_OFFSET (t
);
340 dump_string_field (di
, "note", "thunk");
341 if (DECL_THIS_THUNK_P (t
))
342 dump_string_field (di
, "note", "this adjusting");
345 dump_string_field (di
, "note", "result adjusting");
347 virt
= BINFO_VPTR_FIELD (virt
);
349 dump_int (di
, "fixd", THUNK_FIXED_OFFSET (t
));
351 dump_int (di
, "virt", tree_to_shwi (virt
));
352 dump_child ("fn", DECL_INITIAL (t
));
357 if (DECL_NAMESPACE_ALIAS (t
))
358 dump_child ("alis", DECL_NAMESPACE_ALIAS (t
));
359 else if (!dump_flag (di
, TDF_SLIM
, t
))
360 dump_child ("dcls", cp_namespace_decls (t
));
364 dump_child ("rslt", DECL_TEMPLATE_RESULT (t
));
365 dump_child ("inst", DECL_TEMPLATE_INSTANTIATIONS (t
));
366 dump_child ("spcs", DECL_TEMPLATE_SPECIALIZATIONS (t
));
367 dump_child ("prms", DECL_TEMPLATE_PARMS (t
));
371 dump_child ("crnt", OVL_CURRENT (t
));
372 dump_child ("chan", OVL_CHAIN (t
));
378 dump_string_field (di
, "note", "cleanup");
379 dump_child ("body", TRY_STMTS (t
));
380 dump_child ("hdlr", TRY_HANDLERS (t
));
385 dump_child ("body", EH_SPEC_STMTS (t
));
386 dump_child ("raises", EH_SPEC_RAISES (t
));
390 dump_child ("clas", PTRMEM_CST_CLASS (t
));
391 dump_child ("mbr", PTRMEM_CST_MEMBER (t
));
395 /* These nodes are unary, but do not have code class `1'. */
396 dump_child ("op 0", TREE_OPERAND (t
, 0));
403 aggr_init_expr_arg_iterator iter
;
404 dump_int (di
, "ctor", AGGR_INIT_VIA_CTOR_P (t
));
405 dump_child ("fn", AGGR_INIT_EXPR_FN (t
));
406 FOR_EACH_AGGR_INIT_EXPR_ARG (arg
, iter
, t
)
409 sprintf (buffer
, "%u", i
);
410 dump_child (buffer
, arg
);
413 dump_child ("decl", AGGR_INIT_EXPR_SLOT (t
));
419 dump_child ("parm", HANDLER_PARMS (t
));
420 dump_child ("body", HANDLER_BODY (t
));
423 case MUST_NOT_THROW_EXPR
:
425 dump_child ("body", TREE_OPERAND (t
, 0));
426 dump_child ("cond", MUST_NOT_THROW_COND (t
));
431 dump_child ("nmsp", USING_STMT_NAMESPACE (t
));
436 dump_child ("decl", CLEANUP_DECL (t
));
437 dump_child ("expr", CLEANUP_EXPR (t
));
438 dump_child ("body", CLEANUP_BODY (t
));
443 dump_child ("cond", IF_COND (t
));
444 dump_child ("then", THEN_CLAUSE (t
));
445 dump_child ("else", ELSE_CLAUSE (t
));
455 dump_child ("body", DO_BODY (t
));
456 dump_child ("cond", DO_COND (t
));
461 dump_child ("init", FOR_INIT_STMT (t
));
462 dump_child ("cond", FOR_COND (t
));
463 dump_child ("expr", FOR_EXPR (t
));
464 dump_child ("body", FOR_BODY (t
));
469 dump_child ("decl", RANGE_FOR_DECL (t
));
470 dump_child ("expr", RANGE_FOR_EXPR (t
));
471 dump_child ("body", RANGE_FOR_BODY (t
));
476 dump_child ("cond", SWITCH_STMT_COND (t
));
477 dump_child ("body", SWITCH_STMT_BODY (t
));
482 dump_child ("cond", WHILE_COND (t
));
483 dump_child ("body", WHILE_BODY (t
));
487 dump_child ("stmt", STMT_EXPR_STMT (t
));
492 dump_child ("expr", EXPR_STMT_EXPR (t
));
499 return c_dump_tree (di
, t
);