diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 20:28:13 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 20:28:13 +0000 |
commit | 473c250d0ae97ea7329c3a5b29573e26b18b5aa1 (patch) | |
tree | 56511e46ca3cbd8e3db69dc469c33abf24d5a4f7 /libguile/debug.h | |
parent | 38bd0b3b0ea031882ea96d249eaf29498db5f140 (diff) | |
download | guile-473c250d0ae97ea7329c3a5b29573e26b18b5aa1.tar.gz |
* debug.h (SCM_VOIDFRAME, SCM_VOIDFRAMEP): New macros.
(scm_debug_info): New member: id.
Diffstat (limited to 'libguile/debug.h')
-rw-r--r-- | libguile/debug.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/debug.h b/libguile/debug.h index 2116256b8..1f999fa24 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -115,6 +115,7 @@ typedef union scm_debug_info { struct { SCM exp, env; } e; struct { SCM proc, args; } a; + SCM id; } scm_debug_info; extern int scm_debug_eframe_size; @@ -132,17 +133,18 @@ extern scm_debug_frame *scm_last_debug_frame; #define SCM_EVALFRAME (0L << 10) #define SCM_APPLYFRAME (1L << 10) +#define SCM_VOIDFRAME (2L << 10) #define SCM_TAILREC (1L << 9) #define SCM_TRACED_FRAME (1L << 8) #define SCM_ARGS_READY (1L << 7) #define SCM_DOVERFLOW (1L << 6) #define SCM_MAX_FRAME_SIZE 63 /* also used as a mask for the size field */ -#define SCM_FRAMETYPE (1L << 10) +#define SCM_FRAMETYPE (3L << 10) #define SCM_EVALFRAMEP(x) (((x).status & SCM_FRAMETYPE) == SCM_EVALFRAME) #define SCM_APPLYFRAMEP(x) (((x).status & SCM_FRAMETYPE) == SCM_APPLYFRAME) -#define SCM_STARTFRAMEP(x) (((x).status & SCM_FRAMETYPE) == SCM_STARTFRAME) +#define SCM_VOIDFRAMEP(x) (((x).status & SCM_FRAMETYPE) == SCM_VOIDFRAME) #define SCM_OVERFLOWP(x) (((x).status & SCM_DOVERFLOW) != 0) #define SCM_ARGS_READY_P(x) (((x).status & SCM_ARGS_READY) != 0) #define SCM_TRACED_FRAME_P(x) (((x).status & SCM_TRACED_FRAME) != 0) |