entered into RCS

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

diff --git a/gcc/calls.c b/gcc/calls.c
index b6de19b..d46d103 100644 (file)
--- a/gcc/calls.c
+++ b/gcc/calls.c
@@ -114,7 +114,8 @@ calls_alloca (exp)
 
   /* Only expressions and references can contain calls.  */
 
-  if (type != 'e' && type != '<' && type != '1' && type != '2' && type != 'r')
+  if (type != 'e' && type != '<' && type != '1' && type != '2' && type != 'r'
+      && type != 'b')
     return 0;
 
   switch (TREE_CODE (exp))

diff --git a/gcc/print-tree.c b/gcc/print-tree.c
index 89abe18..3c43d17 100644 (file)
--- a/gcc/print-tree.c
+++ b/gcc/print-tree.c
@@ -467,6 +467,16 @@ print_node (file, prefix, node, 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, "tags", BLOCK_TYPE_TAGS (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);
+      return;
+
     case 'e':
     case '<':
     case '1':
@@ -475,14 +485,6 @@ print_node (file, prefix, node, indent)
     case 's':
       switch (TREE_CODE (node))
        {
-       case BLOCK:
-         print_node (file, "vars", BLOCK_VARS (node), indent + 4);
-         print_node (file, "tags", BLOCK_TYPE_TAGS (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);
-         return;
-
        case BIND_EXPR:
          print_node (file, "vars", TREE_OPERAND (node, 0), indent + 4);
          print_node (file, "body", TREE_OPERAND (node, 1), indent + 4);