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 | |
parent | 2ff084057191db308547cc77a976564b185452b4 (diff) | |
download | guile-770e048f7d7d560e03cc7271f00466406dba7e12.tar.gz |
* throw.c (SETJBJMPBUF, SCM_SETJBDFRAME): Add cast to scm_t_bits
to make explicit what happens.
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | 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,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) |