* c-tree.h (enum c_storage_class): New.

[pf3gnuchains/gcc-fork.git] / gcc / print-tree.c

diff --git a/gcc/print-tree.c b/gcc/print-tree.c
index fd90b18..829e2c9 100644 (file)
--- a/gcc/print-tree.c
+++ b/gcc/print-tree.c
@@ -160,6 +160,7 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
   int len;
   int first_rtl;
   int i;
+  expanded_location xloc;
 
   if (node == 0)
     return;
@@ -336,8 +337,6 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
       if (TREE_CODE (node) == FIELD_DECL && DECL_NONADDRESSABLE_P (node))
        fputs (" nonaddressable", file);
 
-      if (TREE_CODE (node) == LABEL_DECL && DECL_TOO_LATE (node))
-       fputs (" too-late", file);
       if (TREE_CODE (node) == LABEL_DECL && DECL_ERROR_ISSUED (node))
        fputs (" error-issued", file);
 
@@ -354,6 +353,9 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
       if (DECL_DEFER_OUTPUT (node))
        fputs (" defer-output", file);
 
+      if (DECL_PRESERVE_P (node))
+       fputs (" preserve", file);
+
       if (DECL_LANG_FLAG_0 (node))
        fputs (" decl_0", file);
       if (DECL_LANG_FLAG_1 (node))
@@ -372,8 +374,8 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
        fputs (" decl_7", file);
 
       fprintf (file, " %s", GET_MODE_NAME (mode));
-      fprintf (file, " file %s line %d",
-              DECL_SOURCE_FILE (node), DECL_SOURCE_LINE (node));
+      xloc = expand_location (DECL_SOURCE_LOCATION (node));
+      fprintf (file, " file %s line %d", xloc.file, xloc.line);
 
       print_node (file, "size", DECL_SIZE (node), indent + 4);
       print_node (file, "unit size", DECL_SIZE_UNIT (node), indent + 4);
@@ -538,6 +540,8 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
        print_node (file, "values", TYPE_VALUES (node), indent + 4);
       else if (TREE_CODE (node) == ARRAY_TYPE || TREE_CODE (node) == SET_TYPE)
        print_node (file, "domain", TYPE_DOMAIN (node), indent + 4);
+      else if (TREE_CODE (node) == VECTOR_TYPE)
+       fprintf (file, " nunits %d", (int) TYPE_VECTOR_SUBPARTS (node));
       else if (TREE_CODE (node) == RECORD_TYPE
               || TREE_CODE (node) == UNION_TYPE
               || TREE_CODE (node) == QUAL_UNION_TYPE)
@@ -569,15 +573,6 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
       print_node_brief (file, "chain", TREE_CHAIN (node), indent + 4);
       break;
 
-    case 'b':
-      print_node (file, "vars", BLOCK_VARS (node), indent + 4);
-      print_node (file, "supercontext", BLOCK_SUPERCONTEXT (node), indent + 4);
-      print_node (file, "subblocks", BLOCK_SUBBLOCKS (node), indent + 4);
-      print_node (file, "chain", BLOCK_CHAIN (node), indent + 4);
-      print_node (file, "abstract_origin",
-                 BLOCK_ABSTRACT_ORIGIN (node), indent + 4);
-      break;
-
     case 'e':
     case '<':
     case '1':
@@ -586,8 +581,6 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
     case 's':
       if (TREE_CODE (node) == BIT_FIELD_REF && BIT_FIELD_REF_UNSIGNED (node))
        fputs (" unsigned", file);
-      else if (TREE_CODE (node) == SAVE_EXPR && SAVE_EXPR_NOPLACEHOLDER (node))
-       fputs (" noplaceholder", file);
       if (TREE_CODE (node) == BIND_EXPR)
        {
          print_node (file, "vars", TREE_OPERAND (node, 0), indent + 4);
@@ -733,6 +726,44 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
              }
          break;
 
+       case BLOCK:
+         print_node (file, "vars", BLOCK_VARS (node), indent + 4);
+         print_node (file, "supercontext", BLOCK_SUPERCONTEXT (node),
+                     indent + 4);
+         print_node (file, "subblocks", BLOCK_SUBBLOCKS (node), indent + 4);
+         print_node (file, "chain", BLOCK_CHAIN (node), indent + 4);
+         print_node (file, "abstract_origin",
+                     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",
+                        (void *) SSA_NAME_PTR_INFO (node));
+             if (SSA_NAME_VALUE (node))
+               fprintf (file, " value %p",
+                        (void *) 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);
@@ -744,10 +775,9 @@ print_node (FILE *file, const char *prefix, tree node, int indent)
 
   if (EXPR_HAS_LOCATION (node))
     {
+      expanded_location xloc = expand_location (EXPR_LOCATION (node));
       indent_to (file, indent+4);
-      fprintf (file, "%s:%d",
-              EXPR_FILENAME (node),
-              EXPR_LINENO (node));
+      fprintf (file, "%s:%d", xloc.file, xloc.line);
     }
 
   fprintf (file, ">");