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

* eval.h (SCM_MAKE_ILOC): New macro.

Browse source 
* debug.c (scm_make_iloc):  Use SCM_MAKE_ILOC instead of computing
the iloc bitpattern here.
This commit is contained in:
Dirk Herrmann 2002-11-16 16:20:14 +00:00
parent c55bcb3297
commit a8a19efc2b
3 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.h
View file

@ -92,6 +92,12 @@ SCM_API SCM scm_eval_options_interface (SCM setting);
& (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 )