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

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