* eval.c, debug.h: Revert changes of Dec 16 and Nov 21. They

cause an infinite loop (???).  So much for the algebraic
equivalency of variable-sized arrays and alloca...

diff --git a/libguile/debug.h b/libguile/debug.h
index 3d209bc..99d526e 100644 (file)
--- a/libguile/debug.h
+++ b/libguile/debug.h
@@ -124,7 +124,7 @@ typedef struct scm_debug_frame
 {
   struct scm_debug_frame *prev;
   long status;
-  scm_debug_info *vect;
+  scm_debug_info vect[1];
 } scm_debug_frame;
 
 #ifndef USE_THREADS

diff --git a/libguile/eval.c b/libguile/eval.c
index 923f479..6fee7e9 100644 (file)
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1318,13 +1318,11 @@ SCM_CEVAL (x, env)
   {
     scm_debug_frame *prev;
     long status;
-    scm_debug_info *vect;
+    scm_debug_info vect[scm_debug_eframe_size];
     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