diff options
| author | Richard Stallman <rms@gnu.org> | 1992-07-17 03:25:33 +0000 |
|---|---|---|
| committer | Richard Stallman <rms@gnu.org> | 1992-07-17 03:25:33 +0000 |
| commit | 3b59a331296d68c340d2d61572564e506a09b2f0 (patch) | |
| tree | 1272651ac56d3859407ac54de2d6c0239b59c56f /gcc/print-tree.c | |
| parent | c6096c5e3d481ec630eaa1661aa22568b1e47b52 (diff) | |
| download | gcc-3b59a331296d68c340d2d61572564e506a09b2f0.zip gcc-3b59a331296d68c340d2d61572564e506a09b2f0.tar.gz gcc-3b59a331296d68c340d2d61572564e506a09b2f0.tar.bz2 | |
entered into RCS
From-SVN: r1599
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 89abe18..3c43d17 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); |