diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2004-05-15 15:42:47 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2004-05-15 15:42:47 +0000 |
commit | 770e048f7d7d560e03cc7271f00466406dba7e12 (patch) | |
tree | f8975df8c68485013b18bec74bc7306fcb4d3bec /libguile/throw.c | |
parent | 2ff084057191db308547cc77a976564b185452b4 (diff) | |
download | guile-770e048f7d7d560e03cc7271f00466406dba7e12.tar.gz |
* throw.c (SETJBJMPBUF, SCM_SETJBDFRAME): Add cast to scm_t_bits
to make explicit what happens.
Diffstat (limited to 'libguile/throw.c')
-rw-r--r-- | libguile/throw.c | 4 |
1 files changed, 2 insertions, 2 deletions
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) |