1 | /* Tree-dumping functionality for intermediate representation. |
2 | Copyright (C) 1999-2024 Free Software Foundation, Inc. |
3 | Written by Mark Mitchell <mark@codesourcery.com> |
4 | |
5 | This file is part of GCC. |
6 | |
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) |
10 | any later version. |
11 | |
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. |
16 | |
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/>. */ |
20 | |
21 | #include "config.h" |
22 | #include "system.h" |
23 | #include "coretypes.h" |
24 | #include "cp-tree.h" |
25 | #include "tree-dump.h" |
26 | |
27 | /* Dump a representation of the accessibility information associated |
28 | with T. */ |
29 | |
30 | static void |
31 | dump_access (dump_info_p di, tree t) |
32 | { |
33 | if (TREE_PROTECTED(t)) |
34 | dump_string_field (di, "accs" , "prot" ); |
35 | else if (TREE_PRIVATE(t)) |
36 | dump_string_field (di, "accs" , "priv" ); |
37 | else |
38 | dump_string_field (di, "accs" , "pub" ); |
39 | } |
40 | |
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 | |
50 | bool |
51 | cp_dump_tree (void* dump_info, tree t) |
52 | { |
53 | enum tree_code code; |
54 | dump_info_p di = (dump_info_p) dump_info; |
55 | |
56 | /* Figure out what kind of node this is. */ |
57 | code = TREE_CODE (t); |
58 | |
59 | if (DECL_P (t)) |
60 | { |
61 | if (DECL_LANG_SPECIFIC (t) && DECL_LANGUAGE (t) != lang_cplusplus) |
62 | dump_string_field (di, "lang" , language_to_string (DECL_LANGUAGE (t))); |
63 | } |
64 | |
65 | switch (code) |
66 | { |
67 | case IDENTIFIER_NODE: |
68 | if (IDENTIFIER_ANY_OP_P (t)) |
69 | { |
70 | dump_string_field (di, "note" , "operator" ); |
71 | return true; |
72 | } |
73 | else if (IDENTIFIER_CONV_OP_P (t)) |
74 | { |
75 | dump_child ("tynm" , TREE_TYPE (t)); |
76 | return true; |
77 | } |
78 | break; |
79 | |
80 | case OFFSET_TYPE: |
81 | dump_string_field (di, "note" , "ptrmem" ); |
82 | dump_child ("ptd" , TYPE_PTRMEM_POINTED_TO_TYPE (t)); |
83 | dump_child ("cls" , TYPE_PTRMEM_CLASS_TYPE (t)); |
84 | return true; |
85 | |
86 | case RECORD_TYPE: |
87 | if (TYPE_PTRMEMFUNC_P (t)) |
88 | { |
89 | dump_string_field (di, "note" , "ptrmem" ); |
90 | dump_child ("ptd" , TYPE_PTRMEM_POINTED_TO_TYPE (t)); |
91 | dump_child ("cls" , TYPE_PTRMEM_CLASS_TYPE (t)); |
92 | return true; |
93 | } |
94 | /* Fall through. */ |
95 | |
96 | case UNION_TYPE: |
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)); |
102 | return true; |
103 | } |
104 | |
105 | if (! MAYBE_CLASS_TYPE_P (t)) |
106 | break; |
107 | |
108 | dump_child ("vfld" , TYPE_VFIELD (t)); |
109 | if (CLASSTYPE_TEMPLATE_SPECIALIZATION(t)) |
110 | dump_string(di, "spec" ); |
111 | |
112 | if (!dump_flag (di, TDF_SLIM, t) && TYPE_BINFO (t)) |
113 | { |
114 | int i; |
115 | tree binfo; |
116 | tree base_binfo; |
117 | |
118 | for (binfo = TYPE_BINFO (t), i = 0; |
119 | BINFO_BASE_ITERATE (binfo, i, base_binfo); ++i) |
120 | { |
121 | dump_child ("base" , BINFO_TYPE (base_binfo)); |
122 | if (BINFO_VIRTUAL_P (base_binfo)) |
123 | dump_string_field (di, "spec" , "virt" ); |
124 | dump_access (di, t: base_binfo); |
125 | } |
126 | } |
127 | break; |
128 | |
129 | case FIELD_DECL: |
130 | dump_access (di, t); |
131 | if (DECL_MUTABLE_P (t)) |
132 | dump_string_field (di, "spec" , "mutable" ); |
133 | break; |
134 | |
135 | case VAR_DECL: |
136 | if (TREE_CODE (CP_DECL_CONTEXT (t)) == RECORD_TYPE) |
137 | dump_access (di, t); |
138 | if (TREE_STATIC (t) && !TREE_PUBLIC (t)) |
139 | dump_string_field (di, "link" , "static" ); |
140 | break; |
141 | |
142 | case FUNCTION_DECL: |
143 | if (!DECL_THUNK_P (t)) |
144 | { |
145 | if (DECL_OVERLOADED_OPERATOR_P (t)) |
146 | dump_string_field (di, "note" , "operator" ); |
147 | if (DECL_FUNCTION_MEMBER_P (t)) |
148 | { |
149 | dump_string_field (di, "note" , "member" ); |
150 | dump_access (di, t); |
151 | } |
152 | if (DECL_PURE_VIRTUAL_P (t)) |
153 | dump_string_field (di, "spec" , "pure" ); |
154 | if (DECL_VIRTUAL_P (t)) |
155 | dump_string_field (di, "spec" , "virt" ); |
156 | if (DECL_CONSTRUCTOR_P (t)) |
157 | dump_string_field (di, "note" , "constructor" ); |
158 | if (DECL_DESTRUCTOR_P (t)) |
159 | dump_string_field (di, "note" , "destructor" ); |
160 | if (DECL_CONV_FN_P (t)) |
161 | dump_string_field (di, "note" , "conversion" ); |
162 | if (DECL_GLOBAL_CTOR_P (t)) |
163 | dump_string_field (di, "note" , "global init" ); |
164 | if (DECL_GLOBAL_DTOR_P (t)) |
165 | dump_string_field (di, "note" , "global fini" ); |
166 | if (DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (t)) |
167 | dump_string_field (di, "note" , "pseudo tmpl" ); |
168 | } |
169 | else |
170 | { |
171 | tree virt = THUNK_VIRTUAL_OFFSET (t); |
172 | |
173 | dump_string_field (di, "note" , "thunk" ); |
174 | if (DECL_THIS_THUNK_P (t)) |
175 | dump_string_field (di, "note" , "this adjusting" ); |
176 | else |
177 | { |
178 | dump_string_field (di, "note" , "result adjusting" ); |
179 | if (virt) |
180 | virt = BINFO_VPTR_FIELD (virt); |
181 | } |
182 | dump_int (di, "fixd" , THUNK_FIXED_OFFSET (t)); |
183 | if (virt) |
184 | dump_int (di, "virt" , tree_to_shwi (virt)); |
185 | dump_child ("fn" , DECL_INITIAL (t)); |
186 | } |
187 | break; |
188 | |
189 | case NAMESPACE_DECL: |
190 | if (DECL_NAMESPACE_ALIAS (t)) |
191 | dump_child ("alis" , DECL_NAMESPACE_ALIAS (t)); |
192 | else if (!dump_flag (di, TDF_SLIM, t)) |
193 | dump_child ("dcls" , cp_namespace_decls (t)); |
194 | break; |
195 | |
196 | case TEMPLATE_DECL: |
197 | dump_child ("rslt" , DECL_TEMPLATE_RESULT (t)); |
198 | dump_child ("inst" , DECL_TEMPLATE_INSTANTIATIONS (t)); |
199 | dump_child ("spcs" , DECL_TEMPLATE_SPECIALIZATIONS (t)); |
200 | dump_child ("prms" , DECL_TEMPLATE_PARMS (t)); |
201 | break; |
202 | |
203 | case OVERLOAD: |
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); |
208 | break; |
209 | |
210 | case TRY_BLOCK: |
211 | dump_stmt (di, t); |
212 | if (CLEANUP_P (t)) |
213 | dump_string_field (di, "note" , "cleanup" ); |
214 | dump_child ("body" , TRY_STMTS (t)); |
215 | dump_child ("hdlr" , TRY_HANDLERS (t)); |
216 | break; |
217 | |
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)); |
222 | break; |
223 | |
224 | case PTRMEM_CST: |
225 | dump_child ("clas" , PTRMEM_CST_CLASS (t)); |
226 | dump_child ("mbr" , PTRMEM_CST_MEMBER (t)); |
227 | break; |
228 | |
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)); |
232 | break; |
233 | |
234 | case AGGR_INIT_EXPR: |
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 (s: buffer, format: "%u" , i); |
245 | dump_child (buffer, arg); |
246 | i++; |
247 | } |
248 | dump_child ("decl" , AGGR_INIT_EXPR_SLOT (t)); |
249 | } |
250 | break; |
251 | |
252 | case HANDLER: |
253 | dump_stmt (di, t); |
254 | dump_child ("parm" , HANDLER_PARMS (t)); |
255 | dump_child ("body" , HANDLER_BODY (t)); |
256 | break; |
257 | |
258 | case MUST_NOT_THROW_EXPR: |
259 | dump_stmt (di, t); |
260 | dump_child ("body" , TREE_OPERAND (t, 0)); |
261 | dump_child ("cond" , MUST_NOT_THROW_COND (t)); |
262 | break; |
263 | |
264 | case USING_STMT: |
265 | dump_stmt (di, t); |
266 | dump_child ("nmsp" , USING_STMT_NAMESPACE (t)); |
267 | break; |
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)); |
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)); |
281 | break; |
282 | |
283 | case RANGE_FOR_STMT: |
284 | dump_stmt (di, t); |
285 | dump_child ("init" , RANGE_FOR_INIT_STMT (t)); |
286 | dump_child ("decl" , RANGE_FOR_DECL (t)); |
287 | dump_child ("expr" , RANGE_FOR_EXPR (t)); |
288 | dump_child ("body" , RANGE_FOR_BODY (t)); |
289 | break; |
290 | |
291 | case STMT_EXPR: |
292 | dump_child ("stmt" , STMT_EXPR_STMT (t)); |
293 | break; |
294 | |
295 | case EXPR_STMT: |
296 | dump_stmt (di, t); |
297 | dump_child ("expr" , EXPR_STMT_EXPR (t)); |
298 | break; |
299 | |
300 | case OMP_DEPOBJ: |
301 | dump_stmt (di, t); |
302 | dump_child ("depobj" , OMP_DEPOBJ_DEPOBJ (t)); |
303 | dump_child ("clauses" , OMP_DEPOBJ_CLAUSES (t)); |
304 | break; |
305 | |
306 | default: |
307 | break; |
308 | } |
309 | |
310 | return c_dump_tree (di, t); |
311 | } |
312 | |