mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

* debug.c (scm_debug_options): Bugfix: Set the value of

Browse source 
scm_stack_checking_enabled_p after setting debug options;
#include "stackchk.h".  (Thanks to Richard Polton.)
This commit is contained in:
Mikael Djurfeldt 1998-11-13 15:58:00 +00:00
parent 9879d0f19f
commit a6e350ddef
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
1998-11-14 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* debug.c (scm_debug_options): Bugfix: Set the value of
scm_stack_checking_enabled_p after setting debug options;
#include "stackchk.h". (Thanks to Richard Polton.)
1998-11-13 Radey Shouman <rshouman@metro2000.com> 1998-11-13 Radey Shouman <rshouman@metro2000.com>
* unif.c (scm_array_contents): removed unnecessary test for 0 * unif.c (scm_array_contents): removed unnecessary test for 0

2
libguile/debug.c
View file

@ -46,6 +46,7 @@
#include <stdio.h> #include <stdio.h>
#include "_scm.h" #include "_scm.h"
#include "eval.h" #include "eval.h"
#include "stackchk.h"
#include "throw.h" #include "throw.h"
#include "genio.h" #include "genio.h"
#include "macros.h" #include "macros.h"
@ -85,6 +86,7 @@ scm_debug_options (setting)
} }
#endif #endif
SCM_RESET_DEBUG_MODE; SCM_RESET_DEBUG_MODE;
scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P;
scm_debug_eframe_size = 2 * SCM_N_FRAMES; scm_debug_eframe_size = 2 * SCM_N_FRAMES;
SCM_ALLOW_INTS SCM_ALLOW_INTS
return ans; return ans;