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

* eval.c (SCM_CEVAL): Use alloca, not GCC's extensions for arrays

Browse source 
with non-constant sizes.  (Thanks to Bernard Urban.)
This commit is contained in:
Jim Blandy 1996-12-16 22:17:29 +00:00
parent efcb39f2c8
commit 2210c32f67
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/eval.c
View file

@ -1318,11 +1318,13 @@ SCM_CEVAL (x, env)
{ {
scm_debug_frame *prev; scm_debug_frame *prev;
long status; long status;
scm_debug_info vect[scm_debug_eframe_size]; scm_debug_info *vect;
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