]>
Commit | Line | Data |
---|---|---|
ddea175e | 1 | /* Tree-dumping functionality for intermediate representation. |
8e8f6434 | 2 | Copyright (C) 1999-2018 Free Software Foundation, Inc. |
ddea175e | 3 | Written by Mark Mitchell <mark@codesourcery.com> |
4 | ||
6f0d25a6 | 5 | This file is part of GCC. |
ddea175e | 6 | |
6f0d25a6 | 7 | GCC is free software; you can redistribute it and/or modify |
ddea175e | 8 | it under the terms of the GNU General Public License as published by |
aa139c3f | 9 | the Free Software Foundation; either version 3, or (at your option) |
ddea175e | 10 | any later version. |
11 | ||
6f0d25a6 | 12 | GCC is distributed in the hope that it will be useful, |
ddea175e | 13 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | GNU General Public License for more details. | |
16 | ||
17 | You should have received a copy of the GNU General Public License | |
aa139c3f | 18 | along with GCC; see the file COPYING3. If not see |
19 | <http://www.gnu.org/licenses/>. */ | |
ddea175e | 20 | |
ddea175e | 21 | #include "config.h" |
22 | #include "system.h" | |
805e22b2 | 23 | #include "coretypes.h" |
ddea175e | 24 | #include "cp-tree.h" |
3119c950 | 25 | #include "tree-dump.h" |
ddea175e | 26 | |
fa1e684b | 27 | /* Dump a representation of the accessibility information associated |
28 | with T. */ | |
29 | ||
30 | static void | |
5fc6d49c | 31 | dump_access (dump_info_p di, tree t) |
fa1e684b | 32 | { |
33 | if (TREE_PROTECTED(t)) | |
5a471c32 | 34 | dump_string_field (di, "accs", "prot"); |
fa1e684b | 35 | else if (TREE_PRIVATE(t)) |
5a471c32 | 36 | dump_string_field (di, "accs", "priv"); |
fa1e684b | 37 | else |
5a471c32 | 38 | dump_string_field (di, "accs", "pub"); |
fa1e684b | 39 | } |
40 | ||
b9ed1410 | 41 | /* Dump information common to statements from STMT. */ |
42 | ||
43 | static void | |
44 | dump_stmt (dump_info_p di, const_tree t) | |
45 | { | |
46 | if (EXPR_HAS_LOCATION (t)) | |
47 | dump_int (di, "line", EXPR_LINENO (t)); | |
48 | } | |
49 | ||
fb84380a | 50 | bool |
5fc6d49c | 51 | cp_dump_tree (void* dump_info, tree t) |
ddea175e | 52 | { |
ddea175e | 53 | enum tree_code code; |
3119c950 | 54 | dump_info_p di = (dump_info_p) dump_info; |
ddea175e | 55 | |
56 | /* Figure out what kind of node this is. */ | |
57 | code = TREE_CODE (t); | |
ddea175e | 58 | |
c25509f2 | 59 | if (DECL_P (t)) |
ddea175e | 60 | { |
f0edcca6 | 61 | if (DECL_LANG_SPECIFIC (t) && DECL_LANGUAGE (t) != lang_cplusplus) |
5a471c32 | 62 | dump_string_field (di, "lang", language_to_string (DECL_LANGUAGE (t))); |
ddea175e | 63 | } |
ddea175e | 64 | |
ddea175e | 65 | switch (code) |
66 | { | |
ddea175e | 67 | case IDENTIFIER_NODE: |
991449b2 | 68 | if (IDENTIFIER_ANY_OP_P (t)) |
c25509f2 | 69 | { |
5a471c32 | 70 | dump_string_field (di, "note", "operator"); |
fb84380a | 71 | return true; |
c25509f2 | 72 | } |
991449b2 | 73 | else if (IDENTIFIER_CONV_OP_P (t)) |
ddea175e | 74 | { |
c25509f2 | 75 | dump_child ("tynm", TREE_TYPE (t)); |
fb84380a | 76 | return true; |
ddea175e | 77 | } |
ddea175e | 78 | break; |
79 | ||
1bc16cab | 80 | case OFFSET_TYPE: |
5a471c32 | 81 | dump_string_field (di, "note", "ptrmem"); |
1bc16cab | 82 | dump_child ("ptd", TYPE_PTRMEM_POINTED_TO_TYPE (t)); |
83 | dump_child ("cls", TYPE_PTRMEM_CLASS_TYPE (t)); | |
84 | return true; | |
ddea175e | 85 | |
86 | case RECORD_TYPE: | |
ddea175e | 87 | if (TYPE_PTRMEMFUNC_P (t)) |
88 | { | |
5a471c32 | 89 | dump_string_field (di, "note", "ptrmem"); |
704f03c4 | 90 | dump_child ("ptd", TYPE_PTRMEM_POINTED_TO_TYPE (t)); |
91 | dump_child ("cls", TYPE_PTRMEM_CLASS_TYPE (t)); | |
fb84380a | 92 | return true; |
ddea175e | 93 | } |
1bc16cab | 94 | /* Fall through. */ |
ddea175e | 95 | |
1bc16cab | 96 | case UNION_TYPE: |
4b09de30 | 97 | /* Is it a type used as a base? */ |
98 | if (TYPE_CONTEXT (t) && TREE_CODE (TYPE_CONTEXT (t)) == TREE_CODE (t) | |
99 | && CLASSTYPE_AS_BASE (TYPE_CONTEXT (t)) == t) | |
100 | { | |
101 | dump_child ("bfld", TYPE_CONTEXT (t)); | |
fb84380a | 102 | return true; |
4b09de30 | 103 | } |
9031d10b | 104 | |
95397ff9 | 105 | if (! MAYBE_CLASS_TYPE_P (t)) |
bdb2219e | 106 | break; |
107 | ||
c25509f2 | 108 | dump_child ("vfld", TYPE_VFIELD (t)); |
c2465d5d | 109 | if (CLASSTYPE_TEMPLATE_SPECIALIZATION(t)) |
653e5405 | 110 | dump_string(di, "spec"); |
364c0b82 | 111 | |
8a176c0b | 112 | if (!dump_flag (di, TDF_SLIM, t) && TYPE_BINFO (t)) |
364c0b82 | 113 | { |
114 | int i; | |
f6cc6a08 | 115 | tree binfo; |
116 | tree base_binfo; | |
9031d10b | 117 | |
f6cc6a08 | 118 | for (binfo = TYPE_BINFO (t), i = 0; |
119 | BINFO_BASE_ITERATE (binfo, i, base_binfo); ++i) | |
364c0b82 | 120 | { |
364c0b82 | 121 | dump_child ("base", BINFO_TYPE (base_binfo)); |
9031d10b | 122 | if (BINFO_VIRTUAL_P (base_binfo)) |
5a471c32 | 123 | dump_string_field (di, "spec", "virt"); |
364c0b82 | 124 | dump_access (di, base_binfo); |
125 | } | |
126 | } | |
fa1e684b | 127 | break; |
128 | ||
129 | case FIELD_DECL: | |
130 | dump_access (di, t); | |
c2465d5d | 131 | if (DECL_MUTABLE_P (t)) |
5a471c32 | 132 | dump_string_field (di, "spec", "mutable"); |
ddea175e | 133 | break; |
134 | ||
c2465d5d | 135 | case VAR_DECL: |
136 | if (TREE_CODE (CP_DECL_CONTEXT (t)) == RECORD_TYPE) | |
653e5405 | 137 | dump_access (di, t); |
c2465d5d | 138 | if (TREE_STATIC (t) && !TREE_PUBLIC (t)) |
5a471c32 | 139 | dump_string_field (di, "link", "static"); |
9031d10b | 140 | break; |
c2465d5d | 141 | |
ddea175e | 142 | case FUNCTION_DECL: |
2b82dde2 | 143 | if (!DECL_THUNK_P (t)) |
74e1778a | 144 | { |
ef8f6502 | 145 | if (DECL_OVERLOADED_OPERATOR_P (t)) |
5a471c32 | 146 | dump_string_field (di, "note", "operator"); |
9031d10b | 147 | if (DECL_FUNCTION_MEMBER_P (t)) |
fa1e684b | 148 | { |
5a471c32 | 149 | dump_string_field (di, "note", "member"); |
fa1e684b | 150 | dump_access (di, t); |
151 | } | |
653e5405 | 152 | if (DECL_PURE_VIRTUAL_P (t)) |
5a471c32 | 153 | dump_string_field (di, "spec", "pure"); |
653e5405 | 154 | if (DECL_VIRTUAL_P (t)) |
5a471c32 | 155 | dump_string_field (di, "spec", "virt"); |
74e1778a | 156 | if (DECL_CONSTRUCTOR_P (t)) |
5a471c32 | 157 | dump_string_field (di, "note", "constructor"); |
74e1778a | 158 | if (DECL_DESTRUCTOR_P (t)) |
5a471c32 | 159 | dump_string_field (di, "note", "destructor"); |
74e1778a | 160 | if (DECL_CONV_FN_P (t)) |
5a471c32 | 161 | dump_string_field (di, "note", "conversion"); |
805e22b2 | 162 | if (DECL_GLOBAL_CTOR_P (t)) |
5a471c32 | 163 | dump_string_field (di, "note", "global init"); |
805e22b2 | 164 | if (DECL_GLOBAL_DTOR_P (t)) |
5a471c32 | 165 | dump_string_field (di, "note", "global fini"); |
671116bf | 166 | if (DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (t)) |
5a471c32 | 167 | dump_string_field (di, "note", "pseudo tmpl"); |
74e1778a | 168 | } |
169 | else | |
170 | { | |
71b1859a | 171 | tree virt = THUNK_VIRTUAL_OFFSET (t); |
9031d10b | 172 | |
5a471c32 | 173 | dump_string_field (di, "note", "thunk"); |
805e22b2 | 174 | if (DECL_THIS_THUNK_P (t)) |
5a471c32 | 175 | dump_string_field (di, "note", "this adjusting"); |
805e22b2 | 176 | else |
71b1859a | 177 | { |
5a471c32 | 178 | dump_string_field (di, "note", "result adjusting"); |
71b1859a | 179 | if (virt) |
180 | virt = BINFO_VPTR_FIELD (virt); | |
181 | } | |
805e22b2 | 182 | dump_int (di, "fixd", THUNK_FIXED_OFFSET (t)); |
71b1859a | 183 | if (virt) |
fcb97e84 | 184 | dump_int (di, "virt", tree_to_shwi (virt)); |
2b82dde2 | 185 | dump_child ("fn", DECL_INITIAL (t)); |
74e1778a | 186 | } |
ddea175e | 187 | break; |
188 | ||
189 | case NAMESPACE_DECL: | |
968eccb1 | 190 | if (DECL_NAMESPACE_ALIAS (t)) |
191 | dump_child ("alis", DECL_NAMESPACE_ALIAS (t)); | |
364c0b82 | 192 | else if (!dump_flag (di, TDF_SLIM, t)) |
968eccb1 | 193 | dump_child ("dcls", cp_namespace_decls (t)); |
ddea175e | 194 | break; |
195 | ||
900f01f2 | 196 | case TEMPLATE_DECL: |
52d6ab53 | 197 | dump_child ("rslt", DECL_TEMPLATE_RESULT (t)); |
9b814097 | 198 | dump_child ("inst", DECL_TEMPLATE_INSTANTIATIONS (t)); |
7806a559 | 199 | dump_child ("spcs", DECL_TEMPLATE_SPECIALIZATIONS (t)); |
fa1e684b | 200 | dump_child ("prms", DECL_TEMPLATE_PARMS (t)); |
900f01f2 | 201 | break; |
202 | ||
ddea175e | 203 | case OVERLOAD: |
d14ef710 | 204 | dump_child ("name", OVL_NAME (t)); |
205 | if (!dump_flag (di, TDF_SLIM, t)) | |
206 | for (lkp_iterator iter (t); iter; ++iter) | |
207 | dump_child ("chld", *iter); | |
ddea175e | 208 | break; |
209 | ||
c25509f2 | 210 | case TRY_BLOCK: |
ddea175e | 211 | dump_stmt (di, t); |
c25509f2 | 212 | if (CLEANUP_P (t)) |
5a471c32 | 213 | dump_string_field (di, "note", "cleanup"); |
c25509f2 | 214 | dump_child ("body", TRY_STMTS (t)); |
215 | dump_child ("hdlr", TRY_HANDLERS (t)); | |
ddea175e | 216 | break; |
217 | ||
df4b504c | 218 | case EH_SPEC_BLOCK: |
219 | dump_stmt (di, t); | |
220 | dump_child ("body", EH_SPEC_STMTS (t)); | |
221 | dump_child ("raises", EH_SPEC_RAISES (t)); | |
df4b504c | 222 | break; |
223 | ||
c25509f2 | 224 | case PTRMEM_CST: |
225 | dump_child ("clas", PTRMEM_CST_CLASS (t)); | |
226 | dump_child ("mbr", PTRMEM_CST_MEMBER (t)); | |
ddea175e | 227 | break; |
228 | ||
c25509f2 | 229 | case THROW_EXPR: |
230 | /* These nodes are unary, but do not have code class `1'. */ | |
231 | dump_child ("op 0", TREE_OPERAND (t, 0)); | |
ddea175e | 232 | break; |
233 | ||
c25509f2 | 234 | case AGGR_INIT_EXPR: |
c2f47e15 | 235 | { |
236 | int i = 0; | |
237 | tree arg; | |
238 | aggr_init_expr_arg_iterator iter; | |
239 | dump_int (di, "ctor", AGGR_INIT_VIA_CTOR_P (t)); | |
240 | dump_child ("fn", AGGR_INIT_EXPR_FN (t)); | |
241 | FOR_EACH_AGGR_INIT_EXPR_ARG (arg, iter, t) | |
242 | { | |
243 | char buffer[32]; | |
244 | sprintf (buffer, "%u", i); | |
245 | dump_child (buffer, arg); | |
246 | i++; | |
247 | } | |
248 | dump_child ("decl", AGGR_INIT_EXPR_SLOT (t)); | |
249 | } | |
c25509f2 | 250 | break; |
9031d10b | 251 | |
e75beec7 | 252 | case HANDLER: |
253 | dump_stmt (di, t); | |
6993fb0a | 254 | dump_child ("parm", HANDLER_PARMS (t)); |
e75beec7 | 255 | dump_child ("body", HANDLER_BODY (t)); |
e75beec7 | 256 | break; |
257 | ||
df4b504c | 258 | case MUST_NOT_THROW_EXPR: |
259 | dump_stmt (di, t); | |
260 | dump_child ("body", TREE_OPERAND (t, 0)); | |
f9069149 | 261 | dump_child ("cond", MUST_NOT_THROW_COND (t)); |
df4b504c | 262 | break; |
263 | ||
85a363ce | 264 | case USING_STMT: |
265 | dump_stmt (di, t); | |
266 | dump_child ("nmsp", USING_STMT_NAMESPACE (t)); | |
85a363ce | 267 | break; |
dddab69e | 268 | |
269 | case CLEANUP_STMT: | |
270 | dump_stmt (di, t); | |
271 | dump_child ("decl", CLEANUP_DECL (t)); | |
272 | dump_child ("expr", CLEANUP_EXPR (t)); | |
273 | dump_child ("body", CLEANUP_BODY (t)); | |
dddab69e | 274 | break; |
275 | ||
276 | case IF_STMT: | |
277 | dump_stmt (di, t); | |
278 | dump_child ("cond", IF_COND (t)); | |
279 | dump_child ("then", THEN_CLAUSE (t)); | |
280 | dump_child ("else", ELSE_CLAUSE (t)); | |
dddab69e | 281 | break; |
282 | ||
e7911019 | 283 | case BREAK_STMT: |
284 | case CONTINUE_STMT: | |
285 | dump_stmt (di, t); | |
286 | break; | |
287 | ||
288 | case DO_STMT: | |
289 | dump_stmt (di, t); | |
290 | dump_child ("body", DO_BODY (t)); | |
291 | dump_child ("cond", DO_COND (t)); | |
292 | break; | |
293 | ||
294 | case FOR_STMT: | |
295 | dump_stmt (di, t); | |
296 | dump_child ("init", FOR_INIT_STMT (t)); | |
297 | dump_child ("cond", FOR_COND (t)); | |
298 | dump_child ("expr", FOR_EXPR (t)); | |
299 | dump_child ("body", FOR_BODY (t)); | |
300 | break; | |
301 | ||
9dd72ec4 | 302 | case RANGE_FOR_STMT: |
303 | dump_stmt (di, t); | |
f4416678 | 304 | dump_child ("init", RANGE_FOR_INIT_STMT (t)); |
9dd72ec4 | 305 | dump_child ("decl", RANGE_FOR_DECL (t)); |
306 | dump_child ("expr", RANGE_FOR_EXPR (t)); | |
307 | dump_child ("body", RANGE_FOR_BODY (t)); | |
308 | break; | |
309 | ||
e7911019 | 310 | case SWITCH_STMT: |
311 | dump_stmt (di, t); | |
312 | dump_child ("cond", SWITCH_STMT_COND (t)); | |
313 | dump_child ("body", SWITCH_STMT_BODY (t)); | |
314 | break; | |
315 | ||
316 | case WHILE_STMT: | |
317 | dump_stmt (di, t); | |
318 | dump_child ("cond", WHILE_COND (t)); | |
319 | dump_child ("body", WHILE_BODY (t)); | |
320 | break; | |
321 | ||
57f08f11 | 322 | case STMT_EXPR: |
323 | dump_child ("stmt", STMT_EXPR_STMT (t)); | |
324 | break; | |
325 | ||
7219fab5 | 326 | case EXPR_STMT: |
327 | dump_stmt (di, t); | |
328 | dump_child ("expr", EXPR_STMT_EXPR (t)); | |
329 | break; | |
330 | ||
7e5a76c8 | 331 | case OMP_DEPOBJ: |
332 | dump_stmt (di, t); | |
333 | dump_child ("depobj", OMP_DEPOBJ_DEPOBJ (t)); | |
334 | dump_child ("clauses", OMP_DEPOBJ_CLAUSES (t)); | |
335 | break; | |
336 | ||
ddea175e | 337 | default: |
ddea175e | 338 | break; |
339 | } | |
340 | ||
d571f56f | 341 | return c_dump_tree (di, t); |
ddea175e | 342 | } |