From 8df673d74028ff6671f5d5956da1a43235974000 Mon Sep 17 00:00:00 2001 From: Stuart Hastings Date: Thu, 31 Mar 2005 00:09:10 +0000 Subject: Makefile.in (print-tree.o): Depend on tree-iterator.h. 2005-03-30 Stuart Hastings Dale Johannesen * Makefile.in (print-tree.o): Depend on tree-iterator.h. * print-tree.c (print_node): Add case STATEMENT_LIST. Co-Authored-By: Dale Johannesen From-SVN: r97292 --- gcc/print-tree.c | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'gcc/print-tree.c') diff --git a/gcc/print-tree.c b/gcc/print-tree.c index 55bb6ed..873d11b 100644 --- a/gcc/print-tree.c +++ b/gcc/print-tree.c @@ -28,6 +28,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA #include "real.h" #include "ggc.h" #include "langhooks.h" +#include "tree-iterator.h" /* Define the hash table of nodes already seen. Such nodes are not repeated; brief cross-references are used. */ @@ -723,6 +724,28 @@ print_node (FILE *file, const char *prefix, tree node, int indent) } break; + case STATEMENT_LIST: + fprintf (file, " head " HOST_PTR_PRINTF " tail " HOST_PTR_PRINTF " stmts", + (void *) node->stmt_list.head, (void *) node->stmt_list.tail); + { + tree_stmt_iterator i; + for (i = tsi_start (node); !tsi_end_p (i); tsi_next (&i)) + { + /* Not printing the addresses of the (not-a-tree) + 'struct tree_stmt_list_node's. */ + fprintf (file, " " HOST_PTR_PRINTF, (void *)tsi_stmt (i)); + } + fprintf (file, "\n"); + for (i = tsi_start (node); !tsi_end_p (i); tsi_next (&i)) + { + /* Not printing the addresses of the (not-a-tree) + 'struct tree_stmt_list_node's. */ + print_node (file, "stmt", tsi_stmt (i), indent + 4); + } + } + print_node (file, "chain", TREE_CHAIN (node), indent + 4); + break; + case BLOCK: print_node (file, "vars", BLOCK_VARS (node), indent + 4); print_node (file, "supercontext", BLOCK_SUPERCONTEXT (node), -- cgit v1.1