summaryrefslogtreecommitdiff
path: root/libguile/eval.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-06-04 05:28:34 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-06-04 05:28:34 +0000
commitd0624e391be5f644a301e31df9ea54386e2cd7e5 (patch)
treebd5ba87eec78919116d37505e01caa294ce24ef4 /libguile/eval.h
parente90c3a895d37efba2a31995ec85984ec205db974 (diff)
downloadguile-d0624e391be5f644a301e31df9ea54386e2cd7e5.tar.gz
* __scm.h, gc-card.c (SCM_DEBUG_DEBUGGER_SUPPORT,
SCM_DEBUG_DEBUGGING_SUPPORT): Renamed macro SCM_DEBUG_DEBUGGER_SUPPORT to SCM_DEBUG_DEBUGGING_SUPPORT and generalized it to apply not only to C level functions but also to scheme level functions. * debug.c, debug.h, eval.c (make-iloc, scm_make_iloc, iloc?, scm_iloc_p, dbg-make-iloc, scm_dbg_make_iloc, dbg-iloc?, scm_dbg_iloc_p): Moved functions scm_make_iloc, scm_iloc_p to eval.c, made them available under SCM_DEBUG_DEBUGGING_SUPPORT == 1 only and renamed them to scm_dbg_make_iloc, scm_dbg_iloc_p, respectively. * deprecated.h, eval.c, eval.h (SCM_ILOC00, SCM_IDINC, SCM_IDSTMSK): Deprecated. The macro definitions are moved from eval.h into eval.c and a copy is placed into deprecated.h. * eval.c, eval.h (SCM_MAKE_ILOC): Removed from eval.h and placed into eval.c. This definition was not part of the API in any officially released version of guile and thus does not need to go through a phase of deprecation.
Diffstat (limited to 'libguile/eval.h')
-rw-r--r--libguile/eval.h9
1 files changed, 0 insertions, 9 deletions
diff --git a/libguile/eval.h b/libguile/eval.h
index b9ff5743b..c6f7a9bc3 100644
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -59,21 +59,12 @@ SCM_API SCM scm_eval_options_interface (SCM setting);
*
*/
#define SCM_ILOCP(n) (SCM_ITAG8(n)==scm_tc8_iloc)
-#define SCM_ILOC00 SCM_MAKE_ITAG8(0L, scm_tc8_iloc)
-#define SCM_IDINC (0x00100000L)
#define SCM_ICDR (0x00080000L)
#define SCM_IFRINC (0x00000100L)
-#define SCM_IDSTMSK (-SCM_IDINC)
#define SCM_IFRAME(n) ((long)((SCM_ICDR-SCM_IFRINC)>>8) \
& (SCM_UNPACK (n) >> 8))
#define SCM_IDIST(n) (SCM_UNPACK (n) >> 20)
#define SCM_ICDRP(n) (SCM_ICDR & SCM_UNPACK (n))
-#define SCM_MAKE_ILOC(frame_nr, binding_nr, last_p) \
- SCM_PACK ( \
- ((frame_nr) << 8) \
- + ((binding_nr) << 20) \
- + ((last_p) ? SCM_ICDR : 0) \
- + scm_tc8_iloc )