From: Charles Hannum <mycroft@gnu.org>
Date: Wed, 8 Jul 1992 22:35:25 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ef03bc85d59cbba3ff75de814490f4d60be1ffd1;p=gcc.git

*** empty log message ***

From-SVN: r1530
---

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;