* print-tree.c (print_node): Handle SSA_NAME.

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index e9f8b71..6ada078 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2004-07-14  Richard Henderson  <rth@redhat.com>
+
+       * print-tree.c (print_node): Handle SSA_NAME.
+
 2004-07-14  James E Wilson  <wilson@specifixinc.com>
 
        PR target/16325

diff --git a/gcc/print-tree.c b/gcc/print-tree.c
index 01e5702..482f67c 100644 (file)
--- a/gcc/print-tree.c
+++ b/gcc/print-tree.c
@@ -731,6 +731,32 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
                      BLOCK_ABSTRACT_ORIGIN (node), indent + 4);
          break;
 
+       case SSA_NAME:
+         print_node_brief (file, "var", SSA_NAME_VAR (node), indent + 4);
+         print_node_brief (file, "def_stmt",
+                           SSA_NAME_DEF_STMT (node), indent + 4);
+
+         indent_to (file, indent + 4);
+         fprintf (file, "version %u", SSA_NAME_VERSION (node));
+         if (SSA_NAME_OCCURS_IN_ABNORMAL_PHI (node))
+           fprintf (file, " in-abnormal-phi");
+         if (SSA_NAME_IN_FREE_LIST (node))
+           fprintf (file, " in-free-list");
+
+         if (SSA_NAME_PTR_INFO (node)
+             || SSA_NAME_VALUE (node)
+             || SSA_NAME_AUX (node))
+           {
+             indent_to (file, indent + 3);
+             if (SSA_NAME_PTR_INFO (node))
+               fprintf (file, " ptr-info %p", SSA_NAME_PTR_INFO (node));
+             if (SSA_NAME_VALUE (node))
+               fprintf (file, " value %p", SSA_NAME_VALUE (node));
+             if (SSA_NAME_AUX (node))
+               fprintf (file, " aux %p", SSA_NAME_AUX (node));
+           }
+         break;
+
        default:
          if (TREE_CODE_CLASS (TREE_CODE (node)) == 'x')
            lang_hooks.print_xnode (file, node, indent);