mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

* dynl.c (SET_DYNL_HANDLE): Add cast to scm_t_bits to make

Browse source 
explicit what happens.

	* guardians.c (TCONC_IN): Use SCM_SET_CELL_OBJECT_x rather than
	SCM_SET_CELL_WORD_x when writing scheme objets to cell elements.
This commit is contained in:
Dirk Herrmann 2004-05-15 15:39:27 +00:00
parent 89afb9cd52
commit 2ff0840571
3 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/ChangeLog
View file

@ -1,3 +1,11 @@
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.
* guardians.c (TCONC_IN): Use SCM_SET_CELL_OBJECT_x rather than
SCM_SET_CELL_WORD_x when writing scheme objets to cell elements.
2004-05-11 Marius Vollmer <mvo@zagadka.de>
* scmsigs.c (scm_sigaction_for_thread): Validate that the handler

2
libguile/dynl.c
View file

@ -113,7 +113,7 @@ scm_t_bits scm_tc16_dynamic_obj;
#define DYNL_FILENAME SCM_SMOB_OBJECT
#define DYNL_HANDLE(x) ((void *) SCM_SMOB_DATA_2 (x))
#define SET_DYNL_HANDLE(x, v) (SCM_SET_SMOB_DATA_2 ((x), (v)))
#define SET_DYNL_HANDLE(x, v) (SCM_SET_SMOB_DATA_2 ((x), (scm_t_bits) (v)))
static SCM

4
libguile/guardians.c
View file

@ -62,8 +62,8 @@ typedef struct t_tconc
#define TCONC_IN(tc, obj, pair) \
do { \
SCM_SETCAR ((tc).tail, obj); \
SCM_SET_CELL_WORD_1 (pair, SCM_EOL); \
SCM_SET_CELL_WORD_0 (pair, SCM_BOOL_F); \
SCM_SET_CELL_OBJECT_1 (pair, SCM_EOL); \
SCM_SET_CELL_OBJECT_0 (pair, SCM_BOOL_F); \
SCM_SETCDR ((tc).tail, pair); \
(tc).tail = pair; \
} while (0)