mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +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

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2002-11-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.h (SCM_MAKE_ILOC): New macro.
* debug.c (scm_make_iloc): Use SCM_MAKE_ILOC instead of computing
the iloc bitpattern here.
2002-11-14 Mikael Djurfeldt <mdj@linnaeus> 2002-11-14 Mikael Djurfeldt <mdj@linnaeus>
* coop-pthreads.c, coop-pthreads.h: scm_internal_select should be * coop-pthreads.c, coop-pthreads.h: scm_internal_select should be

5
libguile/debug.c
View file

@ -245,10 +245,7 @@ SCM_DEFINE (scm_make_iloc, "make-iloc", 3, 0, 0,
{ {
SCM_VALIDATE_INUM (1, frame); SCM_VALIDATE_INUM (1, frame);
SCM_VALIDATE_INUM (2, binding); SCM_VALIDATE_INUM (2, binding);
return SCM_PACK (SCM_UNPACK (SCM_ILOC00) SCM_MAKE_ILOC (SCM_INUM (frame), SCM_INUM (binding), !SCM_FALSEP (cdrp));
+ SCM_IFRINC * SCM_INUM (frame)
+ (!SCM_FALSEP (cdrp) ? SCM_ICDR : 0)
+ SCM_IDINC * SCM_INUM (binding));
} }
#undef FUNC_NAME #undef FUNC_NAME

6
libguile/eval.h
View file

@ -92,6 +92,12 @@ SCM_API SCM scm_eval_options_interface (SCM setting);
& (SCM_UNPACK (n) >> 8)) & (SCM_UNPACK (n) >> 8))
#define SCM_IDIST(n) (SCM_UNPACK (n) >> 20) #define SCM_IDIST(n) (SCM_UNPACK (n) >> 20)
#define SCM_ICDRP(n) (SCM_ICDR & SCM_UNPACK (n)) #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 )