summaryrefslogtreecommitdiff
path: root/libguile/debug.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 20:28:13 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 20:28:13 +0000
commit473c250d0ae97ea7329c3a5b29573e26b18b5aa1 (patch)
tree56511e46ca3cbd8e3db69dc469c33abf24d5a4f7 /libguile/debug.h
parent38bd0b3b0ea031882ea96d249eaf29498db5f140 (diff)
downloadguile-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.h6
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)