00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022 #include "config.h"
00023 #include "system.h"
00024 #include "coretypes.h"
00025 #include "tm.h"
00026 #include "tree.h"
00027 #include "cp-tree.h"
00028 #include "tree-dump.h"
00029
00030 static void dump_access (dump_info_p, tree);
00031
00032 static void dump_op (dump_info_p, tree);
00033
00034
00035
00036
00037 static void
00038 dump_access (dump_info_p di, tree t)
00039 {
00040 if (TREE_PROTECTED(t))
00041 dump_string (di, "protected");
00042 else if (TREE_PRIVATE(t))
00043 dump_string (di, "private");
00044 else
00045 dump_string (di, "public");
00046 }
00047
00048
00049
00050
00051 static void
00052 dump_op (dump_info_p di, tree t)
00053 {
00054 switch (DECL_OVERLOADED_OPERATOR_P (t)) {
00055 case NEW_EXPR:
00056 dump_string (di, "new");
00057 break;
00058 case VEC_NEW_EXPR:
00059 dump_string (di, "vecnew");
00060 break;
00061 case DELETE_EXPR:
00062 dump_string (di, "delete");
00063 break;
00064 case VEC_DELETE_EXPR:
00065 dump_string (di, "vecdelete");
00066 break;
00067 case CONVERT_EXPR:
00068 dump_string (di, "pos");
00069 break;
00070 case NEGATE_EXPR:
00071 dump_string (di, "neg");
00072 break;
00073 case ADDR_EXPR:
00074 dump_string (di, "addr");
00075 break;
00076 case INDIRECT_REF:
00077 dump_string(di, "deref");
00078 break;
00079 case BIT_NOT_EXPR:
00080 dump_string(di, "not");
00081 break;
00082 case TRUTH_NOT_EXPR:
00083 dump_string(di, "lnot");
00084 break;
00085 case PREINCREMENT_EXPR:
00086 dump_string(di, "preinc");
00087 break;
00088 case PREDECREMENT_EXPR:
00089 dump_string(di, "predec");
00090 break;
00091 case PLUS_EXPR:
00092 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00093 dump_string (di, "plusassign");
00094 else
00095 dump_string(di, "plus");
00096 break;
00097 case MINUS_EXPR:
00098 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00099 dump_string (di, "minusassign");
00100 else
00101 dump_string(di, "minus");
00102 break;
00103 case MULT_EXPR:
00104 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00105 dump_string (di, "multassign");
00106 else
00107 dump_string (di, "mult");
00108 break;
00109 case TRUNC_DIV_EXPR:
00110 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00111 dump_string (di, "divassign");
00112 else
00113 dump_string (di, "div");
00114 break;
00115 case TRUNC_MOD_EXPR:
00116 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00117 dump_string (di, "modassign");
00118 else
00119 dump_string (di, "mod");
00120 break;
00121 case BIT_AND_EXPR:
00122 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00123 dump_string (di, "andassign");
00124 else
00125 dump_string (di, "and");
00126 break;
00127 case BIT_IOR_EXPR:
00128 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00129 dump_string (di, "orassign");
00130 else
00131 dump_string (di, "or");
00132 break;
00133 case BIT_XOR_EXPR:
00134 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00135 dump_string (di, "xorassign");
00136 else
00137 dump_string (di, "xor");
00138 break;
00139 case LSHIFT_EXPR:
00140 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00141 dump_string (di, "lshiftassign");
00142 else
00143 dump_string (di, "lshift");
00144 break;
00145 case RSHIFT_EXPR:
00146 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00147 dump_string (di, "rshiftassign");
00148 else
00149 dump_string (di, "rshift");
00150 break;
00151 case EQ_EXPR:
00152 dump_string (di, "eq");
00153 break;
00154 case NE_EXPR:
00155 dump_string (di, "ne");
00156 break;
00157 case LT_EXPR:
00158 dump_string (di, "lt");
00159 break;
00160 case GT_EXPR:
00161 dump_string (di, "gt");
00162 break;
00163 case LE_EXPR:
00164 dump_string (di, "le");
00165 break;
00166 case GE_EXPR:
00167 dump_string (di, "ge");
00168 break;
00169 case TRUTH_ANDIF_EXPR:
00170 dump_string (di, "land");
00171 break;
00172 case TRUTH_ORIF_EXPR:
00173 dump_string (di, "lor");
00174 break;
00175 case COMPOUND_EXPR:
00176 dump_string (di, "compound");
00177 break;
00178 case MEMBER_REF:
00179 dump_string (di, "memref");
00180 break;
00181 case COMPONENT_REF:
00182 dump_string (di, "ref");
00183 break;
00184 case ARRAY_REF:
00185 dump_string (di, "subs");
00186 break;
00187 case POSTINCREMENT_EXPR:
00188 dump_string (di, "postinc");
00189 break;
00190 case POSTDECREMENT_EXPR:
00191 dump_string (di, "postdec");
00192 break;
00193 case CALL_EXPR:
00194 dump_string (di, "call");
00195 break;
00196 case NOP_EXPR:
00197 if (DECL_ASSIGNMENT_OPERATOR_P (t))
00198 dump_string (di, "assign");
00199 break;
00200 default:
00201 break;
00202 }
00203 }
00204
00205 bool
00206 cp_dump_tree (void* dump_info, tree t)
00207 {
00208 enum tree_code code;
00209 dump_info_p di = (dump_info_p) dump_info;
00210
00211
00212 code = TREE_CODE (t);
00213
00214 if (DECL_P (t))
00215 {
00216 if (DECL_LANG_SPECIFIC (t) && DECL_LANGUAGE (t) != lang_cplusplus)
00217 dump_string (di, language_to_string (DECL_LANGUAGE (t)));
00218 }
00219
00220 switch (code)
00221 {
00222 case IDENTIFIER_NODE:
00223 if (IDENTIFIER_OPNAME_P (t))
00224 {
00225 dump_string (di, "operator");
00226 return true;
00227 }
00228 else if (IDENTIFIER_TYPENAME_P (t))
00229 {
00230 dump_child ("tynm", TREE_TYPE (t));
00231 return true;
00232 }
00233 break;
00234
00235 case OFFSET_TYPE:
00236 dump_string (di, "ptrmem");
00237 dump_child ("ptd", TYPE_PTRMEM_POINTED_TO_TYPE (t));
00238 dump_child ("cls", TYPE_PTRMEM_CLASS_TYPE (t));
00239 return true;
00240
00241 case RECORD_TYPE:
00242 if (TYPE_PTRMEMFUNC_P (t))
00243 {
00244 dump_string (di, "ptrmem");
00245 dump_child ("ptd", TYPE_PTRMEM_POINTED_TO_TYPE (t));
00246 dump_child ("cls", TYPE_PTRMEM_CLASS_TYPE (t));
00247 return true;
00248 }
00249
00250
00251 case UNION_TYPE:
00252
00253 if (TYPE_CONTEXT (t) && TREE_CODE (TYPE_CONTEXT (t)) == TREE_CODE (t)
00254 && CLASSTYPE_AS_BASE (TYPE_CONTEXT (t)) == t)
00255 {
00256 dump_child ("bfld", TYPE_CONTEXT (t));
00257 return true;
00258 }
00259
00260 if (! IS_AGGR_TYPE (t))
00261 break;
00262
00263 dump_child ("vfld", TYPE_VFIELD (t));
00264 if (CLASSTYPE_TEMPLATE_SPECIALIZATION(t))
00265 dump_string(di, "spec");
00266
00267 if (!dump_flag (di, TDF_SLIM, t) && TYPE_BINFO (t))
00268 {
00269 int i;
00270 tree binfo;
00271 tree base_binfo;
00272
00273 for (binfo = TYPE_BINFO (t), i = 0;
00274 BINFO_BASE_ITERATE (binfo, i, base_binfo); ++i)
00275 {
00276 dump_child ("base", BINFO_TYPE (base_binfo));
00277 if (BINFO_VIRTUAL_P (base_binfo))
00278 dump_string (di, "virtual");
00279 dump_access (di, base_binfo);
00280 }
00281 }
00282 break;
00283
00284 case FIELD_DECL:
00285 dump_access (di, t);
00286 if (DECL_MUTABLE_P (t))
00287 dump_string(di, "mutable");
00288 break;
00289
00290 case VAR_DECL:
00291 if (TREE_CODE (CP_DECL_CONTEXT (t)) == RECORD_TYPE)
00292 dump_access (di, t);
00293 if (TREE_STATIC (t) && !TREE_PUBLIC (t))
00294 dump_string (di, "static");
00295 break;
00296
00297 case FUNCTION_DECL:
00298 if (!DECL_THUNK_P (t))
00299 {
00300 if (DECL_OVERLOADED_OPERATOR_P (t)) {
00301 dump_string (di, "operator");
00302 dump_op (di, t);
00303 }
00304 if (DECL_FUNCTION_MEMBER_P (t))
00305 {
00306 dump_string (di, "member");
00307 dump_access (di, t);
00308 }
00309 if (DECL_PURE_VIRTUAL_P (t))
00310 dump_string (di, "pure");
00311 if (DECL_VIRTUAL_P (t))
00312 dump_string (di, "virtual");
00313 if (DECL_CONSTRUCTOR_P (t))
00314 dump_string (di, "constructor");
00315 if (DECL_DESTRUCTOR_P (t))
00316 dump_string (di, "destructor");
00317 if (DECL_CONV_FN_P (t))
00318 dump_string (di, "conversion");
00319 if (DECL_GLOBAL_CTOR_P (t))
00320 dump_string (di, "global init");
00321 if (DECL_GLOBAL_DTOR_P (t))
00322 dump_string (di, "global fini");
00323 if (DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (t))
00324 dump_string (di, "pseudo tmpl");
00325 }
00326 else
00327 {
00328 tree virt = THUNK_VIRTUAL_OFFSET (t);
00329
00330 dump_string (di, "thunk");
00331 if (DECL_THIS_THUNK_P (t))
00332 dump_string (di, "this adjusting");
00333 else
00334 {
00335 dump_string (di, "result adjusting");
00336 if (virt)
00337 virt = BINFO_VPTR_FIELD (virt);
00338 }
00339 dump_int (di, "fixd", THUNK_FIXED_OFFSET (t));
00340 if (virt)
00341 dump_int (di, "virt", tree_low_cst (virt, 0));
00342 dump_child ("fn", DECL_INITIAL (t));
00343 }
00344 break;
00345
00346 case NAMESPACE_DECL:
00347 if (DECL_NAMESPACE_ALIAS (t))
00348 dump_child ("alis", DECL_NAMESPACE_ALIAS (t));
00349 else if (!dump_flag (di, TDF_SLIM, t))
00350 dump_child ("dcls", cp_namespace_decls (t));
00351 break;
00352
00353 case TEMPLATE_DECL:
00354 dump_child ("rslt", DECL_TEMPLATE_RESULT (t));
00355 dump_child ("inst", DECL_TEMPLATE_INSTANTIATIONS (t));
00356 dump_child ("spcs", DECL_TEMPLATE_SPECIALIZATIONS (t));
00357 dump_child ("prms", DECL_TEMPLATE_PARMS (t));
00358 break;
00359
00360 case OVERLOAD:
00361 dump_child ("crnt", OVL_CURRENT (t));
00362 dump_child ("chan", OVL_CHAIN (t));
00363 break;
00364
00365 case TRY_BLOCK:
00366 dump_stmt (di, t);
00367 if (CLEANUP_P (t))
00368 dump_string (di, "cleanup");
00369 dump_child ("body", TRY_STMTS (t));
00370 dump_child ("hdlr", TRY_HANDLERS (t));
00371 break;
00372
00373 case EH_SPEC_BLOCK:
00374 dump_stmt (di, t);
00375 dump_child ("body", EH_SPEC_STMTS (t));
00376 dump_child ("raises", EH_SPEC_RAISES (t));
00377 break;
00378
00379 case PTRMEM_CST:
00380 dump_child ("clas", PTRMEM_CST_CLASS (t));
00381 dump_child ("mbr", PTRMEM_CST_MEMBER (t));
00382 break;
00383
00384 case THROW_EXPR:
00385
00386 dump_child ("op 0", TREE_OPERAND (t, 0));
00387 break;
00388
00389 case AGGR_INIT_EXPR:
00390 dump_int (di, "ctor", AGGR_INIT_VIA_CTOR_P (t));
00391 dump_child ("fn", TREE_OPERAND (t, 0));
00392 dump_child ("args", TREE_OPERAND (t, 1));
00393 dump_child ("decl", TREE_OPERAND (t, 2));
00394 break;
00395
00396 case HANDLER:
00397 dump_stmt (di, t);
00398 dump_child ("parm", HANDLER_PARMS (t));
00399 dump_child ("body", HANDLER_BODY (t));
00400 break;
00401
00402 case MUST_NOT_THROW_EXPR:
00403 dump_stmt (di, t);
00404 dump_child ("body", TREE_OPERAND (t, 0));
00405 break;
00406
00407 case USING_STMT:
00408 dump_stmt (di, t);
00409 dump_child ("nmsp", USING_STMT_NAMESPACE (t));
00410 break;
00411
00412 case CLEANUP_STMT:
00413 dump_stmt (di, t);
00414 dump_child ("decl", CLEANUP_DECL (t));
00415 dump_child ("expr", CLEANUP_EXPR (t));
00416 dump_child ("body", CLEANUP_BODY (t));
00417 break;
00418
00419 case IF_STMT:
00420 dump_stmt (di, t);
00421 dump_child ("cond", IF_COND (t));
00422 dump_child ("then", THEN_CLAUSE (t));
00423 dump_child ("else", ELSE_CLAUSE (t));
00424 break;
00425
00426 default:
00427 break;
00428 }
00429
00430 return c_dump_tree (di, t);
00431 }
