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"
28 #include "double-int.h"
36 #include "tree-dump.h"
38 static void dump_access (dump_info_p
, tree
);
40 static void dump_op (dump_info_p
, tree
);
42 /* Dump a representation of the accessibility information associated
46 dump_access (dump_info_p di
, tree t
)
48 if (TREE_PROTECTED(t
))
49 dump_string_field (di
, "accs", "prot");
50 else if (TREE_PRIVATE(t
))
51 dump_string_field (di
, "accs", "priv");
53 dump_string_field (di
, "accs", "pub");
56 /* Dump a representation of the specific operator for an overloaded
57 operator associated with node t. */
60 dump_op (dump_info_p di
, tree t
)
62 switch (DECL_OVERLOADED_OPERATOR_P (t
)) {
64 dump_string (di
, "new");
67 dump_string (di
, "vecnew");
70 dump_string (di
, "delete");
73 dump_string (di
, "vecdelete");
76 dump_string (di
, "pos");
79 dump_string (di
, "neg");
82 dump_string (di
, "addr");
85 dump_string(di
, "deref");
88 dump_string(di
, "not");
91 dump_string(di
, "lnot");
93 case PREINCREMENT_EXPR
:
94 dump_string(di
, "preinc");
96 case PREDECREMENT_EXPR
:
97 dump_string(di
, "predec");
100 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
101 dump_string (di
, "plusassign");
103 dump_string(di
, "plus");
106 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
107 dump_string (di
, "minusassign");
109 dump_string(di
, "minus");
112 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
113 dump_string (di
, "multassign");
115 dump_string (di
, "mult");
118 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
119 dump_string (di
, "divassign");
121 dump_string (di
, "div");
124 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
125 dump_string (di
, "modassign");
127 dump_string (di
, "mod");
130 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
131 dump_string (di
, "andassign");
133 dump_string (di
, "and");
136 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
137 dump_string (di
, "orassign");
139 dump_string (di
, "or");
142 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
143 dump_string (di
, "xorassign");
145 dump_string (di
, "xor");
148 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
149 dump_string (di
, "lshiftassign");
151 dump_string (di
, "lshift");
154 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
155 dump_string (di
, "rshiftassign");
157 dump_string (di
, "rshift");
160 dump_string (di
, "eq");
163 dump_string (di
, "ne");
166 dump_string (di
, "lt");
169 dump_string (di
, "gt");
172 dump_string (di
, "le");
175 dump_string (di
, "ge");
177 case TRUTH_ANDIF_EXPR
:
178 dump_string (di
, "land");
180 case TRUTH_ORIF_EXPR
:
181 dump_string (di
, "lor");
184 dump_string (di
, "compound");
187 dump_string (di
, "memref");
190 dump_string (di
, "ref");
193 dump_string (di
, "subs");
195 case POSTINCREMENT_EXPR
:
196 dump_string (di
, "postinc");
198 case POSTDECREMENT_EXPR
:
199 dump_string (di
, "postdec");
202 dump_string (di
, "call");
205 if (DECL_ASSIGNMENT_OPERATOR_P (t
))
206 dump_string (di
, "assign");
213 /* Dump information common to statements from STMT. */
216 dump_stmt (dump_info_p di
, const_tree t
)
218 if (EXPR_HAS_LOCATION (t
))
219 dump_int (di
, "line", EXPR_LINENO (t
));
223 cp_dump_tree (void* dump_info
, tree t
)
226 dump_info_p di
= (dump_info_p
) dump_info
;
228 /* Figure out what kind of node this is. */
229 code
= TREE_CODE (t
);
233 if (DECL_LANG_SPECIFIC (t
) && DECL_LANGUAGE (t
) != lang_cplusplus
)
234 dump_string_field (di
, "lang", language_to_string (DECL_LANGUAGE (t
)));
239 case IDENTIFIER_NODE
:
240 if (IDENTIFIER_OPNAME_P (t
))
242 dump_string_field (di
, "note", "operator");
245 else if (IDENTIFIER_TYPENAME_P (t
))
247 dump_child ("tynm", TREE_TYPE (t
));
253 dump_string_field (di
, "note", "ptrmem");
254 dump_child ("ptd", TYPE_PTRMEM_POINTED_TO_TYPE (t
));
255 dump_child ("cls", TYPE_PTRMEM_CLASS_TYPE (t
));
259 if (TYPE_PTRMEMFUNC_P (t
))
261 dump_string_field (di
, "note", "ptrmem");
262 dump_child ("ptd", TYPE_PTRMEM_POINTED_TO_TYPE (t
));
263 dump_child ("cls", TYPE_PTRMEM_CLASS_TYPE (t
));
269 /* Is it a type used as a base? */
270 if (TYPE_CONTEXT (t
) && TREE_CODE (TYPE_CONTEXT (t
)) == TREE_CODE (t
)
271 && CLASSTYPE_AS_BASE (TYPE_CONTEXT (t
)) == t
)
273 dump_child ("bfld", TYPE_CONTEXT (t
));
277 if (! MAYBE_CLASS_TYPE_P (t
))
280 dump_child ("vfld", TYPE_VFIELD (t
));
281 if (CLASSTYPE_TEMPLATE_SPECIALIZATION(t
))
282 dump_string(di
, "spec");
284 if (!dump_flag (di
, TDF_SLIM
, t
) && TYPE_BINFO (t
))
290 for (binfo
= TYPE_BINFO (t
), i
= 0;
291 BINFO_BASE_ITERATE (binfo
, i
, base_binfo
); ++i
)
293 dump_child ("base", BINFO_TYPE (base_binfo
));
294 if (BINFO_VIRTUAL_P (base_binfo
))
295 dump_string_field (di
, "spec", "virt");
296 dump_access (di
, base_binfo
);
303 if (DECL_MUTABLE_P (t
))
304 dump_string_field (di
, "spec", "mutable");
308 if (TREE_CODE (CP_DECL_CONTEXT (t
)) == RECORD_TYPE
)
310 if (TREE_STATIC (t
) && !TREE_PUBLIC (t
))
311 dump_string_field (di
, "link", "static");
315 if (!DECL_THUNK_P (t
))
317 if (DECL_OVERLOADED_OPERATOR_P (t
)) {
318 dump_string_field (di
, "note", "operator");
321 if (DECL_FUNCTION_MEMBER_P (t
))
323 dump_string_field (di
, "note", "member");
326 if (DECL_PURE_VIRTUAL_P (t
))
327 dump_string_field (di
, "spec", "pure");
328 if (DECL_VIRTUAL_P (t
))
329 dump_string_field (di
, "spec", "virt");
330 if (DECL_CONSTRUCTOR_P (t
))
331 dump_string_field (di
, "note", "constructor");
332 if (DECL_DESTRUCTOR_P (t
))
333 dump_string_field (di
, "note", "destructor");
334 if (DECL_CONV_FN_P (t
))
335 dump_string_field (di
, "note", "conversion");
336 if (DECL_GLOBAL_CTOR_P (t
))
337 dump_string_field (di
, "note", "global init");
338 if (DECL_GLOBAL_DTOR_P (t
))
339 dump_string_field (di
, "note", "global fini");
340 if (DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (t
))
341 dump_string_field (di
, "note", "pseudo tmpl");
345 tree virt
= THUNK_VIRTUAL_OFFSET (t
);
347 dump_string_field (di
, "note", "thunk");
348 if (DECL_THIS_THUNK_P (t
))
349 dump_string_field (di
, "note", "this adjusting");
352 dump_string_field (di
, "note", "result adjusting");
354 virt
= BINFO_VPTR_FIELD (virt
);
356 dump_int (di
, "fixd", THUNK_FIXED_OFFSET (t
));
358 dump_int (di
, "virt", tree_to_shwi (virt
));
359 dump_child ("fn", DECL_INITIAL (t
));
364 if (DECL_NAMESPACE_ALIAS (t
))
365 dump_child ("alis", DECL_NAMESPACE_ALIAS (t
));
366 else if (!dump_flag (di
, TDF_SLIM
, t
))
367 dump_child ("dcls", cp_namespace_decls (t
));
371 dump_child ("rslt", DECL_TEMPLATE_RESULT (t
));
372 dump_child ("inst", DECL_TEMPLATE_INSTANTIATIONS (t
));
373 dump_child ("spcs", DECL_TEMPLATE_SPECIALIZATIONS (t
));
374 dump_child ("prms", DECL_TEMPLATE_PARMS (t
));
378 dump_child ("crnt", OVL_CURRENT (t
));
379 dump_child ("chan", OVL_CHAIN (t
));
385 dump_string_field (di
, "note", "cleanup");
386 dump_child ("body", TRY_STMTS (t
));
387 dump_child ("hdlr", TRY_HANDLERS (t
));
392 dump_child ("body", EH_SPEC_STMTS (t
));
393 dump_child ("raises", EH_SPEC_RAISES (t
));
397 dump_child ("clas", PTRMEM_CST_CLASS (t
));
398 dump_child ("mbr", PTRMEM_CST_MEMBER (t
));
402 /* These nodes are unary, but do not have code class `1'. */
403 dump_child ("op 0", TREE_OPERAND (t
, 0));
410 aggr_init_expr_arg_iterator iter
;
411 dump_int (di
, "ctor", AGGR_INIT_VIA_CTOR_P (t
));
412 dump_child ("fn", AGGR_INIT_EXPR_FN (t
));
413 FOR_EACH_AGGR_INIT_EXPR_ARG (arg
, iter
, t
)
416 sprintf (buffer
, "%u", i
);
417 dump_child (buffer
, arg
);
420 dump_child ("decl", AGGR_INIT_EXPR_SLOT (t
));
426 dump_child ("parm", HANDLER_PARMS (t
));
427 dump_child ("body", HANDLER_BODY (t
));
430 case MUST_NOT_THROW_EXPR
:
432 dump_child ("body", TREE_OPERAND (t
, 0));
433 dump_child ("cond", MUST_NOT_THROW_COND (t
));
438 dump_child ("nmsp", USING_STMT_NAMESPACE (t
));
443 dump_child ("decl", CLEANUP_DECL (t
));
444 dump_child ("expr", CLEANUP_EXPR (t
));
445 dump_child ("body", CLEANUP_BODY (t
));
450 dump_child ("cond", IF_COND (t
));
451 dump_child ("then", THEN_CLAUSE (t
));
452 dump_child ("else", ELSE_CLAUSE (t
));
462 dump_child ("body", DO_BODY (t
));
463 dump_child ("cond", DO_COND (t
));
468 dump_child ("init", FOR_INIT_STMT (t
));
469 dump_child ("cond", FOR_COND (t
));
470 dump_child ("expr", FOR_EXPR (t
));
471 dump_child ("body", FOR_BODY (t
));
476 dump_child ("decl", RANGE_FOR_DECL (t
));
477 dump_child ("expr", RANGE_FOR_EXPR (t
));
478 dump_child ("body", RANGE_FOR_BODY (t
));
483 dump_child ("cond", SWITCH_STMT_COND (t
));
484 dump_child ("body", SWITCH_STMT_BODY (t
));
489 dump_child ("cond", WHILE_COND (t
));
490 dump_child ("body", WHILE_BODY (t
));
494 dump_child ("stmt", STMT_EXPR_STMT (t
));
499 dump_child ("expr", EXPR_STMT_EXPR (t
));
506 return c_dump_tree (di
, t
);