mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

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

Browse source 
to make explicit what happens.
This commit is contained in:
Dirk Herrmann 2004-05-15 15:42:47 +00:00
parent 2ff0840571
commit 770e048f7d
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -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> 2004-05-15 Dirk Herrmann <dirk@dirk-herrmanns-seiten.de>
* dynl.c (SET_DYNL_HANDLE): Add cast to scm_t_bits to make * dynl.c (SET_DYNL_HANDLE): Add cast to scm_t_bits to make

4
libguile/throw.c
View file

@ -50,9 +50,9 @@ static scm_t_bits tc16_jmpbuffer;
(SCM_SET_CELL_WORD_0 ((x), (SCM_CELL_WORD_0 (x) & ~(1L << 16L)))) (SCM_SET_CELL_WORD_0 ((x), (SCM_CELL_WORD_0 (x) & ~(1L << 16L))))
#define JBJMPBUF(OBJ) ((jmp_buf *) SCM_CELL_WORD_1 (OBJ)) #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_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 static int
jmpbuffer_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED) jmpbuffer_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)