From 2210c32f67e8c60fbc6c8b42eb6ae531cb6a2395 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Mon, 16 Dec 1996 22:17:29 +0000
Subject: [PATCH] * eval.c (SCM_CEVAL): Use alloca, not GCC's extensions for
 arrays with non-constant sizes.  (Thanks to Bernard Urban.)

---
 libguile/eval.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/eval.c b/libguile/eval.c
index 6fee7e969..923f47955 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1318,11 +1318,13 @@ SCM_CEVAL (x, env)
   {
     scm_debug_frame *prev;
     long status;
-    scm_debug_info vect[scm_debug_eframe_size];
+    scm_debug_info *vect;
     scm_debug_info *info;
   } debug;
   debug.prev = scm_last_debug_frame;
   debug.status = scm_debug_eframe_size;
+  debug.vect = ((scm_debug_info *)
+		alloca (scm_debug_eframe_size * sizeof (debug.vect[0])));
   debug.info = &debug.vect[0];
   scm_last_debug_frame = (scm_debug_frame *) &debug;
 #endif