From 3b59a331296d68c340d2d61572564e506a09b2f0 Mon Sep 17 00:00:00 2001 From: Richard Stallman Date: Fri, 17 Jul 1992 03:25:33 +0000 Subject: [PATCH] entered into RCS From-SVN: r1599 --- gcc/calls.c | 3 ++- gcc/print-tree.c | 18 ++++++++++-------- 2 files changed, 12 insertions(+), 9 deletions(-) diff --git a/gcc/calls.c b/gcc/calls.c index b6de19b97de..d46d1037459 100644 --- 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 89abe18a455..3c43d1729f9 100644 --- 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); -- 2.30.2