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

* debug.h (SCM_RESET_DEBUG_MODE): Bugfix: The old code didn't

Browse source 
clear the CHECK-flags.
This commit is contained in:
Mikael Djurfeldt 1997-03-07 21:42:44 +00:00
parent e3c37929e0
commit a8485f4d34
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/debug.h
View file

@ -100,9 +100,9 @@ extern int scm_check_entry_p, scm_check_apply_p, scm_check_exit_p;
#define SCM_RESET_DEBUG_MODE \ #define SCM_RESET_DEBUG_MODE \
{\ {\
if (SCM_ENTER_FRAME_P || SCM_BREAKPOINTS_P) CHECK_ENTRY = 1;\ CHECK_ENTRY = SCM_ENTER_FRAME_P || SCM_BREAKPOINTS_P;\
if (SCM_APPLY_FRAME_P || SCM_TRACE_P) CHECK_APPLY = 1;\ CHECK_APPLY = SCM_APPLY_FRAME_P || SCM_TRACE_P;\
if (SCM_EXIT_FRAME_P || SCM_TRACE_P) CHECK_EXIT = 1;\ CHECK_EXIT = SCM_EXIT_FRAME_P || SCM_TRACE_P;\
scm_debug_mode = SCM_DEVAL_P || CHECK_ENTRY || CHECK_APPLY || CHECK_EXIT;\ scm_debug_mode = SCM_DEVAL_P || CHECK_ENTRY || CHECK_APPLY || CHECK_EXIT;\
scm_ceval_ptr = scm_debug_mode ? scm_deval : scm_ceval;\ scm_ceval_ptr = scm_debug_mode ? scm_deval : scm_ceval;\
} }