From 770e048f7d7d560e03cc7271f00466406dba7e12 Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Sat, 15 May 2004 15:42:47 +0000 Subject: [PATCH] * throw.c (SETJBJMPBUF, SCM_SETJBDFRAME): Add cast to scm_t_bits to make explicit what happens. --- libguile/ChangeLog | 5 +++++ libguile/throw.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 8f2fa89ad..f86dce296 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2004-05-15 Dirk Herrmann + + * throw.c (SETJBJMPBUF, SCM_SETJBDFRAME): Add cast to scm_t_bits + to make explicit what happens. + 2004-05-15 Dirk Herrmann * dynl.c (SET_DYNL_HANDLE): Add cast to scm_t_bits to make diff --git a/libguile/throw.c b/libguile/throw.c index fe6636785..f278350af 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -50,9 +50,9 @@ static scm_t_bits tc16_jmpbuffer; (SCM_SET_CELL_WORD_0 ((x), (SCM_CELL_WORD_0 (x) & ~(1L << 16L)))) #define JBJMPBUF(OBJ) ((jmp_buf *) SCM_CELL_WORD_1 (OBJ)) -#define SETJBJMPBUF(x, v) (SCM_SET_CELL_WORD_1 ((x), (v))) +#define SETJBJMPBUF(x, v) (SCM_SET_CELL_WORD_1 ((x), (scm_t_bits) (v))) #define SCM_JBDFRAME(x) ((scm_t_debug_frame *) SCM_CELL_WORD_2 (x)) -#define SCM_SETJBDFRAME(x, v) (SCM_SET_CELL_WORD_2 ((x), (v))) +#define SCM_SETJBDFRAME(x, v) (SCM_SET_CELL_WORD_2 ((x), (scm_t_bits) (v))) static int jmpbuffer_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED) -- 2.20.1