2005-03-30 Stuart Hastings <stuart@apple.com>

	    Dale Johannesen  <dalej@apple.com>

	* Makefile.in (print-tree.o):  Depend on tree-iterator.h.
	* print-tree.c (print_node):  Add case STATEMENT_LIST.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97292 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index d79c6ec..dd95c1b 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2005-03-30  Stuart Hastings  <stuart@apple.com>
+           Dale Johannesen  <dalej@apple.com>
+
+       * Makefile.in (print-tree.o):  Depend on tree-iterator.h.
+       * print-tree.c (print_node):  Add case STATEMENT_LIST.
+
 2005-03-31  Alan Modra  <amodra@bigpond.net.au>
 
        * config.gcc (cpu_is_64bit): Set for 64-bit powerpc cpus.

diff --git a/gcc/Makefile.in b/gcc/Makefile.in
index 1d12208..fb8e6cb 100644 (file)
--- a/gcc/Makefile.in
+++ b/gcc/Makefile.in
@@ -1617,7 +1617,7 @@ tree-inline.o : tree-inline.c $(CONFIG_H) $(SYSTEM_H) coretypes.h $(TM_H) \
    langhooks.h $(C_COMMON_H) tree-inline.h $(CGRAPH_H) intl.h function.h \
    pointer-set.h $(TREE_GIMPLE_H) debug.h
 print-tree.o : print-tree.c $(CONFIG_H) $(SYSTEM_H) coretypes.h $(TM_H) $(TREE_H) \
-   $(GGC_H) langhooks.h real.h
+   $(GGC_H) langhooks.h real.h tree-iterator.h
 stor-layout.o : stor-layout.c $(CONFIG_H) $(SYSTEM_H) coretypes.h $(TM_H) \
    $(TREE_H) $(PARAMS_H) $(FLAGS_H) function.h $(EXPR_H) $(RTL_H) toplev.h \
    $(GGC_H) $(TM_P_H) $(TARGET_H) langhooks.h $(REGS_H) gt-stor-layout.h

diff --git a/gcc/print-tree.c b/gcc/print-tree.c
index 55bb6ed..873d11b 100644 (file)
--- 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),