diff options
| -rw-r--r-- | gcc/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/print-tree.c | 26 |
2 files changed, 30 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index e9f8b71..6ada078 100644 --- 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 --- 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); |