From ef03bc85d59cbba3ff75de814490f4d60be1ffd1 Mon Sep 17 00:00:00 2001
From: Charles Hannum <mycroft@gnu.org>
Date: Wed, 8 Jul 1992 22:35:25 +0000
Subject: [PATCH] *** empty log message ***

From-SVN: r1530
---
 gcc/calls.c | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

diff --git a/gcc/calls.c b/gcc/calls.c
index 3c018e50504..0836855f17a 100644
--- a/gcc/calls.c
+++ b/gcc/calls.c
@@ -138,10 +138,23 @@ calls_alloca (exp)
       break;
 
     case BLOCK:
-      /* Must not look at BLOCK_SUPERCONTEXT since it will point back to
-	 us.  */
-      length = 3;
-      break;
+      {
+	register tree local;
+
+	for (local = BLOCK_VARS (exp); local; local = TREE_CHAIN (local))
+	  if (calls_alloca (DECL_INITIAL (local)))
+	    return 1;
+      }
+      {
+	register tree subblock;
+
+	for (subblock = BLOCK_SUBBLOCKS (exp);
+	     subblock;
+	     subblock = TREE_CHAIN (subblock))
+	  if (calls_alloca (subblock))
+	    return 1;
+      }
+      return 0;
 
     case METHOD_CALL_EXPR:
       length = 3;
-- 
2.30.2