summaryrefslogtreecommitdiff
path: root/libguile/continuations.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/continuations.h')
-rw-r--r--libguile/continuations.h16
1 files changed, 10 insertions, 6 deletions
diff --git a/libguile/continuations.h b/libguile/continuations.h
index 85029fb23..0d31225c9 100644
--- a/libguile/continuations.h
+++ b/libguile/continuations.h
@@ -50,7 +50,7 @@
/* a continuation SCM is a non-immediate pointing to a heap cell with:
word 0: bits 0-15: unused.
bits 16-31: smob type tag: scm_tc16_continuation.
- word 1: malloc block containing an scm_contregs structure with a
+ word 1: malloc block containing an scm_contregs_t structure with a
tail array of SCM_STACKITEM. the size of the array is stored
in the num_stack_items field of the structure.
*/
@@ -63,20 +63,24 @@ typedef struct
jmp_buf jmpbuf;
SCM dynenv;
SCM_STACKITEM *base; /* base of the live stack, before it was saved. */
- scm_sizet num_stack_items; /* size of the saved stack. */
- unsigned long seq; /* dynamic root identifier. */
+ scm_bits_t num_stack_items; /* size of the saved stack. */
+ scm_ubits_t seq; /* dynamic root identifier. */
#ifdef DEBUG_EXTENSIONS
/* the most recently created debug frame on the live stack, before
it was saved. */
- struct scm_debug_frame *dframe;
+ struct scm_debug_frame_t *dframe;
#endif
SCM_STACKITEM stack[1]; /* copied stack of size num_stack_items. */
-} scm_contregs;
+} scm_contregs_t;
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+# define scm_contregs scm_contregs_t
+#endif
#define SCM_CONTINUATIONP(x) SCM_TYP16_PREDICATE (scm_tc16_continuation, x)
-#define SCM_CONTREGS(x) ((scm_contregs *) SCM_CELL_WORD_1 (x))
+#define SCM_CONTREGS(x) ((scm_contregs_t *) SCM_CELL_WORD_1 (x))
#define SCM_CONTINUATION_LENGTH(x) (SCM_CONTREGS (x)->num_stack_items)
#define SCM_SET_CONTINUATION_LENGTH(x,n)\