| 1 | /* Tree-dumping functionality for C-family languages. |
|---|
| 2 | Copyright (C) 2002-2023 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 it under |
|---|
| 8 | the terms of the GNU General Public License as published by the Free |
|---|
| 9 | Software Foundation; either version 3, or (at your option) any later |
|---|
| 10 | version. |
|---|
| 11 | |
|---|
| 12 | GCC is distributed in the hope that it will be useful, but WITHOUT ANY |
|---|
| 13 | WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|---|
| 14 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|---|
| 15 | 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 "c-common.h" |
|---|
| 25 | #include "tree-dump.h" |
|---|
| 26 | |
|---|
| 27 | /* Dump any C-specific tree codes and attributes of common codes. */ |
|---|
| 28 | |
|---|
| 29 | static void |
|---|
| 30 | dump_stmt (dump_info_p di, const_tree t) |
|---|
| 31 | { |
|---|
| 32 | if (EXPR_HAS_LOCATION (t)) |
|---|
| 33 | dump_int (di, "line" , EXPR_LINENO (t)); |
|---|
| 34 | } |
|---|
| 35 | |
|---|
| 36 | bool |
|---|
| 37 | c_dump_tree (void *dump_info, tree t) |
|---|
| 38 | { |
|---|
| 39 | enum tree_code code; |
|---|
| 40 | dump_info_p di = (dump_info_p) dump_info; |
|---|
| 41 | |
|---|
| 42 | /* Figure out what kind of node this is. */ |
|---|
| 43 | code = TREE_CODE (t); |
|---|
| 44 | |
|---|
| 45 | switch (code) |
|---|
| 46 | { |
|---|
| 47 | case FIELD_DECL: |
|---|
| 48 | if (DECL_C_BIT_FIELD (t)) |
|---|
| 49 | dump_string (di, "bitfield" ); |
|---|
| 50 | break; |
|---|
| 51 | |
|---|
| 52 | case BREAK_STMT: |
|---|
| 53 | case CONTINUE_STMT: |
|---|
| 54 | dump_stmt (di, t); |
|---|
| 55 | break; |
|---|
| 56 | |
|---|
| 57 | case DO_STMT: |
|---|
| 58 | dump_stmt (di, t); |
|---|
| 59 | dump_child ("body" , DO_BODY (t)); |
|---|
| 60 | dump_child ("cond" , DO_COND (t)); |
|---|
| 61 | break; |
|---|
| 62 | |
|---|
| 63 | case FOR_STMT: |
|---|
| 64 | dump_stmt (di, t); |
|---|
| 65 | dump_child ("init" , FOR_INIT_STMT (t)); |
|---|
| 66 | dump_child ("cond" , FOR_COND (t)); |
|---|
| 67 | dump_child ("expr" , FOR_EXPR (t)); |
|---|
| 68 | dump_child ("body" , FOR_BODY (t)); |
|---|
| 69 | break; |
|---|
| 70 | |
|---|
| 71 | case SWITCH_STMT: |
|---|
| 72 | dump_stmt (di, t); |
|---|
| 73 | dump_child ("cond" , SWITCH_STMT_COND (t)); |
|---|
| 74 | dump_child ("body" , SWITCH_STMT_BODY (t)); |
|---|
| 75 | break; |
|---|
| 76 | |
|---|
| 77 | case WHILE_STMT: |
|---|
| 78 | dump_stmt (di, t); |
|---|
| 79 | dump_child ("cond" , WHILE_COND (t)); |
|---|
| 80 | dump_child ("body" , WHILE_BODY (t)); |
|---|
| 81 | break; |
|---|
| 82 | |
|---|
| 83 | default: |
|---|
| 84 | break; |
|---|
| 85 | } |
|---|
| 86 | |
|---|
| 87 | return false; |
|---|
| 88 | } |
|---|
| 89 | |
|---|
