mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

Remove critical section in scm_debug_options

Browse source 
* libguile/debug.c (scm_debug_options): Remove critical section.  There
  is no memory corruption hazard and racing callers to debug options
  won't produce sensible results anyway; or anyway they will be the same
  as racing vector-set!.
This commit is contained in:
Andy Wingo 2016-11-01 23:07:56 +01:00
parent 42882bbf42
commit 399379bf25
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/debug.c
View file

@ -109,13 +109,9 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0,
{ {
SCM ans; SCM ans;
scm_dynwind_begin (0);
scm_dynwind_critical_section (SCM_BOOL_F);
ans = scm_options (setting, scm_debug_opts, FUNC_NAME); ans = scm_options (setting, scm_debug_opts, FUNC_NAME);
scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P; scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P;
scm_dynwind_end ();
return ans; return ans;
} }
#undef FUNC_NAME #undef FUNC_NAME