* throw.c (SETJBJMPBUF, SCM_SETJBDFRAME): Add cast to scm_t_bits

	to make explicit what happens.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 8f2fa89..f86dce2 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-15  Dirk Herrmann  <dirk@dirk-herrmanns-seiten.de>
+
+       * throw.c (SETJBJMPBUF, SCM_SETJBDFRAME): Add cast to scm_t_bits
+       to make explicit what happens.
+
 2004-05-15  Dirk Herrmann  <dirk@dirk-herrmanns-seiten.de>
 
        * dynl.c (SET_DYNL_HANDLE): Add cast to scm_t_bits to make

diff --git a/libguile/throw.c b/libguile/throw.c
index fe66367..f278350 100644 (file)
--- 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)