diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-11-16 16:20:14 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-11-16 16:20:14 +0000 |
| commit | a8a19efc2b922b86489aa9da942db89bc4ac66f3 (patch) | |
| tree | fa13508422e37e5c9c2d063b29d490c478d104d7 /libguile/eval.h | |
| parent | c55bcb329743378e1af784ac41a29764d46fe65c (diff) | |
| download | guile-a8a19efc2b922b86489aa9da942db89bc4ac66f3.tar.gz | |
* eval.h (SCM_MAKE_ILOC): New macro.
* debug.c (scm_make_iloc): Use SCM_MAKE_ILOC instead of computing
the iloc bitpattern here.
Diffstat (limited to 'libguile/eval.h')
| -rw-r--r-- | libguile/eval.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/eval.h b/libguile/eval.h index 6315fe4aa..43d967ab3 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -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 ) |