mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Fix: Don't cast SCM values to pointer. Use SCM2PTR instead.

Browse source
This commit is contained in:
Dirk Herrmann 2000-03-21 11:14:24 +00:00
parent b00c8cdc68
commit 7352d0b203
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-03-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* vectors.h (SCM_VELTS, SCM_VELTS_AS_STACKITEMS): Don't cast SCM
values to pointers. Use SCM2PTR instead.
2000-03-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* async.c (scm_set_tick_rate, scm_set_switch_rate): Don't unpack

8
libguile/vectors.h
View file

@ -51,10 +51,10 @@
#define SCM_VECTORP(x) (SCM_NIMP(x) && (SCM_TYP7S(x)==scm_tc7_vector))
#define SCM_NVECTORP(x) (!SCM_VECTORP(x))
#define SCM_VELTS(x) ((SCM *)SCM_CDR(x))
#define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *)SCM_CDR(x))
#define SCM_VECTORP(x) (SCM_NIMP (x) && (SCM_TYP7S (x) == scm_tc7_vector))
#define SCM_NVECTORP(x) (!SCM_VECTORP (x))
#define SCM_VELTS(x) ((SCM *) SCM2PTR (SCM_CDR (x)))
#define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM2PTR (SCM_CDR (x)))
#define SCM_SETVELTS SCM_SETCDR