diff options
| author | rms <rms@138bc75d-0d04-0410-961f-82ee72b054a4> | 1992-07-17 03:25:33 +0000 |
|---|---|---|
| committer | rms <rms@138bc75d-0d04-0410-961f-82ee72b054a4> | 1992-07-17 03:25:33 +0000 |
| commit | 21b4c21c9954938f3d89ff6fb9885cdfba1dfe84 (patch) | |
| tree | 1272651ac56d3859407ac54de2d6c0239b59c56f /gcc/print-tree.c | |
| parent | 17713c68ee568bd87d877edb61def9d7acce42eb (diff) | |
| download | gcc-21b4c21c9954938f3d89ff6fb9885cdfba1dfe84.tar.gz | |
entered into RCS
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@1599 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/print-tree.c')
| -rw-r--r-- | gcc/print-tree.c | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/gcc/print-tree.c b/gcc/print-tree.c index 89abe18a455..3c43d1729f9 100644 --- a/gcc/print-tree.c +++ b/gcc/print-tree.c @@ -467,6 +467,16 @@ print_node (file, prefix, node, indent) print_node_brief (file, "chain", TREE_CHAIN (node), indent + 4); break; + case 'b': + print_node (file, "vars", BLOCK_VARS (node), indent + 4); + print_node (file, "tags", BLOCK_TYPE_TAGS (node), indent + 4); + print_node (file, "supercontext", BLOCK_SUPERCONTEXT (node), indent + 4); + print_node (file, "subblocks", BLOCK_SUBBLOCKS (node), indent + 4); + print_node (file, "chain", BLOCK_CHAIN (node), indent + 4); + print_node (file, "abstract_origin", + BLOCK_ABSTRACT_ORIGIN (node), indent + 4); + return; + case 'e': case '<': case '1': @@ -475,14 +485,6 @@ print_node (file, prefix, node, indent) case 's': switch (TREE_CODE (node)) { - case BLOCK: - print_node (file, "vars", BLOCK_VARS (node), indent + 4); - print_node (file, "tags", BLOCK_TYPE_TAGS (node), indent + 4); - print_node (file, "supercontext", BLOCK_SUPERCONTEXT (node), indent + 4); - print_node (file, "subblocks", BLOCK_SUBBLOCKS (node), indent + 4); - print_node (file, "chain", BLOCK_CHAIN (node), indent + 4); - return; - case BIND_EXPR: print_node (file, "vars", TREE_OPERAND (node, 0), indent + 4); print_node (file, "body", TREE_OPERAND (node, 1), indent + 4); |