diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-03-25 23:45:02 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-03-25 23:45:02 +0000 |
commit | 5132eef0cfa81c8734b8477754884d886a340363 (patch) | |
tree | e42fbb6ab2ba40828d7c3814f1f8f9f7ea5e3dc9 /libguile/debug.h | |
parent | 680516ba5f0e661cf2fc04132d9acbeb374a2731 (diff) | |
download | guile-5132eef0cfa81c8734b8477754884d886a340363.tar.gz |
* debug.h, eval.c: Deprecated CHECK_ENTRY, CHECK_APPLY and
CHECK_EXIT and removed all references to them.
Diffstat (limited to 'libguile/debug.h')
-rw-r--r-- | libguile/debug.h | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/libguile/debug.h b/libguile/debug.h index 537436a74..90dbee02f 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -3,7 +3,7 @@ #ifndef SCM_DEBUG_H #define SCM_DEBUG_H -/* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -93,19 +93,16 @@ SCM_API int scm_check_entry_p; SCM_API int scm_check_apply_p; SCM_API int scm_check_exit_p; -#define CHECK_ENTRY scm_check_entry_p -#define CHECK_APPLY scm_check_apply_p -#define CHECK_EXIT scm_check_exit_p - #define SCM_RESET_DEBUG_MODE \ do {\ - CHECK_ENTRY = (SCM_ENTER_FRAME_P || SCM_BREAKPOINTS_P)\ + scm_check_entry_p = (SCM_ENTER_FRAME_P || SCM_BREAKPOINTS_P)\ && !SCM_FALSEP (SCM_ENTER_FRAME_HDLR);\ - CHECK_APPLY = (SCM_APPLY_FRAME_P || SCM_TRACE_P)\ + scm_check_apply_p = (SCM_APPLY_FRAME_P || SCM_TRACE_P)\ && !SCM_FALSEP (SCM_APPLY_FRAME_HDLR);\ - CHECK_EXIT = (SCM_EXIT_FRAME_P || SCM_TRACE_P)\ + scm_check_exit_p = (SCM_EXIT_FRAME_P || SCM_TRACE_P)\ && !SCM_FALSEP (SCM_EXIT_FRAME_HDLR);\ - scm_debug_mode = SCM_DEVAL_P || CHECK_ENTRY || CHECK_APPLY || CHECK_EXIT;\ + scm_debug_mode = SCM_DEVAL_P\ + || scm_check_entry_p || scm_check_apply_p || scm_check_exit_p;\ scm_ceval_ptr = scm_debug_mode ? scm_deval : scm_ceval;\ } while (0) @@ -212,6 +209,12 @@ SCM_API SCM scm_proc_to_mem (SCM obj); SCM_API SCM scm_debug_hang (SCM obj); #endif /*GUILE_DEBUG*/ +#if SCM_ENABLE_DEPRECATED == 1 +#define CHECK_ENTRY scm_check_entry_p +#define CHECK_APPLY scm_check_apply_p +#define CHECK_EXIT scm_check_exit_p +#endif + #endif /* SCM_DEBUG_H */ /* |