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

(scm_debug_options): Replace SCM_CRITICAL_SECTION_START/END with a

Browse source 
frame and scm_frame_critical_section.
This commit is contained in:
Marius Vollmer 2005-03-07 21:33:18 +00:00
parent aeba601d56
commit 5e3545d00e
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/debug.c
View file

@ -19,6 +19,7 @@
#include "libguile/_scm.h" #include "libguile/_scm.h"
#include "libguile/async.h"
#include "libguile/eval.h" #include "libguile/eval.h"
#include "libguile/list.h" #include "libguile/list.h"
#include "libguile/stackchk.h" #include "libguile/stackchk.h"
@ -54,7 +55,10 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0,
#define FUNC_NAME s_scm_debug_options #define FUNC_NAME s_scm_debug_options
{ {
SCM ans; SCM ans;
SCM_CRITICAL_SECTION_START;
scm_frame_begin (0);
scm_frame_critical_section (SCM_BOOL_F);
ans = scm_options (setting, scm_debug_opts, SCM_N_DEBUG_OPTIONS, FUNC_NAME); ans = scm_options (setting, scm_debug_opts, SCM_N_DEBUG_OPTIONS, FUNC_NAME);
if (!(1 <= SCM_N_FRAMES && SCM_N_FRAMES <= SCM_MAX_FRAME_SIZE)) if (!(1 <= SCM_N_FRAMES && SCM_N_FRAMES <= SCM_MAX_FRAME_SIZE))
{ {
@ -64,7 +68,8 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0,
SCM_RESET_DEBUG_MODE; SCM_RESET_DEBUG_MODE;
scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P; 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_CRITICAL_SECTION_END;
scm_frame_end ();
return ans; return ans;
} }
#undef FUNC_NAME #undef FUNC_NAME