mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

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

Browse source 
cause an infinite loop (???).  So much for the algebraic
equivalency of variable-sized arrays and alloca...
This commit is contained in:
Jim Blandy 1996-12-18 16:45:03 +00:00
parent e4bcd6d945
commit 2c8f214468
2 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/debug.h
View file

@ -124,7 +124,7 @@ typedef struct scm_debug_frame
{ {
struct scm_debug_frame *prev; struct scm_debug_frame *prev;
long status; long status;
scm_debug_info *vect; scm_debug_info vect[1];
} scm_debug_frame; } scm_debug_frame;
#ifndef USE_THREADS #ifndef USE_THREADS

4
libguile/eval.c
View file

@ -1318,13 +1318,11 @@ SCM_CEVAL (x, env)
{ {
scm_debug_frame *prev; scm_debug_frame *prev;
long status; long status;
scm_debug_info *vect; scm_debug_info vect[scm_debug_eframe_size];
scm_debug_info *info; scm_debug_info *info;
} debug; } debug;
debug.prev = scm_last_debug_frame; debug.prev = scm_last_debug_frame;
debug.status = scm_debug_eframe_size; 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]; debug.info = &debug.vect[0];
scm_last_debug_frame = (scm_debug_frame *) &debug; scm_last_debug_frame = (scm_debug_frame *) &debug;
#endif #endif