summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2004-05-15 15:42:47 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2004-05-15 15:42:47 +0000
commit770e048f7d7d560e03cc7271f00466406dba7e12 (patch)
treef8975df8c68485013b18bec74bc7306fcb4d3bec
parent2ff084057191db308547cc77a976564b185452b4 (diff)
downloadguile-770e048f7d7d560e03cc7271f00466406dba7e12.tar.gz
* throw.c (SETJBJMPBUF, SCM_SETJBDFRAME): Add cast to scm_t_bits
to make explicit what happens.
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/throw.c4
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,5 +1,10 @@
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
explicit what happens.
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)