Makefile.in (print-tree.o): Depend on tree-iterator.h.

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.

Co-Authored-By: Dale Johannesen <dalej@apple.com>

From-SVN: r97292

gcc/ChangeLog

+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.

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

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),